diff --git a/ADMIN.sln b/ADMIN.sln new file mode 100644 index 0000000..67c7d02 --- /dev/null +++ b/ADMIN.sln @@ -0,0 +1,97 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 15 +VisualStudioVersion = 15.0.28307.106 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ADMIN", "UID\ADMIN.vbproj", "{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ADMINUPDATER", "ADMINUPDATER\ADMINUPDATER.vbproj", "{2D061D63-7B47-4357-93C7-FB5FD0916068}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGMonitoring", "VERAGMonitoring\VERAGMonitoring.vbproj", "{6C5CFB90-BE10-4824-997D-B494A7CFF565}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RoutineManager", "initATLASAufschubkonten\RoutineManager.vbproj", "{BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGMonitoringUPDATER", "VERAGMonitoringUPDATER\VERAGMonitoringUPDATER.vbproj", "{D18EDE7C-38E6-4FD7-BB97-A0C33483B47E}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ServerListender", "ServerListender\ServerListender.vbproj", "{FED651F8-E4EF-41D0-B68F-44FBC8F18593}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DienstplanTV", "DienstplanTV\DienstplanTV.vbproj", "{1F008363-5FCF-49A2-A953-18DEFED4D3BE}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MailSender", "MailSender\MailSender.vbproj", "{ED0BFDD3-71A2-48ED-BC29-3C9883A1A06F}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ATILLA_Speditionsbuch", "ATILLA_Speditionsbuch\ATILLA_Speditionsbuch.vbproj", "{2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.Build.0 = Debug|Any CPU + {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.ActiveCfg = Release|Any CPU + {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.Build.0 = Release|Any CPU + {2D061D63-7B47-4357-93C7-FB5FD0916068}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {2D061D63-7B47-4357-93C7-FB5FD0916068}.Debug|Any CPU.Build.0 = Debug|Any CPU + {2D061D63-7B47-4357-93C7-FB5FD0916068}.Release|Any CPU.ActiveCfg = Release|Any CPU + {2D061D63-7B47-4357-93C7-FB5FD0916068}.Release|Any CPU.Build.0 = Release|Any CPU + {6C5CFB90-BE10-4824-997D-B494A7CFF565}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {6C5CFB90-BE10-4824-997D-B494A7CFF565}.Debug|Any CPU.Build.0 = Debug|Any CPU + {6C5CFB90-BE10-4824-997D-B494A7CFF565}.Release|Any CPU.ActiveCfg = Release|Any CPU + {6C5CFB90-BE10-4824-997D-B494A7CFF565}.Release|Any CPU.Build.0 = Release|Any CPU + {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Debug|Any CPU.Build.0 = Debug|Any CPU + {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Release|Any CPU.ActiveCfg = Release|Any CPU + {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Release|Any CPU.Build.0 = Release|Any CPU + {D18EDE7C-38E6-4FD7-BB97-A0C33483B47E}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {D18EDE7C-38E6-4FD7-BB97-A0C33483B47E}.Debug|Any CPU.Build.0 = Debug|Any CPU + {D18EDE7C-38E6-4FD7-BB97-A0C33483B47E}.Release|Any CPU.ActiveCfg = Release|Any CPU + {D18EDE7C-38E6-4FD7-BB97-A0C33483B47E}.Release|Any CPU.Build.0 = Release|Any CPU + {FED651F8-E4EF-41D0-B68F-44FBC8F18593}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {FED651F8-E4EF-41D0-B68F-44FBC8F18593}.Debug|Any CPU.Build.0 = Debug|Any CPU + {FED651F8-E4EF-41D0-B68F-44FBC8F18593}.Release|Any CPU.ActiveCfg = Release|Any CPU + {FED651F8-E4EF-41D0-B68F-44FBC8F18593}.Release|Any CPU.Build.0 = Release|Any CPU + {1F008363-5FCF-49A2-A953-18DEFED4D3BE}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {1F008363-5FCF-49A2-A953-18DEFED4D3BE}.Debug|Any CPU.Build.0 = Debug|Any CPU + {1F008363-5FCF-49A2-A953-18DEFED4D3BE}.Release|Any CPU.ActiveCfg = Release|Any CPU + {1F008363-5FCF-49A2-A953-18DEFED4D3BE}.Release|Any CPU.Build.0 = Release|Any CPU + {ED0BFDD3-71A2-48ED-BC29-3C9883A1A06F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {ED0BFDD3-71A2-48ED-BC29-3C9883A1A06F}.Debug|Any CPU.Build.0 = Debug|Any CPU + {ED0BFDD3-71A2-48ED-BC29-3C9883A1A06F}.Release|Any CPU.ActiveCfg = Release|Any CPU + {ED0BFDD3-71A2-48ED-BC29-3C9883A1A06F}.Release|Any CPU.Build.0 = Release|Any CPU + {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}.Debug|Any CPU.Build.0 = Debug|Any CPU + {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}.Release|Any CPU.ActiveCfg = Release|Any CPU + {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA}.Release|Any CPU.Build.0 = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU + {50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU + {50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.ActiveCfg = Release|Any CPU + {50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.Build.0 = Release|Any CPU + {5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU + {5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU + {5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.Build.0 = Debug|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.ActiveCfg = Release|Any CPU + {2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {6177B13E-756D-4EAA-B667-169EFF471EF0} + EndGlobalSection +EndGlobal diff --git a/ADMINUPDATER/ADMINUPDATER.vbproj b/ADMINUPDATER/ADMINUPDATER.vbproj new file mode 100644 index 0000000..6b8de45 --- /dev/null +++ b/ADMINUPDATER/ADMINUPDATER.vbproj @@ -0,0 +1,168 @@ + + + + + Debug + AnyCPU + {2D061D63-7B47-4357-93C7-FB5FD0916068} + WinExe + ADMINUPDATER.My.MyApplication + ADMINUPDATER + ADMINUPDATER + 512 + WindowsForms + v4.5 + + + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + false + true + + + AnyCPU + true + full + true + true + bin\Debug\ + ADMINUPDATER.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + ADMINUPDATER.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + UPDATERfrm.vb + + + Form + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + UPDATERfrm.vb + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + Always + + + Always + + + + + False + Microsoft .NET Framework 4.5 %28x86 and x64%29 + true + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + false + + + + + \ No newline at end of file diff --git a/ADMINUPDATER/ADMINUPDATER_Settings.txt b/ADMINUPDATER/ADMINUPDATER_Settings.txt new file mode 100644 index 0000000..41dd839 --- /dev/null +++ b/ADMINUPDATER/ADMINUPDATER_Settings.txt @@ -0,0 +1 @@ +F:\Programme\ADMIN\ \ No newline at end of file diff --git a/ADMINUPDATER/ADMINUPDATER_Version.txt b/ADMINUPDATER/ADMINUPDATER_Version.txt new file mode 100644 index 0000000..389f774 --- /dev/null +++ b/ADMINUPDATER/ADMINUPDATER_Version.txt @@ -0,0 +1 @@ +4.0 \ No newline at end of file diff --git a/ADMINUPDATER/App.config b/ADMINUPDATER/App.config new file mode 100644 index 0000000..d1428ad --- /dev/null +++ b/ADMINUPDATER/App.config @@ -0,0 +1,6 @@ + + + + + + diff --git a/ADMINUPDATER/My Project/Application.Designer.vb b/ADMINUPDATER/My Project/Application.Designer.vb new file mode 100644 index 0000000..9d7829e --- /dev/null +++ b/ADMINUPDATER/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern + ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.ADMINUPDATER.UPDATERfrm + End Sub + End Class +End Namespace diff --git a/ADMINUPDATER/My Project/Application.myapp b/ADMINUPDATER/My Project/Application.myapp new file mode 100644 index 0000000..b194740 --- /dev/null +++ b/ADMINUPDATER/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + UPDATERfrm + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/ADMINUPDATER/My Project/AssemblyInfo.vb b/ADMINUPDATER/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..8751d10 --- /dev/null +++ b/ADMINUPDATER/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die mit einer Assembly verknüpft sind. + +' Die Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/ADMINUPDATER/My Project/Resources.Designer.vb b/ADMINUPDATER/My Project/Resources.Designer.vb new file mode 100644 index 0000000..e9b8dd4 --- /dev/null +++ b/ADMINUPDATER/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ADMINUPDATER.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/ADMINUPDATER/My Project/Resources.resx b/ADMINUPDATER/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/ADMINUPDATER/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ADMINUPDATER/My Project/Settings.Designer.vb b/ADMINUPDATER/My Project/Settings.Designer.vb new file mode 100644 index 0000000..280eab5 --- /dev/null +++ b/ADMINUPDATER/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funktion zum automatischen Speichern von My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.ADMINUPDATER.My.MySettings + Get + Return Global.ADMINUPDATER.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ADMINUPDATER/My Project/Settings.settings b/ADMINUPDATER/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/ADMINUPDATER/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/ADMINUPDATER/UPDATERfrm.Designer.vb b/ADMINUPDATER/UPDATERfrm.Designer.vb new file mode 100644 index 0000000..2373b1f --- /dev/null +++ b/ADMINUPDATER/UPDATERfrm.Designer.vb @@ -0,0 +1,142 @@ + _ +Partial Class UPDATERfrm + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.ProgressBar = New System.Windows.Forms.ProgressBar() + Me.RichTextBox = New System.Windows.Forms.RichTextBox() + Me.btnClose = New System.Windows.Forms.Button() + Me.m_Label = New System.Windows.Forms.Label() + Me.pnl = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnl.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'ProgressBar + ' + Me.ProgressBar.BackColor = System.Drawing.Color.White + Me.ProgressBar.Location = New System.Drawing.Point(13, 204) + Me.ProgressBar.Name = "ProgressBar" + Me.ProgressBar.Size = New System.Drawing.Size(501, 23) + Me.ProgressBar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.ProgressBar.TabIndex = 0 + Me.ProgressBar.UseWaitCursor = True + ' + 'RichTextBox + ' + Me.RichTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.RichTextBox.Location = New System.Drawing.Point(13, 29) + Me.RichTextBox.Name = "RichTextBox" + Me.RichTextBox.ReadOnly = True + Me.RichTextBox.Size = New System.Drawing.Size(501, 169) + Me.RichTextBox.TabIndex = 1 + Me.RichTextBox.Text = "" + ' + 'btnClose + ' + Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnClose.BackColor = System.Drawing.Color.Red + Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White + Me.btnClose.FlatAppearance.BorderSize = 0 + Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnClose.ForeColor = System.Drawing.Color.White + Me.btnClose.Location = New System.Drawing.Point(461, 0) + Me.btnClose.Name = "btnClose" + Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.btnClose.Size = New System.Drawing.Size(63, 23) + Me.btnClose.TabIndex = 86 + Me.btnClose.Text = "X" + Me.btnClose.UseVisualStyleBackColor = False + ' + 'm_Label + ' + Me.m_Label.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.m_Label.Location = New System.Drawing.Point(13, 229) + Me.m_Label.Name = "m_Label" + Me.m_Label.Size = New System.Drawing.Size(501, 19) + Me.m_Label.TabIndex = 87 + Me.m_Label.Text = "-" + Me.m_Label.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.RichTextBox) + Me.pnl.Controls.Add(Me.m_Label) + Me.pnl.Controls.Add(Me.ProgressBar) + Me.pnl.Controls.Add(Me.btnClose) + Me.pnl.Controls.Add(Me.Panel1) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(526, 257) + Me.pnl.TabIndex = 88 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Location = New System.Drawing.Point(-1, -1) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(526, 24) + Me.Panel1.TabIndex = 88 + ' + 'Label1 + ' + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(14, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(251, 24) + Me.Label1.TabIndex = 89 + Me.Label1.Text = "ADMIN Updater" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'UPDATERfrm + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(526, 257) + Me.Controls.Add(Me.pnl) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "UPDATERfrm" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "UPDATERfrm" + Me.pnl.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + +End Sub + Friend WithEvents ProgressBar As System.Windows.Forms.ProgressBar + Friend WithEvents RichTextBox As System.Windows.Forms.RichTextBox + Friend WithEvents btnClose As System.Windows.Forms.Button + Friend WithEvents m_Label As System.Windows.Forms.Label + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label +End Class diff --git a/ADMINUPDATER/UPDATERfrm.resx b/ADMINUPDATER/UPDATERfrm.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ADMINUPDATER/UPDATERfrm.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ADMINUPDATER/UPDATERfrm.vb b/ADMINUPDATER/UPDATERfrm.vb new file mode 100644 index 0000000..930ce83 --- /dev/null +++ b/ADMINUPDATER/UPDATERfrm.vb @@ -0,0 +1,269 @@ +Imports System.IO + +Public Class UPDATERfrm + + Private Sub UPDATERfrm_Load(sender As Object, e As EventArgs) Handles Me.Load + + End Sub + + Private Sub UPDATERfrm_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Dim trd As New Threading.Thread(AddressOf Main) + trd.IsBackground = True + trd.Start() + End Sub + + + + + Dim F As String = "F:\Programme\ADMIN\" ' WDH TERM + Dim F_PROD As String = "\\192.168.0.91\f\Programme\ADMIN\" ' VERAG + ' Dim F As String = "\\192.168.0.90\f\Programme\ADMIN\" 'DEVELOPER + Dim F_ATILLA As String = "\\172.16.0.99\Daten\Programme\ADMIN\" ' ATILLA + Dim F_IMEX As String = "\\192.168.1.20\Daten\VERAG Programme\ADMIN\" ' IMEX + + Public Sub Main() + + Dim FIRMA = "VERAG" + Dim pfadDatei As String = System.AppDomain.CurrentDomain.BaseDirectory & "\Standort.txt" + FIRMA = "VERAG" + + If File.Exists(pfadDatei) Then + Dim fs As New FileStream(pfadDatei, FileMode.Open, FileAccess.Read) + Dim strmReader As New StreamReader(fs) + FIRMA = strmReader.ReadLine + fs.Dispose() + strmReader.Dispose() + End If + + If FIRMA = "ATILLA" Then F = F_ATILLA 'Sichere Verbindung + If FIRMA = "IMEX" Then F = F_IMEX 'Sichere Verbindung + + 'Falls Settings existiert, wird der Pfad daraus verwendet. + F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "ADMINUPDATER_Settings.txt") + If Not System.IO.Directory.Exists(F) Then + + If FIRMA = "ATILLA" Then + F = F_ATILLA 'Sichere Verbindung + ElseIf FIRMA = "IMEX" Then + F = F_IMEX 'Sichere Verbindung + Else + F = F_PROD + End If + + writeLine(RichTextBox, "F-Pfad nicht gefunden, verbinde mit '" & F & "' ...") + If Not System.IO.Directory.Exists(F) Then + MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem F:\ Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR") + Environment.Exit(0) + End If + + writeLine(RichTextBox, "Verbindung erfolgreich...") + End If + + writeLine(RichTextBox, "3 Sekunden warten, um sicherzustellen, dass das Programm beendet wurde...") + Threading.Thread.Sleep(3000) 'Falls Programm gerade am Beenden + writeLine(RichTextBox, "Starte Update...") + ' If Not My.Computer.FileSystem.DirectoryExists(F) Then + 'MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR") + ' Else + Try + + For i As Integer = 1 To 3 Step 1 + If Not DoesProcessExists("ADMIN") Then + If Not tryDelMain() Then + MsgBox("ERROR_UPDATE_06: ADMIN.exe konnte nicht gelöscht werden. Das Programm wird evtl. noch ausgeführt.", MsgBoxStyle.Critical, "ERROR") + Environment.Exit(0) + End If + delFiles() + FileCopier() + If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "ADMIN.exe") Then + MsgBox("ERROR_UPDATE_03: ADMIN.exe konnte nicht gestartet werden.", MsgBoxStyle.Critical, "ERROR") + + End If + If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp") Then + System.IO.File.Create(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp") + End If + writeLine(RichTextBox, "Erfolgreich abgeschlossen...") + Process.Start("ADMIN.exe") + Environment.Exit(0) + End If + Threading.Thread.Sleep(1000) + Next + MsgBox("ERROR_UPDATE_01: Update konnte nicht durchgeführt werden. ADMIN.exe nicht beendet?", MsgBoxStyle.Critical, "ERROR") + + Catch ex As Exception + MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR") + End Try + 'End If + Environment.Exit(0) + End Sub + + Delegate Sub writeLineCallback(rtb As System.Windows.Forms.RichTextBox, text As String) + Private Sub writeLine(rtb As System.Windows.Forms.RichTextBox, text As String) + If Me.InvokeRequired Then + Dim d As New writeLineCallback(AddressOf writeLine) + Me.Invoke(d, New Object() {rtb, text}) + Else + rtb.Text &= text & vbNewLine + End If + + End Sub + + 'Sub writeLine(richtextbox,text) + ' RichTextBox.Text &= text & vbNewLine + ' End Sub + Private Sub FileCopier() + CopyDir(F, AppDomain.CurrentDomain.BaseDirectory) + Exit Sub + + For Each file As String In IO.Directory.GetFiles(F) ' Ermittelt alle Dateien des Ordners + IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next + Next + For Each file As String In IO.Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners + My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) + Next + End Sub + + + + + Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function + While file.Contains("\") + file = file.Remove(0, 1) + End While + Return file + End Function + Private Function tryDelMain() As Boolean + 'Dim f As String = "no" + Try + If System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "ADMIN.exe") Then My.Computer.FileSystem.DeleteFile(AppDomain.CurrentDomain.BaseDirectory & "ADMIN.exe") + Return True + Catch ex As Exception + MsgBox("ERROR_UPDATE_04: Fehler beim Löschen: " & F & vbNewLine & ex.Message, MsgBoxStyle.Critical, "ERROR") + Environment.Exit(0) + Return False + End Try + End Function + + Private Sub delFiles() + 'Dim f As String = "no" + Try + For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners + If Not cut_file(file).Contains("ADMINUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then + ' f = file + My.Computer.FileSystem.DeleteFile(file) 'Löscht das ADMIN-Programm, außer den Updater + ' IO.File.Delete(file) + 'IO.Directory.Delete(file) + End If + + Next + Catch ex As Exception + MsgBox("ERROR_UPDATE_04: Fehler beim Löschen: " & F & vbNewLine & ex.Message, MsgBoxStyle.Critical, "ERROR") + Environment.Exit(0) + End Try + End Sub + Private Function DoesProcessExists(ByVal PName As String) As Boolean + For Each p As Process In System.Diagnostics.Process.GetProcessesByName(PName) + If p.StartInfo.UserName = Environment.UserName Then + Return True + End If + Next + Return False + End Function + + Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click + Me.Close() + + End Sub + + + + Private Sub CopyDir(ByVal SourceFolder As String, ByVal DestinationFolder As String) + + With ProgressBar + .Maximum = CInt(GetFolderSize(SourceFolder) \ 1024) + 'eventuell Rückgabe direkt auf 0 abfragen + If .Maximum = 0 Then Exit Sub + .Minimum = 0 + .Value = 0 + End With + + For Each file As String In IO.Directory.GetFiles(SourceFolder) + Copy(New IO.FileInfo(file), DestinationFolder) + Next file + + For Each file As String In IO.Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners + 'Copy(New IO.FileInfo(file), DestinationFolder) + My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) + Next + + ProgressBar.Value = 0 + m_Label.Text = "0%" + + End Sub + + Private Function GetFolderSize(ByVal Folder As String) As Long + Dim l As Long + For Each file As String In IO.Directory.GetFiles(Folder) + l += New IO.FileInfo(file).Length + Next file + Return l + End Function + + Private Sub Copy(ByVal SourceFile As IO.FileInfo, ByVal TargetDir As String) + + Try + ' Quelle + Dim fsmsource As IO.FileStream + ' Zieldatei + Dim fsmtarget As IO.FileStream + + ' Größe des bei jedem Durchlauf einzulesenden Datenpaketes + Dim buffersize As Int32 = 1024 * 30 ' (30 KByte) + Dim buffer(buffersize) As Byte + Dim readbyte As Int32 + + ' Quelldatei + ' Using nutzen + fsmsource = New IO.FileStream(SourceFile.FullName, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read) + + ' Zieldatei + fsmtarget = New IO.FileStream(IO.Path.Combine(TargetDir, SourceFile.Name), IO.FileMode.OpenOrCreate, IO.FileAccess.Write) + + ' Daten nach und nach einlesen und im Zielstream wieder + ' zurückschreiben + While fsmsource.Position < fsmsource.Length + ' Quelle einlesen + readbyte = fsmsource.Read(buffer, 0, buffersize) + + ' In das Ziel schreiben + fsmtarget.Write(buffer, 0, readbyte) + + With ProgressBar + Dim vl As Integer = .Value + vl = Math.Min(.Maximum, readbyte \ 1024 + vl) + .Value = vl + m_Label.Text = CStr(CInt(100 * .Value / .Maximum)) + "%" + .Refresh() + m_Label.Refresh() + End With + + End While + + ' Streams schließen + fsmsource.Close() + fsmtarget.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error") + End Try + End Sub + + + + + + + + + + +End Class \ No newline at end of file diff --git a/ATILLA_Speditionsbuch/ATILLA_Speditionsbuch.vbproj b/ATILLA_Speditionsbuch/ATILLA_Speditionsbuch.vbproj new file mode 100644 index 0000000..6cd475b --- /dev/null +++ b/ATILLA_Speditionsbuch/ATILLA_Speditionsbuch.vbproj @@ -0,0 +1,116 @@ + + + + + Debug + AnyCPU + {2007DD34-7BB4-4A31-A6B9-BCE62BF0AFDA} + Exe + Sub Main + ATILLA_Speditionsbuch + ATILLA_Speditionsbuch + 512 + Console + v4.5 + + + AnyCPU + true + full + true + true + bin\Debug\ + ATILLA_Speditionsbuch.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + ATILLA_Speditionsbuch.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + \ No newline at end of file diff --git a/ATILLA_Speditionsbuch/App.config b/ATILLA_Speditionsbuch/App.config new file mode 100644 index 0000000..8e15646 --- /dev/null +++ b/ATILLA_Speditionsbuch/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/ATILLA_Speditionsbuch/My Project/Application.Designer.vb b/ATILLA_Speditionsbuch/My Project/Application.Designer.vb new file mode 100644 index 0000000..88dd01c --- /dev/null +++ b/ATILLA_Speditionsbuch/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/ATILLA_Speditionsbuch/My Project/Application.myapp b/ATILLA_Speditionsbuch/My Project/Application.myapp new file mode 100644 index 0000000..e62f1a5 --- /dev/null +++ b/ATILLA_Speditionsbuch/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 2 + true + diff --git a/ATILLA_Speditionsbuch/My Project/AssemblyInfo.vb b/ATILLA_Speditionsbuch/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..553c654 --- /dev/null +++ b/ATILLA_Speditionsbuch/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die mit einer Assembly verknüpft sind. + +' Die Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/ATILLA_Speditionsbuch/My Project/Resources.Designer.vb b/ATILLA_Speditionsbuch/My Project/Resources.Designer.vb new file mode 100644 index 0000000..fc3e6e2 --- /dev/null +++ b/ATILLA_Speditionsbuch/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ATILLA_Speditionsbuch.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/ATILLA_Speditionsbuch/My Project/Resources.resx b/ATILLA_Speditionsbuch/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/ATILLA_Speditionsbuch/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ATILLA_Speditionsbuch/My Project/Settings.Designer.vb b/ATILLA_Speditionsbuch/My Project/Settings.Designer.vb new file mode 100644 index 0000000..aa7b7cc --- /dev/null +++ b/ATILLA_Speditionsbuch/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.ATILLA_Speditionsbuch.My.MySettings + Get + Return Global.ATILLA_Speditionsbuch.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ATILLA_Speditionsbuch/My Project/Settings.settings b/ATILLA_Speditionsbuch/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/ATILLA_Speditionsbuch/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/ATILLA_Speditionsbuch/cATILLA_Speditionsbuch.vb b/ATILLA_Speditionsbuch/cATILLA_Speditionsbuch.vb new file mode 100644 index 0000000..6316e00 --- /dev/null +++ b/ATILLA_Speditionsbuch/cATILLA_Speditionsbuch.vb @@ -0,0 +1,238 @@ +Imports System.Data.SqlClient + +Module cATILLA_Speditionsbuch + Dim SPED As New List(Of cSpeditionsbuch) + + Sub Main() + LOAD(CDate("01." & Now.Month & "." & Now.Year)) + System.Console.WriteLine(SPED.Count) + + For Each s In SPED + 'INSERT(s) + Next + Threading.Thread.Sleep(3000) + End Sub + + Public Sub LOAD(datum As Date) + Try + Using conn As SqlConnection = GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM Speditionsbuch WHERE FilialenNr=4801 and SB_Zeitstempel > '" & datum.ToShortDateString & " 00:00:00' and Bar=0 ", conn) + + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim s As New cSpeditionsbuch + s.FilialenNr = checkNullInteger(dr.Item("FilialenNr")) + s.AbfertigungsNr = checkNullInteger(dr.Item("AbfertigungsNr")) + s.UnterNr = checkNullInteger(dr.Item("UnterNr")) + s.Abfertigungsdatum = checkNullDateNothing(dr.Item("Abfertigungsdatum")) + s.Bar = checkNullBool(dr.Item("Bar")) + s.Fakturiert = checkNullBool(dr.Item("Fakturiert")) + s.BelegNr = checkNullStr(dr.Item("BelegNr")) + s.ErfassungsNr = checkNullStr(dr.Item("ErfassungsNr")) + s.LKW_Kennzeichen = checkNullStr(dr.Item("LKW Kennzeichen")) + ' s.AvisiererKundenNr = checkNullReturnValue(dr.Item("AvisiererKundenNr"), Nothing) + ' s.Avisierer = checkNullStr(dr.Item("Avisierer")) + s.AbsenderKundenNr = checkNullReturnValue(dr.Item("AbsenderKundenNr"), Nothing) + s.Absender = checkNullStr(dr.Item("Absender")) + s.AbsenderOffertenNr = checkNullInteger(dr.Item("AbsenderOffertenNr")) + s.EmpfängerKundenNr = checkNullReturnValue(dr.Item("EmpfängerKundenNr"), Nothing) + s.Empfänger = checkNullStr(dr.Item("Empfänger")) + s.EmpfängerOffertenNr = checkNullInteger(dr.Item("EmpfängerOffertenNr")) + s.VermittlerKundenNr = checkNullReturnValue(dr.Item("VermittlerKundenNr"), Nothing) + s.Vermittler = checkNullStr(dr.Item("Vermittler")) + s.VermittlerOffertenNr = checkNullInteger(dr.Item("VermittlerOffertenNr")) + s.FrachtführerKundenNr = checkNullReturnValue(dr.Item("FrachtführerKundenNr"), Nothing) + s.Frachtführer = checkNullStr(dr.Item("Frachtführer")) + s.AnzahlZA = checkNullIntegerZero(dr.Item("AnzahlZA")) + s.AnzahlZAFremd = checkNullIntegerZero(dr.Item("AnzahlZAFremd")) + s.AnzahlZnV = checkNullIntegerZero(dr.Item("AnzahlZnV")) + s.AnzahlZnVFremd = checkNullIntegerZero(dr.Item("AnzahlZnVFremd")) + s.AnzahlT1 = checkNullIntegerZero(dr.Item("AnzahlT1")) + s.AnzahlT2 = checkNullIntegerZero(dr.Item("AnzahlT2")) + s.AnzahlAE = checkNullStr(dr.Item("AnzahlAE")) + s.AnzahlCarnetTIR = checkNullIntegerZero(dr.Item("AnzahlCarnetTIR")) + s.AnzahlBarvorlagen = checkNullIntegerZero(dr.Item("AnzahlBarvorlagen")) + s.AnzahlSonstiges = checkNullIntegerZero(dr.Item("AnzahlSonstiges")) + s.AnzahlGrenzgebühren = checkNullIntegerZero(dr.Item("AnzahlGrenzgebühren")) + s.AvisUhrzeit = checkNullStr(dr.Item("AvisUhrzeit")) + s.Vermerk = checkNullStr(dr.Item("Vermerk")) + s.Bemerkungen = checkNullStr(dr.Item("Bemerkungen")) + s.Währungsschlüssel = checkNullInteger(dr.Item("Währungsschlüssel")) + s.Rechnungsbetrag = checkNulDbl(dr.Item("Rechnungsbetrag")) + s.Umrechnungskurs = checkNullInteger(dr.Item("Umrechnungskurs")) + s.Packstücke = checkNullStr(dr.Item("Packstücke")) + s.Rohmasse = checkNullInteger(dr.Item("Rohmasse")) + s.Zahlungsaufschub = checkNullStr(dr.Item("Zahlungsaufschub")) + s.Löschen = checkNullDateNothing(dr.Item("Löschen")) + s.Abfertigungsart = checkNullInteger(dr.Item("Abfertigungsart")) + s.Abfertigungsanzahl = checkNullIntegerZero(dr.Item("Abfertigungsanzahl")) + s.Barzahlungsbetrag = checkNulDbl(dr.Item("Barzahlungsbetrag")) + s.Sachbearbeiter = checkNullStr(dr.Item("Sachbearbeiter")) + s.Personalnummer = checkNullInteger(dr.Item("Personalnummer")) + ' s.PersonalnummerQS = checkNullInteger(dr.Item("PersonalnummerQS")) + s.AtlasBezNrEZA = checkNullStr(dr.Item("AtlasBezNrEZA")) + s.AtlasBezNrNCTS = checkNullStr(dr.Item("AtlasBezNrNCTS")) + s.Versendungsland = checkNullStr(dr.Item("Versendungsland")) + s.SB_CMR = checkNullBool(dr.Item("SB_CMR")) + s.SB_CMRDatum = checkNullDateNothing(dr.Item("SB_CMRDatum")) + s.veoerz_basbtg = checkNulDbl(dr.Item("veoerz_basbtg")) + s.Zucker_MRN_Nr = checkNullStr(dr.Item("Zucker_MRN_Nr")) + s.Zucker_MRN_Datum = checkNullDateNothing(dr.Item("Zucker_MRN_Datum")) + s.Zucker_Aufschub = checkNullStr(dr.Item("Zucker_Aufschub")) + s.Zollsystem = checkNullStr(dr.Item("Zollsystem")) + s.Bestimmungszollstelle = checkNullStr(dr.Item("Bestimmungszollstelle")) + s.Bürgschaft = checkNullStr(dr.Item("Bürgschaft")) + s.Sicherheitsbetrag = checkNulDbl(dr.Item("Sicherheitsbetrag")) + s.SgutKompl = checkNullStr(dr.Item("SgutKompl")) + s.Bestimmungsland = checkNullStr(dr.Item("Bestimmungsland")) + s.EuFiskalEmpfänger = checkNullStr(dr.Item("EuFiskalEmpfänger")) + s.QKN = checkNullStr(dr.Item("QKN")) + s.EndempfängerKundenNr = checkNullReturnValue(dr.Item("EndempfängerKundenNr"), Nothing) + s.Endempfänger = checkNullStr(dr.Item("Endempfänger")) + s.SB_Zeitstempel = checkNullDateNothing(dr.Item("SB_Zeitstempel")) + SPED.Add(s) + End While + dr.Close() + End Using + End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + ' Return Nothing + End Sub + Public Function GetNewOpenConnectionFMZOLL(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;pooling=false" + cn.Open() + Return cn + End Function + + Public Function GetNewOpenConnectionATILLA(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = "Data Source=D\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;pooling=false" + cn.Open() + Return cn + End Function + + Sub INSERT(s As cSpeditionsbuch) + Dim list As List(Of cSQLVariable) + + Dim sql = " INSERT INTO [Speditionsbuch] ([FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],[Bar],[Fakturiert],[BelegNr],[ErfassungsNr],[LKW Kennzeichen],[AbsenderKundenNr],[Absender],[AbsenderOffertenNr],[EmpfängerKundenNr],[Empfänger],[EmpfängerOffertenNr],[VermittlerKundenNr],[Vermittler],[VermittlerOffertenNr],[FrachtführerKundenNr],[Frachtführer],[AnzahlZA],[AnzahlZAFremd],[AnzahlZnV],[AnzahlZnVFremd],[AnzahlT1],[AnzahlT2],[AnzahlAE],[AnzahlCarnetTIR],[AnzahlBarvorlagen],[AnzahlSonstiges],[AnzahlGrenzgebühren],[AvisUhrzeit],[Vermerk],[Bemerkungen],[Währungsschlüssel],[Rechnungsbetrag],[Umrechnungskurs],[Packstücke],[Rohmasse],[Zahlungsaufschub],[Löschen],[Abfertigungsart],[Abfertigungsanzahl],[Barzahlungsbetrag],[Sachbearbeiter],[Personalnummer],[AtlasBezNrEZA],[AtlasBezNrNCTS],[Versendungsland],[SB_CMR],[SB_CMRDatum],[veoerz_basbtg],[Zucker_MRN_Nr],[Zucker_MRN_Datum],[Zucker_Aufschub],[Zollsystem],[Bestimmungszollstelle],[Bürgschaft],[Sicherheitsbetrag],[SgutKompl]) " & + " VALUES(@FilialenNr,@AbfertigungsNr,@UnterNr,@Abfertigungsdatum,@Bar,@Fakturiert,@BelegNr,@ErfassungsNr,@LKW Kennzeichen,@AbsenderKundenNr,@Absender,@AbsenderOffertenNr,@EmpfängerKundenNr,@Empfänger,@EmpfängerOffertenNr,@VermittlerKundenNr,@Vermittler,@VermittlerOffertenNr,@FrachtführerKundenNr,@Frachtführer,@AnzahlZA,@AnzahlZAFremd,@AnzahlZnV,@AnzahlZnVFremd,@AnzahlT1,@AnzahlT2,@AnzahlAE,@AnzahlCarnetTIR,@AnzahlBarvorlagen,@AnzahlSonstiges,@AnzahlGrenzgebühren,@AvisUhrzeit,@Vermerk,@Bemerkungen,@Währungsschlüssel,@Rechnungsbetrag,@Umrechnungskurs,@Packstücke,@Rohmasse,@Zahlungsaufschub,@Löschen,@Abfertigungsart,@Abfertigungsanzahl,@Barzahlungsbetrag,@Sachbearbeiter,@Personalnummer,@AtlasBezNrEZA,@AtlasBezNrNCTS,@Versendungsland,@SB_CMR,@SB_CMRDatum,@veoerz_basbtg,@Zucker_MRN_Nr,@Zucker_MRN_Datum,@Zucker_Aufschub,@Zollsystem,@Bestimmungszollstelle,@Bürgschaft,@Sicherheitsbetrag,@SgutKompl) " + + Try + Using conn As SqlConnection = GetNewOpenConnectionATILLA() + Using cmd As New SqlCommand(sql, conn) + + ' Dim dr = cmd.ExecuteReader() + + cmd.Parameters.AddWithValue("@FilialenNr", s.FilialenNr) + cmd.Parameters.AddWithValue("@AbfertigungsNr", s.AbfertigungsNr) + cmd.Parameters.AddWithValue("@UnterNr", s.UnterNr) + cmd.Parameters.AddWithValue("@Abfertigungsdatum", s.Abfertigungsdatum) + cmd.Parameters.AddWithValue("@Bar", s.Bar) + cmd.Parameters.AddWithValue("@Fakturiert", s.Fakturiert) + cmd.Parameters.AddWithValue("@BelegNr", s.BelegNr) + cmd.Parameters.AddWithValue("@ErfassungsNr", s.ErfassungsNr) + cmd.Parameters.AddWithValue("@LKW Kennzeichen", s.LKW_Kennzeichen) + cmd.Parameters.AddWithValue("@AbsenderKundenNr", s.AbsenderKundenNr) + cmd.Parameters.AddWithValue("@Absender", s.Absender) + cmd.Parameters.AddWithValue("@AbsenderOffertenNr", s.AbsenderOffertenNr) + cmd.Parameters.AddWithValue("@EmpfängerKundenNr", s.EmpfängerKundenNr) + cmd.Parameters.AddWithValue("@Empfänger", s.Empfänger) + cmd.Parameters.AddWithValue("@EmpfängerOffertenNr", s.EmpfängerOffertenNr) + cmd.Parameters.AddWithValue("@VermittlerKundenNr", s.VermittlerKundenNr) + cmd.Parameters.AddWithValue("@Vermittler", s.Vermittler) + cmd.Parameters.AddWithValue("@VermittlerOffertenNr", s.VermittlerOffertenNr) + cmd.Parameters.AddWithValue("@FrachtführerKundenNr", s.FrachtführerKundenNr) + cmd.Parameters.AddWithValue("@Frachtführer", s.Frachtführer) + cmd.Parameters.AddWithValue("@AnzahlZA", s.AnzahlZA) + cmd.Parameters.AddWithValue("@AnzahlZAFremd", s.AnzahlZAFremd) + cmd.Parameters.AddWithValue("@AnzahlZnV", s.AnzahlZnV) + cmd.Parameters.AddWithValue("@AnzahlZnVFremd", s.AnzahlZnVFremd) + cmd.Parameters.AddWithValue("@AnzahlT1", s.AnzahlT1) + cmd.Parameters.AddWithValue("@AnzahlT2", s.AnzahlT2) + cmd.Parameters.AddWithValue("@AnzahlAE", s.AnzahlAE) + cmd.Parameters.AddWithValue("@AnzahlCarnetTIR", s.AnzahlCarnetTIR) + cmd.Parameters.AddWithValue("@AnzahlBarvorlagen", s.AnzahlBarvorlagen) + cmd.Parameters.AddWithValue("@AnzahlSonstiges", s.AnzahlSonstiges) + cmd.Parameters.AddWithValue("@AnzahlGrenzgebühren", s.AnzahlGrenzgebühren) + cmd.Parameters.AddWithValue("@AvisUhrzeit", s.AvisUhrzeit) + cmd.Parameters.AddWithValue("@Vermerk", s.Vermerk) + cmd.Parameters.AddWithValue("@Bemerkungen", s.Bemerkungen) + cmd.Parameters.AddWithValue("@Währungsschlüssel", s.Währungsschlüssel) + cmd.Parameters.AddWithValue("@Rechnungsbetrag", s.Rechnungsbetrag) + cmd.Parameters.AddWithValue("@Umrechnungskurs", s.Umrechnungskurs) + cmd.Parameters.AddWithValue("@Packstücke", s.Packstücke) + cmd.Parameters.AddWithValue("@Rohmasse", s.Rohmasse) + cmd.Parameters.AddWithValue("@Zahlungsaufschub", s.Zahlungsaufschub) + cmd.Parameters.AddWithValue("@Löschen", s.Löschen) + cmd.Parameters.AddWithValue("@Abfertigungsart", s.Abfertigungsart) + cmd.Parameters.AddWithValue("@Abfertigungsanzahl", s.Abfertigungsanzahl) + cmd.Parameters.AddWithValue("@Barzahlungsbetrag", s.Barzahlungsbetrag) + cmd.Parameters.AddWithValue("@Sachbearbeiter", s.Sachbearbeiter) + cmd.Parameters.AddWithValue("@Personalnummer", s.Personalnummer) + cmd.Parameters.AddWithValue("@AtlasBezNrEZA", s.AtlasBezNrEZA) + cmd.Parameters.AddWithValue("@AtlasBezNrNCTS", s.AtlasBezNrNCTS) + cmd.Parameters.AddWithValue("@Versendungsland", s.Versendungsland) + cmd.Parameters.AddWithValue("@SB_CMR", s.SB_CMR) + cmd.Parameters.AddWithValue("@SB_CMRDatum", s.SB_CMRDatum) + cmd.Parameters.AddWithValue("@veoerz_basbtg", s.veoerz_basbtg) + cmd.Parameters.AddWithValue("@Zucker_MRN_Nr", s.Zucker_MRN_Nr) + cmd.Parameters.AddWithValue("@Zucker_MRN_Datum", s.Zucker_MRN_Datum) + cmd.Parameters.AddWithValue("@Zucker_Aufschub", s.Zucker_Aufschub) + cmd.Parameters.AddWithValue("@Zollsystem", s.Zollsystem) + cmd.Parameters.AddWithValue("@Bestimmungszollstelle", s.Bestimmungszollstelle) + cmd.Parameters.AddWithValue("@Bürgschaft", s.Bürgschaft) + cmd.Parameters.AddWithValue("@Sicherheitsbetrag", s.Sicherheitsbetrag) + cmd.Parameters.AddWithValue("@SgutKompl", s.SgutKompl) + cmd.ExecuteNonQuery() + End Using + End Using + 'Return Nothing + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function checkNullStr(ByVal o As Object) As String + If o IsNot Nothing And o IsNot DBNull.Value Then Return CStr(o) + Return "" + End Function + Public Function checkNullInteger(ByVal o As Object) As Integer + If o IsNot Nothing And o IsNot DBNull.Value Then Return CInt(o) + Return -1 + End Function + Public Function checkNullReturnValue(ByVal o As Object, ByVal returnValue As Object) As Object + If o IsNot Nothing And o IsNot DBNull.Value Then Return (o) + Return returnValue + End Function + + Public Function checkNullIntegerZero(ByVal o As Object) As Integer + If o IsNot Nothing And o IsNot DBNull.Value Then Return CInt(o) + Return 0 + End Function + Public Function checkNulDbl(ByVal o As Object) As Double + If o IsNot Nothing And o IsNot DBNull.Value Then Return CDbl(o) + Return -1 + End Function + + Public Function checkNullBool(ByVal o As Object) As Boolean + If o Is Nothing Or o Is DBNull.Value Then Return 0 + Try + Return CBool(o) + Catch ex As Exception + End Try + Return 0 + End Function + + Public Function checkNullDateNothing(ByVal o As Object) As Object + If o Is DBNull.Value Then + Return Nothing + Else + Return CDate(o) + End If + End Function + +End Module diff --git a/ATILLA_Speditionsbuch/cSQLVariable.vb b/ATILLA_Speditionsbuch/cSQLVariable.vb new file mode 100644 index 0000000..0173b22 --- /dev/null +++ b/ATILLA_Speditionsbuch/cSQLVariable.vb @@ -0,0 +1,25 @@ +Public Class cSQLVariable + + Private TextSQLName As String + Private ValueSQLVALUE As Object + + Public Sub New(ByVal Text As String, ByVal Value As Object) + Me.TextSQLName = Text + Me.ValueSQLVALUE = Value + + End Sub + + Public ReadOnly Property Text() As String + Get + Return TextSQLName + End Get + End Property + + Public ReadOnly Property Value() As Object + Get + Return ValueSQLVALUE + End Get + End Property + + +End Class \ No newline at end of file diff --git a/ATILLA_Speditionsbuch/cSpeditionsbuch.vb b/ATILLA_Speditionsbuch/cSpeditionsbuch.vb new file mode 100644 index 0000000..2ad9836 --- /dev/null +++ b/ATILLA_Speditionsbuch/cSpeditionsbuch.vb @@ -0,0 +1,73 @@ + +Public Class cSpeditionsbuch + Property FilialenNr As Integer = -1 + Property AbfertigungsNr As Integer = -1 + Property UnterNr As Integer = -1 + Property Abfertigungsdatum As Object = Nothing + Property Bar As Boolean = False + Property Fakturiert As Boolean = False + Property BelegNr As String = "" + Property ErfassungsNr As String = "" + Property LKW_Kennzeichen As String = "" + 'Property AvisiererKundenNr As Integer = -1 + ' Property Avisierer As String = "" + Property AbsenderKundenNr As Integer = -1 + Property Absender As String = "" + Property AbsenderOffertenNr As Integer = -1 + Property EmpfängerKundenNr As Integer = -1 + Property Empfänger As String = "" + Property EmpfängerOffertenNr As Integer = -1 + Property VermittlerKundenNr As Integer = -1 + Property Vermittler As String = "" + Property VermittlerOffertenNr As Integer = -1 + Property FrachtführerKundenNr As Integer = -1 + Property Frachtführer As String = "" + Property AnzahlZA As Integer = 0 + Property AnzahlZAFremd As Integer = 0 + Property AnzahlZnV As Integer = 0 + Property AnzahlZnVFremd As Integer = 0 + Property AnzahlT1 As Integer = 0 + Property AnzahlT2 As Integer = 0 + Property AnzahlAE As Integer = 0 + Property AnzahlCarnetTIR As Integer = 0 + Property AnzahlBarvorlagen As Integer = 0 + Property AnzahlSonstiges As Integer = 0 + Property AnzahlGrenzgebühren As Integer = 0 + Property AvisUhrzeit As String = "" + Property Vermerk As String = "" + Property Bemerkungen As String = "" + Property Währungsschlüssel As Integer = -1 + Property Rechnungsbetrag As Double = 0 + Property Umrechnungskurs As Double = 1 + Property Packstücke As String = "" + Property Rohmasse As Integer = 0 + Property Zahlungsaufschub As String = "" + Property Löschen As Object = Nothing + Property Abfertigungsart As Integer = -1 + Property Abfertigungsanzahl As Integer = 0 + Property Barzahlungsbetrag As Double = 0 + Property Sachbearbeiter As String = "" + Property Personalnummer As Integer = -1 + ' Property PersonalnummerQS As Integer = -1 + Property AtlasBezNrEZA As String = "" + Property AtlasBezNrNCTS As String = "" + Property Versendungsland As String = "" + Property SB_CMR As Boolean = False + Property SB_CMRDatum As Object = Nothing + Property veoerz_basbtg As Double = 0 + Property Zucker_MRN_Nr As String = "" + Property Zucker_MRN_Datum As Object = Nothing + Property Zucker_Aufschub As String = "" + Property Zollsystem As String = "" + Property Bestimmungszollstelle As String = "" + Property Bürgschaft As String = "" + Property Sicherheitsbetrag As Double = 0 + Property SgutKompl As String = "" + Property Bestimmungsland As String = "" + Property EuFiskalEmpfänger As String = "" + Property QKN As String = "" + Property EndempfängerKundenNr As Integer = -1 + Property Endempfänger As String = "" + Property SB_Zeitstempel As Object = Now + +End Class diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/ERROR/e_err_nck.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/ERROR/e_err_nck.Designer.vb new file mode 100644 index 0000000..5005d31 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/ERROR/e_err_nck.Designer.vb @@ -0,0 +1,2317 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' DEERREListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace DEERRE + + _ + Partial Public Class DEERRE + +#Region "Private fields" + Private _interchangeSender As DEERREInterchangeSender + + Private _interchangeRecipient As DEERREInterchangeRecipient + + Private _preparation As DEERREPreparation + + Private _interchangeControlReference As String + + Private _messageGroup As DEERREMessageGroup + + Private _messageReferenceNumber As DEERREMessageReferenceNumber + + Private _messageType As DEERREMessageType + + Private _messageIdentifier As String + + Private _header As DEERREHeader + + Private _error As List(Of DEERREError) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._error = New List(Of DEERREError)() + Me._header = New DEERREHeader() + Me._preparation = New DEERREPreparation() + Me._interchangeRecipient = New DEERREInterchangeRecipient() + Me._interchangeSender = New DEERREInterchangeSender() + End Sub + + Public Property InterchangeSender() As DEERREInterchangeSender + Get + Return Me._interchangeSender + End Get + Set(value As DEERREInterchangeSender) + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As DEERREInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set(value As DEERREInterchangeRecipient) + Me._interchangeRecipient = Value + End Set + End Property + + Public Property Preparation() As DEERREPreparation + Get + Return Me._preparation + End Get + Set(value As DEERREPreparation) + Me._preparation = Value + End Set + End Property + + _ + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set(value As String) + Me._interchangeControlReference = Value + End Set + End Property + + Public Property MessageGroup() As DEERREMessageGroup + Get + Return Me._messageGroup + End Get + Set(value As DEERREMessageGroup) + Me._messageGroup = Value + End Set + End Property + + Public Property MessageReferenceNumber() As DEERREMessageReferenceNumber + Get + Return Me._messageReferenceNumber + End Get + Set(value As DEERREMessageReferenceNumber) + Me._messageReferenceNumber = Value + End Set + End Property + + Public Property MessageType() As DEERREMessageType + Get + Return Me._messageType + End Get + Set(value As DEERREMessageType) + Me._messageType = Value + End Set + End Property + + _ + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set(value As String) + Me._messageIdentifier = Value + End Set + End Property + + Public Property Header() As DEERREHeader + Get + Return Me._header + End Get + Set(value As DEERREHeader) + Me._header = Value + End Set + End Property + + _ + Public Property [Error]() As List(Of DEERREError) + Get + Return Me._error + End Get + Set(value As List(Of DEERREError)) + Me._error = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEERRE)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEERRE object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEERRE object + ''' + ''' string workflow markup to deserialize + ''' Output DEERRE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERRE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERRE) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERRE) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEERRE + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEERRE) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEERRE + Return CType(Serializer.Deserialize(s), DEERRE) + End Function +#End Region + + ''' + ''' Serializes current DEERRE object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEERRE object + ''' + ''' string xml file to load and deserialize + ''' Output DEERRE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEERRE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERRE) + 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 DEERRE) 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 DEERRE + 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 Class + + _ + Partial Public Class DEERREInterchangeSender + +#Region "Private fields" + Private _identification As DEERREInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEERREInterchangeSenderIdentification() + End Sub + + Public Property Identification() As DEERREInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set(value As DEERREInterchangeSenderIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEERREInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEERREInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEERREInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output DEERREInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEERREInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEERREInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEERREInterchangeSender + Return CType(Serializer.Deserialize(s), DEERREInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current DEERREInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEERREInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output DEERREInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEERREInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREInterchangeSender) + 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 DEERREInterchangeSender) 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 DEERREInterchangeSender + 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 Class + + _ + Partial Public Class DEERREInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEERREInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEERREInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEERREInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEERREInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEERREInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEERREInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEERREInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), DEERREInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEERREInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEERREInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEERREInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEERREInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREInterchangeSenderIdentification) + 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 DEERREInterchangeSenderIdentification) 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 DEERREInterchangeSenderIdentification + 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 Class + + _ + Partial Public Class DEERREInterchangeRecipient + +#Region "Private fields" + Private _identification As DEERREInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEERREInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As DEERREInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set(value As DEERREInterchangeRecipientIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEERREInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEERREInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEERREInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output DEERREInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEERREInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEERREInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEERREInterchangeRecipient + Return CType(Serializer.Deserialize(s), DEERREInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current DEERREInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEERREInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output DEERREInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEERREInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREInterchangeRecipient) + 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 DEERREInterchangeRecipient) 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 DEERREInterchangeRecipient + 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 Class + + _ + Partial Public Class DEERREInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEERREInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEERREInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEERREInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEERREInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEERREInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEERREInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEERREInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), DEERREInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEERREInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEERREInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEERREInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEERREInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREInterchangeRecipientIdentification) + 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 DEERREInterchangeRecipientIdentification) 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 DEERREInterchangeRecipientIdentification + 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 Class + + _ + Partial Public Class DEERREPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set(value As Date) + Me._date = Value + End Set + End Property + + _ + Public Property Time() As Date + Get + Return Me._time + End Get + Set(value As Date) + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEERREPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEERREPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEERREPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output DEERREPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEERREPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEERREPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEERREPreparation + Return CType(Serializer.Deserialize(s), DEERREPreparation) + End Function +#End Region + + ''' + ''' Serializes current DEERREPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEERREPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output DEERREPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEERREPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREPreparation) + 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 DEERREPreparation) 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 DEERREPreparation + 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 Class + + _ + Public Enum DEERREMessageGroup + + ''' + _ + Item + + ''' + EXP + + ''' + EXQ + + ''' + EXT + End Enum + + _ + Public Enum DEERREMessageReferenceNumber + + ''' + _ + Item1 + End Enum + + _ + Public Enum DEERREMessageType + + ''' + DEERRE + End Enum + + _ + Partial Public Class DEERREHeader + +#Region "Private fields" + Private _movementReferenceNumber As String + + Private _messageVersion As String + + Private _registrationNumber As String + + Private _referencedMessageIdentifier As String + + Private _localReferenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property MovementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set(value As String) + Me._movementReferenceNumber = Value + End Set + End Property + + _ + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set(value As String) + Me._messageVersion = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property ReferencedMessageIdentifier() As String + Get + Return Me._referencedMessageIdentifier + End Get + Set(value As String) + Me._referencedMessageIdentifier = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEERREHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEERREHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEERREHeader object + ''' + ''' string workflow markup to deserialize + ''' Output DEERREHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEERREHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEERREHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEERREHeader + Return CType(Serializer.Deserialize(s), DEERREHeader) + End Function +#End Region + + ''' + ''' Serializes current DEERREHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEERREHeader object + ''' + ''' string xml file to load and deserialize + ''' Output DEERREHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEERREHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREHeader) + 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 DEERREHeader) 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 DEERREHeader + 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 Class + + _ + Partial Public Class DEERREError + +#Region "Private fields" + Private _lineNumber As String + + Private _columnNumber As String + + Private _code As String + + Private _pointer As String + + Private _text As String + + Private _originalValue As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property LineNumber() As String + Get + Return Me._lineNumber + End Get + Set(value As String) + Me._lineNumber = Value + End Set + End Property + + _ + Public Property ColumnNumber() As String + Get + Return Me._columnNumber + End Get + Set(value As String) + Me._columnNumber = Value + End Set + End Property + + _ + Public Property Code() As String + Get + Return Me._code + End Get + Set(value As String) + Me._code = Value + End Set + End Property + + _ + Public Property Pointer() As String + Get + Return Me._pointer + End Get + Set(value As String) + Me._pointer = Value + End Set + End Property + + _ + Public Property Text() As String + Get + Return Me._text + End Get + Set(value As String) + Me._text = Value + End Set + End Property + + _ + Public Property OriginalValue() As String + Get + Return Me._originalValue + End Get + Set(value As String) + Me._originalValue = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEERREError)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEERREError object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEERREError object + ''' + ''' string workflow markup to deserialize + ''' Output DEERREError object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREError, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREError) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEERREError) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEERREError + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEERREError) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEERREError + Return CType(Serializer.Deserialize(s), DEERREError) + End Function +#End Region + + ''' + ''' Serializes current DEERREError object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEERREError object + ''' + ''' string xml file to load and deserialize + ''' Output DEERREError object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEERREError, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEERREError) + 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 DEERREError) 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 DEERREError + 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 Class + + _ + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set(value As Decimal) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + _ + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + _ + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/ERROR/e_err_nck.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/ERROR/e_err_nck.xsd new file mode 100644 index 0000000..0debcea --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/ERROR/e_err_nck.xsd @@ -0,0 +1,481 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/Statusmeldung/e_exp_sta.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Statusmeldung/e_exp_sta.Designer.vb new file mode 100644 index 0000000..ae2209d --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Statusmeldung/e_exp_sta.Designer.vb @@ -0,0 +1,4076 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' DEXPSDListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace DEXPSD + + _ + Partial Public Class DEXPSD + +#Region "Private fields" + Private _interchangeSender As DEXPSDInterchangeSender + + Private _interchangeRecipient As DEXPSDInterchangeRecipient + + Private _preparation As DEXPSDPreparation + + Private _interchangeControlReference As String + + Private _messageGroup As DEXPSDMessageGroup + + Private _messageReferenceNumber As DEXPSDMessageReferenceNumber + + Private _messageType As DEXPSDMessageType + + Private _messageIdentifier As String + + Private _header As DEXPSDHeader + + Private _exportCustomsOffice As DEXPSDExportCustomsOffice + + Private _supplementaryDeclarationCustomsOffice As DEXPSDSupplementaryDeclarationCustomsOffice + + Private _declarant As DEXPSDDeclarant + + Private _representative As DEXPSDRepresentative + + Private _error As List(Of DEXPSDError) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._error = New List(Of DEXPSDError)() + Me._representative = New DEXPSDRepresentative() + Me._declarant = New DEXPSDDeclarant() + Me._supplementaryDeclarationCustomsOffice = New DEXPSDSupplementaryDeclarationCustomsOffice() + Me._exportCustomsOffice = New DEXPSDExportCustomsOffice() + Me._header = New DEXPSDHeader() + Me._preparation = New DEXPSDPreparation() + Me._interchangeRecipient = New DEXPSDInterchangeRecipient() + Me._interchangeSender = New DEXPSDInterchangeSender() + End Sub + + Public Property InterchangeSender() As DEXPSDInterchangeSender + Get + Return Me._interchangeSender + End Get + Set(value As DEXPSDInterchangeSender) + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As DEXPSDInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set(value As DEXPSDInterchangeRecipient) + Me._interchangeRecipient = Value + End Set + End Property + + Public Property Preparation() As DEXPSDPreparation + Get + Return Me._preparation + End Get + Set(value As DEXPSDPreparation) + Me._preparation = Value + End Set + End Property + + _ + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set(value As String) + Me._interchangeControlReference = Value + End Set + End Property + + Public Property MessageGroup() As DEXPSDMessageGroup + Get + Return Me._messageGroup + End Get + Set(value As DEXPSDMessageGroup) + Me._messageGroup = Value + End Set + End Property + + Public Property MessageReferenceNumber() As DEXPSDMessageReferenceNumber + Get + Return Me._messageReferenceNumber + End Get + Set(value As DEXPSDMessageReferenceNumber) + Me._messageReferenceNumber = Value + End Set + End Property + + Public Property MessageType() As DEXPSDMessageType + Get + Return Me._messageType + End Get + Set(value As DEXPSDMessageType) + Me._messageType = Value + End Set + End Property + + _ + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set(value As String) + Me._messageIdentifier = Value + End Set + End Property + + Public Property Header() As DEXPSDHeader + Get + Return Me._header + End Get + Set(value As DEXPSDHeader) + Me._header = Value + End Set + End Property + + Public Property ExportCustomsOffice() As DEXPSDExportCustomsOffice + Get + Return Me._exportCustomsOffice + End Get + Set(value As DEXPSDExportCustomsOffice) + Me._exportCustomsOffice = Value + End Set + End Property + + Public Property SupplementaryDeclarationCustomsOffice() As DEXPSDSupplementaryDeclarationCustomsOffice + Get + Return Me._supplementaryDeclarationCustomsOffice + End Get + Set(value As DEXPSDSupplementaryDeclarationCustomsOffice) + Me._supplementaryDeclarationCustomsOffice = Value + End Set + End Property + + Public Property Declarant() As DEXPSDDeclarant + Get + Return Me._declarant + End Get + Set(value As DEXPSDDeclarant) + Me._declarant = Value + End Set + End Property + + Public Property Representative() As DEXPSDRepresentative + Get + Return Me._representative + End Get + Set(value As DEXPSDRepresentative) + Me._representative = Value + End Set + End Property + + _ + Public Property [Error]() As List(Of DEXPSDError) + Get + Return Me._error + End Get + Set(value As List(Of DEXPSDError)) + Me._error = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSD)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSD object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSD object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSD object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSD, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSD) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSD) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSD + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSD) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSD + Return CType(Serializer.Deserialize(s), DEXPSD) + End Function +#End Region + + ''' + ''' Serializes current DEXPSD object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSD object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSD object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSD, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSD) + 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 DEXPSD) 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 DEXPSD + 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 Class + + _ + Partial Public Class DEXPSDInterchangeSender + +#Region "Private fields" + Private _identification As DEXPSDInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPSDInterchangeSenderIdentification() + End Sub + + Public Property Identification() As DEXPSDInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set(value As DEXPSDInterchangeSenderIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDInterchangeSender + Return CType(Serializer.Deserialize(s), DEXPSDInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDInterchangeSender) + 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 DEXPSDInterchangeSender) 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 DEXPSDInterchangeSender + 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 Class + + _ + Partial Public Class DEXPSDInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), DEXPSDInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDInterchangeSenderIdentification) + 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 DEXPSDInterchangeSenderIdentification) 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 DEXPSDInterchangeSenderIdentification + 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 Class + + _ + Partial Public Class DEXPSDInterchangeRecipient + +#Region "Private fields" + Private _identification As DEXPSDInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPSDInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As DEXPSDInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set(value As DEXPSDInterchangeRecipientIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDInterchangeRecipient + Return CType(Serializer.Deserialize(s), DEXPSDInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDInterchangeRecipient) + 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 DEXPSDInterchangeRecipient) 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 DEXPSDInterchangeRecipient + 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 Class + + _ + Partial Public Class DEXPSDInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), DEXPSDInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDInterchangeRecipientIdentification) + 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 DEXPSDInterchangeRecipientIdentification) 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 DEXPSDInterchangeRecipientIdentification + 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 Class + + _ + Partial Public Class DEXPSDPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set(value As Date) + Me._date = Value + End Set + End Property + + _ + Public Property Time() As Date + Get + Return Me._time + End Get + Set(value As Date) + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDPreparation + Return CType(Serializer.Deserialize(s), DEXPSDPreparation) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDPreparation) + 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 DEXPSDPreparation) 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 DEXPSDPreparation + 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 Class + + _ + Public Enum DEXPSDMessageGroup + + ''' + EXP + End Enum + + _ + Public Enum DEXPSDMessageReferenceNumber + + ''' + _ + Item1 + End Enum + + _ + Public Enum DEXPSDMessageType + + ''' + DEXPSD + End Enum + + _ + Partial Public Class DEXPSDHeader + +#Region "Private fields" + Private _movementReferenceNumber As String + + Private _messageVersion As String + + Private _priorNotificationDateTime As Date + + Private _priorNotificationRejectionDateTime As Date + + Private _receptionDateTime As Date + + Private _presentationOutsideCustomsAreaRefusalDateTime As Date + + Private _loadingStartDateTime As Date + + Private _loadingEndDateTime As Date + + Private _acceptanceDecisionDateTime As Date + + Private _issuingDecisionDateTime As Date + + Private _cancellationDecisionDateTime As Date + + Private _completionDateTime As Date + + Private _reason As String + + Private _exportStatus As DEXPSDHeaderExportStatus + + Private _referencedMessageIdentifier As String + + Private _localReferenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property MovementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set(value As String) + Me._movementReferenceNumber = Value + End Set + End Property + + _ + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set(value As String) + Me._messageVersion = Value + End Set + End Property + + Public Property PriorNotificationDateTime() As Date + Get + Return Me._priorNotificationDateTime + End Get + Set(value As Date) + Me._priorNotificationDateTime = Value + End Set + End Property + + Public Property PriorNotificationRejectionDateTime() As Date + Get + Return Me._priorNotificationRejectionDateTime + End Get + Set(value As Date) + Me._priorNotificationRejectionDateTime = Value + End Set + End Property + + Public Property ReceptionDateTime() As Date + Get + Return Me._receptionDateTime + End Get + Set(value As Date) + Me._receptionDateTime = Value + End Set + End Property + + Public Property PresentationOutsideCustomsAreaRefusalDateTime() As Date + Get + Return Me._presentationOutsideCustomsAreaRefusalDateTime + End Get + Set(value As Date) + Me._presentationOutsideCustomsAreaRefusalDateTime = Value + End Set + End Property + + Public Property LoadingStartDateTime() As Date + Get + Return Me._loadingStartDateTime + End Get + Set(value As Date) + Me._loadingStartDateTime = Value + End Set + End Property + + Public Property LoadingEndDateTime() As Date + Get + Return Me._loadingEndDateTime + End Get + Set(value As Date) + Me._loadingEndDateTime = Value + End Set + End Property + + Public Property AcceptanceDecisionDateTime() As Date + Get + Return Me._acceptanceDecisionDateTime + End Get + Set(value As Date) + Me._acceptanceDecisionDateTime = Value + End Set + End Property + + Public Property IssuingDecisionDateTime() As Date + Get + Return Me._issuingDecisionDateTime + End Get + Set(value As Date) + Me._issuingDecisionDateTime = Value + End Set + End Property + + Public Property CancellationDecisionDateTime() As Date + Get + Return Me._cancellationDecisionDateTime + End Get + Set(value As Date) + Me._cancellationDecisionDateTime = Value + End Set + End Property + + Public Property CompletionDateTime() As Date + Get + Return Me._completionDateTime + End Get + Set(value As Date) + Me._completionDateTime = Value + End Set + End Property + + _ + Public Property Reason() As String + Get + Return Me._reason + End Get + Set(value As String) + Me._reason = Value + End Set + End Property + + Public Property ExportStatus() As DEXPSDHeaderExportStatus + Get + Return Me._exportStatus + End Get + Set(value As DEXPSDHeaderExportStatus) + Me._exportStatus = Value + End Set + End Property + + _ + Public Property ReferencedMessageIdentifier() As String + Get + Return Me._referencedMessageIdentifier + End Get + Set(value As String) + Me._referencedMessageIdentifier = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDHeader object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDHeader + Return CType(Serializer.Deserialize(s), DEXPSDHeader) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDHeader object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDHeader) + 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 DEXPSDHeader) 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 DEXPSDHeader + 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 Class + + _ + Public Enum DEXPSDHeaderExportStatus + + ''' + _ + Item10 + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item15 + + ''' + _ + Item16 + + ''' + _ + Item17 + + ''' + _ + Item18 + + ''' + _ + Item30 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item35 + + ''' + _ + Item36 + + ''' + _ + Item37 + + ''' + _ + Item38 + + ''' + _ + Item39 + End Enum + + _ + Partial Public Class DEXPSDExportCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private _contactPerson As DEXPSDExportCustomsOfficeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPSDExportCustomsOfficeContactPerson() + End Sub + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Public Property ContactPerson() As DEXPSDExportCustomsOfficeContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPSDExportCustomsOfficeContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDExportCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDExportCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDExportCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDExportCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDExportCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDExportCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDExportCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDExportCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPSDExportCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDExportCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDExportCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDExportCustomsOffice) + 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 DEXPSDExportCustomsOffice) 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 DEXPSDExportCustomsOffice + 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 Class + + _ + Partial Public Class DEXPSDExportCustomsOfficeContactPerson + +#Region "Private fields" + Private _name As String + + Private _phoneNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDExportCustomsOfficeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDExportCustomsOfficeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDExportCustomsOfficeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDExportCustomsOfficeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDExportCustomsOfficeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDExportCustomsOfficeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDExportCustomsOfficeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDExportCustomsOfficeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDExportCustomsOfficeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDExportCustomsOfficeContactPerson + Return CType(Serializer.Deserialize(s), DEXPSDExportCustomsOfficeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDExportCustomsOfficeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDExportCustomsOfficeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDExportCustomsOfficeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDExportCustomsOfficeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDExportCustomsOfficeContactPerson) + 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 DEXPSDExportCustomsOfficeContactPerson) 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 DEXPSDExportCustomsOfficeContactPerson + 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 Class + + _ + Partial Public Class DEXPSDSupplementaryDeclarationCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private _contactPerson As DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson() + End Sub + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Public Property ContactPerson() As DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDSupplementaryDeclarationCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDSupplementaryDeclarationCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDSupplementaryDeclarationCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDSupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDSupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDSupplementaryDeclarationCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDSupplementaryDeclarationCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDSupplementaryDeclarationCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDSupplementaryDeclarationCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDSupplementaryDeclarationCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPSDSupplementaryDeclarationCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDSupplementaryDeclarationCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDSupplementaryDeclarationCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDSupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDSupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDSupplementaryDeclarationCustomsOffice) + 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 DEXPSDSupplementaryDeclarationCustomsOffice) 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 DEXPSDSupplementaryDeclarationCustomsOffice + 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 Class + + _ + Partial Public Class DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson + +#Region "Private fields" + Private _name As String + + Private _phoneNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson + Return CType(Serializer.Deserialize(s), DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson) + 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 DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson) 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 DEXPSDSupplementaryDeclarationCustomsOfficeContactPerson + 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 Class + + _ + Partial Public Class DEXPSDDeclarant + +#Region "Private fields" + Private _class As DEXPSDDeclarantClass + + Private _identification As DEXPSDDeclarantIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPSDDeclarantIdentification() + End Sub + + Public Property [Class]() As DEXPSDDeclarantClass + Get + Return Me._class + End Get + Set(value As DEXPSDDeclarantClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPSDDeclarantIdentification + Get + Return Me._identification + End Get + Set(value As DEXPSDDeclarantIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDDeclarant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDDeclarant object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDDeclarant object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDDeclarant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDDeclarant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDDeclarant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDDeclarant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDDeclarant + Return CType(Serializer.Deserialize(s), DEXPSDDeclarant) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDDeclarant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDDeclarant object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDDeclarant) + 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 DEXPSDDeclarant) 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 DEXPSDDeclarant + 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 Class + + _ + Public Enum DEXPSDDeclarantClass + + ''' + _ + Item1 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPSDDeclarantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDDeclarantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDDeclarantIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDDeclarantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDDeclarantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDDeclarantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDDeclarantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDDeclarantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDDeclarantIdentification + Return CType(Serializer.Deserialize(s), DEXPSDDeclarantIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDDeclarantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDDeclarantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDDeclarantIdentification) + 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 DEXPSDDeclarantIdentification) 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 DEXPSDDeclarantIdentification + 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 Class + + _ + Partial Public Class DEXPSDRepresentative + +#Region "Private fields" + Private _class As DEXPSDRepresentativeClass + + Private _identification As DEXPSDRepresentativeIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPSDRepresentativeIdentification() + End Sub + + Public Property [Class]() As DEXPSDRepresentativeClass + Get + Return Me._class + End Get + Set(value As DEXPSDRepresentativeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPSDRepresentativeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPSDRepresentativeIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDRepresentative)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDRepresentative object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDRepresentative object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDRepresentative) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDRepresentative) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDRepresentative + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDRepresentative) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDRepresentative + Return CType(Serializer.Deserialize(s), DEXPSDRepresentative) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDRepresentative object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDRepresentative object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDRepresentative) + 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 DEXPSDRepresentative) 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 DEXPSDRepresentative + 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 Class + + _ + Public Enum DEXPSDRepresentativeClass + + ''' + _ + Item1 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPSDRepresentativeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDRepresentativeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDRepresentativeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDRepresentativeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDRepresentativeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDRepresentativeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDRepresentativeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDRepresentativeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDRepresentativeIdentification + Return CType(Serializer.Deserialize(s), DEXPSDRepresentativeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDRepresentativeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDRepresentativeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDRepresentativeIdentification) + 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 DEXPSDRepresentativeIdentification) 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 DEXPSDRepresentativeIdentification + 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 Class + + _ + Partial Public Class DEXPSDError + +#Region "Private fields" + Private _code As String + + Private _pointer As String + + Private _text As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Code() As String + Get + Return Me._code + End Get + Set(value As String) + Me._code = Value + End Set + End Property + + _ + Public Property Pointer() As String + Get + Return Me._pointer + End Get + Set(value As String) + Me._pointer = Value + End Set + End Property + + _ + Public Property Text() As String + Get + Return Me._text + End Get + Set(value As String) + Me._text = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPSDError)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPSDError object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPSDError object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPSDError object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDError, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDError) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPSDError) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPSDError + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPSDError) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPSDError + Return CType(Serializer.Deserialize(s), DEXPSDError) + End Function +#End Region + + ''' + ''' Serializes current DEXPSDError object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPSDError object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPSDError object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPSDError, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPSDError) + 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 DEXPSDError) 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 DEXPSDError + 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 Class + + _ + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set(value As Decimal) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + _ + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + _ + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/Statusmeldung/e_exp_sta.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Statusmeldung/e_exp_sta.xsd new file mode 100644 index 0000000..455c4cc --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Statusmeldung/e_exp_sta.xsd @@ -0,0 +1,950 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/Storno/e_exp_can.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Storno/e_exp_can.Designer.vb new file mode 100644 index 0000000..f1242f2 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Storno/e_exp_can.Designer.vb @@ -0,0 +1,3066 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' DEXPCCListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace DEXPCC + + _ + Partial Public Class DEXPCC + +#Region "Private fields" + Private _interchangeSender As DEXPCCInterchangeSender + + Private _interchangeRecipient As DEXPCCInterchangeRecipient + + Private _preparation As DEXPCCPreparation + + Private _interchangeControlReference As String + + Private _messageGroup As DEXPCCMessageGroup + + Private _messageReferenceNumber As String + + Private _messageType As DEXPCCMessageType + + Private _messageIdentifier As String + + Private _header As DEXPCCHeader + + Private _exportCustomsOffice As DEXPCCExportCustomsOffice + + Private _declarant As DEXPCCDeclarant + + Private _representative As DEXPCCRepresentative + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._representative = New DEXPCCRepresentative() + Me._declarant = New DEXPCCDeclarant() + Me._exportCustomsOffice = New DEXPCCExportCustomsOffice() + Me._header = New DEXPCCHeader() + Me._preparation = New DEXPCCPreparation() + Me._interchangeRecipient = New DEXPCCInterchangeRecipient() + Me._interchangeSender = New DEXPCCInterchangeSender() + End Sub + + Public Property InterchangeSender() As DEXPCCInterchangeSender + Get + Return Me._interchangeSender + End Get + Set(value As DEXPCCInterchangeSender) + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As DEXPCCInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set(value As DEXPCCInterchangeRecipient) + Me._interchangeRecipient = Value + End Set + End Property + + Public Property Preparation() As DEXPCCPreparation + Get + Return Me._preparation + End Get + Set(value As DEXPCCPreparation) + Me._preparation = Value + End Set + End Property + + _ + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set(value As String) + Me._interchangeControlReference = Value + End Set + End Property + + Public Property MessageGroup() As DEXPCCMessageGroup + Get + Return Me._messageGroup + End Get + Set(value As DEXPCCMessageGroup) + Me._messageGroup = Value + End Set + End Property + + _ + Public Property MessageReferenceNumber() As String + Get + Return Me._messageReferenceNumber + End Get + Set(value As String) + Me._messageReferenceNumber = Value + End Set + End Property + + Public Property MessageType() As DEXPCCMessageType + Get + Return Me._messageType + End Get + Set(value As DEXPCCMessageType) + Me._messageType = Value + End Set + End Property + + _ + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set(value As String) + Me._messageIdentifier = Value + End Set + End Property + + Public Property Header() As DEXPCCHeader + Get + Return Me._header + End Get + Set(value As DEXPCCHeader) + Me._header = Value + End Set + End Property + + Public Property ExportCustomsOffice() As DEXPCCExportCustomsOffice + Get + Return Me._exportCustomsOffice + End Get + Set(value As DEXPCCExportCustomsOffice) + Me._exportCustomsOffice = Value + End Set + End Property + + Public Property Declarant() As DEXPCCDeclarant + Get + Return Me._declarant + End Get + Set(value As DEXPCCDeclarant) + Me._declarant = Value + End Set + End Property + + Public Property Representative() As DEXPCCRepresentative + Get + Return Me._representative + End Get + Set(value As DEXPCCRepresentative) + Me._representative = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCC)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCC object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCC object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCC, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCC) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCC) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCC + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCC) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCC + Return CType(Serializer.Deserialize(s), DEXPCC) + End Function +#End Region + + ''' + ''' Serializes current DEXPCC object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCC object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCC, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCC) + 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 DEXPCC) 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 DEXPCC + 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 Class + + _ + Partial Public Class DEXPCCInterchangeSender + +#Region "Private fields" + Private _identification As DEXPCCInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPCCInterchangeSenderIdentification() + End Sub + + Public Property Identification() As DEXPCCInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set(value As DEXPCCInterchangeSenderIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCInterchangeSender + Return CType(Serializer.Deserialize(s), DEXPCCInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCInterchangeSender) + 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 DEXPCCInterchangeSender) 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 DEXPCCInterchangeSender + 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 Class + + _ + Partial Public Class DEXPCCInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), DEXPCCInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCInterchangeSenderIdentification) + 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 DEXPCCInterchangeSenderIdentification) 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 DEXPCCInterchangeSenderIdentification + 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 Class + + _ + Partial Public Class DEXPCCInterchangeRecipient + +#Region "Private fields" + Private _identification As DEXPCCInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPCCInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As DEXPCCInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set(value As DEXPCCInterchangeRecipientIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCInterchangeRecipient + Return CType(Serializer.Deserialize(s), DEXPCCInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCInterchangeRecipient) + 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 DEXPCCInterchangeRecipient) 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 DEXPCCInterchangeRecipient + 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 Class + + _ + Partial Public Class DEXPCCInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), DEXPCCInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCInterchangeRecipientIdentification) + 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 DEXPCCInterchangeRecipientIdentification) 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 DEXPCCInterchangeRecipientIdentification + 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 Class + + _ + Partial Public Class DEXPCCPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set(value As Date) + Me._date = Value + End Set + End Property + + _ + Public Property Time() As Date + Get + Return Me._time + End Get + Set(value As Date) + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCPreparation + Return CType(Serializer.Deserialize(s), DEXPCCPreparation) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCPreparation) + 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 DEXPCCPreparation) 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 DEXPCCPreparation + 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 Class + + _ + Public Enum DEXPCCMessageGroup + + ''' + EXP + End Enum + + _ + Public Enum DEXPCCMessageType + + ''' + DEXPCC + End Enum + + _ + Partial Public Class DEXPCCHeader + +#Region "Private fields" + Private _movementReferenceNumber As String + + Private _messageVersion As String + + Private _cancellationDateTime As Date + + Private _cancellationType As DEXPCCHeaderCancellationType + + Private _cancellationReason As String + + Private _authorizationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property MovementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set(value As String) + Me._movementReferenceNumber = Value + End Set + End Property + + _ + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set(value As String) + Me._messageVersion = Value + End Set + End Property + + Public Property CancellationDateTime() As Date + Get + Return Me._cancellationDateTime + End Get + Set(value As Date) + Me._cancellationDateTime = Value + End Set + End Property + + Public Property CancellationType() As DEXPCCHeaderCancellationType + Get + Return Me._cancellationType + End Get + Set(value As DEXPCCHeaderCancellationType) + Me._cancellationType = Value + End Set + End Property + + _ + Public Property CancellationReason() As String + Get + Return Me._cancellationReason + End Get + Set(value As String) + Me._cancellationReason = Value + End Set + End Property + + _ + Public Property AuthorizationNumber() As String + Get + Return Me._authorizationNumber + End Get + Set(value As String) + Me._authorizationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCHeader object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCHeader + Return CType(Serializer.Deserialize(s), DEXPCCHeader) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCHeader object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCHeader) + 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 DEXPCCHeader) 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 DEXPCCHeader + 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 Class + + _ + Public Enum DEXPCCHeaderCancellationType + + ''' + SV + End Enum + + _ + Partial Public Class DEXPCCExportCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCExportCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCExportCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCExportCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCExportCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCExportCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCExportCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCExportCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCExportCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPCCExportCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCExportCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCExportCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCExportCustomsOffice) + 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 DEXPCCExportCustomsOffice) 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 DEXPCCExportCustomsOffice + 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 Class + + _ + Partial Public Class DEXPCCDeclarant + +#Region "Private fields" + Private _class As DEXPCCDeclarantClass + + Private _identification As DEXPCCDeclarantIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPCCDeclarantIdentification() + End Sub + + Public Property [Class]() As DEXPCCDeclarantClass + Get + Return Me._class + End Get + Set(value As DEXPCCDeclarantClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPCCDeclarantIdentification + Get + Return Me._identification + End Get + Set(value As DEXPCCDeclarantIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCDeclarant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCDeclarant object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCDeclarant object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCDeclarant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCDeclarant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCDeclarant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCDeclarant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCDeclarant + Return CType(Serializer.Deserialize(s), DEXPCCDeclarant) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCDeclarant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCDeclarant object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCDeclarant) + 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 DEXPCCDeclarant) 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 DEXPCCDeclarant + 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 Class + + _ + Public Enum DEXPCCDeclarantClass + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPCCDeclarantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCDeclarantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCDeclarantIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCDeclarantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCDeclarantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCDeclarantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCDeclarantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCDeclarantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCDeclarantIdentification + Return CType(Serializer.Deserialize(s), DEXPCCDeclarantIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCDeclarantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCDeclarantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCDeclarantIdentification) + 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 DEXPCCDeclarantIdentification) 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 DEXPCCDeclarantIdentification + 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 Class + + _ + Partial Public Class DEXPCCRepresentative + +#Region "Private fields" + Private _class As DEXPCCRepresentativeClass + + Private _identification As DEXPCCRepresentativeIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPCCRepresentativeIdentification() + End Sub + + Public Property [Class]() As DEXPCCRepresentativeClass + Get + Return Me._class + End Get + Set(value As DEXPCCRepresentativeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPCCRepresentativeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPCCRepresentativeIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCRepresentative)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCRepresentative object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCRepresentative object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCRepresentative) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCRepresentative) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCRepresentative + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCRepresentative) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCRepresentative + Return CType(Serializer.Deserialize(s), DEXPCCRepresentative) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCRepresentative object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCRepresentative object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCRepresentative) + 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 DEXPCCRepresentative) 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 DEXPCCRepresentative + 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 Class + + _ + Public Enum DEXPCCRepresentativeClass + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPCCRepresentativeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPCCRepresentativeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPCCRepresentativeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPCCRepresentativeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPCCRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCRepresentativeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPCCRepresentativeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPCCRepresentativeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPCCRepresentativeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPCCRepresentativeIdentification + Return CType(Serializer.Deserialize(s), DEXPCCRepresentativeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPCCRepresentativeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPCCRepresentativeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPCCRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPCCRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPCCRepresentativeIdentification) + 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 DEXPCCRepresentativeIdentification) 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 DEXPCCRepresentativeIdentification + 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 Class + + _ + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set(value As Decimal) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + _ + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + _ + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/Storno/e_exp_can.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Storno/e_exp_can.xsd new file mode 100644 index 0000000..5faaae4 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Storno/e_exp_can.xsd @@ -0,0 +1,567 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/VollstaendigeAusfuhrAnmeldung_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/VollstaendigeAusfuhrAnmeldung_003.Designer.vb new file mode 100644 index 0000000..a6e0b0c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/VollstaendigeAusfuhrAnmeldung_003.Designer.vb @@ -0,0 +1,8680 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' VollstaendigeAusfuhrAnmeldungListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace VollstaendigeAusfuhrAnmeldung + + _ + Partial Public Class VollstaendigeAusfuhrAnmeldungEVTyp + Inherits DatenaustauschExportTyp + +#Region "Private fields" + Private _einzelAnmeldung As List(Of EinzelVollstaendigeAusfuhrAnmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelAnmeldung = New List(Of EinzelVollstaendigeAusfuhrAnmeldungTyp)() + End Sub + + _ + Public Property EinzelAnmeldung() As List(Of EinzelVollstaendigeAusfuhrAnmeldungTyp) + Get + Return Me._einzelAnmeldung + End Get + Set(value As List(Of EinzelVollstaendigeAusfuhrAnmeldungTyp)) + Me._einzelAnmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VollstaendigeAusfuhrAnmeldungEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VollstaendigeAusfuhrAnmeldungEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VollstaendigeAusfuhrAnmeldungEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VollstaendigeAusfuhrAnmeldungEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VollstaendigeAusfuhrAnmeldungEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VollstaendigeAusfuhrAnmeldungEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VollstaendigeAusfuhrAnmeldungEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VollstaendigeAusfuhrAnmeldungEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VollstaendigeAusfuhrAnmeldungEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VollstaendigeAusfuhrAnmeldungEVTyp + Return CType(Serializer.Deserialize(s), VollstaendigeAusfuhrAnmeldungEVTyp) + End Function +#End Region + + ''' + ''' Serializes current VollstaendigeAusfuhrAnmeldungEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VollstaendigeAusfuhrAnmeldungEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VollstaendigeAusfuhrAnmeldungEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VollstaendigeAusfuhrAnmeldungEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VollstaendigeAusfuhrAnmeldungEVTyp) + 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 VollstaendigeAusfuhrAnmeldungEVTyp) 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 VollstaendigeAusfuhrAnmeldungEVTyp + 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 Class + + _ + Partial Public Class EinzelVollstaendigeAusfuhrAnmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungEVTyp + + Private _kopfDaten As KopfDatenVollstaendigeAusfuhranmeldungTyp + + Private _warenPosition As List(Of PositionVollstaendigeAusfuhranmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._warenPosition = New List(Of PositionVollstaendigeAusfuhranmeldungTyp)() + Me._kopfDaten = New KopfDatenVollstaendigeAusfuhranmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungEVTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungEVTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungEVTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenVollstaendigeAusfuhranmeldungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenVollstaendigeAusfuhranmeldungTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property WarenPosition() As List(Of PositionVollstaendigeAusfuhranmeldungTyp) + Get + Return Me._warenPosition + End Get + Set(value As List(Of PositionVollstaendigeAusfuhranmeldungTyp)) + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelVollstaendigeAusfuhrAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelVollstaendigeAusfuhrAnmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelVollstaendigeAusfuhrAnmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelVollstaendigeAusfuhrAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelVollstaendigeAusfuhrAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelVollstaendigeAusfuhrAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelVollstaendigeAusfuhrAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelVollstaendigeAusfuhrAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelVollstaendigeAusfuhrAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelVollstaendigeAusfuhrAnmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelVollstaendigeAusfuhrAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelVollstaendigeAusfuhrAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelVollstaendigeAusfuhrAnmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelVollstaendigeAusfuhrAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelVollstaendigeAusfuhrAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelVollstaendigeAusfuhrAnmeldungTyp) + 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 EinzelVollstaendigeAusfuhrAnmeldungTyp) 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 EinzelVollstaendigeAusfuhrAnmeldungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungEVTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAliasname As String + + Private _objektQuittung As String + + Private _bezugsnummerVorblendung As String + + Private _kopieVon As String + + Private _objektAktion As List(Of String) + + Private _compliancePruefung As String + + Private _bearbeiter As String + + Private _absenderSystemName As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._objektAktion = New List(Of String)() + End Sub + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAliasname() As String + Get + Return Me._objektAliasname + End Get + Set(value As String) + Me._objektAliasname = Value + End Set + End Property + + _ + Public Property ObjektQuittung() As String + Get + Return Me._objektQuittung + End Get + Set(value As String) + Me._objektQuittung = Value + End Set + End Property + + _ + Public Property BezugsnummerVorblendung() As String + Get + Return Me._bezugsnummerVorblendung + End Get + Set(value As String) + Me._bezugsnummerVorblendung = Value + End Set + End Property + + _ + Public Property KopieVon() As String + Get + Return Me._kopieVon + End Get + Set(value As String) + Me._kopieVon = Value + End Set + End Property + + _ + Public Property ObjektAktion() As List(Of String) + Get + Return Me._objektAktion + End Get + Set(value As List(Of String)) + Me._objektAktion = Value + End Set + End Property + + _ + Public Property CompliancePruefung() As String + Get + Return Me._compliancePruefung + End Get + Set(value As String) + Me._compliancePruefung = Value + End Set + End Property + + _ + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set(value As String) + Me._bearbeiter = Value + End Set + End Property + + _ + Public Property AbsenderSystemName() As String + Get + Return Me._absenderSystemName + End Get + Set(value As String) + Me._absenderSystemName = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungEVTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungEVTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungEVTyp) + 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 ObjektIdentifizierungEVTyp) 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 ObjektIdentifizierungEVTyp + 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 Class + + _ + Partial Public Class BeendigungPositionAVUVEVTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _registriernummer As String + + Private _kzZugangATLAS As String + + Private _warenbezogeneAngaben As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set(value As String) + Me._kzZugangATLAS = Value + End Set + End Property + + _ + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set(value As String) + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungPositionAVUVEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungPositionAVUVEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungPositionAVUVEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungPositionAVUVEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionAVUVEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungPositionAVUVEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionAVUVEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungPositionAVUVEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungPositionAVUVEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungPositionAVUVEVTyp + Return CType(Serializer.Deserialize(s), BeendigungPositionAVUVEVTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungPositionAVUVEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungPositionAVUVEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungPositionAVUVEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionAVUVEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungPositionAVUVEVTyp) + 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 BeendigungPositionAVUVEVTyp) 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 BeendigungPositionAVUVEVTyp + 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 Class + + _ + Partial Public Class BeendigungAVUVEVTyp + +#Region "Private fields" + Private _bewilligungsnummer As String + + Private _positionAVUV As List(Of BeendigungPositionAVUVEVTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._positionAVUV = New List(Of BeendigungPositionAVUVEVTyp)() + End Sub + + _ + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set(value As String) + Me._bewilligungsnummer = Value + End Set + End Property + + _ + Public Property PositionAVUV() As List(Of BeendigungPositionAVUVEVTyp) + Get + Return Me._positionAVUV + End Get + Set(value As List(Of BeendigungPositionAVUVEVTyp)) + Me._positionAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungAVUVEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungAVUVEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungAVUVEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungAVUVEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungAVUVEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungAVUVEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungAVUVEVTyp + Return CType(Serializer.Deserialize(s), BeendigungAVUVEVTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungAVUVEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungAVUVEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungAVUVEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVEVTyp) + 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 BeendigungAVUVEVTyp) 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 BeendigungAVUVEVTyp + 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 Class + + _ + Partial Public Class AbgangsHandelsmengeEVTyp + +#Region "Private fields" + Private _wert As String + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Wert() As String + Get + Return Me._wert + End Get + Set(value As String) + Me._wert = Value + End Set + End Property + + _ + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set(value As String) + Me._masseinheit = Value + End Set + End Property + + _ + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set(value As String) + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgangsHandelsmengeEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgangsHandelsmengeEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgangsHandelsmengeEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgangsHandelsmengeEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsHandelsmengeEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsHandelsmengeEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsHandelsmengeEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgangsHandelsmengeEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgangsHandelsmengeEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgangsHandelsmengeEVTyp + Return CType(Serializer.Deserialize(s), AbgangsHandelsmengeEVTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgangsHandelsmengeEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgangsHandelsmengeEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgangsHandelsmengeEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsHandelsmengeEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsHandelsmengeEVTyp) + 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 AbgangsHandelsmengeEVTyp) 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 AbgangsHandelsmengeEVTyp + 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 Class + + _ + Partial Public Class BeendigungPositionZLEVTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _registriernummer As String + + Private _artikelcodeATZL As String + + Private _warennummer As String + + Private _kzUeblicheBehandlung As String + + Private _kzZugangATLAS As String + + Private _zusatz As String + + Private _abgangsmenge As AbgangsHandelsmengeEVTyp + + Private _handelsmenge As AbgangsHandelsmengeEVTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._handelsmenge = New AbgangsHandelsmengeEVTyp() + Me._abgangsmenge = New AbgangsHandelsmengeEVTyp() + End Sub + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property ArtikelcodeATZL() As String + Get + Return Me._artikelcodeATZL + End Get + Set(value As String) + Me._artikelcodeATZL = Value + End Set + End Property + + _ + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set(value As String) + Me._warennummer = Value + End Set + End Property + + _ + Public Property KzUeblicheBehandlung() As String + Get + Return Me._kzUeblicheBehandlung + End Get + Set(value As String) + Me._kzUeblicheBehandlung = Value + End Set + End Property + + _ + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set(value As String) + Me._kzZugangATLAS = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + _ + Public Property Abgangsmenge() As AbgangsHandelsmengeEVTyp + Get + Return Me._abgangsmenge + End Get + Set(value As AbgangsHandelsmengeEVTyp) + Me._abgangsmenge = Value + End Set + End Property + + _ + Public Property Handelsmenge() As AbgangsHandelsmengeEVTyp + Get + Return Me._handelsmenge + End Get + Set(value As AbgangsHandelsmengeEVTyp) + Me._handelsmenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungPositionZLEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungPositionZLEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungPositionZLEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungPositionZLEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionZLEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungPositionZLEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungPositionZLEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungPositionZLEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungPositionZLEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungPositionZLEVTyp + Return CType(Serializer.Deserialize(s), BeendigungPositionZLEVTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungPositionZLEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungPositionZLEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungPositionZLEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungPositionZLEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungPositionZLEVTyp) + 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 BeendigungPositionZLEVTyp) 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 BeendigungPositionZLEVTyp + 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 Class + + _ + Partial Public Class BeendigungZLEVTyp + +#Region "Private fields" + Private _bewilligungsnummer As String + + Private _bezugsnummer As String + + Private _positionZL As List(Of BeendigungPositionZLEVTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._positionZL = New List(Of BeendigungPositionZLEVTyp)() + End Sub + + _ + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set(value As String) + Me._bewilligungsnummer = Value + End Set + End Property + + _ + Public Property Bezugsnummer() As String + Get + Return Me._bezugsnummer + End Get + Set(value As String) + Me._bezugsnummer = Value + End Set + End Property + + _ + Public Property PositionZL() As List(Of BeendigungPositionZLEVTyp) + Get + Return Me._positionZL + End Get + Set(value As List(Of BeendigungPositionZLEVTyp)) + Me._positionZL = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungZLEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungZLEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungZLEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungZLEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungZLEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungZLEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungZLEVTyp + Return CType(Serializer.Deserialize(s), BeendigungZLEVTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungZLEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungZLEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungZLEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLEVTyp) + 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 BeendigungZLEVTyp) 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 BeendigungZLEVTyp + 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 Class + + _ + Partial Public Class EndverwendePositionEVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set(value As String) + Me._strasse = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set(value As String) + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EndverwendePositionEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EndverwendePositionEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EndverwendePositionEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EndverwendePositionEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EndverwendePositionEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EndverwendePositionEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EndverwendePositionEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EndverwendePositionEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EndverwendePositionEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EndverwendePositionEVTyp + Return CType(Serializer.Deserialize(s), EndverwendePositionEVTyp) + End Function +#End Region + + ''' + ''' Serializes current EndverwendePositionEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EndverwendePositionEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EndverwendePositionEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EndverwendePositionEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EndverwendePositionEVTyp) + 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 EndverwendePositionEVTyp) 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 EndverwendePositionEVTyp + 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 Class + + _ + Partial Public Class EmpfaengerPositionEVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _teilnehmerID As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + _ + Public Property TeilnehmerID() As String + Get + Return Me._teilnehmerID + End Get + Set(value As String) + Me._teilnehmerID = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set(value As String) + Me._strasse = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set(value As String) + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerPositionEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EmpfaengerPositionEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EmpfaengerPositionEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EmpfaengerPositionEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerPositionEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerPositionEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerPositionEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EmpfaengerPositionEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EmpfaengerPositionEVTyp + Return CType(Serializer.Deserialize(s), EmpfaengerPositionEVTyp) + End Function +#End Region + + ''' + ''' Serializes current EmpfaengerPositionEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EmpfaengerPositionEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EmpfaengerPositionEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerPositionEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerPositionEVTyp) + 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 EmpfaengerPositionEVTyp) 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 EmpfaengerPositionEVTyp + 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 Class + + _ + Partial Public Class UnterlageEVTyp + +#Region "Private fields" + Private _typCode As String + + Private _qualifierCode As String + + Private _referenzID As String + + Private _zusatz As String + + Private _detail As String + + Private _datumAusstellung As Date + + Private _datumEndeGueltigkeit As Date + + Private _wert As String + + Private _abschreibungsmenge As String + + Private _masseinheit As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property TypCode() As String + Get + Return Me._typCode + End Get + Set(value As String) + Me._typCode = Value + End Set + End Property + + _ + Public Property QualifierCode() As String + Get + Return Me._qualifierCode + End Get + Set(value As String) + Me._qualifierCode = Value + End Set + End Property + + _ + Public Property ReferenzID() As String + Get + Return Me._referenzID + End Get + Set(value As String) + Me._referenzID = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + _ + Public Property Detail() As String + Get + Return Me._detail + End Get + Set(value As String) + Me._detail = Value + End Set + End Property + + _ + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set(value As Date) + Me._datumAusstellung = Value + End Set + End Property + + _ + Public Property DatumEndeGueltigkeit() As Date + Get + Return Me._datumEndeGueltigkeit + End Get + Set(value As Date) + Me._datumEndeGueltigkeit = Value + End Set + End Property + + _ + Public Property Wert() As String + Get + Return Me._wert + End Get + Set(value As String) + Me._wert = Value + End Set + End Property + + _ + Public Property Abschreibungsmenge() As String + Get + Return Me._abschreibungsmenge + End Get + Set(value As String) + Me._abschreibungsmenge = Value + End Set + End Property + + _ + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set(value As String) + Me._masseinheit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UnterlageEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UnterlageEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UnterlageEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UnterlageEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageEVTyp + Return CType(Serializer.Deserialize(s), UnterlageEVTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UnterlageEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UnterlageEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageEVTyp) + 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 UnterlageEVTyp) 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 UnterlageEVTyp + 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 Class + + _ + Partial Public Class PackstueckEVTyp + +#Region "Private fields" + Private _anzahl As String + + Private _verpackungsartCode As String + + Private _kennzeichnung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set(value As String) + Me._anzahl = Value + End Set + End Property + + _ + Public Property VerpackungsartCode() As String + Get + Return Me._verpackungsartCode + End Get + Set(value As String) + Me._verpackungsartCode = Value + End Set + End Property + + _ + Public Property Kennzeichnung() As String + Get + Return Me._kennzeichnung + End Get + Set(value As String) + Me._kennzeichnung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PackstueckEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PackstueckEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PackstueckEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PackstueckEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PackstueckEVTyp + Return CType(Serializer.Deserialize(s), PackstueckEVTyp) + End Function +#End Region + + ''' + ''' Serializes current PackstueckEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PackstueckEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PackstueckEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckEVTyp) + 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 PackstueckEVTyp) 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 PackstueckEVTyp + 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 Class + + _ + Partial Public Class VorpapierEVTyp + +#Region "Private fields" + Private _typCode As String + + Private _referenzID As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property TypCode() As String + Get + Return Me._typCode + End Get + Set(value As String) + Me._typCode = Value + End Set + End Property + + _ + Public Property ReferenzID() As String + Get + Return Me._referenzID + End Get + Set(value As String) + Me._referenzID = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorpapierEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorpapierEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorpapierEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorpapierEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorpapierEVTyp + Return CType(Serializer.Deserialize(s), VorpapierEVTyp) + End Function +#End Region + + ''' + ''' Serializes current VorpapierEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorpapierEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorpapierEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierEVTyp) + 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 VorpapierEVTyp) 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 VorpapierEVTyp + 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 Class + + _ + Partial Public Class VerfahrenEVTyp + +#Region "Private fields" + Private _verfahrenAngemeldetCode As String + + Private _verfahrenVorangegangenCode As String + + Private _verfahrenNationalCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property VerfahrenAngemeldetCode() As String + Get + Return Me._verfahrenAngemeldetCode + End Get + Set(value As String) + Me._verfahrenAngemeldetCode = Value + End Set + End Property + + _ + Public Property VerfahrenVorangegangenCode() As String + Get + Return Me._verfahrenVorangegangenCode + End Get + Set(value As String) + Me._verfahrenVorangegangenCode = Value + End Set + End Property + + _ + Public Property VerfahrenNationalCode() As String + Get + Return Me._verfahrenNationalCode + End Get + Set(value As String) + Me._verfahrenNationalCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrenEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerfahrenEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerfahrenEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerfahrenEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrenEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrenEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrenEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerfahrenEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerfahrenEVTyp + Return CType(Serializer.Deserialize(s), VerfahrenEVTyp) + End Function +#End Region + + ''' + ''' Serializes current VerfahrenEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerfahrenEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerfahrenEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrenEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrenEVTyp) + 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 VerfahrenEVTyp) 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 VerfahrenEVTyp + 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 Class + + _ + Partial Public Class PositionVollstaendigeAusfuhranmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _artikelNummer As String + + Private _warenNummerKN8 As String + + Private _warenNummerTARIC As String + + Private _warenNummerZusatz1 As String + + Private _warenNummerZusatz2 As String + + Private _warenNummerNational As String + + Private _warenBezeichnung As String + + Private _registrierNummerFremdSystem As String + + Private _vermerk As String + + Private _kennnummerSendung As String + + Private _ursprungsbundeslandCode As String + + Private _eigenmasse As String + + Private _rohmasse As String + + Private _gefahrgutnummer As String + + Private _zahlungsweiseBefoerderungskosten As String + + Private _verfahren As VerfahrenEVTyp + + Private _ausfuhrerstattungVerfahrenscode As String + + Private _menge As String + + Private _wert As String + + Private _vorpapier As List(Of VorpapierEVTyp) + + Private _packstueck As List(Of PackstueckEVTyp) + + Private _containerNummer As List(Of String) + + Private _unterlage As List(Of UnterlageEVTyp) + + Private _ausfuhrerstattungMenge As String + + Private _adressatenKonstellation As String + + Private _empfaenger As EmpfaengerPositionEVTyp + + Private _endverwender As EndverwendePositionEVTyp + + Private _beendigungZL As BeendigungZLEVTyp + + Private _beendigungAVUV As BeendigungAVUVEVTyp + + Private _incotermCode As String + + Private _incotermText As String + + Private _incotermOrt As String + + Private _geschaeftArtCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._beendigungAVUV = New BeendigungAVUVEVTyp() + Me._beendigungZL = New BeendigungZLEVTyp() + Me._endverwender = New EndverwendePositionEVTyp() + Me._empfaenger = New EmpfaengerPositionEVTyp() + Me._unterlage = New List(Of UnterlageEVTyp)() + Me._containerNummer = New List(Of String)() + Me._packstueck = New List(Of PackstueckEVTyp)() + Me._vorpapier = New List(Of VorpapierEVTyp)() + Me._verfahren = New VerfahrenEVTyp() + End Sub + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property ArtikelNummer() As String + Get + Return Me._artikelNummer + End Get + Set(value As String) + Me._artikelNummer = Value + End Set + End Property + + _ + Public Property WarenNummerKN8() As String + Get + Return Me._warenNummerKN8 + End Get + Set(value As String) + Me._warenNummerKN8 = Value + End Set + End Property + + _ + Public Property WarenNummerTARIC() As String + Get + Return Me._warenNummerTARIC + End Get + Set(value As String) + Me._warenNummerTARIC = Value + End Set + End Property + + _ + Public Property WarenNummerZusatz1() As String + Get + Return Me._warenNummerZusatz1 + End Get + Set(value As String) + Me._warenNummerZusatz1 = Value + End Set + End Property + + _ + Public Property WarenNummerZusatz2() As String + Get + Return Me._warenNummerZusatz2 + End Get + Set(value As String) + Me._warenNummerZusatz2 = Value + End Set + End Property + + _ + Public Property WarenNummerNational() As String + Get + Return Me._warenNummerNational + End Get + Set(value As String) + Me._warenNummerNational = Value + End Set + End Property + + _ + Public Property WarenBezeichnung() As String + Get + Return Me._warenBezeichnung + End Get + Set(value As String) + Me._warenBezeichnung = Value + End Set + End Property + + _ + Public Property RegistrierNummerFremdSystem() As String + Get + Return Me._registrierNummerFremdSystem + End Get + Set(value As String) + Me._registrierNummerFremdSystem = Value + End Set + End Property + + _ + Public Property Vermerk() As String + Get + Return Me._vermerk + End Get + Set(value As String) + Me._vermerk = Value + End Set + End Property + + _ + Public Property KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set(value As String) + Me._kennnummerSendung = Value + End Set + End Property + + _ + Public Property UrsprungsbundeslandCode() As String + Get + Return Me._ursprungsbundeslandCode + End Get + Set(value As String) + Me._ursprungsbundeslandCode = Value + End Set + End Property + + _ + Public Property Eigenmasse() As String + Get + Return Me._eigenmasse + End Get + Set(value As String) + Me._eigenmasse = Value + End Set + End Property + + _ + Public Property Rohmasse() As String + Get + Return Me._rohmasse + End Get + Set(value As String) + Me._rohmasse = Value + End Set + End Property + + _ + Public Property Gefahrgutnummer() As String + Get + Return Me._gefahrgutnummer + End Get + Set(value As String) + Me._gefahrgutnummer = Value + End Set + End Property + + _ + Public Property ZahlungsweiseBefoerderungskosten() As String + Get + Return Me._zahlungsweiseBefoerderungskosten + End Get + Set(value As String) + Me._zahlungsweiseBefoerderungskosten = Value + End Set + End Property + + _ + Public Property Verfahren() As VerfahrenEVTyp + Get + Return Me._verfahren + End Get + Set(value As VerfahrenEVTyp) + Me._verfahren = Value + End Set + End Property + + _ + Public Property AusfuhrerstattungVerfahrenscode() As String + Get + Return Me._ausfuhrerstattungVerfahrenscode + End Get + Set(value As String) + Me._ausfuhrerstattungVerfahrenscode = Value + End Set + End Property + + _ + Public Property Menge() As String + Get + Return Me._menge + End Get + Set(value As String) + Me._menge = Value + End Set + End Property + + _ + Public Property Wert() As String + Get + Return Me._wert + End Get + Set(value As String) + Me._wert = Value + End Set + End Property + + _ + Public Property Vorpapier() As List(Of VorpapierEVTyp) + Get + Return Me._vorpapier + End Get + Set(value As List(Of VorpapierEVTyp)) + Me._vorpapier = Value + End Set + End Property + + _ + Public Property Packstueck() As List(Of PackstueckEVTyp) + Get + Return Me._packstueck + End Get + Set(value As List(Of PackstueckEVTyp)) + Me._packstueck = Value + End Set + End Property + + _ + Public Property ContainerNummer() As List(Of String) + Get + Return Me._containerNummer + End Get + Set(value As List(Of String)) + Me._containerNummer = Value + End Set + End Property + + _ + Public Property Unterlage() As List(Of UnterlageEVTyp) + Get + Return Me._unterlage + End Get + Set(value As List(Of UnterlageEVTyp)) + Me._unterlage = Value + End Set + End Property + + _ + Public Property AusfuhrerstattungMenge() As String + Get + Return Me._ausfuhrerstattungMenge + End Get + Set(value As String) + Me._ausfuhrerstattungMenge = Value + End Set + End Property + + _ + Public Property AdressatenKonstellation() As String + Get + Return Me._adressatenKonstellation + End Get + Set(value As String) + Me._adressatenKonstellation = Value + End Set + End Property + + _ + Public Property Empfaenger() As EmpfaengerPositionEVTyp + Get + Return Me._empfaenger + End Get + Set(value As EmpfaengerPositionEVTyp) + Me._empfaenger = Value + End Set + End Property + + _ + Public Property Endverwender() As EndverwendePositionEVTyp + Get + Return Me._endverwender + End Get + Set(value As EndverwendePositionEVTyp) + Me._endverwender = Value + End Set + End Property + + _ + Public Property BeendigungZL() As BeendigungZLEVTyp + Get + Return Me._beendigungZL + End Get + Set(value As BeendigungZLEVTyp) + Me._beendigungZL = Value + End Set + End Property + + _ + Public Property BeendigungAVUV() As BeendigungAVUVEVTyp + Get + Return Me._beendigungAVUV + End Get + Set(value As BeendigungAVUVEVTyp) + Me._beendigungAVUV = Value + End Set + End Property + + _ + Public Property IncotermCode() As String + Get + Return Me._incotermCode + End Get + Set(value As String) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property IncotermText() As String + Get + Return Me._incotermText + End Get + Set(value As String) + Me._incotermText = Value + End Set + End Property + + _ + Public Property IncotermOrt() As String + Get + Return Me._incotermOrt + End Get + Set(value As String) + Me._incotermOrt = Value + End Set + End Property + + _ + Public Property GeschaeftArtCode() As String + Get + Return Me._geschaeftArtCode + End Get + Set(value As String) + Me._geschaeftArtCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionVollstaendigeAusfuhranmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionVollstaendigeAusfuhranmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionVollstaendigeAusfuhranmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionVollstaendigeAusfuhranmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionVollstaendigeAusfuhranmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionVollstaendigeAusfuhranmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionVollstaendigeAusfuhranmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionVollstaendigeAusfuhranmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionVollstaendigeAusfuhranmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionVollstaendigeAusfuhranmeldungTyp + Return CType(Serializer.Deserialize(s), PositionVollstaendigeAusfuhranmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionVollstaendigeAusfuhranmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionVollstaendigeAusfuhranmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionVollstaendigeAusfuhranmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionVollstaendigeAusfuhranmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionVollstaendigeAusfuhranmeldungTyp) + 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 PositionVollstaendigeAusfuhranmeldungTyp) 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 PositionVollstaendigeAusfuhranmeldungTyp + 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 Class + + _ + Partial Public Class LieferbedingungEVTyp + +#Region "Private fields" + Private _incotermCode As String + + Private _incotermText As String + + Private _incotermOrt As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IncotermCode() As String + Get + Return Me._incotermCode + End Get + Set(value As String) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property IncotermText() As String + Get + Return Me._incotermText + End Get + Set(value As String) + Me._incotermText = Value + End Set + End Property + + _ + Public Property IncotermOrt() As String + Get + Return Me._incotermOrt + End Get + Set(value As String) + Me._incotermOrt = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(LieferbedingungEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current LieferbedingungEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an LieferbedingungEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output LieferbedingungEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LieferbedingungEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LieferbedingungEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As LieferbedingungEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), LieferbedingungEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As LieferbedingungEVTyp + Return CType(Serializer.Deserialize(s), LieferbedingungEVTyp) + End Function +#End Region + + ''' + ''' Serializes current LieferbedingungEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an LieferbedingungEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output LieferbedingungEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LieferbedingungEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LieferbedingungEVTyp) + 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 LieferbedingungEVTyp) 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 LieferbedingungEVTyp + 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 Class + + _ + Partial Public Class ErzeugnisEVTyp + +#Region "Private fields" + Private _erzeugnisWarennummer As String + + Private _erzeugnisWarenbezeichnung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ErzeugnisWarennummer() As String + Get + Return Me._erzeugnisWarennummer + End Get + Set(value As String) + Me._erzeugnisWarennummer = Value + End Set + End Property + + _ + Public Property ErzeugnisWarenbezeichnung() As String + Get + Return Me._erzeugnisWarenbezeichnung + End Get + Set(value As String) + Me._erzeugnisWarenbezeichnung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ErzeugnisEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ErzeugnisEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ErzeugnisEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ErzeugnisEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErzeugnisEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ErzeugnisEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErzeugnisEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ErzeugnisEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ErzeugnisEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ErzeugnisEVTyp + Return CType(Serializer.Deserialize(s), ErzeugnisEVTyp) + End Function +#End Region + + ''' + ''' Serializes current ErzeugnisEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ErzeugnisEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ErzeugnisEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErzeugnisEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ErzeugnisEVTyp) + 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 ErzeugnisEVTyp) 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 ErzeugnisEVTyp + 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 Class + + _ + Partial Public Class NaemlichkeitEVTyp + +#Region "Private fields" + Private _art As String + + Private _beschreibung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Art() As String + Get + Return Me._art + End Get + Set(value As String) + Me._art = Value + End Set + End Property + + _ + Public Property Beschreibung() As String + Get + Return Me._beschreibung + End Get + Set(value As String) + Me._beschreibung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(NaemlichkeitEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current NaemlichkeitEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an NaemlichkeitEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output NaemlichkeitEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NaemlichkeitEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NaemlichkeitEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NaemlichkeitEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As NaemlichkeitEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), NaemlichkeitEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As NaemlichkeitEVTyp + Return CType(Serializer.Deserialize(s), NaemlichkeitEVTyp) + End Function +#End Region + + ''' + ''' Serializes current NaemlichkeitEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an NaemlichkeitEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output NaemlichkeitEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NaemlichkeitEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NaemlichkeitEVTyp) + 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 NaemlichkeitEVTyp) 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 NaemlichkeitEVTyp + 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 Class + + _ + Partial Public Class PassiveVeredelungEVTyp + +#Region "Private fields" + Private _wiedereinfuhrDatum As Date + + Private _standardaustausch As String + + Private _wiedereinfuhrland As List(Of String) + + Private _naemlichkeit As List(Of NaemlichkeitEVTyp) + + Private _erzeugnis As List(Of ErzeugnisEVTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._erzeugnis = New List(Of ErzeugnisEVTyp)() + Me._naemlichkeit = New List(Of NaemlichkeitEVTyp)() + Me._wiedereinfuhrland = New List(Of String)() + End Sub + + _ + Public Property WiedereinfuhrDatum() As Date + Get + Return Me._wiedereinfuhrDatum + End Get + Set(value As Date) + Me._wiedereinfuhrDatum = Value + End Set + End Property + + _ + Public Property Standardaustausch() As String + Get + Return Me._standardaustausch + End Get + Set(value As String) + Me._standardaustausch = Value + End Set + End Property + + _ + Public Property Wiedereinfuhrland() As List(Of String) + Get + Return Me._wiedereinfuhrland + End Get + Set(value As List(Of String)) + Me._wiedereinfuhrland = Value + End Set + End Property + + _ + Public Property Naemlichkeit() As List(Of NaemlichkeitEVTyp) + Get + Return Me._naemlichkeit + End Get + Set(value As List(Of NaemlichkeitEVTyp)) + Me._naemlichkeit = Value + End Set + End Property + + _ + Public Property Erzeugnis() As List(Of ErzeugnisEVTyp) + Get + Return Me._erzeugnis + End Get + Set(value As List(Of ErzeugnisEVTyp)) + Me._erzeugnis = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PassiveVeredelungEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PassiveVeredelungEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PassiveVeredelungEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PassiveVeredelungEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PassiveVeredelungEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PassiveVeredelungEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PassiveVeredelungEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PassiveVeredelungEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PassiveVeredelungEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PassiveVeredelungEVTyp + Return CType(Serializer.Deserialize(s), PassiveVeredelungEVTyp) + End Function +#End Region + + ''' + ''' Serializes current PassiveVeredelungEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PassiveVeredelungEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PassiveVeredelungEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PassiveVeredelungEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PassiveVeredelungEVTyp) + 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 PassiveVeredelungEVTyp) 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 PassiveVeredelungEVTyp + 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 Class + + _ + Partial Public Class EndverwenderEVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set(value As String) + Me._strasse = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set(value As String) + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EndverwenderEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EndverwenderEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EndverwenderEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EndverwenderEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EndverwenderEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EndverwenderEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EndverwenderEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EndverwenderEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EndverwenderEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EndverwenderEVTyp + Return CType(Serializer.Deserialize(s), EndverwenderEVTyp) + End Function +#End Region + + ''' + ''' Serializes current EndverwenderEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EndverwenderEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EndverwenderEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EndverwenderEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EndverwenderEVTyp) + 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 EndverwenderEVTyp) 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 EndverwenderEVTyp + 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 Class + + _ + Partial Public Class VerfahrensinhaberPVEVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _ansprechpartner As AnsprechpartnerEVTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerEVTyp() + End Sub + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerEVTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerEVTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerfahrensinhaberPVEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerfahrensinhaberPVEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerfahrensinhaberPVEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerfahrensinhaberPVEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrensinhaberPVEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerfahrensinhaberPVEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerfahrensinhaberPVEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerfahrensinhaberPVEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerfahrensinhaberPVEVTyp + Return CType(Serializer.Deserialize(s), VerfahrensinhaberPVEVTyp) + End Function +#End Region + + ''' + ''' Serializes current VerfahrensinhaberPVEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerfahrensinhaberPVEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerfahrensinhaberPVEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerfahrensinhaberPVEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerfahrensinhaberPVEVTyp) + 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 VerfahrensinhaberPVEVTyp) 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 VerfahrensinhaberPVEVTyp + 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 Class + + _ + Partial Public Class AnsprechpartnerEVTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _telefonnummer As String + + Private _stellung As String + + Private _emailAdresse As String + + Private _telefaxnummer As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set(value As String) + Me._sachbearbeiter = Value + End Set + End Property + + _ + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set(value As String) + Me._telefonnummer = Value + End Set + End Property + + _ + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set(value As String) + Me._stellung = Value + End Set + End Property + + _ + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set(value As String) + Me._emailAdresse = Value + End Set + End Property + + _ + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set(value As String) + Me._telefaxnummer = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnsprechpartnerEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AnsprechpartnerEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnsprechpartnerEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnsprechpartnerEVTyp + Return CType(Serializer.Deserialize(s), AnsprechpartnerEVTyp) + End Function +#End Region + + ''' + ''' Serializes current AnsprechpartnerEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AnsprechpartnerEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnsprechpartnerEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerEVTyp) + 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 AnsprechpartnerEVTyp) 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 AnsprechpartnerEVTyp + 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 Class + + _ + Partial Public Class SubunternehmerEVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _teilnehmerID As String + + Private _deutscheZollnummerIndikator As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private _ansprechpartner As AnsprechpartnerEVTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerEVTyp() + End Sub + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + _ + Public Property TeilnehmerID() As String + Get + Return Me._teilnehmerID + End Get + Set(value As String) + Me._teilnehmerID = Value + End Set + End Property + + _ + Public Property DeutscheZollnummerIndikator() As String + Get + Return Me._deutscheZollnummerIndikator + End Get + Set(value As String) + Me._deutscheZollnummerIndikator = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set(value As String) + Me._strasse = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set(value As String) + Me._landCode = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerEVTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerEVTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SubunternehmerEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SubunternehmerEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SubunternehmerEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SubunternehmerEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubunternehmerEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SubunternehmerEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SubunternehmerEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SubunternehmerEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SubunternehmerEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SubunternehmerEVTyp + Return CType(Serializer.Deserialize(s), SubunternehmerEVTyp) + End Function +#End Region + + ''' + ''' Serializes current SubunternehmerEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SubunternehmerEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SubunternehmerEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SubunternehmerEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SubunternehmerEVTyp) + 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 SubunternehmerEVTyp) 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 SubunternehmerEVTyp + 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 Class + + _ + Partial Public Class VertreterAnmelderEVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _teilnehmerID As String + + Private _deutscheZollnummerIndikator As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private _ansprechpartner As AnsprechpartnerEVTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerEVTyp() + End Sub + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + _ + Public Property TeilnehmerID() As String + Get + Return Me._teilnehmerID + End Get + Set(value As String) + Me._teilnehmerID = Value + End Set + End Property + + _ + Public Property DeutscheZollnummerIndikator() As String + Get + Return Me._deutscheZollnummerIndikator + End Get + Set(value As String) + Me._deutscheZollnummerIndikator = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set(value As String) + Me._strasse = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set(value As String) + Me._landCode = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerEVTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerEVTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VertreterAnmelderEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VertreterAnmelderEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VertreterAnmelderEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VertreterAnmelderEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VertreterAnmelderEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VertreterAnmelderEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VertreterAnmelderEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VertreterAnmelderEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VertreterAnmelderEVTyp + Return CType(Serializer.Deserialize(s), VertreterAnmelderEVTyp) + End Function +#End Region + + ''' + ''' Serializes current VertreterAnmelderEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VertreterAnmelderEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VertreterAnmelderEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VertreterAnmelderEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VertreterAnmelderEVTyp) + 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 VertreterAnmelderEVTyp) 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 VertreterAnmelderEVTyp + 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 Class + + _ + Partial Public Class AnmelderEVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _teilnehmerID As String + + Private _deutscheZollnummerIndikator As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private _ansprechpartner As AnsprechpartnerEVTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerEVTyp() + End Sub + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + _ + Public Property TeilnehmerID() As String + Get + Return Me._teilnehmerID + End Get + Set(value As String) + Me._teilnehmerID = Value + End Set + End Property + + _ + Public Property DeutscheZollnummerIndikator() As String + Get + Return Me._deutscheZollnummerIndikator + End Get + Set(value As String) + Me._deutscheZollnummerIndikator = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set(value As String) + Me._strasse = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set(value As String) + Me._landCode = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerEVTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerEVTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnmelderEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnmelderEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AnmelderEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnmelderEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmelderEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmelderEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnmelderEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnmelderEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnmelderEVTyp + Return CType(Serializer.Deserialize(s), AnmelderEVTyp) + End Function +#End Region + + ''' + ''' Serializes current AnmelderEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AnmelderEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnmelderEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnmelderEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmelderEVTyp) + 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 AnmelderEVTyp) 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 AnmelderEVTyp + 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 Class + + _ + Partial Public Class EmpfaengerEVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _teilnehmerID As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + _ + Public Property TeilnehmerID() As String + Get + Return Me._teilnehmerID + End Get + Set(value As String) + Me._teilnehmerID = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set(value As String) + Me._strasse = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set(value As String) + Me._landCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EmpfaengerEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EmpfaengerEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EmpfaengerEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EmpfaengerEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EmpfaengerEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EmpfaengerEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EmpfaengerEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EmpfaengerEVTyp + Return CType(Serializer.Deserialize(s), EmpfaengerEVTyp) + End Function +#End Region + + ''' + ''' Serializes current EmpfaengerEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EmpfaengerEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EmpfaengerEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EmpfaengerEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EmpfaengerEVTyp) + 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 EmpfaengerEVTyp) 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 EmpfaengerEVTyp + 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 Class + + _ + Partial Public Class AusfuehrerEVTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _teilnehmerID As String + + Private _deutscheZollnummerIndikator As String + + Private _name As String + + Private _strasse As String + + Private _ort As String + + Private _pLZ As String + + Private _landCode As String + + Private _ansprechpartner As AnsprechpartnerEVTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerEVTyp() + End Sub + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + _ + Public Property TeilnehmerID() As String + Get + Return Me._teilnehmerID + End Get + Set(value As String) + Me._teilnehmerID = Value + End Set + End Property + + _ + Public Property DeutscheZollnummerIndikator() As String + Get + Return Me._deutscheZollnummerIndikator + End Get + Set(value As String) + Me._deutscheZollnummerIndikator = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set(value As String) + Me._strasse = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set(value As String) + Me._landCode = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerEVTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerEVTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AusfuehrerEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AusfuehrerEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AusfuehrerEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AusfuehrerEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuehrerEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AusfuehrerEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AusfuehrerEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AusfuehrerEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AusfuehrerEVTyp + Return CType(Serializer.Deserialize(s), AusfuehrerEVTyp) + End Function +#End Region + + ''' + ''' Serializes current AusfuehrerEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AusfuehrerEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AusfuehrerEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AusfuehrerEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AusfuehrerEVTyp) + 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 AusfuehrerEVTyp) 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 AusfuehrerEVTyp + 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 Class + + _ + Partial Public Class FristEVTyp + +#Region "Private fields" + Private _anfangDatumZeit As Date + + Private _endeDatumZeit As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property AnfangDatumZeit() As Date + Get + Return Me._anfangDatumZeit + End Get + Set(value As Date) + Me._anfangDatumZeit = Value + End Set + End Property + + _ + Public Property EndeDatumZeit() As Date + Get + Return Me._endeDatumZeit + End Get + Set(value As Date) + Me._endeDatumZeit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FristEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FristEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FristEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output FristEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FristEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FristEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FristEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FristEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FristEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FristEVTyp + Return CType(Serializer.Deserialize(s), FristEVTyp) + End Function +#End Region + + ''' + ''' Serializes current FristEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FristEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output FristEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FristEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FristEVTyp) + 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 FristEVTyp) 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 FristEVTyp + 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 Class + + _ + Partial Public Class VerschluesseEVTyp + +#Region "Private fields" + Private _artCode As String + + Private _anzahl As String + + Private _zeichen As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._zeichen = New List(Of String)() + End Sub + + _ + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set(value As String) + Me._artCode = Value + End Set + End Property + + _ + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set(value As String) + Me._anzahl = Value + End Set + End Property + + _ + Public Property Zeichen() As List(Of String) + Get + Return Me._zeichen + End Get + Set(value As List(Of String)) + Me._zeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerschluesseEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerschluesseEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerschluesseEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerschluesseEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerschluesseEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerschluesseEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerschluesseEVTyp + Return CType(Serializer.Deserialize(s), VerschluesseEVTyp) + End Function +#End Region + + ''' + ''' Serializes current VerschluesseEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerschluesseEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerschluesseEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseEVTyp) + 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 VerschluesseEVTyp) 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 VerschluesseEVTyp + 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 Class + + _ + Partial Public Class LadeortEVTyp + +#Region "Private fields" + Private _ortID As String + + Private _strasse As String + + Private _pLZ As String + + Private _ort As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property OrtID() As String + Get + Return Me._ortID + End Get + Set(value As String) + Me._ortID = Value + End Set + End Property + + _ + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set(value As String) + Me._strasse = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(LadeortEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current LadeortEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an LadeortEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output LadeortEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LadeortEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LadeortEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As LadeortEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As LadeortEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), LadeortEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As LadeortEVTyp + Return CType(Serializer.Deserialize(s), LadeortEVTyp) + End Function +#End Region + + ''' + ''' Serializes current LadeortEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an LadeortEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output LadeortEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As LadeortEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, LadeortEVTyp) + 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 LadeortEVTyp) 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 LadeortEVTyp + 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 Class + + _ + Partial Public Class BefoerderungsmittelEVTyp + +#Region "Private fields" + Private _artCode As String + + Private _kennzeichen As String + + Private _staatCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set(value As String) + Me._artCode = Value + End Set + End Property + + _ + Public Property Kennzeichen() As String + Get + Return Me._kennzeichen + End Get + Set(value As String) + Me._kennzeichen = Value + End Set + End Property + + _ + Public Property StaatCode() As String + Get + Return Me._staatCode + End Get + Set(value As String) + Me._staatCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelEVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BefoerderungsmittelEVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BefoerderungsmittelEVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BefoerderungsmittelEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelEVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelEVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelEVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelEVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefoerderungsmittelEVTyp + Return CType(Serializer.Deserialize(s), BefoerderungsmittelEVTyp) + End Function +#End Region + + ''' + ''' Serializes current BefoerderungsmittelEVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BefoerderungsmittelEVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BefoerderungsmittelEVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelEVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelEVTyp) + 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 BefoerderungsmittelEVTyp) 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 BefoerderungsmittelEVTyp + 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 Class + + _ + Partial Public Class KopfDatenVollstaendigeAusfuhranmeldungTyp + +#Region "Private fields" + Private _anmeldeArtAusfuhrCode As String + + Private _anmeldeArtVerfahrenCode As String + + Private _anmeldeArtUeberfuehrungCode As String + + Private _ausfuhrlandCode As String + + Private _bestimmungslandCode As String + + Private _anmeldeDatumZeit As Date + + Private _datumAusgang As Date + + Private _massgeblichesDatum As Date + + Private _besondereUmstaende As String + + Private _zahlungsweiseBefoerderungskosten As String + + Private _statistischeMeldung As String + + Private _containerIndikator As String + + Private _beteiligtenKonstellation As String + + Private _adressatenKonstellation As String + + Private _gesamtRohMasse As String + + Private _registrierNummerFremdSystem As String + + Private _vermerk As String + + Private _kennnummerSendung As String + + Private _anzahlPositionen As String + + Private _bewilligungsnummerAusfuhr As String + + Private _bewilligungsnummerAnschreibeverfahren As String + + Private _bewilligungsnummerPassiveVeredelung As String + + Private _bewilligungsnummerVertrauenswuerdigerAusfuehrer As String + + Private _verkehrszweigInland As String + + Private _befoerderungsmittelAbgang As BefoerderungsmittelEVTyp + + Private _verkehrszweigGrenze As String + + Private _befoerderungsmittelGrenze As BefoerderungsmittelEVTyp + + Private _ladeort As LadeortEVTyp + + Private _ausfuhrZollstelleID As String + + Private _ausgangZollstelleID As String + + Private _tatsaechlicheAusgangZollstelleID As String + + Private _geschaeftArtCode As String + + Private _rechnungspreis As String + + Private _rechnungswaehrung As String + + Private _besondererTatbestand As List(Of String) + + Private _verschluss As VerschluesseEVTyp + + Private _gestellungsfrist As FristEVTyp + + Private _ausfuehrer As AusfuehrerEVTyp + + Private _empfaenger As EmpfaengerEVTyp + + Private _anmelder As AnmelderEVTyp + + Private _vertreterAnmelder As VertreterAnmelderEVTyp + + Private _subUnternehmer As SubunternehmerEVTyp + + Private _verfahrensinhaberPV As VerfahrensinhaberPVEVTyp + + Private _endverwender As EndverwenderEVTyp + + Private _befoerderungsrouteLand As List(Of String) + + Private _passiveVeredelung As PassiveVeredelungEVTyp + + Private _lieferbedingung As LieferbedingungEVTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._lieferbedingung = New LieferbedingungEVTyp() + Me._passiveVeredelung = New PassiveVeredelungEVTyp() + Me._befoerderungsrouteLand = New List(Of String)() + Me._endverwender = New EndverwenderEVTyp() + Me._verfahrensinhaberPV = New VerfahrensinhaberPVEVTyp() + Me._subUnternehmer = New SubunternehmerEVTyp() + Me._vertreterAnmelder = New VertreterAnmelderEVTyp() + Me._anmelder = New AnmelderEVTyp() + Me._empfaenger = New EmpfaengerEVTyp() + Me._ausfuehrer = New AusfuehrerEVTyp() + Me._gestellungsfrist = New FristEVTyp() + Me._verschluss = New VerschluesseEVTyp() + Me._besondererTatbestand = New List(Of String)() + Me._ladeort = New LadeortEVTyp() + Me._befoerderungsmittelGrenze = New BefoerderungsmittelEVTyp() + Me._befoerderungsmittelAbgang = New BefoerderungsmittelEVTyp() + End Sub + + _ + Public Property AnmeldeArtAusfuhrCode() As String + Get + Return Me._anmeldeArtAusfuhrCode + End Get + Set(value As String) + Me._anmeldeArtAusfuhrCode = Value + End Set + End Property + + _ + Public Property AnmeldeArtVerfahrenCode() As String + Get + Return Me._anmeldeArtVerfahrenCode + End Get + Set(value As String) + Me._anmeldeArtVerfahrenCode = Value + End Set + End Property + + _ + Public Property AnmeldeArtUeberfuehrungCode() As String + Get + Return Me._anmeldeArtUeberfuehrungCode + End Get + Set(value As String) + Me._anmeldeArtUeberfuehrungCode = Value + End Set + End Property + + _ + Public Property AusfuhrlandCode() As String + Get + Return Me._ausfuhrlandCode + End Get + Set(value As String) + Me._ausfuhrlandCode = Value + End Set + End Property + + _ + Public Property BestimmungslandCode() As String + Get + Return Me._bestimmungslandCode + End Get + Set(value As String) + Me._bestimmungslandCode = Value + End Set + End Property + + _ + Public Property AnmeldeDatumZeit() As Date + Get + Return Me._anmeldeDatumZeit + End Get + Set(value As Date) + Me._anmeldeDatumZeit = Value + End Set + End Property + + _ + Public Property DatumAusgang() As Date + Get + Return Me._datumAusgang + End Get + Set(value As Date) + Me._datumAusgang = Value + End Set + End Property + + _ + Public Property MassgeblichesDatum() As Date + Get + Return Me._massgeblichesDatum + End Get + Set(value As Date) + Me._massgeblichesDatum = Value + End Set + End Property + + _ + Public Property BesondereUmstaende() As String + Get + Return Me._besondereUmstaende + End Get + Set(value As String) + Me._besondereUmstaende = Value + End Set + End Property + + _ + Public Property ZahlungsweiseBefoerderungskosten() As String + Get + Return Me._zahlungsweiseBefoerderungskosten + End Get + Set(value As String) + Me._zahlungsweiseBefoerderungskosten = Value + End Set + End Property + + _ + Public Property StatistischeMeldung() As String + Get + Return Me._statistischeMeldung + End Get + Set(value As String) + Me._statistischeMeldung = Value + End Set + End Property + + _ + Public Property ContainerIndikator() As String + Get + Return Me._containerIndikator + End Get + Set(value As String) + Me._containerIndikator = Value + End Set + End Property + + _ + Public Property BeteiligtenKonstellation() As String + Get + Return Me._beteiligtenKonstellation + End Get + Set(value As String) + Me._beteiligtenKonstellation = Value + End Set + End Property + + _ + Public Property AdressatenKonstellation() As String + Get + Return Me._adressatenKonstellation + End Get + Set(value As String) + Me._adressatenKonstellation = Value + End Set + End Property + + _ + Public Property GesamtRohMasse() As String + Get + Return Me._gesamtRohMasse + End Get + Set(value As String) + Me._gesamtRohMasse = Value + End Set + End Property + + _ + Public Property RegistrierNummerFremdSystem() As String + Get + Return Me._registrierNummerFremdSystem + End Get + Set(value As String) + Me._registrierNummerFremdSystem = Value + End Set + End Property + + _ + Public Property Vermerk() As String + Get + Return Me._vermerk + End Get + Set(value As String) + Me._vermerk = Value + End Set + End Property + + _ + Public Property KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set(value As String) + Me._kennnummerSendung = Value + End Set + End Property + + _ + Public Property AnzahlPositionen() As String + Get + Return Me._anzahlPositionen + End Get + Set(value As String) + Me._anzahlPositionen = Value + End Set + End Property + + _ + Public Property BewilligungsnummerAusfuhr() As String + Get + Return Me._bewilligungsnummerAusfuhr + End Get + Set(value As String) + Me._bewilligungsnummerAusfuhr = Value + End Set + End Property + + _ + Public Property BewilligungsnummerAnschreibeverfahren() As String + Get + Return Me._bewilligungsnummerAnschreibeverfahren + End Get + Set(value As String) + Me._bewilligungsnummerAnschreibeverfahren = Value + End Set + End Property + + _ + Public Property BewilligungsnummerPassiveVeredelung() As String + Get + Return Me._bewilligungsnummerPassiveVeredelung + End Get + Set(value As String) + Me._bewilligungsnummerPassiveVeredelung = Value + End Set + End Property + + _ + Public Property BewilligungsnummerVertrauenswuerdigerAusfuehrer() As String + Get + Return Me._bewilligungsnummerVertrauenswuerdigerAusfuehrer + End Get + Set(value As String) + Me._bewilligungsnummerVertrauenswuerdigerAusfuehrer = Value + End Set + End Property + + _ + Public Property VerkehrszweigInland() As String + Get + Return Me._verkehrszweigInland + End Get + Set(value As String) + Me._verkehrszweigInland = Value + End Set + End Property + + _ + Public Property BefoerderungsmittelAbgang() As BefoerderungsmittelEVTyp + Get + Return Me._befoerderungsmittelAbgang + End Get + Set(value As BefoerderungsmittelEVTyp) + Me._befoerderungsmittelAbgang = Value + End Set + End Property + + _ + Public Property VerkehrszweigGrenze() As String + Get + Return Me._verkehrszweigGrenze + End Get + Set(value As String) + Me._verkehrszweigGrenze = Value + End Set + End Property + + _ + Public Property BefoerderungsmittelGrenze() As BefoerderungsmittelEVTyp + Get + Return Me._befoerderungsmittelGrenze + End Get + Set(value As BefoerderungsmittelEVTyp) + Me._befoerderungsmittelGrenze = Value + End Set + End Property + + _ + Public Property Ladeort() As LadeortEVTyp + Get + Return Me._ladeort + End Get + Set(value As LadeortEVTyp) + Me._ladeort = Value + End Set + End Property + + _ + Public Property AusfuhrZollstelleID() As String + Get + Return Me._ausfuhrZollstelleID + End Get + Set(value As String) + Me._ausfuhrZollstelleID = Value + End Set + End Property + + _ + Public Property AusgangZollstelleID() As String + Get + Return Me._ausgangZollstelleID + End Get + Set(value As String) + Me._ausgangZollstelleID = Value + End Set + End Property + + _ + Public Property TatsaechlicheAusgangZollstelleID() As String + Get + Return Me._tatsaechlicheAusgangZollstelleID + End Get + Set(value As String) + Me._tatsaechlicheAusgangZollstelleID = Value + End Set + End Property + + _ + Public Property GeschaeftArtCode() As String + Get + Return Me._geschaeftArtCode + End Get + Set(value As String) + Me._geschaeftArtCode = Value + End Set + End Property + + _ + Public Property Rechnungspreis() As String + Get + Return Me._rechnungspreis + End Get + Set(value As String) + Me._rechnungspreis = Value + End Set + End Property + + _ + Public Property Rechnungswaehrung() As String + Get + Return Me._rechnungswaehrung + End Get + Set(value As String) + Me._rechnungswaehrung = Value + End Set + End Property + + _ + Public Property BesondererTatbestand() As List(Of String) + Get + Return Me._besondererTatbestand + End Get + Set(value As List(Of String)) + Me._besondererTatbestand = Value + End Set + End Property + + _ + Public Property Verschluss() As VerschluesseEVTyp + Get + Return Me._verschluss + End Get + Set(value As VerschluesseEVTyp) + Me._verschluss = Value + End Set + End Property + + _ + Public Property Gestellungsfrist() As FristEVTyp + Get + Return Me._gestellungsfrist + End Get + Set(value As FristEVTyp) + Me._gestellungsfrist = Value + End Set + End Property + + _ + Public Property Ausfuehrer() As AusfuehrerEVTyp + Get + Return Me._ausfuehrer + End Get + Set(value As AusfuehrerEVTyp) + Me._ausfuehrer = Value + End Set + End Property + + _ + Public Property Empfaenger() As EmpfaengerEVTyp + Get + Return Me._empfaenger + End Get + Set(value As EmpfaengerEVTyp) + Me._empfaenger = Value + End Set + End Property + + _ + Public Property Anmelder() As AnmelderEVTyp + Get + Return Me._anmelder + End Get + Set(value As AnmelderEVTyp) + Me._anmelder = Value + End Set + End Property + + _ + Public Property VertreterAnmelder() As VertreterAnmelderEVTyp + Get + Return Me._vertreterAnmelder + End Get + Set(value As VertreterAnmelderEVTyp) + Me._vertreterAnmelder = Value + End Set + End Property + + _ + Public Property SubUnternehmer() As SubunternehmerEVTyp + Get + Return Me._subUnternehmer + End Get + Set(value As SubunternehmerEVTyp) + Me._subUnternehmer = Value + End Set + End Property + + _ + Public Property VerfahrensinhaberPV() As VerfahrensinhaberPVEVTyp + Get + Return Me._verfahrensinhaberPV + End Get + Set(value As VerfahrensinhaberPVEVTyp) + Me._verfahrensinhaberPV = Value + End Set + End Property + + _ + Public Property Endverwender() As EndverwenderEVTyp + Get + Return Me._endverwender + End Get + Set(value As EndverwenderEVTyp) + Me._endverwender = Value + End Set + End Property + + _ + Public Property BefoerderungsrouteLand() As List(Of String) + Get + Return Me._befoerderungsrouteLand + End Get + Set(value As List(Of String)) + Me._befoerderungsrouteLand = Value + End Set + End Property + + _ + Public Property PassiveVeredelung() As PassiveVeredelungEVTyp + Get + Return Me._passiveVeredelung + End Get + Set(value As PassiveVeredelungEVTyp) + Me._passiveVeredelung = Value + End Set + End Property + + _ + Public Property Lieferbedingung() As LieferbedingungEVTyp + Get + Return Me._lieferbedingung + End Get + Set(value As LieferbedingungEVTyp) + Me._lieferbedingung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenVollstaendigeAusfuhranmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenVollstaendigeAusfuhranmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenVollstaendigeAusfuhranmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenVollstaendigeAusfuhranmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenVollstaendigeAusfuhranmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenVollstaendigeAusfuhranmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenVollstaendigeAusfuhranmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenVollstaendigeAusfuhranmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenVollstaendigeAusfuhranmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenVollstaendigeAusfuhranmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenVollstaendigeAusfuhranmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenVollstaendigeAusfuhranmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenVollstaendigeAusfuhranmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenVollstaendigeAusfuhranmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenVollstaendigeAusfuhranmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenVollstaendigeAusfuhranmeldungTyp) + 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 KopfDatenVollstaendigeAusfuhranmeldungTyp) 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 KopfDatenVollstaendigeAusfuhranmeldungTyp + 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 Class + + _ + Partial Public Class TransaktionExportTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionExportTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionExportTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionExportTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionExportTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionExportTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionExportTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionExportTyp + Return CType(Serializer.Deserialize(s), TransaktionExportTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionExportTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionExportTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionExportTyp) + 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 TransaktionExportTyp) 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 TransaktionExportTyp + 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 Class + + _ + Partial Public Class DatenaustauschExportTyp + +#Region "Private fields" + Private _transaktion As TransaktionExportTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionExportTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionExportTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionExportTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschExportTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschExportTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschExportTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschExportTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschExportTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschExportTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschExportTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschExportTyp + Return CType(Serializer.Deserialize(s), DatenaustauschExportTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschExportTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschExportTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschExportTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschExportTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschExportTyp) + 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 DatenaustauschExportTyp) 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 DatenaustauschExportTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/VollstaendigeAusfuhrAnmeldung_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/VollstaendigeAusfuhrAnmeldung_003.xsd new file mode 100644 index 0000000..7a187d7 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/VollstaendigeAusfuhrAnmeldung_003.xsd @@ -0,0 +1,596 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/cDakosyAES.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/cDakosyAES.vb new file mode 100644 index 0000000..b0b2f4f --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/cDakosyAES.vb @@ -0,0 +1,1202 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDakosyAES + + Property aes_Id As Integer + Property aes_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property aes_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property aes_dyaArt As String = "" + Property aes_dyaAnmID As Integer + Property aes_ANR As Object = Nothing + Property aes_MRN As Object = Nothing + Property aes_Erstellung As Date = Now + Property aes_Erstellung_SB As Object = Nothing + Property aes_LetzteBearbeitung As Date = Now + Property aes_LetzteBearbeitung_SB As Object = Nothing + Property aes_Trans_Partner As Object = Nothing + Property aes_Trans_Div1 As Object = Nothing + Property aes_Trans_Div2 As Object = Nothing + Property aes_Trans_Div3 As Object = Nothing + Property aes_Trans_Referenz As Object = Nothing + Property aes_Trans_DatumZeit As Object = Nothing + Property aes_Trans_Version As Object = Nothing + Property aes_NachrichtenSenderTIN As Object = Nothing + Property aes_NachrichtenSenderNLNR As Object = Nothing + Property aes_NachrichtenempfaengerDST As Object = Nothing + + Property aes_firma As Object = Nothing + Property aes_niederlassung As Object = Nothing + + + + Property aes_ObjectName As Object = Nothing + Property aes_ObjectAlias As Object = Nothing + Property aes_BezugsnummerVorblendung As Object = Nothing + Property aes_Bearbeiter As Object = Nothing + Property aes_AnmeldeArtAusfuhrCode As Object = Nothing + Property aes_AnmeldeArtVerfahrensCode As Object = Nothing + Property aes_AnmeldeArtUeberfuehrungCode As Object = Nothing + Property aes_Ausfuhrland As Object = Nothing + Property aes_BestimmungslandCode As Object = Nothing + Property aes_AnmeldedatumZeit As Object = Nothing + Property aes_DatumAusgang As Object = Nothing + Property aes_MassgeblichesDatum As Object = Nothing + Property aes_BesondereUmstaende As Object = Nothing + Property aes_Zahlungsweisebefoerderungskosten As Object = Nothing + Property aes_ContainerIndikator As Object = Nothing + Property aes_BeteiligteKonstellation As Object = Nothing + Property aes_AdressdatenKonstellation As Object = Nothing + Property aes_GesamtRohmasse As Object = Nothing + Property aes_RegistriernummerFremdsystem As Object = Nothing + Property aes_Vermerk As Object = Nothing + Property aes_KennnummerSendung As Object = Nothing + Property aes_AnzahlPositionen As Object = Nothing + Property aes_BewiligungsnummerAusfuhr As Object = Nothing + Property aes_BewiligungsnummerAnschreibeverfahren As Object = Nothing + Property aes_BewiligungsnummerPassiveVeredelung As Object = Nothing + Property aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer As Object = Nothing + Property aes_VerkehrszweigInland As Object = Nothing + Property aes_BefoerderungsmittelAbgangArtCode As Object = Nothing + Property aes_BefoerderungsmittelAbgangKennzeichen As Object = Nothing + Property aes_BefoerderungsmittelAbgangStaatCode As Object = Nothing + Property aes_VerkehrszweigGrenze As Object = Nothing + Property aes_BefoerderungsmittelGrenzeArtCode As Object = Nothing + Property aes_BefoerderungsmittelGrenzeKennzeichen As Object = Nothing + Property aes_BefoerderungsmittelGrenzeStaatCode As Object = Nothing + Property aes_LadeortOrtId As Object = Nothing + Property aes_LadeortStrasse As Object = Nothing + Property aes_LadeortPLZ As Object = Nothing + Property aes_LadeortOrt As Object = Nothing + Property aes_LadeortZusatz As Object = Nothing + Property aes_AusfuhrZollstelleID As Object = Nothing + Property aes_AusgangszollstelleID As Object = Nothing + Property aes_TatsaechlicheAusgangZollstelleID As Object = Nothing + Property aes_GeschaeftartCode As Object = Nothing + Property aes_Rechnungspreis As Object = Nothing + Property aes_Rechnungwaehrung As Object = Nothing + Property aes_BesondererTatbestand As Object = Nothing + Property aes_VerschlussArtCode As Object = Nothing + Property aes_VerschlussAnzahl As Object = Nothing + Property aes_VerschlussZeichen1 As Object = Nothing + Property aes_VerschlussZeichen2 As Object = Nothing + Property aes_VerschlussZeichen3 As Object = Nothing + Property aes_VerschlussZeichen4 As Object = Nothing + Property aes_VerschlussZeichen5 As Object = Nothing + Property aes_VerschlussZeichen6 As Object = Nothing + Property aes_VerschlussZeichen7 As Object = Nothing + Property aes_VerschlussZeichen8 As Object = Nothing + Property aes_VerschlussZeichen9 As Object = Nothing + Property aes_VerschlussZeichen10 As Object = Nothing + Property aes_VerschlussZeichen11 As Object = Nothing + Property aes_VerschlussZeichen12 As Object = Nothing + Property aes_GestellungsfristAnfangDatumZeit As Object = Nothing + Property aes_GestellungsfristEndeDatumZeit As Object = Nothing + Property aes_AusfuehrerTeilnehmerEORI As Object = Nothing + Property aes_AusfuehrerTeilnehmerNLNR As Object = Nothing + Property aes_AusfuehrerTeilnehmerName As Object = Nothing + Property aes_AusfuehrerTeilnehmerStrasse As Object = Nothing + Property aes_AusfuehrerTeilnehmerOrt As Object = Nothing + Property aes_AusfuehrerTeilnehmerPLZ As Object = Nothing + Property aes_AusfuehrerTeilnehmerLandCode As Object = Nothing + Property aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing + Property aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing + Property aes_AusfuehrerTeilnehmerAnsprechpartnerStellung As Object = Nothing + Property aes_AusfuehrerTeilnehmerAnsprechpartnerEmail As Object = Nothing + Property aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax As Object = Nothing + Property aes_EmpfaengerTeilnehmerEORI As Object = Nothing + Property aes_EmpfaengerTeilnehmerNLNR As Object = Nothing + Property aes_EmpfaengerTeilnehmerName As Object = Nothing + Property aes_EmpfaengerTeilnehmerStrasse As Object = Nothing + Property aes_EmpfaengerTeilnehmerOrt As Object = Nothing + Property aes_EmpfaengerTeilnehmerPLZ As Object = Nothing + Property aes_EmpfaengerTeilnehmerLandCode As Object = Nothing + Property aes_AnmelderTeilnehmerEORI As Object = Nothing + Property aes_AnmelderTeilnehmerNLNR As Object = Nothing + Property aes_AnmelderTeilnehmerName As Object = Nothing + Property aes_AnmelderTeilnehmerStrasse As Object = Nothing + Property aes_AnmelderTeilnehmerOrt As Object = Nothing + Property aes_AnmelderTeilnehmerPLZ As Object = Nothing + Property aes_AnmelderTeilnehmerLandCode As Object = Nothing + Property aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing + Property aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing + Property aes_AnmelderTeilnehmerAnsprechpartnerStellung As Object = Nothing + Property aes_AnmelderTeilnehmerAnsprechpartnerEmail As Object = Nothing + Property aes_AnmelderTeilnehmerAnsprechpartnerTelefax As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerEORI As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerNLNR As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerName As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerStrasse As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerOrt As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerPLZ As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerLandCode As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail As Object = Nothing + Property aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax As Object = Nothing + Property aes_SubunternehmerTeilnehmerEORI As Object = Nothing + Property aes_SubunternehmerTeilnehmerNLNR As Object = Nothing + Property aes_SubunternehmerTeilnehmerName As Object = Nothing + Property aes_SubunternehmerTeilnehmerStrasse As Object = Nothing + Property aes_SubunternehmerTeilnehmerOrt As Object = Nothing + Property aes_SubunternehmerTeilnehmerPLZ As Object = Nothing + Property aes_SubunternehmerTeilnehmerLandCode As Object = Nothing + Property aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing + Property aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing + Property aes_SubunternehmerTeilnehmerAnsprechpartnerStellung As Object = Nothing + Property aes_SubunternehmerTeilnehmerAnsprechpartnerEmail As Object = Nothing + Property aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax As Object = Nothing + Property aes_VerfahrensinhaberPVTeilnehmerEORI As Object = Nothing + Property aes_VerfahrensinhaberPVTeilnehmerNLNR As Object = Nothing + + Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter As Object = Nothing + Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer As Object = Nothing + Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung As Object = Nothing + Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail As Object = Nothing + Property aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax As Object = Nothing + Property aes_BefoerderungsrouteLand1 As Object = Nothing + Property aes_BefoerderungsrouteLand2 As Object = Nothing + Property aes_BefoerderungsrouteLand3 As Object = Nothing + Property aes_BefoerderungsrouteLand4 As Object = Nothing + Property aes_BefoerderungsrouteLand5 As Object = Nothing + Property aes_BefoerderungsrouteLand6 As Object = Nothing + Property aes_BefoerderungsrouteLand7 As Object = Nothing + Property aes_BefoerderungsrouteLand8 As Object = Nothing + Property aes_BefoerderungsrouteLand9 As Object = Nothing + Property aes_BefoerderungsrouteLand10 As Object = Nothing + Property aes_BefoerderungsrouteLand11 As Object = Nothing + Property aes_BefoerderungsrouteLand12 As Object = Nothing + + Property aes_LieferbedingungenCode As Object = Nothing + Property aes_LieferbedingungenText As Object = Nothing + Property aes_LieferbedingungenOrt As Object = Nothing + + Property aes_WARENPOS As New List(Of cDakosy_AES_Warenposition) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Sub New() + + End Sub + + Sub New(aes_dyaAnmID As Integer, aes_Erstellung_SB As Integer) + Me.aes_dyaAnmID = aes_dyaAnmID + Me.aes_Erstellung_SB = aes_Erstellung_SB + Me.aes_LetzteBearbeitung_SB = aes_Erstellung_SB + End Sub + + Sub New(aes_Id) + Me.aes_Id = aes_Id + LOAD() + End Sub + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Id", aes_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Status", aes_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Status_KEWILL_Equivalent", aes_Status_KEWILL_Equivalent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_dyaArt", aes_dyaArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_dyaAnmID", aes_dyaAnmID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_ANR", aes_ANR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_MRN", aes_MRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Erstellung", aes_Erstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Erstellung_SB", aes_Erstellung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LetzteBearbeitung", aes_LetzteBearbeitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LetzteBearbeitung_SB", aes_LetzteBearbeitung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_firma", aes_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_niederlassung", aes_niederlassung)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Partner", aes_Trans_Partner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Div1", aes_Trans_Div1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Div2", aes_Trans_Div2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Div3", aes_Trans_Div3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Referenz", aes_Trans_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_DatumZeit", aes_Trans_DatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Trans_Version", aes_Trans_Version)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_NachrichtenSenderTIN", aes_NachrichtenSenderTIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_NachrichtenSenderNLNR", aes_NachrichtenSenderNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_NachrichtenempfaengerDST", aes_NachrichtenempfaengerDST)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_ObjectName", aes_ObjectName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_ObjectAlias", aes_ObjectAlias)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BezugsnummerVorblendung", aes_BezugsnummerVorblendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Bearbeiter", aes_Bearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmeldeArtAusfuhrCode", aes_AnmeldeArtAusfuhrCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmeldeArtVerfahrensCode", aes_AnmeldeArtVerfahrensCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmeldeArtUeberfuehrungCode", aes_AnmeldeArtUeberfuehrungCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Ausfuhrland", aes_Ausfuhrland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BestimmungslandCode", aes_BestimmungslandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmeldedatumZeit", aes_AnmeldedatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_DatumAusgang", aes_DatumAusgang)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_MassgeblichesDatum", aes_MassgeblichesDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BesondereUmstaende", aes_BesondereUmstaende)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Zahlungsweisebefoerderungskosten", aes_Zahlungsweisebefoerderungskosten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_ContainerIndikator", aes_ContainerIndikator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BeteiligteKonstellation", aes_BeteiligteKonstellation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AdressdatenKonstellation", aes_AdressdatenKonstellation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_GesamtRohmasse", aes_GesamtRohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_RegistriernummerFremdsystem", aes_RegistriernummerFremdsystem)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Vermerk", aes_Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_KennnummerSendung", aes_KennnummerSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnzahlPositionen", aes_AnzahlPositionen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BewiligungsnummerAusfuhr", aes_BewiligungsnummerAusfuhr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BewiligungsnummerAnschreibeverfahren", aes_BewiligungsnummerAnschreibeverfahren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BewiligungsnummerPassiveVeredelung", aes_BewiligungsnummerPassiveVeredelung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer", aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerkehrszweigInland", aes_VerkehrszweigInland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelAbgangArtCode", aes_BefoerderungsmittelAbgangArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelAbgangKennzeichen", aes_BefoerderungsmittelAbgangKennzeichen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelAbgangStaatCode", aes_BefoerderungsmittelAbgangStaatCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerkehrszweigGrenze", aes_VerkehrszweigGrenze)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelGrenzeArtCode", aes_BefoerderungsmittelGrenzeArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelGrenzeKennzeichen", aes_BefoerderungsmittelGrenzeKennzeichen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsmittelGrenzeStaatCode", aes_BefoerderungsmittelGrenzeStaatCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortOrtId", aes_LadeortOrtId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortStrasse", aes_LadeortStrasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortPLZ", aes_LadeortPLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortOrt", aes_LadeortOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LadeortZusatz", aes_LadeortZusatz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuhrZollstelleID", aes_AusfuhrZollstelleID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusgangszollstelleID", aes_AusgangszollstelleID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_TatsaechlicheAusgangZollstelleID", aes_TatsaechlicheAusgangZollstelleID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_GeschaeftartCode", aes_GeschaeftartCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Rechnungspreis", aes_Rechnungspreis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Rechnungwaehrung", aes_Rechnungwaehrung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BesondererTatbestand", aes_BesondererTatbestand)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussArtCode", aes_VerschlussArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussAnzahl", aes_VerschlussAnzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen1", aes_VerschlussZeichen1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen2", aes_VerschlussZeichen2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen3", aes_VerschlussZeichen3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen4", aes_VerschlussZeichen4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen5", aes_VerschlussZeichen5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen6", aes_VerschlussZeichen6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen7", aes_VerschlussZeichen7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen8", aes_VerschlussZeichen8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen9", aes_VerschlussZeichen9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen10", aes_VerschlussZeichen10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen11", aes_VerschlussZeichen11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerschlussZeichen12", aes_VerschlussZeichen12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_GestellungsfristAnfangDatumZeit", aes_GestellungsfristAnfangDatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_GestellungsfristEndeDatumZeit", aes_GestellungsfristEndeDatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerEORI", aes_AusfuehrerTeilnehmerEORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerNLNR", aes_AusfuehrerTeilnehmerNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerName", aes_AusfuehrerTeilnehmerName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerStrasse", aes_AusfuehrerTeilnehmerStrasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerOrt", aes_AusfuehrerTeilnehmerOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerPLZ", aes_AusfuehrerTeilnehmerPLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerLandCode", aes_AusfuehrerTeilnehmerLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter", aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer", aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerStellung", aes_AusfuehrerTeilnehmerAnsprechpartnerStellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerEmail", aes_AusfuehrerTeilnehmerAnsprechpartnerEmail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax", aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerEORI", aes_EmpfaengerTeilnehmerEORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerNLNR", aes_EmpfaengerTeilnehmerNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerName", aes_EmpfaengerTeilnehmerName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerStrasse", aes_EmpfaengerTeilnehmerStrasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerOrt", aes_EmpfaengerTeilnehmerOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerPLZ", aes_EmpfaengerTeilnehmerPLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_EmpfaengerTeilnehmerLandCode", aes_EmpfaengerTeilnehmerLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerEORI", aes_AnmelderTeilnehmerEORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerNLNR", aes_AnmelderTeilnehmerNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerName", aes_AnmelderTeilnehmerName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerStrasse", aes_AnmelderTeilnehmerStrasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerOrt", aes_AnmelderTeilnehmerOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerPLZ", aes_AnmelderTeilnehmerPLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerLandCode", aes_AnmelderTeilnehmerLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter", aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer", aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerStellung", aes_AnmelderTeilnehmerAnsprechpartnerStellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerEmail", aes_AnmelderTeilnehmerAnsprechpartnerEmail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_AnmelderTeilnehmerAnsprechpartnerTelefax", aes_AnmelderTeilnehmerAnsprechpartnerTelefax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerEORI", aes_VertreterAnmelderTeilnehmerEORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerNLNR", aes_VertreterAnmelderTeilnehmerNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerName", aes_VertreterAnmelderTeilnehmerName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerStrasse", aes_VertreterAnmelderTeilnehmerStrasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerOrt", aes_VertreterAnmelderTeilnehmerOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerPLZ", aes_VertreterAnmelderTeilnehmerPLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerLandCode", aes_VertreterAnmelderTeilnehmerLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter", aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer", aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung", aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail", aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax", aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerEORI", aes_SubunternehmerTeilnehmerEORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerNLNR", aes_SubunternehmerTeilnehmerNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerName", aes_SubunternehmerTeilnehmerName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerStrasse", aes_SubunternehmerTeilnehmerStrasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerOrt", aes_SubunternehmerTeilnehmerOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerPLZ", aes_SubunternehmerTeilnehmerPLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerLandCode", aes_SubunternehmerTeilnehmerLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter", aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer", aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerStellung", aes_SubunternehmerTeilnehmerAnsprechpartnerStellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerEmail", aes_SubunternehmerTeilnehmerAnsprechpartnerEmail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax", aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerEORI", aes_VerfahrensinhaberPVTeilnehmerEORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerNLNR", aes_VerfahrensinhaberPVTeilnehmerNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax", aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand1", aes_BefoerderungsrouteLand1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand2", aes_BefoerderungsrouteLand2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand3", aes_BefoerderungsrouteLand3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand4", aes_BefoerderungsrouteLand4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand5", aes_BefoerderungsrouteLand5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand6", aes_BefoerderungsrouteLand6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand7", aes_BefoerderungsrouteLand7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand8", aes_BefoerderungsrouteLand8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand9", aes_BefoerderungsrouteLand9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand10", aes_BefoerderungsrouteLand10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand11", aes_BefoerderungsrouteLand11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_BefoerderungsrouteLand12", aes_BefoerderungsrouteLand12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LieferbedingungenCode", aes_LieferbedingungenCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LieferbedingungenText", aes_LieferbedingungenText)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_LieferbedingungenOrt", aes_LieferbedingungenOrt)) + + Return list + End Function + + Public Function UPDATE_STATUS(status) As Boolean + Me.aes_Status = status + Return Me.SAVE + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_AES WITH(updlock,serializable) WHERE aes_Id=@aes_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + aes_Id = SQL.doSQLVarListID(aes_Id, sqlstr, "FMZOLL", , list) + Return aes_Id > 0 + End Function + + Public Function SAVE_ALL() As Boolean + If Not SAVE() Then Return False + If Not SAVE_Warenposition() Then Return False + Return True + End Function + + Public Function LOAD(Optional loadALL As Boolean = True) As Boolean + Try + LOAD = False + If loadALL Then + aes_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_AES WHERE aes_Id=@aes_Id ", conn) + cmd.Parameters.AddWithValue("@aes_Id", aes_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Warenposition() + End If + LOAD = True + End If + dr.Close() + + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOAD + End Function + + + Shared Function LOADByAnmIDFull(aes_dyaAnmID As String, loadALL As Boolean) As cDakosyAES + Try + Dim AES As New cDakosyAES + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_AES WHERE aes_dyaAnmID=@aes_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@aes_dyaAnmID", aes_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In AES.getParameterList() + Dim propInfo As PropertyInfo = AES.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(AES, Nothing) + Else + propInfo.SetValue(AES, dr.Item(l.Text)) + End If + + Next + If loadALL Then + AES.LOAD_Warenposition() + End If + + dr.Close() + Return AES + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function LOADByAnmID(aes_dyaAnmID As String, loadALL As Boolean) As Boolean + Try + LOADByAnmID = False + If loadALL Then + aes_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_AES WHERE aes_dyaAnmID=@aes_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@aes_dyaAnmID", aes_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Warenposition() + End If + LOADByAnmID = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOADByAnmID + End Function + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cDakosyAES + Try + Dim AES As New cDakosyAES + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_AES WHERE aes_ObjectName=@bezugsNr ", conn) + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In AES.getParameterList() + Dim propInfo As PropertyInfo = AES.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(AES, Nothing) + Else + propInfo.SetValue(AES, dr.Item(l.Text)) + End If + + Next + If loadALL Then + AES.LOAD_Warenposition() + End If + + dr.Close() + Return AES + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function UPDATE_Status(status As Integer) As String + If aes_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Id", aes_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aes_Status", status, , True)) + aes_Status = status + + Return SQL.doSQLVarList(" UPDATE [tblDakosy_AES] SET aes_Status=@aes_Status WHERE aes_Id=@aes_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblDakosy_AES] SET " & str & " WHERE aes_Id=@aes_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_AES (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD_Warenposition() + Try + aes_WARENPOS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_AES_Warenposition WHERE aesWP_aesId=@aes_Id ", conn) + cmd.Parameters.AddWithValue("@aes_Id", Me.aes_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_AES_Warenposition() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_WarenpositionPackstuecke() + l.LOAD_WarenpositionUnterlagen() + aes_WARENPOS.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_AES_Warenposition] WHERE aesWP_aesId=" & Me.aes_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_AES_WarenpositionPackstuecke] WHERE aesWpPk_aesId=" & Me.aes_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_AES_WarenpositionUnterlagen] WHERE aesWpUl_aesId =" & Me.aes_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_Warenposition() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() And DELETE_WarenpositionUnterlagen() Then + 'jetzt die Standartofferten einfügen + For Each p In aes_WARENPOS + p.aesWP_AESId = aes_Id + If p.INSERT() Then + p.INSERT_WarenpositionPackstuecke(p.aesWP_Id, Me.aes_Id) + p.INSERT_WarenpositionUnterlagen(p.aesWP_Id, Me.aes_Id) + Else + Return False + End If + Next + Else + Return False + End If + + Return True + End Function + + + + Function countSpedbuchEntrys(filiale, AES) As Integer + If If(AES, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrAES='" & AES & "'", "FMZOLL") + End Function + + Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean + Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + If If(Me.aes_firma, "") = "IMEX" Then + If countSpedbuchEntrys(5501, Me.AES_ObjectName) = 0 Then + SPEDBUCH.FilialenNr = 5501 + SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) + SPEDBUCH.NewUNTER_NR() + + SPEDBUCH.AtlasBezNrNCTS = Me.aes_ObjectName + SPEDBUCH.Zollsystem = "D" + + Dim notfound = False + DakosyAESDatenbereitstellung(SPEDBUCH, Me.AES_ObjectName, notfound) + + If Not notfound Then + Return SPEDBUCH.SAVE + Else + Return False + End If + End If + + If DY.dy_SendungsId IsNot Nothing Then + + Else + Return False 'Ohne Sendungsverweis kein eintrag... + End If + + Return SPEDBUCH.SAVE + Else + If False Then 'NOCH NCIHT.... + + If DY.dy_SendungsId IsNot Nothing Then + + Else + Return False 'Ohne Sendungsverweis kein eintrag... + End If + + Return SPEDBUCH.SAVE + End If + End If + Return False + + End Function + + + Public Shared Sub DakosyAESDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, AES_Nr As String, ByVal notFound As Boolean) + Dim DY As DAKOSY_Worker.cDakosyAES = DAKOSY_Worker.cDakosyAES.LOADByBezugsNr(AES_Nr, True) + If DY Is Nothing Then + notFound = True + Exit Sub + End If + DakosyAESDatenbereitstellung(SPEDITIONSBUCH, DY, notFound) + End Sub + + Public Shared Sub DakosyAESDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyAES, ByVal notFound As Boolean) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + notFound = False + + If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = CDate(DY.aes_Trans_DatumZeit).ToShortDateString + + ' SPEDITIONSBUCH.Bestimmungszollstelle = DY.AES_BestimmungsstelleDienststellennummer + SPEDITIONSBUCH.Versendungsland = DY.aes_AusfuehrerTeilnehmerLandCode + SPEDITIONSBUCH.Bestimmungsland = DY.AES_BestimmungslandCode + + + 'SPEDITIONSBUCH.Abfertigungsdatum= + + SPEDITIONSBUCH.BelegNr = DY.AES_MRN + SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.aes_BefoerderungsmittelAbgangKennzeichen, "") + + If If(DY.aes_AusfuehrerTeilnehmerName, "") <> "" Then + SPEDITIONSBUCH.Absender = If(DY.aes_AusfuehrerTeilnehmerName, "") + SPEDITIONSBUCH.Absender &= ", " & If(DY.aes_AusfuehrerTeilnehmerStrasse, "") + SPEDITIONSBUCH.Absender &= " " & If(DY.aes_AusfuehrerTeilnehmerPLZ, "") + SPEDITIONSBUCH.Absender &= " " & If(DY.aes_AusfuehrerTeilnehmerOrt, "") + If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= " " & If(DY.aes_AusfuehrerTeilnehmerEORI, "") + End If + + + + Dim packSt = "" + 'If DY.pac IsNot Nothing Then packSt = DY.AES_GesamtAnzahlPackstuecke & " Pk. " + + If DY.AES_WARENPOS.Count > 0 Then + 'SPEDITIONSBUCH.Währungsschlüssel = If(DY.AES_WARENPOS(0).AESWP_WarenwertWaehrung, "") + SPEDITIONSBUCH.Währungsschlüssel = "900" + If DY.AES_GesamtRohmasse IsNot Nothing Then packSt &= If(DY.AES_WARENPOS(0).AESWP_Warenbezeichnung, "") + + Dim sumBrg As Double = 0 + For Each S In DY.AES_WARENPOS + sumBrg += If(S.aesWP_Wert, 0) + Next + If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg + End If + + If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim + + If DY.AES_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.AES_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.AES_GesamtRohmasse) 'CDbl(DY.AES_GesamtRohmasse).ToString("N2") + 'Personal Abfertigung: + Try + If DY.AES_Bearbeiter IsNot Nothing Then + Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.AES_Bearbeiter & "'", "ADMIN") + SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) + End If + Catch ex As Exception + MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + End Try + + End Sub + + +End Class + + + + +Public Class cDakosy_AES_Warenposition + + Property aesWP_Id As Integer + Property aesWP_AESId As Integer + Property aesWP_PositionsNummer As Object = Nothing + Property aesWP_WarennummerKN8 As Object = Nothing + Property aesWP_WarennummerTARIC As Object = Nothing + Property aesWP_WarennummerZusatz1 As Object = Nothing + Property aesWP_WarennummerZusatz2 As Object = Nothing + Property aesWP_WarennummerNational As Object = Nothing + + Property aesWP_Warenbezeichnung As Object = Nothing + Property aesWP_RegisternummerFremdsystem As Object = Nothing + Property aesWP_Vermerk As Object = Nothing + + Property aesWP_KennungSendung As Object = Nothing + Property aesWP_UrsprungsbundeslandCode As Object = Nothing + Property aesWP_Eigenmasse As Object = Nothing + Property aesWP_Rohmasse As Object = Nothing + Property aesWP_Gefahrgutnummer As Object = Nothing + Property aesWP_ZahlungsweiseBefoerderungskosten As Object = Nothing + Property aesWP_VerfahrenAngemeldetCode As Object = Nothing + Property aesWP_VerfahrenVorangegangenCode As Object = Nothing + Property aesWP_VerfahrenNationalCode As Object = Nothing + + Property aesWP_AusfuhrerstattungVerfahrensCode As Object = Nothing + Property aesWP_Menge As Object = Nothing + Property aesWP_Wert As Object = Nothing + Property aesWP_VorpapierTypCode1 As Object = Nothing + Property aesWP_ReferenzID1 As Object = Nothing + Property aesWP_Zusatz1 As Object = Nothing + Property aesWP_VorpapierTypCode2 As Object = Nothing + Property aesWP_ReferenzID2 As Object = Nothing + Property aesWP_Zusatz2 As Object = Nothing + Property aesWP_VorpapierTypCode3 As Object = Nothing + Property aesWP_ReferenzID3 As Object = Nothing + Property aesWP_Zusatz3 As Object = Nothing + Property aesWP_VorpapierTypCode4 As Object = Nothing + Property aesWP_ReferenzID4 As Object = Nothing + Property aesWP_Zusatz4 As Object = Nothing + Property aesWP_VorpapierTypCode5 As Object = Nothing + Property aesWP_ReferenzID5 As Object = Nothing + Property aesWP_Zusatz5 As Object = Nothing + Property aesWP_VorpapierTypCode6 As Object = Nothing + Property aesWP_ReferenzID6 As Object = Nothing + Property aesWP_Zusatz6 As Object = Nothing + Property aesWP_VorpapierTypCode7 As Object = Nothing + Property aesWP_ReferenzID7 As Object = Nothing + Property aesWP_Zusatz7 As Object = Nothing + Property aesWP_VorpapierTypCode8 As Object = Nothing + Property aesWP_ReferenzID8 As Object = Nothing + Property aesWP_Zusatz8 As Object = Nothing + Property aesWP_VorpapierTypCode9 As Object = Nothing + Property aesWP_ReferenzID9 As Object = Nothing + Property aesWP_Zusatz9 As Object = Nothing + Property aesWP_Containernummer1 As Object = Nothing + Property aesWP_Containernummer2 As Object = Nothing + Property aesWP_Containernummer3 As Object = Nothing + Property aesWP_Containernummer4 As Object = Nothing + + Property aesWP_EmpfaengerTeilnehmerEORI As Object = Nothing + Property aesWP_EmpfaengerTeilnehmerNLNR As Object = Nothing + Property aesWP_EmpfaengerTeilnehmerName As Object = Nothing + Property aesWP_EmpfaengerTeilnehmerStrasse As Object = Nothing + Property aesWP_EmpfaengerTeilnehmerOrt As Object = Nothing + Property aesWP_EmpfaengerTeilnehmerPLZ As Object = Nothing + Property aesWP_EmpfaengerTeilnehmerLandCode As Object = Nothing + + + + Property aesWP_PACKSTUECKE As New List(Of cDakosy_AES_WarenpositionPackstuecke) + Property aesWP_UNTERLAGEN As New List(Of cDakosy_AES_WarenpositionUnterlagen) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.aesWP_aesId = aesWP_aesId + End Sub + + 'Sub New(aesSA_Id) + ' Me.aesSA_Id = aesSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Id", aesWP_Id, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_AESId", aesWP_AESId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_PositionsNummer", aesWP_PositionsNummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerKN8", aesWP_WarennummerKN8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerTARIC", aesWP_WarennummerTARIC)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerZusatz1", aesWP_WarennummerZusatz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerZusatz2", aesWP_WarennummerZusatz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_WarennummerNational", aesWP_WarennummerNational)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Warenbezeichnung", aesWP_Warenbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_RegisternummerFremdsystem", aesWP_RegisternummerFremdsystem)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Vermerk", aesWP_Vermerk)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_KennungSendung", aesWP_KennungSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_UrsprungsbundeslandCode", aesWP_UrsprungsbundeslandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Eigenmasse", aesWP_Eigenmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Rohmasse", aesWP_Rohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Gefahrgutnummer", aesWP_Gefahrgutnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ZahlungsweiseBefoerderungskosten", aesWP_ZahlungsweiseBefoerderungskosten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VerfahrenAngemeldetCode", aesWP_VerfahrenAngemeldetCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VerfahrenVorangegangenCode", aesWP_VerfahrenVorangegangenCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VerfahrenNationalCode", aesWP_VerfahrenNationalCode)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_AusfuhrerstattungVerfahrensCode", aesWP_AusfuhrerstattungVerfahrensCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Menge", aesWP_Menge)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Wert", aesWP_Wert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode1", aesWP_VorpapierTypCode1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID1", aesWP_ReferenzID1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz1", aesWP_Zusatz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode2", aesWP_VorpapierTypCode2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID2", aesWP_ReferenzID2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz2", aesWP_Zusatz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode3", aesWP_VorpapierTypCode3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID3", aesWP_ReferenzID3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz3", aesWP_Zusatz3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode4", aesWP_VorpapierTypCode4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID4", aesWP_ReferenzID4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz4", aesWP_Zusatz4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode5", aesWP_VorpapierTypCode5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID5", aesWP_ReferenzID5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz5", aesWP_Zusatz5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode6", aesWP_VorpapierTypCode6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID6", aesWP_ReferenzID6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz6", aesWP_Zusatz6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode7", aesWP_VorpapierTypCode7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID7", aesWP_ReferenzID7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz7", aesWP_Zusatz7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode8", aesWP_VorpapierTypCode8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID8", aesWP_ReferenzID8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz8", aesWP_Zusatz8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_VorpapierTypCode9", aesWP_VorpapierTypCode9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_ReferenzID9", aesWP_ReferenzID9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Zusatz9", aesWP_Zusatz9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Containernummer1", aesWP_Containernummer1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Containernummer2", aesWP_Containernummer2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Containernummer3", aesWP_Containernummer3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_Containernummer4", aesWP_Containernummer4)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerEORI", aesWP_EmpfaengerTeilnehmerEORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerNLNR", aesWP_EmpfaengerTeilnehmerNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerName", aesWP_EmpfaengerTeilnehmerName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerStrasse", aesWP_EmpfaengerTeilnehmerStrasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerOrt", aesWP_EmpfaengerTeilnehmerOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerPLZ", aesWP_EmpfaengerTeilnehmerPLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWP_EmpfaengerTeilnehmerLandCode", aesWP_EmpfaengerTeilnehmerLandCode)) + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + aesWP_Id = SQL.doSQLVarListID(aesWP_Id, getInsertCmd, "FMZOLL", , list) + Return aesWP_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_AES_Warenposition (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + + Public Sub LOAD_WarenpositionPackstuecke() + Try + aesWP_PACKSTUECKE.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_AES_WarenpositionPackstuecke WHERE aesWpPk_aesWPId=@aesWP_Id ", conn) + cmd.Parameters.AddWithValue("@aesWP_Id", Me.aesWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_AES_WarenpositionPackstuecke() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + aesWP_PACKSTUECKE.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_AES_WarenpositionPackstuecke] WHERE aesWpPk_aesWPId=" & Me.aesWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionPackstuecke(wp_id, aes_Id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In aesWP_PACKSTUECKE + p.aesWpPk_aesWPId = wp_id + p.aesWpPk_aesId = aes_Id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + Public Sub LOAD_WarenpositionUnterlagen() + Try + aesWP_UNTERLAGEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_AES_WarenpositionUnterlagen WHERE aesWpUl_aesWPId=@aesWP_Id ", conn) + cmd.Parameters.AddWithValue("@aesWP_Id", Me.aesWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_AES_WarenpositionUnterlagen + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + aesWP_UNTERLAGEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_AES_WarenpositionUnterlagen] WHERE aesWpUl_aesWPId=" & Me.aesWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionUnterlagen(wp_id, aes_Id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In aesWP_UNTERLAGEN + p.aesWpUl_aesWPId = wp_id + p.aesWpUl_aesId = aes_Id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + +End Class + + + +Public Class cDakosy_AES_WarenpositionPackstuecke + + Property aesWpPk_Id As Integer + Property aesWpPk_aesWPId As Integer + Property aesWpPk_aesId As Integer + + Property aesWpPk_PackstueckeAnzahl As Object = Nothing + Property aesWpPk_Verpackungsart As Object = Nothing + Property aesWpPk_Kennzeichnung As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.aesWpPk_aesWPId = aesWpPk_aesWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_Id", aesWpPk_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_aesWPId", aesWpPk_aesWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_aesId", aesWpPk_aesId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_PackstueckeAnzahl", aesWpPk_PackstueckeAnzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_Verpackungsart", aesWpPk_Verpackungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpPk_Kennzeichnung", aesWpPk_Kennzeichnung)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + aesWpPk_Id = SQL.doSQLVarListID(aesWpPk_Id, getInsertCmd(), "FMZOLL", , list) + Return aesWpPk_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_AES_WarenpositionPackstuecke (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + +Public Class cDakosy_AES_WarenpositionUnterlagen + + Property aesWpUl_Id As Integer + Property aesWpUl_aesWPId As Integer + Property aesWpUl_aesId As Integer + Property aesWpUl_Typ As Object = Nothing + Property aesWpUl_QualifierCode As Object = Nothing + Property aesWpUl_ReferenzID As Object = Nothing + Property aesWpUl_Zusatz As Object = Nothing + Property aesWpUl_Detail As Object = Nothing + Property aesWpUl_DatumAusstellung As Object = Nothing + Property aesWpUl_DatumEndeGueltigkeit As Object = Nothing + Property aesWpUl_Wert As Object = Nothing + Property aesWpUl_Abschreibungsmenge As Object = Nothing + Property aesWpUl_Masseinheit As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.aesWpUl_aesWPId = aesWpUl_aesWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Id", aesWpUl_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_aesWPId", aesWpUl_aesWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_aesId", aesWpUl_aesId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Typ", aesWpUl_Typ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_QualifierCode", aesWpUl_QualifierCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_ReferenzID", aesWpUl_ReferenzID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Zusatz", aesWpUl_Zusatz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Detail", aesWpUl_Detail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_DatumAusstellung", aesWpUl_DatumAusstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_DatumEndeGueltigkeit", aesWpUl_DatumEndeGueltigkeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Wert", aesWpUl_Wert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Abschreibungsmenge", aesWpUl_Abschreibungsmenge)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aesWpUl_Masseinheit", aesWpUl_Masseinheit)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + aesWpUl_Id = SQL.doSQLVarListID(aesWpUl_Id, getInsertCmd(), "FMZOLL", , list) + Return aesWpUl_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_AES_WarenpositionUnterlagen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat.Designer.vb new file mode 100644 index 0000000..38c7642 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat.Designer.vb @@ -0,0 +1,17409 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' DEXPDDListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace DEXPDD + + _ + Partial Public Class DEXPDD + +#Region "Private fields" + Private _interchangeSender As DEXPDDInterchangeSender + + Private _interchangeRecipient As DEXPDDInterchangeRecipient + + Private _preparation As DEXPDDPreparation + + Private _interchangeControlReference As String + + Private _messageGroup As DEXPDDMessageGroup + + Private _messageReferenceNumber As String + + Private _messageType As DEXPDDMessageType + + Private _messageIdentifier As String + + Private _header As DEXPDDHeader + + Private _goodsLoadingPlace As DEXPDDGoodsLoadingPlace + + Private _exportCustomsOffice As DEXPDDExportCustomsOffice + + Private _supplementaryDeclarationCustomsOffice As DEXPDDSupplementaryDeclarationCustomsOffice + + Private _intendedExitCustomsOffice As DEXPDDIntendedExitCustomsOffice + + Private _actualExitCustomsOffice As DEXPDDActualExitCustomsOffice + + Private _transaction As DEXPDDTransaction + + Private _specialFact As List(Of DEXPDDSpecialFact) + + Private _itinerary As List(Of DEXPDDItinerary) + + Private _seals As DEXPDDSeals + + Private _presentationPackingLoading As DEXPDDPresentationPackingLoading + + Private _exporter As DEXPDDExporter + + Private _declarant As DEXPDDDeclarant + + Private _representative As DEXPDDRepresentative + + Private _contractor As DEXPDDContractor + + Private _outwardProcessingOwner As DEXPDDOutwardProcessingOwner + + Private _consignee As DEXPDDConsignee + + Private _deliveryTerms As DEXPDDDeliveryTerms + + Private _outwardProcessing As DEXPDDOutwardProcessing + + Private _goodsItem As List(Of DEXPDDGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPDDGoodsItem)() + Me._outwardProcessing = New DEXPDDOutwardProcessing() + Me._deliveryTerms = New DEXPDDDeliveryTerms() + Me._consignee = New DEXPDDConsignee() + Me._outwardProcessingOwner = New DEXPDDOutwardProcessingOwner() + Me._contractor = New DEXPDDContractor() + Me._representative = New DEXPDDRepresentative() + Me._declarant = New DEXPDDDeclarant() + Me._exporter = New DEXPDDExporter() + Me._presentationPackingLoading = New DEXPDDPresentationPackingLoading() + Me._seals = New DEXPDDSeals() + Me._itinerary = New List(Of DEXPDDItinerary)() + Me._specialFact = New List(Of DEXPDDSpecialFact)() + Me._transaction = New DEXPDDTransaction() + Me._actualExitCustomsOffice = New DEXPDDActualExitCustomsOffice() + Me._intendedExitCustomsOffice = New DEXPDDIntendedExitCustomsOffice() + Me._supplementaryDeclarationCustomsOffice = New DEXPDDSupplementaryDeclarationCustomsOffice() + Me._exportCustomsOffice = New DEXPDDExportCustomsOffice() + Me._goodsLoadingPlace = New DEXPDDGoodsLoadingPlace() + Me._header = New DEXPDDHeader() + Me._preparation = New DEXPDDPreparation() + Me._interchangeRecipient = New DEXPDDInterchangeRecipient() + Me._interchangeSender = New DEXPDDInterchangeSender() + End Sub + + Public Property InterchangeSender() As DEXPDDInterchangeSender + Get + Return Me._interchangeSender + End Get + Set(value As DEXPDDInterchangeSender) + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As DEXPDDInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set(value As DEXPDDInterchangeRecipient) + Me._interchangeRecipient = Value + End Set + End Property + + Public Property Preparation() As DEXPDDPreparation + Get + Return Me._preparation + End Get + Set(value As DEXPDDPreparation) + Me._preparation = Value + End Set + End Property + + _ + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set(value As String) + Me._interchangeControlReference = Value + End Set + End Property + + Public Property MessageGroup() As DEXPDDMessageGroup + Get + Return Me._messageGroup + End Get + Set(value As DEXPDDMessageGroup) + Me._messageGroup = Value + End Set + End Property + + _ + Public Property MessageReferenceNumber() As String + Get + Return Me._messageReferenceNumber + End Get + Set(value As String) + Me._messageReferenceNumber = Value + End Set + End Property + + Public Property MessageType() As DEXPDDMessageType + Get + Return Me._messageType + End Get + Set(value As DEXPDDMessageType) + Me._messageType = Value + End Set + End Property + + _ + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set(value As String) + Me._messageIdentifier = Value + End Set + End Property + + Public Property Header() As DEXPDDHeader + Get + Return Me._header + End Get + Set(value As DEXPDDHeader) + Me._header = Value + End Set + End Property + + _ + Public Property GoodsLoadingPlace() As DEXPDDGoodsLoadingPlace + Get + Return Me._goodsLoadingPlace + End Get + Set(value As DEXPDDGoodsLoadingPlace) + Me._goodsLoadingPlace = Value + End Set + End Property + + Public Property ExportCustomsOffice() As DEXPDDExportCustomsOffice + Get + Return Me._exportCustomsOffice + End Get + Set(value As DEXPDDExportCustomsOffice) + Me._exportCustomsOffice = Value + End Set + End Property + + Public Property SupplementaryDeclarationCustomsOffice() As DEXPDDSupplementaryDeclarationCustomsOffice + Get + Return Me._supplementaryDeclarationCustomsOffice + End Get + Set(value As DEXPDDSupplementaryDeclarationCustomsOffice) + Me._supplementaryDeclarationCustomsOffice = Value + End Set + End Property + + Public Property IntendedExitCustomsOffice() As DEXPDDIntendedExitCustomsOffice + Get + Return Me._intendedExitCustomsOffice + End Get + Set(value As DEXPDDIntendedExitCustomsOffice) + Me._intendedExitCustomsOffice = Value + End Set + End Property + + Public Property ActualExitCustomsOffice() As DEXPDDActualExitCustomsOffice + Get + Return Me._actualExitCustomsOffice + End Get + Set(value As DEXPDDActualExitCustomsOffice) + Me._actualExitCustomsOffice = Value + End Set + End Property + + Public Property Transaction() As DEXPDDTransaction + Get + Return Me._transaction + End Get + Set(value As DEXPDDTransaction) + Me._transaction = Value + End Set + End Property + + _ + Public Property SpecialFact() As List(Of DEXPDDSpecialFact) + Get + Return Me._specialFact + End Get + Set(value As List(Of DEXPDDSpecialFact)) + Me._specialFact = Value + End Set + End Property + + _ + Public Property Itinerary() As List(Of DEXPDDItinerary) + Get + Return Me._itinerary + End Get + Set(value As List(Of DEXPDDItinerary)) + Me._itinerary = Value + End Set + End Property + + Public Property Seals() As DEXPDDSeals + Get + Return Me._seals + End Get + Set(value As DEXPDDSeals) + Me._seals = Value + End Set + End Property + + Public Property PresentationPackingLoading() As DEXPDDPresentationPackingLoading + Get + Return Me._presentationPackingLoading + End Get + Set(value As DEXPDDPresentationPackingLoading) + Me._presentationPackingLoading = Value + End Set + End Property + + Public Property Exporter() As DEXPDDExporter + Get + Return Me._exporter + End Get + Set(value As DEXPDDExporter) + Me._exporter = Value + End Set + End Property + + Public Property Declarant() As DEXPDDDeclarant + Get + Return Me._declarant + End Get + Set(value As DEXPDDDeclarant) + Me._declarant = Value + End Set + End Property + + Public Property Representative() As DEXPDDRepresentative + Get + Return Me._representative + End Get + Set(value As DEXPDDRepresentative) + Me._representative = Value + End Set + End Property + + Public Property Contractor() As DEXPDDContractor + Get + Return Me._contractor + End Get + Set(value As DEXPDDContractor) + Me._contractor = Value + End Set + End Property + + Public Property OutwardProcessingOwner() As DEXPDDOutwardProcessingOwner + Get + Return Me._outwardProcessingOwner + End Get + Set(value As DEXPDDOutwardProcessingOwner) + Me._outwardProcessingOwner = Value + End Set + End Property + + Public Property Consignee() As DEXPDDConsignee + Get + Return Me._consignee + End Get + Set(value As DEXPDDConsignee) + Me._consignee = Value + End Set + End Property + + Public Property DeliveryTerms() As DEXPDDDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set(value As DEXPDDDeliveryTerms) + Me._deliveryTerms = Value + End Set + End Property + + Public Property OutwardProcessing() As DEXPDDOutwardProcessing + Get + Return Me._outwardProcessing + End Get + Set(value As DEXPDDOutwardProcessing) + Me._outwardProcessing = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPDDGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPDDGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDD)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDD object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDD object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDD object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDD, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDD) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDD) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDD + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDD) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDD + Return CType(Serializer.Deserialize(s), DEXPDD) + End Function +#End Region + + ''' + ''' Serializes current DEXPDD object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDD object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDD object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDD, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDD) + 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 DEXPDD) 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 DEXPDD + 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 Class + + _ + Partial Public Class DEXPDDInterchangeSender + +#Region "Private fields" + Private _identification As DEXPDDInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPDDInterchangeSenderIdentification() + End Sub + + Public Property Identification() As DEXPDDInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDInterchangeSenderIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDInterchangeSender + Return CType(Serializer.Deserialize(s), DEXPDDInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDInterchangeSender) + 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 DEXPDDInterchangeSender) 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 DEXPDDInterchangeSender + 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 Class + + _ + Partial Public Class DEXPDDInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), DEXPDDInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDInterchangeSenderIdentification) + 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 DEXPDDInterchangeSenderIdentification) 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 DEXPDDInterchangeSenderIdentification + 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 Class + + _ + Partial Public Class DEXPDDInterchangeRecipient + +#Region "Private fields" + Private _identification As DEXPDDInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPDDInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As DEXPDDInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDInterchangeRecipientIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDInterchangeRecipient + Return CType(Serializer.Deserialize(s), DEXPDDInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDInterchangeRecipient) + 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 DEXPDDInterchangeRecipient) 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 DEXPDDInterchangeRecipient + 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 Class + + _ + Partial Public Class DEXPDDInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), DEXPDDInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDInterchangeRecipientIdentification) + 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 DEXPDDInterchangeRecipientIdentification) 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 DEXPDDInterchangeRecipientIdentification + 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 Class + + _ + Partial Public Class DEXPDDPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set(value As Date) + Me._date = Value + End Set + End Property + + _ + Public Property Time() As Date + Get + Return Me._time + End Get + Set(value As Date) + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDPreparation + Return CType(Serializer.Deserialize(s), DEXPDDPreparation) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDPreparation) + 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 DEXPDDPreparation) 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 DEXPDDPreparation + 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 Class + + _ + Public Enum DEXPDDMessageGroup + + ''' + EXP + End Enum + + _ + Public Enum DEXPDDMessageType + + ''' + DEXPDD + End Enum + + _ + Partial Public Class DEXPDDHeader + +#Region "Private fields" + Private _declaration As DEXPDDHeaderDeclaration + + Private _movementReferenceNumber As String + + Private _messageVersion As String + + Private _exportCountry As String + + Private _destinationCountry As String + + Private _declarationDateTime As Date + + Private _decisiveDate As Date + + Private _exitDate As Date + + Private _specificCircumstanceIndicator As String + + Private _transportChargesPaymentMethod As String + + Private _partyConstellation As DEXPDDHeaderPartyConstellation + + Private _containerFlag As DEXPDDHeaderContainerFlag + + Private _totalGrossMassMeasure As Decimal + + Private _registrationNumber As String + + Private _annotation As String + + Private _commercialReferenceNumber As String + + Private _localReferenceNumber As String + + Private _goodsItemQuantity As String + + Private _authorizationNumber As String + + Private _customsAuthorization As DEXPDDHeaderCustomsAuthorization + + Private _inlandTransportMeans As DEXPDDHeaderInlandTransportMeans + + Private _departureTransportMeans As DEXPDDHeaderDepartureTransportMeans + + Private _borderTransportMeans As DEXPDDHeaderBorderTransportMeans + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._borderTransportMeans = New DEXPDDHeaderBorderTransportMeans() + Me._departureTransportMeans = New DEXPDDHeaderDepartureTransportMeans() + Me._inlandTransportMeans = New DEXPDDHeaderInlandTransportMeans() + Me._customsAuthorization = New DEXPDDHeaderCustomsAuthorization() + Me._declaration = New DEXPDDHeaderDeclaration() + End Sub + + Public Property Declaration() As DEXPDDHeaderDeclaration + Get + Return Me._declaration + End Get + Set(value As DEXPDDHeaderDeclaration) + Me._declaration = Value + End Set + End Property + + _ + Public Property MovementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set(value As String) + Me._movementReferenceNumber = Value + End Set + End Property + + _ + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set(value As String) + Me._messageVersion = Value + End Set + End Property + + _ + Public Property ExportCountry() As String + Get + Return Me._exportCountry + End Get + Set(value As String) + Me._exportCountry = Value + End Set + End Property + + _ + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set(value As String) + Me._destinationCountry = Value + End Set + End Property + + Public Property DeclarationDateTime() As Date + Get + Return Me._declarationDateTime + End Get + Set(value As Date) + Me._declarationDateTime = Value + End Set + End Property + + _ + Public Property DecisiveDate() As Date + Get + Return Me._decisiveDate + End Get + Set(value As Date) + Me._decisiveDate = Value + End Set + End Property + + _ + Public Property ExitDate() As Date + Get + Return Me._exitDate + End Get + Set(value As Date) + Me._exitDate = Value + End Set + End Property + + _ + Public Property SpecificCircumstanceIndicator() As String + Get + Return Me._specificCircumstanceIndicator + End Get + Set(value As String) + Me._specificCircumstanceIndicator = Value + End Set + End Property + + _ + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set(value As String) + Me._transportChargesPaymentMethod = Value + End Set + End Property + + Public Property PartyConstellation() As DEXPDDHeaderPartyConstellation + Get + Return Me._partyConstellation + End Get + Set(value As DEXPDDHeaderPartyConstellation) + Me._partyConstellation = Value + End Set + End Property + + Public Property ContainerFlag() As DEXPDDHeaderContainerFlag + Get + Return Me._containerFlag + End Get + Set(value As DEXPDDHeaderContainerFlag) + Me._containerFlag = Value + End Set + End Property + + Public Property TotalGrossMassMeasure() As Decimal + Get + Return Me._totalGrossMassMeasure + End Get + Set(value As Decimal) + Me._totalGrossMassMeasure = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property Annotation() As String + Get + Return Me._annotation + End Get + Set(value As String) + Me._annotation = Value + End Set + End Property + + _ + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set(value As String) + Me._commercialReferenceNumber = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + _ + Public Property AuthorizationNumber() As String + Get + Return Me._authorizationNumber + End Get + Set(value As String) + Me._authorizationNumber = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPDDHeaderCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPDDHeaderCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + Public Property InlandTransportMeans() As DEXPDDHeaderInlandTransportMeans + Get + Return Me._inlandTransportMeans + End Get + Set(value As DEXPDDHeaderInlandTransportMeans) + Me._inlandTransportMeans = Value + End Set + End Property + + Public Property DepartureTransportMeans() As DEXPDDHeaderDepartureTransportMeans + Get + Return Me._departureTransportMeans + End Get + Set(value As DEXPDDHeaderDepartureTransportMeans) + Me._departureTransportMeans = Value + End Set + End Property + + Public Property BorderTransportMeans() As DEXPDDHeaderBorderTransportMeans + Get + Return Me._borderTransportMeans + End Get + Set(value As DEXPDDHeaderBorderTransportMeans) + Me._borderTransportMeans = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDHeader object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeader + Return CType(Serializer.Deserialize(s), DEXPDDHeader) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDHeader object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeader) + 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 DEXPDDHeader) 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 DEXPDDHeader + 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 Class + + _ + Partial Public Class DEXPDDHeaderDeclaration + +#Region "Private fields" + Private _type As String + + Private _procedure As String + + Private _variant As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property Procedure() As String + Get + Return Me._procedure + End Get + Set(value As String) + Me._procedure = Value + End Set + End Property + + _ + Public Property [Variant]() As String + Get + Return Me._variant + End Get + Set(value As String) + Me._variant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDHeaderDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDHeaderDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDHeaderDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderDeclaration + Return CType(Serializer.Deserialize(s), DEXPDDHeaderDeclaration) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDHeaderDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDHeaderDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderDeclaration) + 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 DEXPDDHeaderDeclaration) 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 DEXPDDHeaderDeclaration + 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 Class + + _ + Public Enum DEXPDDHeaderPartyConstellation + + ''' + _ + Item0000 + + ''' + _ + Item0001 + + ''' + _ + Item0003 + + ''' + _ + Item0010 + + ''' + _ + Item0011 + + ''' + _ + Item0013 + + ''' + _ + Item0100 + + ''' + _ + Item0101 + + ''' + _ + Item0103 + + ''' + _ + Item0110 + + ''' + _ + Item0111 + + ''' + _ + Item0113 + + ''' + _ + Item1000 + + ''' + _ + Item1001 + + ''' + _ + Item1002 + + ''' + _ + Item1003 + + ''' + _ + Item1010 + + ''' + _ + Item1011 + + ''' + _ + Item1012 + + ''' + _ + Item1013 + + ''' + _ + Item1100 + + ''' + _ + Item1101 + + ''' + _ + Item1102 + + ''' + _ + Item1103 + + ''' + _ + Item1110 + + ''' + _ + Item1111 + + ''' + _ + Item1112 + + ''' + _ + Item1113 + End Enum + + _ + Public Enum DEXPDDHeaderContainerFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPDDHeaderCustomsAuthorization + +#Region "Private fields" + Private _localClearanceOutwardProcessing As String + + Private _outwardProcessing As String + + Private _trustedExporter As String + + Private _accreditedExporter As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property LocalClearanceOutwardProcessing() As String + Get + Return Me._localClearanceOutwardProcessing + End Get + Set(value As String) + Me._localClearanceOutwardProcessing = Value + End Set + End Property + + _ + Public Property OutwardProcessing() As String + Get + Return Me._outwardProcessing + End Get + Set(value As String) + Me._outwardProcessing = Value + End Set + End Property + + _ + Public Property TrustedExporter() As String + Get + Return Me._trustedExporter + End Get + Set(value As String) + Me._trustedExporter = Value + End Set + End Property + + _ + Public Property AccreditedExporter() As String + Get + Return Me._accreditedExporter + End Get + Set(value As String) + Me._accreditedExporter = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDHeaderCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDHeaderCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDHeaderCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDHeaderCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPDDHeaderCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDHeaderCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDHeaderCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDHeaderCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderCustomsAuthorization) + 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 DEXPDDHeaderCustomsAuthorization) 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 DEXPDDHeaderCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPDDHeaderInlandTransportMeans + +#Region "Private fields" + Private _mode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Mode() As String + Get + Return Me._mode + End Get + Set(value As String) + Me._mode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderInlandTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDHeaderInlandTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDHeaderInlandTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDHeaderInlandTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderInlandTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderInlandTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDHeaderInlandTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderInlandTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderInlandTransportMeans + Return CType(Serializer.Deserialize(s), DEXPDDHeaderInlandTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDHeaderInlandTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDHeaderInlandTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDHeaderInlandTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderInlandTransportMeans) + 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 DEXPDDHeaderInlandTransportMeans) 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 DEXPDDHeaderInlandTransportMeans + 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 Class + + _ + Partial Public Class DEXPDDHeaderDepartureTransportMeans + +#Region "Private fields" + Private _type As DEXPDDHeaderDepartureTransportMeansType + + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPDDHeaderDepartureTransportMeansType + Get + Return Me._type + End Get + Set(value As DEXPDDHeaderDepartureTransportMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + _ + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set(value As String) + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderDepartureTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDHeaderDepartureTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDHeaderDepartureTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDHeaderDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderDepartureTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderDepartureTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDHeaderDepartureTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderDepartureTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderDepartureTransportMeans + Return CType(Serializer.Deserialize(s), DEXPDDHeaderDepartureTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDHeaderDepartureTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDHeaderDepartureTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDHeaderDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderDepartureTransportMeans) + 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 DEXPDDHeaderDepartureTransportMeans) 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 DEXPDDHeaderDepartureTransportMeans + 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 Class + + _ + Public Enum DEXPDDHeaderDepartureTransportMeansType + + ''' + _ + Item10 + + ''' + _ + Item20 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item35 + + ''' + _ + Item40 + + ''' + _ + Item50 + + ''' + _ + Item60 + + ''' + _ + Item70 + End Enum + + _ + Partial Public Class DEXPDDHeaderBorderTransportMeans + +#Region "Private fields" + Private _mode As String + + Private _type As DEXPDDHeaderBorderTransportMeansType + + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Mode() As String + Get + Return Me._mode + End Get + Set(value As String) + Me._mode = Value + End Set + End Property + + Public Property Type() As DEXPDDHeaderBorderTransportMeansType + Get + Return Me._type + End Get + Set(value As DEXPDDHeaderBorderTransportMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + _ + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set(value As String) + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDHeaderBorderTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDHeaderBorderTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDHeaderBorderTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDHeaderBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderBorderTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDHeaderBorderTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDHeaderBorderTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDHeaderBorderTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDHeaderBorderTransportMeans + Return CType(Serializer.Deserialize(s), DEXPDDHeaderBorderTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDHeaderBorderTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDHeaderBorderTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDHeaderBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDHeaderBorderTransportMeans) + 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 DEXPDDHeaderBorderTransportMeans) 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 DEXPDDHeaderBorderTransportMeans + 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 Class + + _ + Public Enum DEXPDDHeaderBorderTransportMeansType + + ''' + _ + Item10 + + ''' + _ + Item20 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item35 + + ''' + _ + Item40 + + ''' + _ + Item50 + + ''' + _ + Item60 + + ''' + _ + Item70 + End Enum + + _ + Partial Public Class DEXPDDGoodsLoadingPlace + +#Region "Private fields" + Private _identification As DEXPDDGoodsLoadingPlaceIdentification + + Private _address As DEXPDDGoodsLoadingPlaceAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPDDGoodsLoadingPlaceAddress() + Me._identification = New DEXPDDGoodsLoadingPlaceIdentification() + End Sub + + Public Property Identification() As DEXPDDGoodsLoadingPlaceIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDGoodsLoadingPlaceIdentification) + Me._identification = Value + End Set + End Property + + Public Property Address() As DEXPDDGoodsLoadingPlaceAddress + Get + Return Me._address + End Get + Set(value As DEXPDDGoodsLoadingPlaceAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsLoadingPlace)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsLoadingPlace object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsLoadingPlace object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsLoadingPlace object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsLoadingPlace, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsLoadingPlace) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsLoadingPlace) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsLoadingPlace + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsLoadingPlace) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsLoadingPlace + Return CType(Serializer.Deserialize(s), DEXPDDGoodsLoadingPlace) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsLoadingPlace object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsLoadingPlace object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsLoadingPlace object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsLoadingPlace, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsLoadingPlace) + 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 DEXPDDGoodsLoadingPlace) 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 DEXPDDGoodsLoadingPlace + 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 Class + + _ + Partial Public Class DEXPDDGoodsLoadingPlaceIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsLoadingPlaceIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsLoadingPlaceIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsLoadingPlaceIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsLoadingPlaceIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsLoadingPlaceIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsLoadingPlaceIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsLoadingPlaceIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsLoadingPlaceIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsLoadingPlaceIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsLoadingPlaceIdentification + Return CType(Serializer.Deserialize(s), DEXPDDGoodsLoadingPlaceIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsLoadingPlaceIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsLoadingPlaceIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsLoadingPlaceIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsLoadingPlaceIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsLoadingPlaceIdentification) + 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 DEXPDDGoodsLoadingPlaceIdentification) 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 DEXPDDGoodsLoadingPlaceIdentification + 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 Class + + _ + Partial Public Class DEXPDDGoodsLoadingPlaceAddress + +#Region "Private fields" + Private _line As String + + Private _postcode As String + + Private _city As String + + Private _complement As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsLoadingPlaceAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsLoadingPlaceAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsLoadingPlaceAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsLoadingPlaceAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsLoadingPlaceAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsLoadingPlaceAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsLoadingPlaceAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsLoadingPlaceAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsLoadingPlaceAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsLoadingPlaceAddress + Return CType(Serializer.Deserialize(s), DEXPDDGoodsLoadingPlaceAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsLoadingPlaceAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsLoadingPlaceAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsLoadingPlaceAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsLoadingPlaceAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsLoadingPlaceAddress) + 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 DEXPDDGoodsLoadingPlaceAddress) 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 DEXPDDGoodsLoadingPlaceAddress + 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 Class + + _ + Partial Public Class DEXPDDExportCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExportCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDExportCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDExportCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExportCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExportCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDExportCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExportCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExportCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPDDExportCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDExportCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDExportCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExportCustomsOffice) + 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 DEXPDDExportCustomsOffice) 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 DEXPDDExportCustomsOffice + 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 Class + + _ + Partial Public Class DEXPDDSupplementaryDeclarationCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDSupplementaryDeclarationCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDSupplementaryDeclarationCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDSupplementaryDeclarationCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDSupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDSupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDSupplementaryDeclarationCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDSupplementaryDeclarationCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDSupplementaryDeclarationCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDSupplementaryDeclarationCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDSupplementaryDeclarationCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPDDSupplementaryDeclarationCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDSupplementaryDeclarationCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDSupplementaryDeclarationCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDSupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDSupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDSupplementaryDeclarationCustomsOffice) + 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 DEXPDDSupplementaryDeclarationCustomsOffice) 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 DEXPDDSupplementaryDeclarationCustomsOffice + 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 Class + + _ + Partial Public Class DEXPDDIntendedExitCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDIntendedExitCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDIntendedExitCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDIntendedExitCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDIntendedExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDIntendedExitCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDIntendedExitCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDIntendedExitCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDIntendedExitCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDIntendedExitCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPDDIntendedExitCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDIntendedExitCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDIntendedExitCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDIntendedExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDIntendedExitCustomsOffice) + 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 DEXPDDIntendedExitCustomsOffice) 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 DEXPDDIntendedExitCustomsOffice + 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 Class + + _ + Partial Public Class DEXPDDActualExitCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDActualExitCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDActualExitCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDActualExitCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDActualExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDActualExitCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDActualExitCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDActualExitCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDActualExitCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDActualExitCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPDDActualExitCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDActualExitCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDActualExitCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDActualExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDActualExitCustomsOffice) + 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 DEXPDDActualExitCustomsOffice) 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 DEXPDDActualExitCustomsOffice + 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 Class + + _ + Partial Public Class DEXPDDTransaction + +#Region "Private fields" + Private _type As DEXPDDTransactionType + + Private _invoiceAmount As Decimal + + Private _currency As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPDDTransactionType + Get + Return Me._type + End Get + Set(value As DEXPDDTransactionType) + Me._type = Value + End Set + End Property + + Public Property InvoiceAmount() As Decimal + Get + Return Me._invoiceAmount + End Get + Set(value As Decimal) + Me._invoiceAmount = Value + End Set + End Property + + _ + Public Property Currency() As String + Get + Return Me._currency + End Get + Set(value As String) + Me._currency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDTransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDTransaction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDTransaction object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDTransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDTransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDTransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDTransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDTransaction + Return CType(Serializer.Deserialize(s), DEXPDDTransaction) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDTransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDTransaction object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDTransaction) + 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 DEXPDDTransaction) 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 DEXPDDTransaction + 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 Class + + _ + Public Enum DEXPDDTransactionType + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item19 + + ''' + _ + Item21 + + ''' + _ + Item22 + + ''' + _ + Item23 + + ''' + _ + Item29 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item41 + + ''' + _ + Item42 + + ''' + _ + Item51 + + ''' + _ + Item52 + + ''' + _ + Item67 + + ''' + _ + Item69 + + ''' + _ + Item71 + + ''' + _ + Item72 + + ''' + _ + Item81 + + ''' + _ + Item91 + + ''' + _ + Item92 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPDDSpecialFact + +#Region "Private fields" + Private _indicator As DEXPDDSpecialFactIndicator + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Indicator() As DEXPDDSpecialFactIndicator + Get + Return Me._indicator + End Get + Set(value As DEXPDDSpecialFactIndicator) + Me._indicator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDSpecialFact)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDSpecialFact object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDSpecialFact object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDSpecialFact object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDSpecialFact, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDSpecialFact) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDSpecialFact) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDSpecialFact + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDSpecialFact) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDSpecialFact + Return CType(Serializer.Deserialize(s), DEXPDDSpecialFact) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDSpecialFact object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDSpecialFact object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDSpecialFact object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDSpecialFact, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDSpecialFact) + 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 DEXPDDSpecialFact) 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 DEXPDDSpecialFact + 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 Class + + _ + Public Enum DEXPDDSpecialFactIndicator + + ''' + _ + Item0 + + ''' + _ + Item1 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + + ''' + _ + Item5 + End Enum + + _ + Partial Public Class DEXPDDItinerary + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDItinerary)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDItinerary object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDItinerary object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDItinerary) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDItinerary) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDItinerary + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDItinerary) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDItinerary + Return CType(Serializer.Deserialize(s), DEXPDDItinerary) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDItinerary object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDItinerary object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDItinerary) + 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 DEXPDDItinerary) 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 DEXPDDItinerary + 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 Class + + _ + Partial Public Class DEXPDDSeals + +#Region "Private fields" + Private _type As DEXPDDSealsType + + Private _number As String + + Private _seal As List(Of DEXPDDSealsSeal) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._seal = New List(Of DEXPDDSealsSeal)() + End Sub + + Public Property Type() As DEXPDDSealsType + Get + Return Me._type + End Get + Set(value As DEXPDDSealsType) + Me._type = Value + End Set + End Property + + _ + Public Property Number() As String + Get + Return Me._number + End Get + Set(value As String) + Me._number = Value + End Set + End Property + + _ + Public Property Seal() As List(Of DEXPDDSealsSeal) + Get + Return Me._seal + End Get + Set(value As List(Of DEXPDDSealsSeal)) + Me._seal = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDSeals)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDSeals object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDSeals object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDSeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDSeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDSeals) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDSeals) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDSeals + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDSeals) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDSeals + Return CType(Serializer.Deserialize(s), DEXPDDSeals) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDSeals object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDSeals object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDSeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDSeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDSeals) + 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 DEXPDDSeals) 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 DEXPDDSeals + 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 Class + + _ + Public Enum DEXPDDSealsType + + ''' + P + + ''' + R + End Enum + + _ + Partial Public Class DEXPDDSealsSeal + +#Region "Private fields" + Private _identity As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDSealsSeal)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDSealsSeal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDSealsSeal object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDSealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDSealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDSealsSeal) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDSealsSeal) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDSealsSeal + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDSealsSeal) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDSealsSeal + Return CType(Serializer.Deserialize(s), DEXPDDSealsSeal) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDSealsSeal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDSealsSeal object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDSealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDSealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDSealsSeal) + 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 DEXPDDSealsSeal) 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 DEXPDDSealsSeal + 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 Class + + _ + Partial Public Class DEXPDDPresentationPackingLoading + +#Region "Private fields" + Private _startDateTime As Date + + Private _endDateTime As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property StartDateTime() As Date + Get + Return Me._startDateTime + End Get + Set(value As Date) + Me._startDateTime = Value + End Set + End Property + + Public Property EndDateTime() As Date + Get + Return Me._endDateTime + End Get + Set(value As Date) + Me._endDateTime = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDPresentationPackingLoading)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDPresentationPackingLoading object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDPresentationPackingLoading object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDPresentationPackingLoading object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDPresentationPackingLoading, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDPresentationPackingLoading) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDPresentationPackingLoading) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDPresentationPackingLoading + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDPresentationPackingLoading) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDPresentationPackingLoading + Return CType(Serializer.Deserialize(s), DEXPDDPresentationPackingLoading) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDPresentationPackingLoading object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDPresentationPackingLoading object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDPresentationPackingLoading object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDPresentationPackingLoading, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDPresentationPackingLoading) + 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 DEXPDDPresentationPackingLoading) 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 DEXPDDPresentationPackingLoading + 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 Class + + _ + Partial Public Class DEXPDDExporter + +#Region "Private fields" + Private _class As DEXPDDExporterClass + + Private _identification As DEXPDDExporterIdentification + + Private _name As String + + Private _address As DEXPDDExporterAddress + + Private _contactPerson As DEXPDDExporterContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDDExporterContactPerson() + Me._address = New DEXPDDExporterAddress() + Me._identification = New DEXPDDExporterIdentification() + End Sub + + Public Property [Class]() As DEXPDDExporterClass + Get + Return Me._class + End Get + Set(value As DEXPDDExporterClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDDExporterIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDExporterIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDDExporterAddress + Get + Return Me._address + End Get + Set(value As DEXPDDExporterAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDDExporterContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDDExporterContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExporter)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDExporter object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDExporter object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDExporter object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExporter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExporter) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExporter) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDExporter + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExporter) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExporter + Return CType(Serializer.Deserialize(s), DEXPDDExporter) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDExporter object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDExporter object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDExporter object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDExporter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExporter) + 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 DEXPDDExporter) 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 DEXPDDExporter + 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 Class + + _ + Public Enum DEXPDDExporterClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPDDExporterIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExporterIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDExporterIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDExporterIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDExporterIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExporterIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExporterIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExporterIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDExporterIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExporterIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExporterIdentification + Return CType(Serializer.Deserialize(s), DEXPDDExporterIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDExporterIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDExporterIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDExporterIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDExporterIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExporterIdentification) + 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 DEXPDDExporterIdentification) 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 DEXPDDExporterIdentification + 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 Class + + _ + Partial Public Class DEXPDDExporterAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExporterAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDExporterAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDExporterAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDExporterAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExporterAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExporterAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExporterAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDExporterAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExporterAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExporterAddress + Return CType(Serializer.Deserialize(s), DEXPDDExporterAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDExporterAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDExporterAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDExporterAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDExporterAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExporterAddress) + 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 DEXPDDExporterAddress) 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 DEXPDDExporterAddress + 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 Class + + _ + Partial Public Class DEXPDDExporterContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDExporterContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDExporterContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDExporterContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDExporterContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExporterContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExporterContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDExporterContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDExporterContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDExporterContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDExporterContactPerson + Return CType(Serializer.Deserialize(s), DEXPDDExporterContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDExporterContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDExporterContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDExporterContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDExporterContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDExporterContactPerson) + 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 DEXPDDExporterContactPerson) 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 DEXPDDExporterContactPerson + 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 Class + + _ + Partial Public Class DEXPDDDeclarant + +#Region "Private fields" + Private _class As DEXPDDDeclarantClass + + Private _identification As DEXPDDDeclarantIdentification + + Private _name As String + + Private _address As DEXPDDDeclarantAddress + + Private _contactPerson As DEXPDDDeclarantContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDDDeclarantContactPerson() + Me._address = New DEXPDDDeclarantAddress() + Me._identification = New DEXPDDDeclarantIdentification() + End Sub + + Public Property [Class]() As DEXPDDDeclarantClass + Get + Return Me._class + End Get + Set(value As DEXPDDDeclarantClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDDDeclarantIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDDeclarantIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDDDeclarantAddress + Get + Return Me._address + End Get + Set(value As DEXPDDDeclarantAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDDDeclarantContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDDDeclarantContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeclarant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDDeclarant object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDDeclarant object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeclarant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeclarant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDDeclarant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeclarant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeclarant + Return CType(Serializer.Deserialize(s), DEXPDDDeclarant) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDDeclarant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDDeclarant object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeclarant) + 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 DEXPDDDeclarant) 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 DEXPDDDeclarant + 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 Class + + _ + Public Enum DEXPDDDeclarantClass + + ''' + _ + Item0 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPDDDeclarantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeclarantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDDeclarantIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDDeclarantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeclarantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeclarantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDDeclarantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeclarantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeclarantIdentification + Return CType(Serializer.Deserialize(s), DEXPDDDeclarantIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDDeclarantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDDeclarantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeclarantIdentification) + 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 DEXPDDDeclarantIdentification) 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 DEXPDDDeclarantIdentification + 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 Class + + _ + Partial Public Class DEXPDDDeclarantAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeclarantAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDDeclarantAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDDeclarantAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeclarantAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeclarantAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDDeclarantAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeclarantAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeclarantAddress + Return CType(Serializer.Deserialize(s), DEXPDDDeclarantAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDDeclarantAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDDeclarantAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeclarantAddress) + 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 DEXPDDDeclarantAddress) 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 DEXPDDDeclarantAddress + 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 Class + + _ + Partial Public Class DEXPDDDeclarantContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeclarantContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDDeclarantContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDDeclarantContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDDeclarantContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeclarantContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeclarantContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeclarantContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDDeclarantContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeclarantContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeclarantContactPerson + Return CType(Serializer.Deserialize(s), DEXPDDDeclarantContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDDeclarantContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDDeclarantContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDDeclarantContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDDeclarantContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeclarantContactPerson) + 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 DEXPDDDeclarantContactPerson) 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 DEXPDDDeclarantContactPerson + 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 Class + + _ + Partial Public Class DEXPDDRepresentative + +#Region "Private fields" + Private _class As DEXPDDRepresentativeClass + + Private _identification As DEXPDDRepresentativeIdentification + + Private _name As String + + Private _address As DEXPDDRepresentativeAddress + + Private _contactPerson As DEXPDDRepresentativeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDDRepresentativeContactPerson() + Me._address = New DEXPDDRepresentativeAddress() + Me._identification = New DEXPDDRepresentativeIdentification() + End Sub + + Public Property [Class]() As DEXPDDRepresentativeClass + Get + Return Me._class + End Get + Set(value As DEXPDDRepresentativeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDDRepresentativeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDRepresentativeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDDRepresentativeAddress + Get + Return Me._address + End Get + Set(value As DEXPDDRepresentativeAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDDRepresentativeContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDDRepresentativeContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDRepresentative)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDRepresentative object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDRepresentative object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDRepresentative) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDRepresentative) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDRepresentative + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDRepresentative) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDRepresentative + Return CType(Serializer.Deserialize(s), DEXPDDRepresentative) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDRepresentative object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDRepresentative object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDRepresentative) + 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 DEXPDDRepresentative) 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 DEXPDDRepresentative + 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 Class + + _ + Public Enum DEXPDDRepresentativeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPDDRepresentativeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDRepresentativeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDRepresentativeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDRepresentativeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDRepresentativeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDRepresentativeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDRepresentativeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDRepresentativeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDRepresentativeIdentification + Return CType(Serializer.Deserialize(s), DEXPDDRepresentativeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDRepresentativeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDRepresentativeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDRepresentativeIdentification) + 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 DEXPDDRepresentativeIdentification) 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 DEXPDDRepresentativeIdentification + 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 Class + + _ + Partial Public Class DEXPDDRepresentativeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDRepresentativeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDRepresentativeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDRepresentativeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDRepresentativeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDRepresentativeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDRepresentativeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDRepresentativeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDRepresentativeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDRepresentativeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDRepresentativeAddress + Return CType(Serializer.Deserialize(s), DEXPDDRepresentativeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDRepresentativeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDRepresentativeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDRepresentativeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDRepresentativeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDRepresentativeAddress) + 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 DEXPDDRepresentativeAddress) 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 DEXPDDRepresentativeAddress + 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 Class + + _ + Partial Public Class DEXPDDRepresentativeContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDRepresentativeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDRepresentativeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDRepresentativeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDRepresentativeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDRepresentativeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDRepresentativeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDRepresentativeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDRepresentativeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDRepresentativeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDRepresentativeContactPerson + Return CType(Serializer.Deserialize(s), DEXPDDRepresentativeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDRepresentativeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDRepresentativeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDRepresentativeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDRepresentativeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDRepresentativeContactPerson) + 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 DEXPDDRepresentativeContactPerson) 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 DEXPDDRepresentativeContactPerson + 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 Class + + _ + Partial Public Class DEXPDDContractor + +#Region "Private fields" + Private _class As DEXPDDContractorClass + + Private _identification As DEXPDDContractorIdentification + + Private _name As String + + Private _address As DEXPDDContractorAddress + + Private _contactPerson As DEXPDDContractorContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDDContractorContactPerson() + Me._address = New DEXPDDContractorAddress() + Me._identification = New DEXPDDContractorIdentification() + End Sub + + Public Property [Class]() As DEXPDDContractorClass + Get + Return Me._class + End Get + Set(value As DEXPDDContractorClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDDContractorIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDContractorIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDDContractorAddress + Get + Return Me._address + End Get + Set(value As DEXPDDContractorAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDDContractorContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDDContractorContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDContractor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDContractor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDContractor object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDContractor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDContractor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDContractor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDContractor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDContractor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDContractor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDContractor + Return CType(Serializer.Deserialize(s), DEXPDDContractor) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDContractor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDContractor object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDContractor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDContractor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDContractor) + 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 DEXPDDContractor) 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 DEXPDDContractor + 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 Class + + _ + Public Enum DEXPDDContractorClass + + ''' + _ + Item0 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPDDContractorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDContractorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDContractorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDContractorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDContractorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDContractorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDContractorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDContractorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDContractorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDContractorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDContractorIdentification + Return CType(Serializer.Deserialize(s), DEXPDDContractorIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDContractorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDContractorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDContractorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDContractorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDContractorIdentification) + 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 DEXPDDContractorIdentification) 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 DEXPDDContractorIdentification + 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 Class + + _ + Partial Public Class DEXPDDContractorAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDContractorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDContractorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDContractorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDContractorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDContractorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDContractorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDContractorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDContractorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDContractorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDContractorAddress + Return CType(Serializer.Deserialize(s), DEXPDDContractorAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDContractorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDContractorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDContractorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDContractorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDContractorAddress) + 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 DEXPDDContractorAddress) 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 DEXPDDContractorAddress + 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 Class + + _ + Partial Public Class DEXPDDContractorContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDContractorContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDContractorContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDContractorContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDContractorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDContractorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDContractorContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDContractorContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDContractorContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDContractorContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDContractorContactPerson + Return CType(Serializer.Deserialize(s), DEXPDDContractorContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDContractorContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDContractorContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDContractorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDContractorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDContractorContactPerson) + 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 DEXPDDContractorContactPerson) 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 DEXPDDContractorContactPerson + 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 Class + + _ + Partial Public Class DEXPDDOutwardProcessingOwner + +#Region "Private fields" + Private _class As DEXPDDOutwardProcessingOwnerClass + + Private _identification As DEXPDDOutwardProcessingOwnerIdentification + + Private _contactPerson As DEXPDDOutwardProcessingOwnerContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDDOutwardProcessingOwnerContactPerson() + Me._identification = New DEXPDDOutwardProcessingOwnerIdentification() + End Sub + + Public Property [Class]() As DEXPDDOutwardProcessingOwnerClass + Get + Return Me._class + End Get + Set(value As DEXPDDOutwardProcessingOwnerClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDDOutwardProcessingOwnerIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDOutwardProcessingOwnerIdentification) + Me._identification = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDDOutwardProcessingOwnerContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDDOutwardProcessingOwnerContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingOwner)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDOutwardProcessingOwner object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDOutwardProcessingOwner object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDOutwardProcessingOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingOwner) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingOwner) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDOutwardProcessingOwner + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingOwner) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingOwner + Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingOwner) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDOutwardProcessingOwner object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDOutwardProcessingOwner object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDOutwardProcessingOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingOwner) + 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 DEXPDDOutwardProcessingOwner) 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 DEXPDDOutwardProcessingOwner + 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 Class + + _ + Public Enum DEXPDDOutwardProcessingOwnerClass + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPDDOutwardProcessingOwnerIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As DEXPDDOutwardProcessingOwnerIdentificationSubsidiaryNumber + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Public Property SubsidiaryNumber() As DEXPDDOutwardProcessingOwnerIdentificationSubsidiaryNumber + Get + Return Me._subsidiaryNumber + End Get + Set(value As DEXPDDOutwardProcessingOwnerIdentificationSubsidiaryNumber) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingOwnerIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDOutwardProcessingOwnerIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDOutwardProcessingOwnerIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDOutwardProcessingOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingOwnerIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingOwnerIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDOutwardProcessingOwnerIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingOwnerIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingOwnerIdentification + Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingOwnerIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDOutwardProcessingOwnerIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDOutwardProcessingOwnerIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDOutwardProcessingOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingOwnerIdentification) + 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 DEXPDDOutwardProcessingOwnerIdentification) 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 DEXPDDOutwardProcessingOwnerIdentification + 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 Class + + _ + Public Enum DEXPDDOutwardProcessingOwnerIdentificationSubsidiaryNumber + + ''' + _ + Item0000 + End Enum + + _ + Partial Public Class DEXPDDOutwardProcessingOwnerContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingOwnerContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDOutwardProcessingOwnerContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDOutwardProcessingOwnerContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDOutwardProcessingOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingOwnerContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingOwnerContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDOutwardProcessingOwnerContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingOwnerContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingOwnerContactPerson + Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingOwnerContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDOutwardProcessingOwnerContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDOutwardProcessingOwnerContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDOutwardProcessingOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingOwnerContactPerson) + 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 DEXPDDOutwardProcessingOwnerContactPerson) 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 DEXPDDOutwardProcessingOwnerContactPerson + 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 Class + + _ + Partial Public Class DEXPDDConsignee + +#Region "Private fields" + Private _class As DEXPDDConsigneeClass + + Private _identification As DEXPDDConsigneeIdentification + + Private _name As String + + Private _address As DEXPDDConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPDDConsigneeAddress() + Me._identification = New DEXPDDConsigneeIdentification() + End Sub + + Public Property [Class]() As DEXPDDConsigneeClass + Get + Return Me._class + End Get + Set(value As DEXPDDConsigneeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDDConsigneeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDConsigneeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDDConsigneeAddress + Get + Return Me._address + End Get + Set(value As DEXPDDConsigneeAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDConsignee + Return CType(Serializer.Deserialize(s), DEXPDDConsignee) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDConsignee) + 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 DEXPDDConsignee) 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 DEXPDDConsignee + 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 Class + + _ + Public Enum DEXPDDConsigneeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPDDConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDConsigneeIdentification + Return CType(Serializer.Deserialize(s), DEXPDDConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDConsigneeIdentification) + 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 DEXPDDConsigneeIdentification) 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 DEXPDDConsigneeIdentification + 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 Class + + _ + Partial Public Class DEXPDDConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDConsigneeAddress + Return CType(Serializer.Deserialize(s), DEXPDDConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDConsigneeAddress) + 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 DEXPDDConsigneeAddress) 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 DEXPDDConsigneeAddress + 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 Class + + _ + Partial Public Class DEXPDDDeliveryTerms + +#Region "Private fields" + Private _incotermCode As DEXPDDDeliveryTermsIncotermCode + + Private _description As String + + Private _location As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property IncotermCode() As DEXPDDDeliveryTermsIncotermCode + Get + Return Me._incotermCode + End Get + Set(value As DEXPDDDeliveryTermsIncotermCode) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + _ + Public Property Location() As String + Get + Return Me._location + End Get + Set(value As String) + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDDeliveryTerms object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDDeliveryTerms + Return CType(Serializer.Deserialize(s), DEXPDDDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDDeliveryTerms) + 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 DEXPDDDeliveryTerms) 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 DEXPDDDeliveryTerms + 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 Class + + _ + Public Enum DEXPDDDeliveryTermsIncotermCode + + ''' + CFR + + ''' + CIF + + ''' + CIP + + ''' + CPT + + ''' + DAF + + ''' + DAP + + ''' + DAT + + ''' + DDP + + ''' + DDU + + ''' + DEQ + + ''' + DES + + ''' + EXW + + ''' + FAS + + ''' + FCA + + ''' + FOB + + ''' + XXX + End Enum + + _ + Partial Public Class DEXPDDOutwardProcessing + +#Region "Private fields" + Private _reimportDate As Date + + Private _usualReplacement As DEXPDDOutwardProcessingUsualReplacement + + Private _reimport As List(Of DEXPDDOutwardProcessingReimport) + + Private _identificationMeans As List(Of DEXPDDOutwardProcessingIdentificationMeans) + + Private _product As List(Of DEXPDDOutwardProcessingProduct) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._product = New List(Of DEXPDDOutwardProcessingProduct)() + Me._identificationMeans = New List(Of DEXPDDOutwardProcessingIdentificationMeans)() + Me._reimport = New List(Of DEXPDDOutwardProcessingReimport)() + End Sub + + _ + Public Property ReimportDate() As Date + Get + Return Me._reimportDate + End Get + Set(value As Date) + Me._reimportDate = Value + End Set + End Property + + Public Property UsualReplacement() As DEXPDDOutwardProcessingUsualReplacement + Get + Return Me._usualReplacement + End Get + Set(value As DEXPDDOutwardProcessingUsualReplacement) + Me._usualReplacement = Value + End Set + End Property + + _ + Public Property Reimport() As List(Of DEXPDDOutwardProcessingReimport) + Get + Return Me._reimport + End Get + Set(value As List(Of DEXPDDOutwardProcessingReimport)) + Me._reimport = Value + End Set + End Property + + _ + Public Property IdentificationMeans() As List(Of DEXPDDOutwardProcessingIdentificationMeans) + Get + Return Me._identificationMeans + End Get + Set(value As List(Of DEXPDDOutwardProcessingIdentificationMeans)) + Me._identificationMeans = Value + End Set + End Property + + _ + Public Property Product() As List(Of DEXPDDOutwardProcessingProduct) + Get + Return Me._product + End Get + Set(value As List(Of DEXPDDOutwardProcessingProduct)) + Me._product = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessing)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDOutwardProcessing object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDOutwardProcessing object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDOutwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessing) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessing) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDOutwardProcessing + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessing) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessing + Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessing) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDOutwardProcessing object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDOutwardProcessing object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDOutwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDOutwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessing) + 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 DEXPDDOutwardProcessing) 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 DEXPDDOutwardProcessing + 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 Class + + _ + Public Enum DEXPDDOutwardProcessingUsualReplacement + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPDDOutwardProcessingReimport + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingReimport)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDOutwardProcessingReimport object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDOutwardProcessingReimport object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDOutwardProcessingReimport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingReimport) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingReimport) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDOutwardProcessingReimport + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingReimport) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingReimport + Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingReimport) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDOutwardProcessingReimport object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDOutwardProcessingReimport object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDOutwardProcessingReimport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingReimport) + 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 DEXPDDOutwardProcessingReimport) 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 DEXPDDOutwardProcessingReimport + 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 Class + + _ + Partial Public Class DEXPDDOutwardProcessingIdentificationMeans + +#Region "Private fields" + Private _type As DEXPDDOutwardProcessingIdentificationMeansType + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPDDOutwardProcessingIdentificationMeansType + Get + Return Me._type + End Get + Set(value As DEXPDDOutwardProcessingIdentificationMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingIdentificationMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDOutwardProcessingIdentificationMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDOutwardProcessingIdentificationMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDOutwardProcessingIdentificationMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingIdentificationMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingIdentificationMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDOutwardProcessingIdentificationMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingIdentificationMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingIdentificationMeans + Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingIdentificationMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDOutwardProcessingIdentificationMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDOutwardProcessingIdentificationMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDOutwardProcessingIdentificationMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingIdentificationMeans) + 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 DEXPDDOutwardProcessingIdentificationMeans) 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 DEXPDDOutwardProcessingIdentificationMeans + 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 Class + + _ + Public Enum DEXPDDOutwardProcessingIdentificationMeansType + + ''' + A + + ''' + B + + ''' + N + + ''' + O + + ''' + P + + ''' + S + + ''' + T + + ''' + Z + End Enum + + _ + Partial Public Class DEXPDDOutwardProcessingProduct + +#Region "Private fields" + Private _commodityCode As String + + Private _goodsDescription As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + _ + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set(value As String) + Me._goodsDescription = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDOutwardProcessingProduct)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDOutwardProcessingProduct object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDOutwardProcessingProduct object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDOutwardProcessingProduct object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingProduct) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDOutwardProcessingProduct) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDOutwardProcessingProduct + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDOutwardProcessingProduct) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDOutwardProcessingProduct + Return CType(Serializer.Deserialize(s), DEXPDDOutwardProcessingProduct) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDOutwardProcessingProduct object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDOutwardProcessingProduct object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDOutwardProcessingProduct object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDOutwardProcessingProduct) + 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 DEXPDDOutwardProcessingProduct) 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 DEXPDDOutwardProcessingProduct + 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 Class + + _ + Partial Public Class DEXPDDGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _goodsDescription As String + + Private _commercialReferenceNumber As String + + Private _registrationNumber As String + + Private _annotation As String + + Private _originFederalState As DEXPDDGoodsItemOriginFederalState + + Private _netMass As Decimal + + Private _grossMass As Decimal + + Private _dangerousGoodsCode As String + + Private _transportChargesPaymentMethod As String + + Private _commodityCode As DEXPDDGoodsItemCommodityCode + + Private _procedure As DEXPDDGoodsItemProcedure + + Private _exportRefund As DEXPDDGoodsItemExportRefund + + Private _foreignTradeStatistics As DEXPDDGoodsItemForeignTradeStatistics + + Private _consignee As DEXPDDGoodsItemConsignee + + Private _package As List(Of DEXPDDGoodsItemPackage) + + Private _container As List(Of DEXPDDGoodsItemContainer) + + Private _document As List(Of DEXPDDGoodsItemDocument) + + Private _previousAdminstrativeReference As List(Of DEXPDDGoodsItemPreviousAdminstrativeReference) + + Private _deliveryTerms As DEXPDDGoodsItemDeliveryTerms + + Private _transaction As DEXPDDGoodsItemTransaction + + Private _customsWarehouse As DEXPDDGoodsItemCustomsWarehouse + + Private _inwardProcessingTransformation As DEXPDDGoodsItemInwardProcessingTransformation + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._inwardProcessingTransformation = New DEXPDDGoodsItemInwardProcessingTransformation() + Me._customsWarehouse = New DEXPDDGoodsItemCustomsWarehouse() + Me._transaction = New DEXPDDGoodsItemTransaction() + Me._deliveryTerms = New DEXPDDGoodsItemDeliveryTerms() + Me._previousAdminstrativeReference = New List(Of DEXPDDGoodsItemPreviousAdminstrativeReference)() + Me._document = New List(Of DEXPDDGoodsItemDocument)() + Me._container = New List(Of DEXPDDGoodsItemContainer)() + Me._package = New List(Of DEXPDDGoodsItemPackage)() + Me._consignee = New DEXPDDGoodsItemConsignee() + Me._foreignTradeStatistics = New DEXPDDGoodsItemForeignTradeStatistics() + Me._exportRefund = New DEXPDDGoodsItemExportRefund() + Me._procedure = New DEXPDDGoodsItemProcedure() + Me._commodityCode = New DEXPDDGoodsItemCommodityCode() + End Sub + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set(value As String) + Me._goodsDescription = Value + End Set + End Property + + _ + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set(value As String) + Me._commercialReferenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property Annotation() As String + Get + Return Me._annotation + End Get + Set(value As String) + Me._annotation = Value + End Set + End Property + + Public Property OriginFederalState() As DEXPDDGoodsItemOriginFederalState + Get + Return Me._originFederalState + End Get + Set(value As DEXPDDGoodsItemOriginFederalState) + Me._originFederalState = Value + End Set + End Property + + Public Property NetMass() As Decimal + Get + Return Me._netMass + End Get + Set(value As Decimal) + Me._netMass = Value + End Set + End Property + + Public Property GrossMass() As Decimal + Get + Return Me._grossMass + End Get + Set(value As Decimal) + Me._grossMass = Value + End Set + End Property + + _ + Public Property DangerousGoodsCode() As String + Get + Return Me._dangerousGoodsCode + End Get + Set(value As String) + Me._dangerousGoodsCode = Value + End Set + End Property + + _ + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set(value As String) + Me._transportChargesPaymentMethod = Value + End Set + End Property + + Public Property CommodityCode() As DEXPDDGoodsItemCommodityCode + Get + Return Me._commodityCode + End Get + Set(value As DEXPDDGoodsItemCommodityCode) + Me._commodityCode = Value + End Set + End Property + + Public Property Procedure() As DEXPDDGoodsItemProcedure + Get + Return Me._procedure + End Get + Set(value As DEXPDDGoodsItemProcedure) + Me._procedure = Value + End Set + End Property + + Public Property ExportRefund() As DEXPDDGoodsItemExportRefund + Get + Return Me._exportRefund + End Get + Set(value As DEXPDDGoodsItemExportRefund) + Me._exportRefund = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As DEXPDDGoodsItemForeignTradeStatistics + Get + Return Me._foreignTradeStatistics + End Get + Set(value As DEXPDDGoodsItemForeignTradeStatistics) + Me._foreignTradeStatistics = Value + End Set + End Property + + Public Property Consignee() As DEXPDDGoodsItemConsignee + Get + Return Me._consignee + End Get + Set(value As DEXPDDGoodsItemConsignee) + Me._consignee = Value + End Set + End Property + + _ + Public Property Package() As List(Of DEXPDDGoodsItemPackage) + Get + Return Me._package + End Get + Set(value As List(Of DEXPDDGoodsItemPackage)) + Me._package = Value + End Set + End Property + + _ + Public Property Container() As List(Of DEXPDDGoodsItemContainer) + Get + Return Me._container + End Get + Set(value As List(Of DEXPDDGoodsItemContainer)) + Me._container = Value + End Set + End Property + + _ + Public Property Document() As List(Of DEXPDDGoodsItemDocument) + Get + Return Me._document + End Get + Set(value As List(Of DEXPDDGoodsItemDocument)) + Me._document = Value + End Set + End Property + + _ + Public Property PreviousAdminstrativeReference() As List(Of DEXPDDGoodsItemPreviousAdminstrativeReference) + Get + Return Me._previousAdminstrativeReference + End Get + Set(value As List(Of DEXPDDGoodsItemPreviousAdminstrativeReference)) + Me._previousAdminstrativeReference = Value + End Set + End Property + + Public Property DeliveryTerms() As DEXPDDGoodsItemDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set(value As DEXPDDGoodsItemDeliveryTerms) + Me._deliveryTerms = Value + End Set + End Property + + Public Property Transaction() As DEXPDDGoodsItemTransaction + Get + Return Me._transaction + End Get + Set(value As DEXPDDGoodsItemTransaction) + Me._transaction = Value + End Set + End Property + + Public Property CustomsWarehouse() As DEXPDDGoodsItemCustomsWarehouse + Get + Return Me._customsWarehouse + End Get + Set(value As DEXPDDGoodsItemCustomsWarehouse) + Me._customsWarehouse = Value + End Set + End Property + + _ + Public Property InwardProcessingTransformation() As DEXPDDGoodsItemInwardProcessingTransformation + Get + Return Me._inwardProcessingTransformation + End Get + Set(value As DEXPDDGoodsItemInwardProcessingTransformation) + Me._inwardProcessingTransformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItem + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItem) + 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 DEXPDDGoodsItem) 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 DEXPDDGoodsItem + 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 Class + + _ + Public Enum DEXPDDGoodsItemOriginFederalState + + ''' + _ + Item01 + + ''' + _ + Item02 + + ''' + _ + Item03 + + ''' + _ + Item04 + + ''' + _ + Item05 + + ''' + _ + Item06 + + ''' + _ + Item07 + + ''' + _ + Item08 + + ''' + _ + Item09 + + ''' + _ + Item10 + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item15 + + ''' + _ + Item16 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPDDGoodsItemCommodityCode + +#Region "Private fields" + Private _combinedNomenclatureCode As String + + Private _taricCode As String + + Private _taricFirstAdditionalCode As String + + Private _taricSecondAdditionalCode As String + + Private _nationalAdditionalCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property CombinedNomenclatureCode() As String + Get + Return Me._combinedNomenclatureCode + End Get + Set(value As String) + Me._combinedNomenclatureCode = Value + End Set + End Property + + _ + Public Property TaricCode() As String + Get + Return Me._taricCode + End Get + Set(value As String) + Me._taricCode = Value + End Set + End Property + + _ + Public Property TaricFirstAdditionalCode() As String + Get + Return Me._taricFirstAdditionalCode + End Get + Set(value As String) + Me._taricFirstAdditionalCode = Value + End Set + End Property + + _ + Public Property TaricSecondAdditionalCode() As String + Get + Return Me._taricSecondAdditionalCode + End Get + Set(value As String) + Me._taricSecondAdditionalCode = Value + End Set + End Property + + _ + Public Property NationalAdditionalCode() As String + Get + Return Me._nationalAdditionalCode + End Get + Set(value As String) + Me._nationalAdditionalCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCommodityCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemCommodityCode object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemCommodityCode object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCommodityCode) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCommodityCode) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemCommodityCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCommodityCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCommodityCode + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCommodityCode) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemCommodityCode object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemCommodityCode object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCommodityCode) + 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 DEXPDDGoodsItemCommodityCode) 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 DEXPDDGoodsItemCommodityCode + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemProcedure + +#Region "Private fields" + Private _requestedProcedure As String + + Private _previousProcedure As String + + Private _additionalProcedure As String + + Private _exportRefundProcedure As DEXPDDGoodsItemProcedureExportRefundProcedure + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property RequestedProcedure() As String + Get + Return Me._requestedProcedure + End Get + Set(value As String) + Me._requestedProcedure = Value + End Set + End Property + + _ + Public Property PreviousProcedure() As String + Get + Return Me._previousProcedure + End Get + Set(value As String) + Me._previousProcedure = Value + End Set + End Property + + _ + Public Property AdditionalProcedure() As String + Get + Return Me._additionalProcedure + End Get + Set(value As String) + Me._additionalProcedure = Value + End Set + End Property + + Public Property ExportRefundProcedure() As DEXPDDGoodsItemProcedureExportRefundProcedure + Get + Return Me._exportRefundProcedure + End Get + Set(value As DEXPDDGoodsItemProcedureExportRefundProcedure) + Me._exportRefundProcedure = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemProcedure)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemProcedure object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemProcedure object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemProcedure) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemProcedure) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemProcedure + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemProcedure) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemProcedure + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemProcedure) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemProcedure object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemProcedure object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemProcedure) + 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 DEXPDDGoodsItemProcedure) 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 DEXPDDGoodsItemProcedure + 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 Class + + _ + Public Enum DEXPDDGoodsItemProcedureExportRefundProcedure + + ''' + E51 + + ''' + E52 + + ''' + E53 + + ''' + E61 + + ''' + E62 + + ''' + E63 + + ''' + E71 + End Enum + + _ + Partial Public Class DEXPDDGoodsItemExportRefund + +#Region "Private fields" + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemExportRefund)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemExportRefund object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemExportRefund object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemExportRefund) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemExportRefund) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemExportRefund + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemExportRefund) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemExportRefund + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemExportRefund) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemExportRefund object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemExportRefund object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemExportRefund) + 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 DEXPDDGoodsItemExportRefund) 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 DEXPDDGoodsItemExportRefund + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemForeignTradeStatistics + +#Region "Private fields" + Private _specialUnitQuantity As Decimal + + Private _statisticalValue As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property SpecialUnitQuantity() As Decimal + Get + Return Me._specialUnitQuantity + End Get + Set(value As Decimal) + Me._specialUnitQuantity = Value + End Set + End Property + + _ + Public Property StatisticalValue() As String + Get + Return Me._statisticalValue + End Get + Set(value As String) + Me._statisticalValue = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemForeignTradeStatistics object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemForeignTradeStatistics object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemForeignTradeStatistics) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemForeignTradeStatistics + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemForeignTradeStatistics) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemForeignTradeStatistics object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemForeignTradeStatistics object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemForeignTradeStatistics) + 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 DEXPDDGoodsItemForeignTradeStatistics) 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 DEXPDDGoodsItemForeignTradeStatistics + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemConsignee + +#Region "Private fields" + Private _class As DEXPDDGoodsItemConsigneeClass + + Private _identification As DEXPDDGoodsItemConsigneeIdentification + + Private _name As String + + Private _address As DEXPDDGoodsItemConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPDDGoodsItemConsigneeAddress() + Me._identification = New DEXPDDGoodsItemConsigneeIdentification() + End Sub + + Public Property [Class]() As DEXPDDGoodsItemConsigneeClass + Get + Return Me._class + End Get + Set(value As DEXPDDGoodsItemConsigneeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDDGoodsItemConsigneeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDDGoodsItemConsigneeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDDGoodsItemConsigneeAddress + Get + Return Me._address + End Get + Set(value As DEXPDDGoodsItemConsigneeAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemConsignee + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemConsignee) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemConsignee) + 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 DEXPDDGoodsItemConsignee) 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 DEXPDDGoodsItemConsignee + 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 Class + + _ + Public Enum DEXPDDGoodsItemConsigneeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPDDGoodsItemConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemConsigneeIdentification + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemConsigneeIdentification) + 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 DEXPDDGoodsItemConsigneeIdentification) 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 DEXPDDGoodsItemConsigneeIdentification + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemConsigneeAddress + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemConsigneeAddress) + 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 DEXPDDGoodsItemConsigneeAddress) 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 DEXPDDGoodsItemConsigneeAddress + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemPackage + +#Region "Private fields" + Private _quantity As String + + Private _sequenceNumber As String + + Private _kind As String + + Private _marksNumbers As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set(value As String) + Me._quantity = Value + End Set + End Property + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property Kind() As String + Get + Return Me._kind + End Get + Set(value As String) + Me._kind = Value + End Set + End Property + + _ + Public Property MarksNumbers() As String + Get + Return Me._marksNumbers + End Get + Set(value As String) + Me._marksNumbers = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemPackage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemPackage object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemPackage object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemPackage) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemPackage) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemPackage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemPackage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemPackage + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemPackage) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemPackage object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemPackage object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemPackage) + 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 DEXPDDGoodsItemPackage) 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 DEXPDDGoodsItemPackage + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemContainer + +#Region "Private fields" + Private _identificationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set(value As String) + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemContainer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemContainer object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemContainer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemContainer) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemContainer + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemContainer) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemContainer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemContainer object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemContainer) + 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 DEXPDDGoodsItemContainer) 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 DEXPDDGoodsItemContainer + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemDocument + +#Region "Private fields" + Private _qualifier As String + + Private _type As String + + Private _referenceNumber As String + + Private _complement As String + + Private _detail As String + + Private _issuingDate As Date + + Private _expiryDate As Date + + Private _writeOffValue As String + + Private _measurementUnit As DEXPDDGoodsItemDocumentMeasurementUnit + + Private _writeOffQuantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + _ + Public Property Detail() As String + Get + Return Me._detail + End Get + Set(value As String) + Me._detail = Value + End Set + End Property + + _ + Public Property IssuingDate() As Date + Get + Return Me._issuingDate + End Get + Set(value As Date) + Me._issuingDate = Value + End Set + End Property + + _ + Public Property ExpiryDate() As Date + Get + Return Me._expiryDate + End Get + Set(value As Date) + Me._expiryDate = Value + End Set + End Property + + _ + Public Property WriteOffValue() As String + Get + Return Me._writeOffValue + End Get + Set(value As String) + Me._writeOffValue = Value + End Set + End Property + + Public Property MeasurementUnit() As DEXPDDGoodsItemDocumentMeasurementUnit + Get + Return Me._measurementUnit + End Get + Set(value As DEXPDDGoodsItemDocumentMeasurementUnit) + Me._measurementUnit = Value + End Set + End Property + + Public Property WriteOffQuantity() As Decimal + Get + Return Me._writeOffQuantity + End Get + Set(value As Decimal) + Me._writeOffQuantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemDocument object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemDocument object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemDocument) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemDocument) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemDocument + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemDocument) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemDocument object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemDocument object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemDocument) + 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 DEXPDDGoodsItemDocument) 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 DEXPDDGoodsItemDocument + 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 Class + + _ + Public Enum DEXPDDGoodsItemDocumentMeasurementUnit + + ''' + Los + + ''' + Mio + + ''' + Paar + + ''' + Satz + + ''' + St + + ''' + Syst + + ''' + cbm + + ''' + cm + + ''' + div + + ''' + g + + ''' + gPu + + ''' + gTh + + ''' + gU + + ''' + kg + + ''' + kgPu + + ''' + kgTh + + ''' + kgU + + ''' + km + + ''' + l + + ''' + lfm + + ''' + ltAnlage + + ''' + m + + ''' + mg + + ''' + ml + + ''' + mm + + ''' + qcm + + ''' + qm + + ''' + t + + ''' + tU + + ''' + µg + + ''' + µl + + ''' + µm + End Enum + + _ + Partial Public Class DEXPDDGoodsItemPreviousAdminstrativeReference + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private _complement As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemPreviousAdminstrativeReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemPreviousAdminstrativeReference object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemPreviousAdminstrativeReference object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemPreviousAdminstrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemPreviousAdminstrativeReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemPreviousAdminstrativeReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemPreviousAdminstrativeReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemPreviousAdminstrativeReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemPreviousAdminstrativeReference + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemPreviousAdminstrativeReference) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemPreviousAdminstrativeReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemPreviousAdminstrativeReference object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemPreviousAdminstrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemPreviousAdminstrativeReference) + 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 DEXPDDGoodsItemPreviousAdminstrativeReference) 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 DEXPDDGoodsItemPreviousAdminstrativeReference + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemDeliveryTerms + +#Region "Private fields" + Private _incotermCode As DEXPDDGoodsItemDeliveryTermsIncotermCode + + Private _description As String + + Private _location As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property IncotermCode() As DEXPDDGoodsItemDeliveryTermsIncotermCode + Get + Return Me._incotermCode + End Get + Set(value As DEXPDDGoodsItemDeliveryTermsIncotermCode) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + _ + Public Property Location() As String + Get + Return Me._location + End Get + Set(value As String) + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemDeliveryTerms object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemDeliveryTerms + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemDeliveryTerms) + 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 DEXPDDGoodsItemDeliveryTerms) 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 DEXPDDGoodsItemDeliveryTerms + 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 Class + + _ + Public Enum DEXPDDGoodsItemDeliveryTermsIncotermCode + + ''' + CFR + + ''' + CIF + + ''' + CIP + + ''' + CPT + + ''' + DAF + + ''' + DAP + + ''' + DAT + + ''' + DDP + + ''' + DDU + + ''' + DEQ + + ''' + DES + + ''' + EXW + + ''' + FAS + + ''' + FCA + + ''' + FOB + + ''' + XXX + End Enum + + _ + Partial Public Class DEXPDDGoodsItemTransaction + +#Region "Private fields" + Private _type As DEXPDDGoodsItemTransactionType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPDDGoodsItemTransactionType + Get + Return Me._type + End Get + Set(value As DEXPDDGoodsItemTransactionType) + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemTransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemTransaction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemTransaction object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemTransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemTransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemTransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemTransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemTransaction + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemTransaction) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemTransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemTransaction object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemTransaction) + 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 DEXPDDGoodsItemTransaction) 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 DEXPDDGoodsItemTransaction + 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 Class + + _ + Public Enum DEXPDDGoodsItemTransactionType + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item19 + + ''' + _ + Item21 + + ''' + _ + Item22 + + ''' + _ + Item23 + + ''' + _ + Item29 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item41 + + ''' + _ + Item42 + + ''' + _ + Item51 + + ''' + _ + Item52 + + ''' + _ + Item67 + + ''' + _ + Item69 + + ''' + _ + Item71 + + ''' + _ + Item72 + + ''' + _ + Item81 + + ''' + _ + Item91 + + ''' + _ + Item92 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPDDGoodsItemCustomsWarehouse + +#Region "Private fields" + Private _goodsItemQuantity As String + + Private _customsAuthorization As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization + + Private _localReferenceNumber As String + + Private _goodsItem As List(Of DEXPDDGoodsItemCustomsWarehouseGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPDDGoodsItemCustomsWarehouseGoodsItem)() + Me._customsAuthorization = New DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization() + End Sub + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPDDGoodsItemCustomsWarehouseGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPDDGoodsItemCustomsWarehouseGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouse object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouse object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouse) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouse) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemCustomsWarehouse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouse + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouse) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouse object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouse object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouse) + 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 DEXPDDGoodsItemCustomsWarehouse) 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 DEXPDDGoodsItemCustomsWarehouse + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization + +#Region "Private fields" + Private _warehouseOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property WarehouseOwner() As String + Get + Return Me._warehouseOwner + End Get + Set(value As String) + Me._warehouseOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization) + 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 DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization) 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 DEXPDDGoodsItemCustomsWarehouseCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemCustomsWarehouseGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedSequenceNumber As String + + Private _registrationNumber As String + + Private _commodityCode As String + + Private _accessViaAtlasFlag As DEXPDDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + + Private _usualProcessingFlag As DEXPDDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + + Private _complement As String + + Private _debitAmount As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount + + Private _commercialAmount As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._commercialAmount = New DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount() + Me._debitAmount = New DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount() + End Sub + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set(value As String) + Me._referencedSequenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As DEXPDDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + Get + Return Me._accessViaAtlasFlag + End Get + Set(value As DEXPDDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag) + Me._accessViaAtlasFlag = Value + End Set + End Property + + Public Property UsualProcessingFlag() As DEXPDDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + Get + Return Me._usualProcessingFlag + End Get + Set(value As DEXPDDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag) + Me._usualProcessingFlag = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Public Property DebitAmount() As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount + Get + Return Me._debitAmount + End Get + Set(value As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Me._debitAmount = Value + End Set + End Property + + Public Property CommercialAmount() As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Get + Return Me._commercialAmount + End Get + Set(value As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Me._commercialAmount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouseGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouseGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemCustomsWarehouseGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouseGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouseGoodsItem + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouseGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouseGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItem) + 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 DEXPDDGoodsItemCustomsWarehouseGoodsItem) 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 DEXPDDGoodsItemCustomsWarehouseGoodsItem + 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 Class + + _ + Public Enum DEXPDDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Public Enum DEXPDDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount + +#Region "Private fields" + Private _qualifier As String + + Private _measurementUnit As String + + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set(value As String) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount) 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemDebitAmount + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + +#Region "Private fields" + Private _qualifier As String + + Private _measurementUnit As String + + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set(value As String) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) 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 DEXPDDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemInwardProcessingTransformation + +#Region "Private fields" + Private _goodsItemQuantity As String + + Private _customsAuthorization As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization + + Private _goodsItem As List(Of DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)() + Me._customsAuthorization = New DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization() + End Sub + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemInwardProcessingTransformation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemInwardProcessingTransformation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemInwardProcessingTransformation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemInwardProcessingTransformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemInwardProcessingTransformation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemInwardProcessingTransformation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemInwardProcessingTransformation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemInwardProcessingTransformation + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemInwardProcessingTransformation) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemInwardProcessingTransformation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemInwardProcessingTransformation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemInwardProcessingTransformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformation) + 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 DEXPDDGoodsItemInwardProcessingTransformation) 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 DEXPDDGoodsItemInwardProcessingTransformation + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization + +#Region "Private fields" + Private _processingOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ProcessingOwner() As String + Get + Return Me._processingOwner + End Get + Set(value As String) + Me._processingOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization) + 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 DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization) 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 DEXPDDGoodsItemInwardProcessingTransformationCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPDDGoodsItemInwardProcessingTransformationGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedSequenceNumber As String + + Private _registrationNumber As String + + Private _accessViaAtlasFlag As DEXPDDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + + Private _goodsRelatedInformation As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set(value As String) + Me._referencedSequenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As DEXPDDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + Get + Return Me._accessViaAtlasFlag + End Get + Set(value As DEXPDDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag) + Me._accessViaAtlasFlag = Value + End Set + End Property + + _ + Public Property GoodsRelatedInformation() As String + Get + Return Me._goodsRelatedInformation + End Get + Set(value As String) + Me._goodsRelatedInformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDDGoodsItemInwardProcessingTransformationGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDDGoodsItemInwardProcessingTransformationGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDDGoodsItemInwardProcessingTransformationGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDDGoodsItemInwardProcessingTransformationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDDGoodsItemInwardProcessingTransformationGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDDGoodsItemInwardProcessingTransformationGoodsItem + Return CType(Serializer.Deserialize(s), DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPDDGoodsItemInwardProcessingTransformationGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDDGoodsItemInwardProcessingTransformationGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDDGoodsItemInwardProcessingTransformationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDDGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) + 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 DEXPDDGoodsItemInwardProcessingTransformationGoodsItem) 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 DEXPDDGoodsItemInwardProcessingTransformationGoodsItem + 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 Class + + _ + Public Enum DEXPDDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set(value As Decimal) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + _ + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + _ + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat.xsd new file mode 100644 index 0000000..5d7c0fe --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat.xsd @@ -0,0 +1,4956 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat_DEXPDE.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat_DEXPDE.Designer.vb new file mode 100644 index 0000000..9ce598e --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat_DEXPDE.Designer.vb @@ -0,0 +1,17591 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' DEXPDEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace DEXPDE + + _ + Partial Public Class DEXPDE + +#Region "Private fields" + Private _interchangeSender As DEXPDEInterchangeSender + + Private _interchangeRecipient As DEXPDEInterchangeRecipient + + Private _preparation As DEXPDEPreparation + + Private _interchangeControlReference As String + + Private _messageGroup As DEXPDEMessageGroup + + Private _messageReferenceNumber As String + + Private _messageType As DEXPDEMessageType + + Private _messageIdentifier As String + + Private _header As DEXPDEHeader + + Private _goodsLoadingPlace As DEXPDEGoodsLoadingPlace + + Private _exportCustomsOffice As DEXPDEExportCustomsOffice + + Private _supplementaryDeclarationCustomsOffice As DEXPDESupplementaryDeclarationCustomsOffice + + Private _intendedExitCustomsOffice As DEXPDEIntendedExitCustomsOffice + + Private _actualExitCustomsOffice As DEXPDEActualExitCustomsOffice + + Private _transaction As DEXPDETransaction + + Private _specialFact As List(Of DEXPDESpecialFact) + + Private _itinerary As List(Of DEXPDEItinerary) + + Private _seals As DEXPDESeals + + Private _presentationPackingLoading As DEXPDEPresentationPackingLoading + + Private _exporter As DEXPDEExporter + + Private _declarant As DEXPDEDeclarant + + Private _representative As DEXPDERepresentative + + Private _contractor As DEXPDEContractor + + Private _outwardProcessingOwner As DEXPDEOutwardProcessingOwner + + Private _consignee As DEXPDEConsignee + + Private _deliveryTerms As DEXPDEDeliveryTerms + + Private _outwardProcessing As DEXPDEOutwardProcessing + + Private _goodsItem As List(Of DEXPDEGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPDEGoodsItem)() + Me._outwardProcessing = New DEXPDEOutwardProcessing() + Me._deliveryTerms = New DEXPDEDeliveryTerms() + Me._consignee = New DEXPDEConsignee() + Me._outwardProcessingOwner = New DEXPDEOutwardProcessingOwner() + Me._contractor = New DEXPDEContractor() + Me._representative = New DEXPDERepresentative() + Me._declarant = New DEXPDEDeclarant() + Me._exporter = New DEXPDEExporter() + Me._presentationPackingLoading = New DEXPDEPresentationPackingLoading() + Me._seals = New DEXPDESeals() + Me._itinerary = New List(Of DEXPDEItinerary)() + Me._specialFact = New List(Of DEXPDESpecialFact)() + Me._transaction = New DEXPDETransaction() + Me._actualExitCustomsOffice = New DEXPDEActualExitCustomsOffice() + Me._intendedExitCustomsOffice = New DEXPDEIntendedExitCustomsOffice() + Me._supplementaryDeclarationCustomsOffice = New DEXPDESupplementaryDeclarationCustomsOffice() + Me._exportCustomsOffice = New DEXPDEExportCustomsOffice() + Me._goodsLoadingPlace = New DEXPDEGoodsLoadingPlace() + Me._header = New DEXPDEHeader() + Me._preparation = New DEXPDEPreparation() + Me._interchangeRecipient = New DEXPDEInterchangeRecipient() + Me._interchangeSender = New DEXPDEInterchangeSender() + End Sub + + Public Property InterchangeSender() As DEXPDEInterchangeSender + Get + Return Me._interchangeSender + End Get + Set(value As DEXPDEInterchangeSender) + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As DEXPDEInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set(value As DEXPDEInterchangeRecipient) + Me._interchangeRecipient = Value + End Set + End Property + + Public Property Preparation() As DEXPDEPreparation + Get + Return Me._preparation + End Get + Set(value As DEXPDEPreparation) + Me._preparation = Value + End Set + End Property + + _ + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set(value As String) + Me._interchangeControlReference = Value + End Set + End Property + + Public Property MessageGroup() As DEXPDEMessageGroup + Get + Return Me._messageGroup + End Get + Set(value As DEXPDEMessageGroup) + Me._messageGroup = Value + End Set + End Property + + _ + Public Property MessageReferenceNumber() As String + Get + Return Me._messageReferenceNumber + End Get + Set(value As String) + Me._messageReferenceNumber = Value + End Set + End Property + + Public Property MessageType() As DEXPDEMessageType + Get + Return Me._messageType + End Get + Set(value As DEXPDEMessageType) + Me._messageType = Value + End Set + End Property + + _ + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set(value As String) + Me._messageIdentifier = Value + End Set + End Property + + Public Property Header() As DEXPDEHeader + Get + Return Me._header + End Get + Set(value As DEXPDEHeader) + Me._header = Value + End Set + End Property + + _ + Public Property GoodsLoadingPlace() As DEXPDEGoodsLoadingPlace + Get + Return Me._goodsLoadingPlace + End Get + Set(value As DEXPDEGoodsLoadingPlace) + Me._goodsLoadingPlace = Value + End Set + End Property + + Public Property ExportCustomsOffice() As DEXPDEExportCustomsOffice + Get + Return Me._exportCustomsOffice + End Get + Set(value As DEXPDEExportCustomsOffice) + Me._exportCustomsOffice = Value + End Set + End Property + + Public Property SupplementaryDeclarationCustomsOffice() As DEXPDESupplementaryDeclarationCustomsOffice + Get + Return Me._supplementaryDeclarationCustomsOffice + End Get + Set(value As DEXPDESupplementaryDeclarationCustomsOffice) + Me._supplementaryDeclarationCustomsOffice = Value + End Set + End Property + + Public Property IntendedExitCustomsOffice() As DEXPDEIntendedExitCustomsOffice + Get + Return Me._intendedExitCustomsOffice + End Get + Set(value As DEXPDEIntendedExitCustomsOffice) + Me._intendedExitCustomsOffice = Value + End Set + End Property + + Public Property ActualExitCustomsOffice() As DEXPDEActualExitCustomsOffice + Get + Return Me._actualExitCustomsOffice + End Get + Set(value As DEXPDEActualExitCustomsOffice) + Me._actualExitCustomsOffice = Value + End Set + End Property + + Public Property Transaction() As DEXPDETransaction + Get + Return Me._transaction + End Get + Set(value As DEXPDETransaction) + Me._transaction = Value + End Set + End Property + + _ + Public Property SpecialFact() As List(Of DEXPDESpecialFact) + Get + Return Me._specialFact + End Get + Set(value As List(Of DEXPDESpecialFact)) + Me._specialFact = Value + End Set + End Property + + _ + Public Property Itinerary() As List(Of DEXPDEItinerary) + Get + Return Me._itinerary + End Get + Set(value As List(Of DEXPDEItinerary)) + Me._itinerary = Value + End Set + End Property + + Public Property Seals() As DEXPDESeals + Get + Return Me._seals + End Get + Set(value As DEXPDESeals) + Me._seals = Value + End Set + End Property + + Public Property PresentationPackingLoading() As DEXPDEPresentationPackingLoading + Get + Return Me._presentationPackingLoading + End Get + Set(value As DEXPDEPresentationPackingLoading) + Me._presentationPackingLoading = Value + End Set + End Property + + Public Property Exporter() As DEXPDEExporter + Get + Return Me._exporter + End Get + Set(value As DEXPDEExporter) + Me._exporter = Value + End Set + End Property + + Public Property Declarant() As DEXPDEDeclarant + Get + Return Me._declarant + End Get + Set(value As DEXPDEDeclarant) + Me._declarant = Value + End Set + End Property + + Public Property Representative() As DEXPDERepresentative + Get + Return Me._representative + End Get + Set(value As DEXPDERepresentative) + Me._representative = Value + End Set + End Property + + Public Property Contractor() As DEXPDEContractor + Get + Return Me._contractor + End Get + Set(value As DEXPDEContractor) + Me._contractor = Value + End Set + End Property + + Public Property OutwardProcessingOwner() As DEXPDEOutwardProcessingOwner + Get + Return Me._outwardProcessingOwner + End Get + Set(value As DEXPDEOutwardProcessingOwner) + Me._outwardProcessingOwner = Value + End Set + End Property + + Public Property Consignee() As DEXPDEConsignee + Get + Return Me._consignee + End Get + Set(value As DEXPDEConsignee) + Me._consignee = Value + End Set + End Property + + Public Property DeliveryTerms() As DEXPDEDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set(value As DEXPDEDeliveryTerms) + Me._deliveryTerms = Value + End Set + End Property + + Public Property OutwardProcessing() As DEXPDEOutwardProcessing + Get + Return Me._outwardProcessing + End Get + Set(value As DEXPDEOutwardProcessing) + Me._outwardProcessing = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPDEGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPDEGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDE)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDE object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDE object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDE) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDE) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDE + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDE) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDE + Return CType(Serializer.Deserialize(s), DEXPDE) + End Function +#End Region + + ''' + ''' Serializes current DEXPDE object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDE object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDE) + 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 DEXPDE) 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 DEXPDE + 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 Class + + _ + Partial Public Class DEXPDEInterchangeSender + +#Region "Private fields" + Private _identification As DEXPDEInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPDEInterchangeSenderIdentification() + End Sub + + Public Property Identification() As DEXPDEInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDEInterchangeSenderIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEInterchangeSender + Return CType(Serializer.Deserialize(s), DEXPDEInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEInterchangeSender) + 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 DEXPDEInterchangeSender) 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 DEXPDEInterchangeSender + 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 Class + + _ + Partial Public Class DEXPDEInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), DEXPDEInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEInterchangeSenderIdentification) + 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 DEXPDEInterchangeSenderIdentification) 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 DEXPDEInterchangeSenderIdentification + 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 Class + + _ + Partial Public Class DEXPDEInterchangeRecipient + +#Region "Private fields" + Private _identification As DEXPDEInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPDEInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As DEXPDEInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDEInterchangeRecipientIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEInterchangeRecipient + Return CType(Serializer.Deserialize(s), DEXPDEInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEInterchangeRecipient) + 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 DEXPDEInterchangeRecipient) 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 DEXPDEInterchangeRecipient + 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 Class + + _ + Partial Public Class DEXPDEInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), DEXPDEInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEInterchangeRecipientIdentification) + 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 DEXPDEInterchangeRecipientIdentification) 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 DEXPDEInterchangeRecipientIdentification + 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 Class + + _ + Partial Public Class DEXPDEPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set(value As Date) + Me._date = Value + End Set + End Property + + _ + Public Property Time() As Date + Get + Return Me._time + End Get + Set(value As Date) + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEPreparation + Return CType(Serializer.Deserialize(s), DEXPDEPreparation) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEPreparation) + 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 DEXPDEPreparation) 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 DEXPDEPreparation + 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 Class + + _ + Public Enum DEXPDEMessageGroup + + ''' + EXP + End Enum + + _ + Public Enum DEXPDEMessageType + + ''' + DEXPDE + End Enum + + _ + Partial Public Class DEXPDEHeader + +#Region "Private fields" + Private _declaration As DEXPDEHeaderDeclaration + + Private _movementReferenceNumber As String + + Private _messageVersion As String + + Private _exportCountry As String + + Private _destinationCountry As String + + Private _declarationDateTime As Date + + Private _decisiveDate As Date + + Private _exitDate As Date + + Private _specificCircumstanceIndicator As String + + Private _transportChargesPaymentMethod As String + + Private _partyConstellation As DEXPDEHeaderPartyConstellation + + Private _containerFlag As DEXPDEHeaderContainerFlag + + Private _totalGrossMassMeasure As Decimal + + Private _registrationNumber As String + + Private _annotation As String + + Private _commercialReferenceNumber As String + + Private _localReferenceNumber As String + + Private _goodsItemQuantity As String + + Private _authorizationNumber As String + + Private _customsAuthorization As DEXPDEHeaderCustomsAuthorization + + Private _inlandTransportMeans As DEXPDEHeaderInlandTransportMeans + + Private _departureTransportMeans As DEXPDEHeaderDepartureTransportMeans + + Private _borderTransportMeans As DEXPDEHeaderBorderTransportMeans + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._borderTransportMeans = New DEXPDEHeaderBorderTransportMeans() + Me._departureTransportMeans = New DEXPDEHeaderDepartureTransportMeans() + Me._inlandTransportMeans = New DEXPDEHeaderInlandTransportMeans() + Me._customsAuthorization = New DEXPDEHeaderCustomsAuthorization() + Me._declaration = New DEXPDEHeaderDeclaration() + End Sub + + Public Property Declaration() As DEXPDEHeaderDeclaration + Get + Return Me._declaration + End Get + Set(value As DEXPDEHeaderDeclaration) + Me._declaration = Value + End Set + End Property + + _ + Public Property MovementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set(value As String) + Me._movementReferenceNumber = Value + End Set + End Property + + _ + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set(value As String) + Me._messageVersion = Value + End Set + End Property + + _ + Public Property ExportCountry() As String + Get + Return Me._exportCountry + End Get + Set(value As String) + Me._exportCountry = Value + End Set + End Property + + _ + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set(value As String) + Me._destinationCountry = Value + End Set + End Property + + Public Property DeclarationDateTime() As Date + Get + Return Me._declarationDateTime + End Get + Set(value As Date) + Me._declarationDateTime = Value + End Set + End Property + + _ + Public Property DecisiveDate() As Date + Get + Return Me._decisiveDate + End Get + Set(value As Date) + Me._decisiveDate = Value + End Set + End Property + + _ + Public Property ExitDate() As Date + Get + Return Me._exitDate + End Get + Set(value As Date) + Me._exitDate = Value + End Set + End Property + + _ + Public Property SpecificCircumstanceIndicator() As String + Get + Return Me._specificCircumstanceIndicator + End Get + Set(value As String) + Me._specificCircumstanceIndicator = Value + End Set + End Property + + _ + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set(value As String) + Me._transportChargesPaymentMethod = Value + End Set + End Property + + Public Property PartyConstellation() As DEXPDEHeaderPartyConstellation + Get + Return Me._partyConstellation + End Get + Set(value As DEXPDEHeaderPartyConstellation) + Me._partyConstellation = Value + End Set + End Property + + Public Property ContainerFlag() As DEXPDEHeaderContainerFlag + Get + Return Me._containerFlag + End Get + Set(value As DEXPDEHeaderContainerFlag) + Me._containerFlag = Value + End Set + End Property + + Public Property TotalGrossMassMeasure() As Decimal + Get + Return Me._totalGrossMassMeasure + End Get + Set(value As Decimal) + Me._totalGrossMassMeasure = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property Annotation() As String + Get + Return Me._annotation + End Get + Set(value As String) + Me._annotation = Value + End Set + End Property + + _ + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set(value As String) + Me._commercialReferenceNumber = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + _ + Public Property AuthorizationNumber() As String + Get + Return Me._authorizationNumber + End Get + Set(value As String) + Me._authorizationNumber = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPDEHeaderCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPDEHeaderCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + Public Property InlandTransportMeans() As DEXPDEHeaderInlandTransportMeans + Get + Return Me._inlandTransportMeans + End Get + Set(value As DEXPDEHeaderInlandTransportMeans) + Me._inlandTransportMeans = Value + End Set + End Property + + Public Property DepartureTransportMeans() As DEXPDEHeaderDepartureTransportMeans + Get + Return Me._departureTransportMeans + End Get + Set(value As DEXPDEHeaderDepartureTransportMeans) + Me._departureTransportMeans = Value + End Set + End Property + + Public Property BorderTransportMeans() As DEXPDEHeaderBorderTransportMeans + Get + Return Me._borderTransportMeans + End Get + Set(value As DEXPDEHeaderBorderTransportMeans) + Me._borderTransportMeans = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEHeader object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEHeader + Return CType(Serializer.Deserialize(s), DEXPDEHeader) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEHeader object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeader) + 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 DEXPDEHeader) 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 DEXPDEHeader + 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 Class + + _ + Partial Public Class DEXPDEHeaderDeclaration + +#Region "Private fields" + Private _type As String + + Private _procedure As String + + Private _variant As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property Procedure() As String + Get + Return Me._procedure + End Get + Set(value As String) + Me._procedure = Value + End Set + End Property + + _ + Public Property [Variant]() As String + Get + Return Me._variant + End Get + Set(value As String) + Me._variant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEHeaderDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEHeaderDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEHeaderDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEHeaderDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEHeaderDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEHeaderDeclaration + Return CType(Serializer.Deserialize(s), DEXPDEHeaderDeclaration) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEHeaderDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEHeaderDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderDeclaration) + 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 DEXPDEHeaderDeclaration) 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 DEXPDEHeaderDeclaration + 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 Class + + _ + Public Enum DEXPDEHeaderPartyConstellation + + ''' + _ + Item0000 + + ''' + _ + Item0001 + + ''' + _ + Item0003 + + ''' + _ + Item0010 + + ''' + _ + Item0011 + + ''' + _ + Item0013 + + ''' + _ + Item0100 + + ''' + _ + Item0101 + + ''' + _ + Item0103 + + ''' + _ + Item0110 + + ''' + _ + Item0111 + + ''' + _ + Item0113 + + ''' + _ + Item1000 + + ''' + _ + Item1001 + + ''' + _ + Item1002 + + ''' + _ + Item1003 + + ''' + _ + Item1010 + + ''' + _ + Item1011 + + ''' + _ + Item1012 + + ''' + _ + Item1013 + + ''' + _ + Item1100 + + ''' + _ + Item1101 + + ''' + _ + Item1102 + + ''' + _ + Item1103 + + ''' + _ + Item1110 + + ''' + _ + Item1111 + + ''' + _ + Item1112 + + ''' + _ + Item1113 + End Enum + + _ + Public Enum DEXPDEHeaderContainerFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPDEHeaderCustomsAuthorization + +#Region "Private fields" + Private _localClearanceOutwardProcessing As String + + Private _outwardProcessing As String + + Private _accreditedExporter As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property LocalClearanceOutwardProcessing() As String + Get + Return Me._localClearanceOutwardProcessing + End Get + Set(value As String) + Me._localClearanceOutwardProcessing = Value + End Set + End Property + + _ + Public Property OutwardProcessing() As String + Get + Return Me._outwardProcessing + End Get + Set(value As String) + Me._outwardProcessing = Value + End Set + End Property + + _ + Public Property AccreditedExporter() As String + Get + Return Me._accreditedExporter + End Get + Set(value As String) + Me._accreditedExporter = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEHeaderCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEHeaderCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEHeaderCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEHeaderCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEHeaderCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEHeaderCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEHeaderCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPDEHeaderCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEHeaderCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEHeaderCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEHeaderCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderCustomsAuthorization) + 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 DEXPDEHeaderCustomsAuthorization) 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 DEXPDEHeaderCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPDEHeaderInlandTransportMeans + +#Region "Private fields" + Private _mode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Mode() As String + Get + Return Me._mode + End Get + Set(value As String) + Me._mode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEHeaderInlandTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEHeaderInlandTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEHeaderInlandTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEHeaderInlandTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderInlandTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderInlandTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEHeaderInlandTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEHeaderInlandTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEHeaderInlandTransportMeans + Return CType(Serializer.Deserialize(s), DEXPDEHeaderInlandTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEHeaderInlandTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEHeaderInlandTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEHeaderInlandTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderInlandTransportMeans) + 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 DEXPDEHeaderInlandTransportMeans) 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 DEXPDEHeaderInlandTransportMeans + 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 Class + + _ + Partial Public Class DEXPDEHeaderDepartureTransportMeans + +#Region "Private fields" + Private _type As DEXPDEHeaderDepartureTransportMeansType + + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPDEHeaderDepartureTransportMeansType + Get + Return Me._type + End Get + Set(value As DEXPDEHeaderDepartureTransportMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + _ + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set(value As String) + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEHeaderDepartureTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEHeaderDepartureTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEHeaderDepartureTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEHeaderDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderDepartureTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderDepartureTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEHeaderDepartureTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEHeaderDepartureTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEHeaderDepartureTransportMeans + Return CType(Serializer.Deserialize(s), DEXPDEHeaderDepartureTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEHeaderDepartureTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEHeaderDepartureTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEHeaderDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderDepartureTransportMeans) + 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 DEXPDEHeaderDepartureTransportMeans) 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 DEXPDEHeaderDepartureTransportMeans + 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 Class + + _ + Public Enum DEXPDEHeaderDepartureTransportMeansType + + ''' + _ + Item10 + + ''' + _ + Item20 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item35 + + ''' + _ + Item40 + + ''' + _ + Item50 + + ''' + _ + Item60 + + ''' + _ + Item70 + End Enum + + _ + Partial Public Class DEXPDEHeaderBorderTransportMeans + +#Region "Private fields" + Private _mode As String + + Private _type As DEXPDEHeaderBorderTransportMeansType + + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Mode() As String + Get + Return Me._mode + End Get + Set(value As String) + Me._mode = Value + End Set + End Property + + Public Property Type() As DEXPDEHeaderBorderTransportMeansType + Get + Return Me._type + End Get + Set(value As DEXPDEHeaderBorderTransportMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + _ + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set(value As String) + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEHeaderBorderTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEHeaderBorderTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEHeaderBorderTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEHeaderBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderBorderTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEHeaderBorderTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEHeaderBorderTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEHeaderBorderTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEHeaderBorderTransportMeans + Return CType(Serializer.Deserialize(s), DEXPDEHeaderBorderTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEHeaderBorderTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEHeaderBorderTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEHeaderBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEHeaderBorderTransportMeans) + 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 DEXPDEHeaderBorderTransportMeans) 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 DEXPDEHeaderBorderTransportMeans + 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 Class + + _ + Public Enum DEXPDEHeaderBorderTransportMeansType + + ''' + _ + Item10 + + ''' + _ + Item20 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item35 + + ''' + _ + Item40 + + ''' + _ + Item50 + + ''' + _ + Item60 + + ''' + _ + Item70 + End Enum + + _ + Partial Public Class DEXPDEGoodsLoadingPlace + +#Region "Private fields" + Private _identification As DEXPDEGoodsLoadingPlaceIdentification + + Private _address As DEXPDEGoodsLoadingPlaceAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPDEGoodsLoadingPlaceAddress() + Me._identification = New DEXPDEGoodsLoadingPlaceIdentification() + End Sub + + Public Property Identification() As DEXPDEGoodsLoadingPlaceIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDEGoodsLoadingPlaceIdentification) + Me._identification = Value + End Set + End Property + + Public Property Address() As DEXPDEGoodsLoadingPlaceAddress + Get + Return Me._address + End Get + Set(value As DEXPDEGoodsLoadingPlaceAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsLoadingPlace)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsLoadingPlace object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsLoadingPlace object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsLoadingPlace object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsLoadingPlace, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsLoadingPlace) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsLoadingPlace) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsLoadingPlace + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsLoadingPlace) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsLoadingPlace + Return CType(Serializer.Deserialize(s), DEXPDEGoodsLoadingPlace) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsLoadingPlace object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsLoadingPlace object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsLoadingPlace object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsLoadingPlace, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsLoadingPlace) + 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 DEXPDEGoodsLoadingPlace) 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 DEXPDEGoodsLoadingPlace + 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 Class + + _ + Partial Public Class DEXPDEGoodsLoadingPlaceIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsLoadingPlaceIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsLoadingPlaceIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsLoadingPlaceIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsLoadingPlaceIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsLoadingPlaceIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsLoadingPlaceIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsLoadingPlaceIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsLoadingPlaceIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsLoadingPlaceIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsLoadingPlaceIdentification + Return CType(Serializer.Deserialize(s), DEXPDEGoodsLoadingPlaceIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsLoadingPlaceIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsLoadingPlaceIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsLoadingPlaceIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsLoadingPlaceIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsLoadingPlaceIdentification) + 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 DEXPDEGoodsLoadingPlaceIdentification) 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 DEXPDEGoodsLoadingPlaceIdentification + 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 Class + + _ + Partial Public Class DEXPDEGoodsLoadingPlaceAddress + +#Region "Private fields" + Private _line As String + + Private _postcode As String + + Private _city As String + + Private _complement As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsLoadingPlaceAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsLoadingPlaceAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsLoadingPlaceAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsLoadingPlaceAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsLoadingPlaceAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsLoadingPlaceAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsLoadingPlaceAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsLoadingPlaceAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsLoadingPlaceAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsLoadingPlaceAddress + Return CType(Serializer.Deserialize(s), DEXPDEGoodsLoadingPlaceAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsLoadingPlaceAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsLoadingPlaceAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsLoadingPlaceAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsLoadingPlaceAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsLoadingPlaceAddress) + 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 DEXPDEGoodsLoadingPlaceAddress) 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 DEXPDEGoodsLoadingPlaceAddress + 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 Class + + _ + Partial Public Class DEXPDEExportCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEExportCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEExportCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEExportCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExportCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExportCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEExportCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEExportCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEExportCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPDEExportCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEExportCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEExportCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExportCustomsOffice) + 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 DEXPDEExportCustomsOffice) 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 DEXPDEExportCustomsOffice + 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 Class + + _ + Partial Public Class DEXPDESupplementaryDeclarationCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDESupplementaryDeclarationCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDESupplementaryDeclarationCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDESupplementaryDeclarationCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDESupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDESupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDESupplementaryDeclarationCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDESupplementaryDeclarationCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDESupplementaryDeclarationCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDESupplementaryDeclarationCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDESupplementaryDeclarationCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPDESupplementaryDeclarationCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPDESupplementaryDeclarationCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDESupplementaryDeclarationCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDESupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDESupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDESupplementaryDeclarationCustomsOffice) + 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 DEXPDESupplementaryDeclarationCustomsOffice) 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 DEXPDESupplementaryDeclarationCustomsOffice + 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 Class + + _ + Partial Public Class DEXPDEIntendedExitCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEIntendedExitCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEIntendedExitCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEIntendedExitCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEIntendedExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEIntendedExitCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEIntendedExitCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEIntendedExitCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEIntendedExitCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEIntendedExitCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPDEIntendedExitCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEIntendedExitCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEIntendedExitCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEIntendedExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEIntendedExitCustomsOffice) + 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 DEXPDEIntendedExitCustomsOffice) 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 DEXPDEIntendedExitCustomsOffice + 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 Class + + _ + Partial Public Class DEXPDEActualExitCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEActualExitCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEActualExitCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEActualExitCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEActualExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEActualExitCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEActualExitCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEActualExitCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEActualExitCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEActualExitCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPDEActualExitCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEActualExitCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEActualExitCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEActualExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEActualExitCustomsOffice) + 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 DEXPDEActualExitCustomsOffice) 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 DEXPDEActualExitCustomsOffice + 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 Class + + _ + Partial Public Class DEXPDETransaction + +#Region "Private fields" + Private _type As DEXPDETransactionType + + Private _invoiceAmount As Decimal + + Private _currency As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPDETransactionType + Get + Return Me._type + End Get + Set(value As DEXPDETransactionType) + Me._type = Value + End Set + End Property + + Public Property InvoiceAmount() As Decimal + Get + Return Me._invoiceAmount + End Get + Set(value As Decimal) + Me._invoiceAmount = Value + End Set + End Property + + _ + Public Property Currency() As String + Get + Return Me._currency + End Get + Set(value As String) + Me._currency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDETransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDETransaction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDETransaction object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDETransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDETransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDETransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDETransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDETransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDETransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDETransaction + Return CType(Serializer.Deserialize(s), DEXPDETransaction) + End Function +#End Region + + ''' + ''' Serializes current DEXPDETransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDETransaction object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDETransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDETransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDETransaction) + 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 DEXPDETransaction) 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 DEXPDETransaction + 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 Class + + _ + Public Enum DEXPDETransactionType + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item19 + + ''' + _ + Item21 + + ''' + _ + Item22 + + ''' + _ + Item23 + + ''' + _ + Item29 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item41 + + ''' + _ + Item42 + + ''' + _ + Item51 + + ''' + _ + Item52 + + ''' + _ + Item67 + + ''' + _ + Item69 + + ''' + _ + Item71 + + ''' + _ + Item72 + + ''' + _ + Item81 + + ''' + _ + Item91 + + ''' + _ + Item92 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPDESpecialFact + +#Region "Private fields" + Private _indicator As DEXPDESpecialFactIndicator + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Indicator() As DEXPDESpecialFactIndicator + Get + Return Me._indicator + End Get + Set(value As DEXPDESpecialFactIndicator) + Me._indicator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDESpecialFact)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDESpecialFact object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDESpecialFact object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDESpecialFact object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDESpecialFact, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDESpecialFact) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDESpecialFact) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDESpecialFact + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDESpecialFact) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDESpecialFact + Return CType(Serializer.Deserialize(s), DEXPDESpecialFact) + End Function +#End Region + + ''' + ''' Serializes current DEXPDESpecialFact object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDESpecialFact object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDESpecialFact object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDESpecialFact, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDESpecialFact) + 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 DEXPDESpecialFact) 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 DEXPDESpecialFact + 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 Class + + _ + Public Enum DEXPDESpecialFactIndicator + + ''' + _ + Item0 + + ''' + _ + Item1 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + + ''' + _ + Item5 + End Enum + + _ + Partial Public Class DEXPDEItinerary + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEItinerary)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEItinerary object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEItinerary object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEItinerary) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEItinerary) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEItinerary + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEItinerary) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEItinerary + Return CType(Serializer.Deserialize(s), DEXPDEItinerary) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEItinerary object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEItinerary object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEItinerary) + 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 DEXPDEItinerary) 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 DEXPDEItinerary + 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 Class + + _ + Partial Public Class DEXPDESeals + +#Region "Private fields" + Private _type As DEXPDESealsType + + Private _number As String + + Private _seal As List(Of DEXPDESealsSeal) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._seal = New List(Of DEXPDESealsSeal)() + End Sub + + Public Property Type() As DEXPDESealsType + Get + Return Me._type + End Get + Set(value As DEXPDESealsType) + Me._type = Value + End Set + End Property + + _ + Public Property Number() As String + Get + Return Me._number + End Get + Set(value As String) + Me._number = Value + End Set + End Property + + _ + Public Property Seal() As List(Of DEXPDESealsSeal) + Get + Return Me._seal + End Get + Set(value As List(Of DEXPDESealsSeal)) + Me._seal = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDESeals)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDESeals object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDESeals object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDESeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDESeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDESeals) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDESeals) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDESeals + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDESeals) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDESeals + Return CType(Serializer.Deserialize(s), DEXPDESeals) + End Function +#End Region + + ''' + ''' Serializes current DEXPDESeals object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDESeals object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDESeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDESeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDESeals) + 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 DEXPDESeals) 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 DEXPDESeals + 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 Class + + _ + Public Enum DEXPDESealsType + + ''' + P + + ''' + R + End Enum + + _ + Partial Public Class DEXPDESealsSeal + +#Region "Private fields" + Private _identity As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDESealsSeal)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDESealsSeal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDESealsSeal object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDESealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDESealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDESealsSeal) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDESealsSeal) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDESealsSeal + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDESealsSeal) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDESealsSeal + Return CType(Serializer.Deserialize(s), DEXPDESealsSeal) + End Function +#End Region + + ''' + ''' Serializes current DEXPDESealsSeal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDESealsSeal object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDESealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDESealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDESealsSeal) + 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 DEXPDESealsSeal) 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 DEXPDESealsSeal + 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 Class + + _ + Partial Public Class DEXPDEPresentationPackingLoading + +#Region "Private fields" + Private _startDateTime As Date + + Private _endDateTime As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property StartDateTime() As Date + Get + Return Me._startDateTime + End Get + Set(value As Date) + Me._startDateTime = Value + End Set + End Property + + Public Property EndDateTime() As Date + Get + Return Me._endDateTime + End Get + Set(value As Date) + Me._endDateTime = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEPresentationPackingLoading)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEPresentationPackingLoading object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEPresentationPackingLoading object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEPresentationPackingLoading object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEPresentationPackingLoading, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEPresentationPackingLoading) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEPresentationPackingLoading) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEPresentationPackingLoading + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEPresentationPackingLoading) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEPresentationPackingLoading + Return CType(Serializer.Deserialize(s), DEXPDEPresentationPackingLoading) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEPresentationPackingLoading object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEPresentationPackingLoading object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEPresentationPackingLoading object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEPresentationPackingLoading, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEPresentationPackingLoading) + 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 DEXPDEPresentationPackingLoading) 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 DEXPDEPresentationPackingLoading + 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 Class + + _ + Partial Public Class DEXPDEExporter + +#Region "Private fields" + Private _class As DEXPDEExporterClass + + Private _identification As DEXPDEExporterIdentification + + Private _name As String + + Private _address As DEXPDEExporterAddress + + Private _contactPerson As DEXPDEExporterContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDEExporterContactPerson() + Me._address = New DEXPDEExporterAddress() + Me._identification = New DEXPDEExporterIdentification() + End Sub + + Public Property [Class]() As DEXPDEExporterClass + Get + Return Me._class + End Get + Set(value As DEXPDEExporterClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDEExporterIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDEExporterIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDEExporterAddress + Get + Return Me._address + End Get + Set(value As DEXPDEExporterAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDEExporterContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDEExporterContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEExporter)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEExporter object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEExporter object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEExporter object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExporter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExporter) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExporter) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEExporter + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEExporter) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEExporter + Return CType(Serializer.Deserialize(s), DEXPDEExporter) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEExporter object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEExporter object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEExporter object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEExporter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExporter) + 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 DEXPDEExporter) 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 DEXPDEExporter + 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 Class + + _ + Public Enum DEXPDEExporterClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPDEExporterIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEExporterIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEExporterIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEExporterIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEExporterIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExporterIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExporterIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExporterIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEExporterIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEExporterIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEExporterIdentification + Return CType(Serializer.Deserialize(s), DEXPDEExporterIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEExporterIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEExporterIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEExporterIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEExporterIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExporterIdentification) + 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 DEXPDEExporterIdentification) 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 DEXPDEExporterIdentification + 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 Class + + _ + Partial Public Class DEXPDEExporterAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEExporterAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEExporterAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEExporterAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEExporterAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExporterAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExporterAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExporterAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEExporterAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEExporterAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEExporterAddress + Return CType(Serializer.Deserialize(s), DEXPDEExporterAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEExporterAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEExporterAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEExporterAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEExporterAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExporterAddress) + 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 DEXPDEExporterAddress) 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 DEXPDEExporterAddress + 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 Class + + _ + Partial Public Class DEXPDEExporterContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEExporterContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEExporterContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEExporterContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEExporterContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExporterContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExporterContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEExporterContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEExporterContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEExporterContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEExporterContactPerson + Return CType(Serializer.Deserialize(s), DEXPDEExporterContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEExporterContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEExporterContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEExporterContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEExporterContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEExporterContactPerson) + 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 DEXPDEExporterContactPerson) 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 DEXPDEExporterContactPerson + 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 Class + + _ + Partial Public Class DEXPDEDeclarant + +#Region "Private fields" + Private _class As DEXPDEDeclarantClass + + Private _identification As DEXPDEDeclarantIdentification + + Private _name As String + + Private _address As DEXPDEDeclarantAddress + + Private _contactPerson As DEXPDEDeclarantContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDEDeclarantContactPerson() + Me._address = New DEXPDEDeclarantAddress() + Me._identification = New DEXPDEDeclarantIdentification() + End Sub + + Public Property [Class]() As DEXPDEDeclarantClass + Get + Return Me._class + End Get + Set(value As DEXPDEDeclarantClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDEDeclarantIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDEDeclarantIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDEDeclarantAddress + Get + Return Me._address + End Get + Set(value As DEXPDEDeclarantAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDEDeclarantContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDEDeclarantContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEDeclarant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEDeclarant object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEDeclarant object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeclarant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeclarant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEDeclarant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEDeclarant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEDeclarant + Return CType(Serializer.Deserialize(s), DEXPDEDeclarant) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEDeclarant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEDeclarant object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeclarant) + 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 DEXPDEDeclarant) 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 DEXPDEDeclarant + 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 Class + + _ + Public Enum DEXPDEDeclarantClass + + ''' + _ + Item0 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPDEDeclarantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEDeclarantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEDeclarantIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEDeclarantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeclarantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeclarantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEDeclarantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEDeclarantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEDeclarantIdentification + Return CType(Serializer.Deserialize(s), DEXPDEDeclarantIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEDeclarantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEDeclarantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeclarantIdentification) + 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 DEXPDEDeclarantIdentification) 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 DEXPDEDeclarantIdentification + 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 Class + + _ + Partial Public Class DEXPDEDeclarantAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEDeclarantAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEDeclarantAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEDeclarantAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeclarantAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeclarantAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEDeclarantAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEDeclarantAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEDeclarantAddress + Return CType(Serializer.Deserialize(s), DEXPDEDeclarantAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEDeclarantAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEDeclarantAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeclarantAddress) + 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 DEXPDEDeclarantAddress) 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 DEXPDEDeclarantAddress + 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 Class + + _ + Partial Public Class DEXPDEDeclarantContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEDeclarantContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEDeclarantContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEDeclarantContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEDeclarantContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeclarantContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeclarantContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeclarantContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEDeclarantContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEDeclarantContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEDeclarantContactPerson + Return CType(Serializer.Deserialize(s), DEXPDEDeclarantContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEDeclarantContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEDeclarantContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEDeclarantContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEDeclarantContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeclarantContactPerson) + 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 DEXPDEDeclarantContactPerson) 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 DEXPDEDeclarantContactPerson + 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 Class + + _ + Partial Public Class DEXPDERepresentative + +#Region "Private fields" + Private _class As DEXPDERepresentativeClass + + Private _identification As DEXPDERepresentativeIdentification + + Private _name As String + + Private _address As DEXPDERepresentativeAddress + + Private _contactPerson As DEXPDERepresentativeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDERepresentativeContactPerson() + Me._address = New DEXPDERepresentativeAddress() + Me._identification = New DEXPDERepresentativeIdentification() + End Sub + + Public Property [Class]() As DEXPDERepresentativeClass + Get + Return Me._class + End Get + Set(value As DEXPDERepresentativeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDERepresentativeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDERepresentativeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDERepresentativeAddress + Get + Return Me._address + End Get + Set(value As DEXPDERepresentativeAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDERepresentativeContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDERepresentativeContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDERepresentative)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDERepresentative object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDERepresentative object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDERepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDERepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDERepresentative) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDERepresentative) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDERepresentative + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDERepresentative) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDERepresentative + Return CType(Serializer.Deserialize(s), DEXPDERepresentative) + End Function +#End Region + + ''' + ''' Serializes current DEXPDERepresentative object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDERepresentative object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDERepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDERepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDERepresentative) + 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 DEXPDERepresentative) 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 DEXPDERepresentative + 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 Class + + _ + Public Enum DEXPDERepresentativeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPDERepresentativeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDERepresentativeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDERepresentativeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDERepresentativeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDERepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDERepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDERepresentativeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDERepresentativeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDERepresentativeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDERepresentativeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDERepresentativeIdentification + Return CType(Serializer.Deserialize(s), DEXPDERepresentativeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDERepresentativeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDERepresentativeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDERepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDERepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDERepresentativeIdentification) + 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 DEXPDERepresentativeIdentification) 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 DEXPDERepresentativeIdentification + 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 Class + + _ + Partial Public Class DEXPDERepresentativeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDERepresentativeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDERepresentativeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDERepresentativeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDERepresentativeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDERepresentativeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDERepresentativeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDERepresentativeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDERepresentativeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDERepresentativeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDERepresentativeAddress + Return CType(Serializer.Deserialize(s), DEXPDERepresentativeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDERepresentativeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDERepresentativeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDERepresentativeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDERepresentativeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDERepresentativeAddress) + 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 DEXPDERepresentativeAddress) 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 DEXPDERepresentativeAddress + 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 Class + + _ + Partial Public Class DEXPDERepresentativeContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDERepresentativeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDERepresentativeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDERepresentativeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDERepresentativeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDERepresentativeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDERepresentativeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDERepresentativeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDERepresentativeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDERepresentativeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDERepresentativeContactPerson + Return CType(Serializer.Deserialize(s), DEXPDERepresentativeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDERepresentativeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDERepresentativeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDERepresentativeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDERepresentativeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDERepresentativeContactPerson) + 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 DEXPDERepresentativeContactPerson) 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 DEXPDERepresentativeContactPerson + 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 Class + + _ + Partial Public Class DEXPDEContractor + +#Region "Private fields" + Private _class As DEXPDEContractorClass + + Private _identification As DEXPDEContractorIdentification + + Private _name As String + + Private _address As DEXPDEContractorAddress + + Private _contactPerson As DEXPDEContractorContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDEContractorContactPerson() + Me._address = New DEXPDEContractorAddress() + Me._identification = New DEXPDEContractorIdentification() + End Sub + + Public Property [Class]() As DEXPDEContractorClass + Get + Return Me._class + End Get + Set(value As DEXPDEContractorClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDEContractorIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDEContractorIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDEContractorAddress + Get + Return Me._address + End Get + Set(value As DEXPDEContractorAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDEContractorContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDEContractorContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEContractor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEContractor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEContractor object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEContractor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEContractor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEContractor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEContractor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEContractor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEContractor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEContractor + Return CType(Serializer.Deserialize(s), DEXPDEContractor) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEContractor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEContractor object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEContractor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEContractor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEContractor) + 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 DEXPDEContractor) 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 DEXPDEContractor + 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 Class + + _ + Public Enum DEXPDEContractorClass + + ''' + _ + Item0 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPDEContractorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEContractorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEContractorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEContractorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEContractorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEContractorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEContractorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEContractorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEContractorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEContractorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEContractorIdentification + Return CType(Serializer.Deserialize(s), DEXPDEContractorIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEContractorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEContractorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEContractorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEContractorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEContractorIdentification) + 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 DEXPDEContractorIdentification) 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 DEXPDEContractorIdentification + 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 Class + + _ + Partial Public Class DEXPDEContractorAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEContractorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEContractorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEContractorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEContractorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEContractorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEContractorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEContractorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEContractorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEContractorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEContractorAddress + Return CType(Serializer.Deserialize(s), DEXPDEContractorAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEContractorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEContractorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEContractorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEContractorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEContractorAddress) + 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 DEXPDEContractorAddress) 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 DEXPDEContractorAddress + 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 Class + + _ + Partial Public Class DEXPDEContractorContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEContractorContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEContractorContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEContractorContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEContractorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEContractorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEContractorContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEContractorContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEContractorContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEContractorContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEContractorContactPerson + Return CType(Serializer.Deserialize(s), DEXPDEContractorContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEContractorContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEContractorContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEContractorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEContractorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEContractorContactPerson) + 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 DEXPDEContractorContactPerson) 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 DEXPDEContractorContactPerson + 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 Class + + _ + Partial Public Class DEXPDEOutwardProcessingOwner + +#Region "Private fields" + Private _class As DEXPDEOutwardProcessingOwnerClass + + Private _identification As DEXPDEOutwardProcessingOwnerIdentification + + Private _contactPerson As DEXPDEOutwardProcessingOwnerContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPDEOutwardProcessingOwnerContactPerson() + Me._identification = New DEXPDEOutwardProcessingOwnerIdentification() + End Sub + + Public Property [Class]() As DEXPDEOutwardProcessingOwnerClass + Get + Return Me._class + End Get + Set(value As DEXPDEOutwardProcessingOwnerClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDEOutwardProcessingOwnerIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDEOutwardProcessingOwnerIdentification) + Me._identification = Value + End Set + End Property + + Public Property ContactPerson() As DEXPDEOutwardProcessingOwnerContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPDEOutwardProcessingOwnerContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEOutwardProcessingOwner)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEOutwardProcessingOwner object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEOutwardProcessingOwner object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEOutwardProcessingOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingOwner) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingOwner) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEOutwardProcessingOwner + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEOutwardProcessingOwner) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEOutwardProcessingOwner + Return CType(Serializer.Deserialize(s), DEXPDEOutwardProcessingOwner) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEOutwardProcessingOwner object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEOutwardProcessingOwner object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEOutwardProcessingOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingOwner) + 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 DEXPDEOutwardProcessingOwner) 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 DEXPDEOutwardProcessingOwner + 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 Class + + _ + Public Enum DEXPDEOutwardProcessingOwnerClass + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPDEOutwardProcessingOwnerIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As DEXPDEOutwardProcessingOwnerIdentificationSubsidiaryNumber + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Public Property SubsidiaryNumber() As DEXPDEOutwardProcessingOwnerIdentificationSubsidiaryNumber + Get + Return Me._subsidiaryNumber + End Get + Set(value As DEXPDEOutwardProcessingOwnerIdentificationSubsidiaryNumber) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEOutwardProcessingOwnerIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEOutwardProcessingOwnerIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEOutwardProcessingOwnerIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEOutwardProcessingOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingOwnerIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingOwnerIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEOutwardProcessingOwnerIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEOutwardProcessingOwnerIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEOutwardProcessingOwnerIdentification + Return CType(Serializer.Deserialize(s), DEXPDEOutwardProcessingOwnerIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEOutwardProcessingOwnerIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEOutwardProcessingOwnerIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEOutwardProcessingOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingOwnerIdentification) + 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 DEXPDEOutwardProcessingOwnerIdentification) 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 DEXPDEOutwardProcessingOwnerIdentification + 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 Class + + _ + Public Enum DEXPDEOutwardProcessingOwnerIdentificationSubsidiaryNumber + + ''' + _ + Item0000 + End Enum + + _ + Partial Public Class DEXPDEOutwardProcessingOwnerContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEOutwardProcessingOwnerContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEOutwardProcessingOwnerContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEOutwardProcessingOwnerContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEOutwardProcessingOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingOwnerContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingOwnerContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEOutwardProcessingOwnerContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEOutwardProcessingOwnerContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEOutwardProcessingOwnerContactPerson + Return CType(Serializer.Deserialize(s), DEXPDEOutwardProcessingOwnerContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEOutwardProcessingOwnerContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEOutwardProcessingOwnerContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEOutwardProcessingOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingOwnerContactPerson) + 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 DEXPDEOutwardProcessingOwnerContactPerson) 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 DEXPDEOutwardProcessingOwnerContactPerson + 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 Class + + _ + Partial Public Class DEXPDEConsignee + +#Region "Private fields" + Private _class As DEXPDEConsigneeClass + + Private _identification As DEXPDEConsigneeIdentification + + Private _name As String + + Private _address As DEXPDEConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPDEConsigneeAddress() + Me._identification = New DEXPDEConsigneeIdentification() + End Sub + + Public Property [Class]() As DEXPDEConsigneeClass + Get + Return Me._class + End Get + Set(value As DEXPDEConsigneeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDEConsigneeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDEConsigneeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDEConsigneeAddress + Get + Return Me._address + End Get + Set(value As DEXPDEConsigneeAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEConsignee + Return CType(Serializer.Deserialize(s), DEXPDEConsignee) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEConsignee) + 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 DEXPDEConsignee) 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 DEXPDEConsignee + 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 Class + + _ + Public Enum DEXPDEConsigneeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPDEConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEConsigneeIdentification + Return CType(Serializer.Deserialize(s), DEXPDEConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEConsigneeIdentification) + 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 DEXPDEConsigneeIdentification) 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 DEXPDEConsigneeIdentification + 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 Class + + _ + Partial Public Class DEXPDEConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEConsigneeAddress + Return CType(Serializer.Deserialize(s), DEXPDEConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEConsigneeAddress) + 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 DEXPDEConsigneeAddress) 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 DEXPDEConsigneeAddress + 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 Class + + _ + Partial Public Class DEXPDEDeliveryTerms + +#Region "Private fields" + Private _incotermCode As DEXPDEDeliveryTermsIncotermCode + + Private _description As String + + Private _location As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property IncotermCode() As DEXPDEDeliveryTermsIncotermCode + Get + Return Me._incotermCode + End Get + Set(value As DEXPDEDeliveryTermsIncotermCode) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + _ + Public Property Location() As String + Get + Return Me._location + End Get + Set(value As String) + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEDeliveryTerms object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEDeliveryTerms + Return CType(Serializer.Deserialize(s), DEXPDEDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEDeliveryTerms) + 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 DEXPDEDeliveryTerms) 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 DEXPDEDeliveryTerms + 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 Class + + _ + Public Enum DEXPDEDeliveryTermsIncotermCode + + ''' + CFR + + ''' + CIF + + ''' + CIP + + ''' + CPT + + ''' + DAF + + ''' + DAP + + ''' + DAT + + ''' + DDP + + ''' + DDU + + ''' + DEQ + + ''' + DES + + ''' + EXW + + ''' + FAS + + ''' + FCA + + ''' + FOB + + ''' + XXX + End Enum + + _ + Partial Public Class DEXPDEOutwardProcessing + +#Region "Private fields" + Private _reimportDate As Date + + Private _usualReplacement As DEXPDEOutwardProcessingUsualReplacement + + Private _reimport As List(Of DEXPDEOutwardProcessingReimport) + + Private _identificationMeans As List(Of DEXPDEOutwardProcessingIdentificationMeans) + + Private _product As List(Of DEXPDEOutwardProcessingProduct) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._product = New List(Of DEXPDEOutwardProcessingProduct)() + Me._identificationMeans = New List(Of DEXPDEOutwardProcessingIdentificationMeans)() + Me._reimport = New List(Of DEXPDEOutwardProcessingReimport)() + End Sub + + _ + Public Property ReimportDate() As Date + Get + Return Me._reimportDate + End Get + Set(value As Date) + Me._reimportDate = Value + End Set + End Property + + Public Property UsualReplacement() As DEXPDEOutwardProcessingUsualReplacement + Get + Return Me._usualReplacement + End Get + Set(value As DEXPDEOutwardProcessingUsualReplacement) + Me._usualReplacement = Value + End Set + End Property + + _ + Public Property Reimport() As List(Of DEXPDEOutwardProcessingReimport) + Get + Return Me._reimport + End Get + Set(value As List(Of DEXPDEOutwardProcessingReimport)) + Me._reimport = Value + End Set + End Property + + _ + Public Property IdentificationMeans() As List(Of DEXPDEOutwardProcessingIdentificationMeans) + Get + Return Me._identificationMeans + End Get + Set(value As List(Of DEXPDEOutwardProcessingIdentificationMeans)) + Me._identificationMeans = Value + End Set + End Property + + _ + Public Property Product() As List(Of DEXPDEOutwardProcessingProduct) + Get + Return Me._product + End Get + Set(value As List(Of DEXPDEOutwardProcessingProduct)) + Me._product = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEOutwardProcessing)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEOutwardProcessing object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEOutwardProcessing object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEOutwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessing) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessing) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEOutwardProcessing + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEOutwardProcessing) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEOutwardProcessing + Return CType(Serializer.Deserialize(s), DEXPDEOutwardProcessing) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEOutwardProcessing object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEOutwardProcessing object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEOutwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEOutwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessing) + 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 DEXPDEOutwardProcessing) 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 DEXPDEOutwardProcessing + 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 Class + + _ + Public Enum DEXPDEOutwardProcessingUsualReplacement + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPDEOutwardProcessingReimport + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEOutwardProcessingReimport)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEOutwardProcessingReimport object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEOutwardProcessingReimport object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEOutwardProcessingReimport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingReimport) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingReimport) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEOutwardProcessingReimport + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEOutwardProcessingReimport) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEOutwardProcessingReimport + Return CType(Serializer.Deserialize(s), DEXPDEOutwardProcessingReimport) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEOutwardProcessingReimport object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEOutwardProcessingReimport object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEOutwardProcessingReimport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingReimport) + 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 DEXPDEOutwardProcessingReimport) 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 DEXPDEOutwardProcessingReimport + 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 Class + + _ + Partial Public Class DEXPDEOutwardProcessingIdentificationMeans + +#Region "Private fields" + Private _type As DEXPDEOutwardProcessingIdentificationMeansType + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPDEOutwardProcessingIdentificationMeansType + Get + Return Me._type + End Get + Set(value As DEXPDEOutwardProcessingIdentificationMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEOutwardProcessingIdentificationMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEOutwardProcessingIdentificationMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEOutwardProcessingIdentificationMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEOutwardProcessingIdentificationMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingIdentificationMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingIdentificationMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEOutwardProcessingIdentificationMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEOutwardProcessingIdentificationMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEOutwardProcessingIdentificationMeans + Return CType(Serializer.Deserialize(s), DEXPDEOutwardProcessingIdentificationMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEOutwardProcessingIdentificationMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEOutwardProcessingIdentificationMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEOutwardProcessingIdentificationMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingIdentificationMeans) + 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 DEXPDEOutwardProcessingIdentificationMeans) 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 DEXPDEOutwardProcessingIdentificationMeans + 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 Class + + _ + Public Enum DEXPDEOutwardProcessingIdentificationMeansType + + ''' + A + + ''' + B + + ''' + N + + ''' + O + + ''' + P + + ''' + S + + ''' + T + + ''' + Z + End Enum + + _ + Partial Public Class DEXPDEOutwardProcessingProduct + +#Region "Private fields" + Private _commodityCode As String + + Private _goodsDescription As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + _ + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set(value As String) + Me._goodsDescription = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEOutwardProcessingProduct)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEOutwardProcessingProduct object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEOutwardProcessingProduct object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEOutwardProcessingProduct object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingProduct) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEOutwardProcessingProduct) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEOutwardProcessingProduct + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEOutwardProcessingProduct) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEOutwardProcessingProduct + Return CType(Serializer.Deserialize(s), DEXPDEOutwardProcessingProduct) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEOutwardProcessingProduct object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEOutwardProcessingProduct object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEOutwardProcessingProduct object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEOutwardProcessingProduct) + 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 DEXPDEOutwardProcessingProduct) 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 DEXPDEOutwardProcessingProduct + 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 Class + + _ + Partial Public Class DEXPDEGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _goodsDescription As String + + Private _commercialReferenceNumber As String + + Private _registrationNumber As String + + Private _annotation As String + + Private _originFederalState As DEXPDEGoodsItemOriginFederalState + + Private _netMass As Decimal + + Private _grossMass As Decimal + + Private _dangerousGoodsCode As String + + Private _transportChargesPaymentMethod As String + + Private _commodityCode As DEXPDEGoodsItemCommodityCode + + Private _procedure As DEXPDEGoodsItemProcedure + + Private _exportRefund As DEXPDEGoodsItemExportRefund + + Private _foreignTradeStatistics As DEXPDEGoodsItemForeignTradeStatistics + + Private _consignee As DEXPDEGoodsItemConsignee + + Private _package As List(Of DEXPDEGoodsItemPackage) + + Private _container As List(Of DEXPDEGoodsItemContainer) + + Private _document As List(Of DEXPDEGoodsItemDocument) + + Private _previousAdminstrativeReference As List(Of DEXPDEGoodsItemPreviousAdminstrativeReference) + + Private _deliveryTerms As DEXPDEGoodsItemDeliveryTerms + + Private _transaction As DEXPDEGoodsItemTransaction + + Private _customsWarehouse As DEXPDEGoodsItemCustomsWarehouse + + Private _inwardProcessingTransformation As DEXPDEGoodsItemInwardProcessingTransformation + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._inwardProcessingTransformation = New DEXPDEGoodsItemInwardProcessingTransformation() + Me._customsWarehouse = New DEXPDEGoodsItemCustomsWarehouse() + Me._transaction = New DEXPDEGoodsItemTransaction() + Me._deliveryTerms = New DEXPDEGoodsItemDeliveryTerms() + Me._previousAdminstrativeReference = New List(Of DEXPDEGoodsItemPreviousAdminstrativeReference)() + Me._document = New List(Of DEXPDEGoodsItemDocument)() + Me._container = New List(Of DEXPDEGoodsItemContainer)() + Me._package = New List(Of DEXPDEGoodsItemPackage)() + Me._consignee = New DEXPDEGoodsItemConsignee() + Me._foreignTradeStatistics = New DEXPDEGoodsItemForeignTradeStatistics() + Me._exportRefund = New DEXPDEGoodsItemExportRefund() + Me._procedure = New DEXPDEGoodsItemProcedure() + Me._commodityCode = New DEXPDEGoodsItemCommodityCode() + End Sub + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set(value As String) + Me._goodsDescription = Value + End Set + End Property + + _ + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set(value As String) + Me._commercialReferenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property Annotation() As String + Get + Return Me._annotation + End Get + Set(value As String) + Me._annotation = Value + End Set + End Property + + Public Property OriginFederalState() As DEXPDEGoodsItemOriginFederalState + Get + Return Me._originFederalState + End Get + Set(value As DEXPDEGoodsItemOriginFederalState) + Me._originFederalState = Value + End Set + End Property + + Public Property NetMass() As Decimal + Get + Return Me._netMass + End Get + Set(value As Decimal) + Me._netMass = Value + End Set + End Property + + Public Property GrossMass() As Decimal + Get + Return Me._grossMass + End Get + Set(value As Decimal) + Me._grossMass = Value + End Set + End Property + + _ + Public Property DangerousGoodsCode() As String + Get + Return Me._dangerousGoodsCode + End Get + Set(value As String) + Me._dangerousGoodsCode = Value + End Set + End Property + + _ + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set(value As String) + Me._transportChargesPaymentMethod = Value + End Set + End Property + + Public Property CommodityCode() As DEXPDEGoodsItemCommodityCode + Get + Return Me._commodityCode + End Get + Set(value As DEXPDEGoodsItemCommodityCode) + Me._commodityCode = Value + End Set + End Property + + Public Property Procedure() As DEXPDEGoodsItemProcedure + Get + Return Me._procedure + End Get + Set(value As DEXPDEGoodsItemProcedure) + Me._procedure = Value + End Set + End Property + + Public Property ExportRefund() As DEXPDEGoodsItemExportRefund + Get + Return Me._exportRefund + End Get + Set(value As DEXPDEGoodsItemExportRefund) + Me._exportRefund = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As DEXPDEGoodsItemForeignTradeStatistics + Get + Return Me._foreignTradeStatistics + End Get + Set(value As DEXPDEGoodsItemForeignTradeStatistics) + Me._foreignTradeStatistics = Value + End Set + End Property + + Public Property Consignee() As DEXPDEGoodsItemConsignee + Get + Return Me._consignee + End Get + Set(value As DEXPDEGoodsItemConsignee) + Me._consignee = Value + End Set + End Property + + _ + Public Property Package() As List(Of DEXPDEGoodsItemPackage) + Get + Return Me._package + End Get + Set(value As List(Of DEXPDEGoodsItemPackage)) + Me._package = Value + End Set + End Property + + _ + Public Property Container() As List(Of DEXPDEGoodsItemContainer) + Get + Return Me._container + End Get + Set(value As List(Of DEXPDEGoodsItemContainer)) + Me._container = Value + End Set + End Property + + _ + Public Property Document() As List(Of DEXPDEGoodsItemDocument) + Get + Return Me._document + End Get + Set(value As List(Of DEXPDEGoodsItemDocument)) + Me._document = Value + End Set + End Property + + _ + Public Property PreviousAdminstrativeReference() As List(Of DEXPDEGoodsItemPreviousAdminstrativeReference) + Get + Return Me._previousAdminstrativeReference + End Get + Set(value As List(Of DEXPDEGoodsItemPreviousAdminstrativeReference)) + Me._previousAdminstrativeReference = Value + End Set + End Property + + Public Property DeliveryTerms() As DEXPDEGoodsItemDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set(value As DEXPDEGoodsItemDeliveryTerms) + Me._deliveryTerms = Value + End Set + End Property + + Public Property Transaction() As DEXPDEGoodsItemTransaction + Get + Return Me._transaction + End Get + Set(value As DEXPDEGoodsItemTransaction) + Me._transaction = Value + End Set + End Property + + Public Property CustomsWarehouse() As DEXPDEGoodsItemCustomsWarehouse + Get + Return Me._customsWarehouse + End Get + Set(value As DEXPDEGoodsItemCustomsWarehouse) + Me._customsWarehouse = Value + End Set + End Property + + _ + Public Property InwardProcessingTransformation() As DEXPDEGoodsItemInwardProcessingTransformation + Get + Return Me._inwardProcessingTransformation + End Get + Set(value As DEXPDEGoodsItemInwardProcessingTransformation) + Me._inwardProcessingTransformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItem + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItem) + 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 DEXPDEGoodsItem) 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 DEXPDEGoodsItem + 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 Class + + _ + Public Enum DEXPDEGoodsItemOriginFederalState + + ''' + _ + Item01 + + ''' + _ + Item02 + + ''' + _ + Item03 + + ''' + _ + Item04 + + ''' + _ + Item05 + + ''' + _ + Item06 + + ''' + _ + Item07 + + ''' + _ + Item08 + + ''' + _ + Item09 + + ''' + _ + Item10 + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item15 + + ''' + _ + Item16 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPDEGoodsItemCommodityCode + +#Region "Private fields" + Private _combinedNomenclatureCode As String + + Private _taricCode As String + + Private _taricFirstAdditionalCode As String + + Private _taricSecondAdditionalCode As String + + Private _nationalAdditionalCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property CombinedNomenclatureCode() As String + Get + Return Me._combinedNomenclatureCode + End Get + Set(value As String) + Me._combinedNomenclatureCode = Value + End Set + End Property + + _ + Public Property TaricCode() As String + Get + Return Me._taricCode + End Get + Set(value As String) + Me._taricCode = Value + End Set + End Property + + _ + Public Property TaricFirstAdditionalCode() As String + Get + Return Me._taricFirstAdditionalCode + End Get + Set(value As String) + Me._taricFirstAdditionalCode = Value + End Set + End Property + + _ + Public Property TaricSecondAdditionalCode() As String + Get + Return Me._taricSecondAdditionalCode + End Get + Set(value As String) + Me._taricSecondAdditionalCode = Value + End Set + End Property + + _ + Public Property NationalAdditionalCode() As String + Get + Return Me._nationalAdditionalCode + End Get + Set(value As String) + Me._nationalAdditionalCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemCommodityCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemCommodityCode object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemCommodityCode object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCommodityCode) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCommodityCode) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemCommodityCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemCommodityCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemCommodityCode + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemCommodityCode) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemCommodityCode object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemCommodityCode object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCommodityCode) + 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 DEXPDEGoodsItemCommodityCode) 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 DEXPDEGoodsItemCommodityCode + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemProcedure + +#Region "Private fields" + Private _requestedProcedure As String + + Private _previousProcedure As String + + Private _additionalProcedure As String + + Private _exportRefundProcedure As DEXPDEGoodsItemProcedureExportRefundProcedure + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property RequestedProcedure() As String + Get + Return Me._requestedProcedure + End Get + Set(value As String) + Me._requestedProcedure = Value + End Set + End Property + + _ + Public Property PreviousProcedure() As String + Get + Return Me._previousProcedure + End Get + Set(value As String) + Me._previousProcedure = Value + End Set + End Property + + _ + Public Property AdditionalProcedure() As String + Get + Return Me._additionalProcedure + End Get + Set(value As String) + Me._additionalProcedure = Value + End Set + End Property + + Public Property ExportRefundProcedure() As DEXPDEGoodsItemProcedureExportRefundProcedure + Get + Return Me._exportRefundProcedure + End Get + Set(value As DEXPDEGoodsItemProcedureExportRefundProcedure) + Me._exportRefundProcedure = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemProcedure)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemProcedure object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemProcedure object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemProcedure) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemProcedure) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemProcedure + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemProcedure) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemProcedure + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemProcedure) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemProcedure object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemProcedure object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemProcedure) + 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 DEXPDEGoodsItemProcedure) 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 DEXPDEGoodsItemProcedure + 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 Class + + _ + Public Enum DEXPDEGoodsItemProcedureExportRefundProcedure + + ''' + E51 + + ''' + E52 + + ''' + E53 + + ''' + E61 + + ''' + E62 + + ''' + E63 + + ''' + E71 + End Enum + + _ + Partial Public Class DEXPDEGoodsItemExportRefund + +#Region "Private fields" + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemExportRefund)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemExportRefund object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemExportRefund object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemExportRefund) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemExportRefund) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemExportRefund + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemExportRefund) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemExportRefund + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemExportRefund) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemExportRefund object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemExportRefund object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemExportRefund) + 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 DEXPDEGoodsItemExportRefund) 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 DEXPDEGoodsItemExportRefund + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemForeignTradeStatistics + +#Region "Private fields" + Private _specialUnitQuantity As Decimal + + Private _statisticalValue As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property SpecialUnitQuantity() As Decimal + Get + Return Me._specialUnitQuantity + End Get + Set(value As Decimal) + Me._specialUnitQuantity = Value + End Set + End Property + + _ + Public Property StatisticalValue() As String + Get + Return Me._statisticalValue + End Get + Set(value As String) + Me._statisticalValue = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemForeignTradeStatistics object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemForeignTradeStatistics object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemForeignTradeStatistics) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemForeignTradeStatistics + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemForeignTradeStatistics) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemForeignTradeStatistics object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemForeignTradeStatistics object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemForeignTradeStatistics) + 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 DEXPDEGoodsItemForeignTradeStatistics) 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 DEXPDEGoodsItemForeignTradeStatistics + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemConsignee + +#Region "Private fields" + Private _class As DEXPDEGoodsItemConsigneeClass + + Private _identification As DEXPDEGoodsItemConsigneeIdentification + + Private _name As String + + Private _address As DEXPDEGoodsItemConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPDEGoodsItemConsigneeAddress() + Me._identification = New DEXPDEGoodsItemConsigneeIdentification() + End Sub + + Public Property [Class]() As DEXPDEGoodsItemConsigneeClass + Get + Return Me._class + End Get + Set(value As DEXPDEGoodsItemConsigneeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPDEGoodsItemConsigneeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPDEGoodsItemConsigneeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPDEGoodsItemConsigneeAddress + Get + Return Me._address + End Get + Set(value As DEXPDEGoodsItemConsigneeAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemConsignee + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemConsignee) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemConsignee) + 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 DEXPDEGoodsItemConsignee) 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 DEXPDEGoodsItemConsignee + 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 Class + + _ + Public Enum DEXPDEGoodsItemConsigneeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPDEGoodsItemConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemConsigneeIdentification + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemConsigneeIdentification) + 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 DEXPDEGoodsItemConsigneeIdentification) 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 DEXPDEGoodsItemConsigneeIdentification + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemConsigneeAddress + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemConsigneeAddress) + 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 DEXPDEGoodsItemConsigneeAddress) 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 DEXPDEGoodsItemConsigneeAddress + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemPackage + +#Region "Private fields" + Private _quantity As String + + Private _sequenceNumber As String + + Private _kind As String + + Private _marksNumbers As String + + Private _reference As DEXPDEGoodsItemPackageReference + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._reference = New DEXPDEGoodsItemPackageReference() + End Sub + + _ + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set(value As String) + Me._quantity = Value + End Set + End Property + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property Kind() As String + Get + Return Me._kind + End Get + Set(value As String) + Me._kind = Value + End Set + End Property + + _ + Public Property MarksNumbers() As String + Get + Return Me._marksNumbers + End Get + Set(value As String) + Me._marksNumbers = Value + End Set + End Property + + Public Property Reference() As DEXPDEGoodsItemPackageReference + Get + Return Me._reference + End Get + Set(value As DEXPDEGoodsItemPackageReference) + Me._reference = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemPackage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemPackage object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemPackage object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemPackage) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemPackage) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemPackage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemPackage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemPackage + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemPackage) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemPackage object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemPackage object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemPackage) + 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 DEXPDEGoodsItemPackage) 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 DEXPDEGoodsItemPackage + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemPackageReference + +#Region "Private fields" + Private _positionNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property PositionNumber() As String + Get + Return Me._positionNumber + End Get + Set(value As String) + Me._positionNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemPackageReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemPackageReference object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemPackageReference object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemPackageReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemPackageReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemPackageReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemPackageReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemPackageReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemPackageReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemPackageReference + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemPackageReference) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemPackageReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemPackageReference object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemPackageReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemPackageReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemPackageReference) + 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 DEXPDEGoodsItemPackageReference) 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 DEXPDEGoodsItemPackageReference + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemContainer + +#Region "Private fields" + Private _identificationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set(value As String) + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemContainer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemContainer object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemContainer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemContainer) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemContainer + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemContainer) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemContainer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemContainer object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemContainer) + 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 DEXPDEGoodsItemContainer) 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 DEXPDEGoodsItemContainer + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemDocument + +#Region "Private fields" + Private _qualifier As String + + Private _type As String + + Private _referenceNumber As String + + Private _complement As String + + Private _detail As String + + Private _issuingDate As Date + + Private _expiryDate As Date + + Private _writeOffValue As String + + Private _measurementUnit As DEXPDEGoodsItemDocumentMeasurementUnit + + Private _writeOffQuantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + _ + Public Property Detail() As String + Get + Return Me._detail + End Get + Set(value As String) + Me._detail = Value + End Set + End Property + + _ + Public Property IssuingDate() As Date + Get + Return Me._issuingDate + End Get + Set(value As Date) + Me._issuingDate = Value + End Set + End Property + + _ + Public Property ExpiryDate() As Date + Get + Return Me._expiryDate + End Get + Set(value As Date) + Me._expiryDate = Value + End Set + End Property + + _ + Public Property WriteOffValue() As String + Get + Return Me._writeOffValue + End Get + Set(value As String) + Me._writeOffValue = Value + End Set + End Property + + Public Property MeasurementUnit() As DEXPDEGoodsItemDocumentMeasurementUnit + Get + Return Me._measurementUnit + End Get + Set(value As DEXPDEGoodsItemDocumentMeasurementUnit) + Me._measurementUnit = Value + End Set + End Property + + Public Property WriteOffQuantity() As Decimal + Get + Return Me._writeOffQuantity + End Get + Set(value As Decimal) + Me._writeOffQuantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemDocument object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemDocument object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemDocument) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemDocument) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemDocument + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemDocument) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemDocument object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemDocument object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemDocument) + 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 DEXPDEGoodsItemDocument) 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 DEXPDEGoodsItemDocument + 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 Class + + _ + Public Enum DEXPDEGoodsItemDocumentMeasurementUnit + + ''' + Los + + ''' + Mio + + ''' + Paar + + ''' + Satz + + ''' + St + + ''' + Syst + + ''' + cbm + + ''' + cm + + ''' + div + + ''' + g + + ''' + gPu + + ''' + gTh + + ''' + gU + + ''' + kg + + ''' + kgPu + + ''' + kgTh + + ''' + kgU + + ''' + km + + ''' + l + + ''' + lfm + + ''' + ltAnlage + + ''' + m + + ''' + mg + + ''' + ml + + ''' + mm + + ''' + qcm + + ''' + qm + + ''' + t + + ''' + tU + + ''' + µg + + ''' + µl + + ''' + µm + End Enum + + _ + Partial Public Class DEXPDEGoodsItemPreviousAdminstrativeReference + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private _complement As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemPreviousAdminstrativeReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemPreviousAdminstrativeReference object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemPreviousAdminstrativeReference object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemPreviousAdminstrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemPreviousAdminstrativeReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemPreviousAdminstrativeReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemPreviousAdminstrativeReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemPreviousAdminstrativeReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemPreviousAdminstrativeReference + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemPreviousAdminstrativeReference) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemPreviousAdminstrativeReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemPreviousAdminstrativeReference object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemPreviousAdminstrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemPreviousAdminstrativeReference) + 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 DEXPDEGoodsItemPreviousAdminstrativeReference) 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 DEXPDEGoodsItemPreviousAdminstrativeReference + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemDeliveryTerms + +#Region "Private fields" + Private _incotermCode As DEXPDEGoodsItemDeliveryTermsIncotermCode + + Private _description As String + + Private _location As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property IncotermCode() As DEXPDEGoodsItemDeliveryTermsIncotermCode + Get + Return Me._incotermCode + End Get + Set(value As DEXPDEGoodsItemDeliveryTermsIncotermCode) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + _ + Public Property Location() As String + Get + Return Me._location + End Get + Set(value As String) + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemDeliveryTerms object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemDeliveryTerms + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemDeliveryTerms) + 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 DEXPDEGoodsItemDeliveryTerms) 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 DEXPDEGoodsItemDeliveryTerms + 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 Class + + _ + Public Enum DEXPDEGoodsItemDeliveryTermsIncotermCode + + ''' + CFR + + ''' + CIF + + ''' + CIP + + ''' + CPT + + ''' + DAF + + ''' + DAP + + ''' + DAT + + ''' + DDP + + ''' + DDU + + ''' + DEQ + + ''' + DES + + ''' + EXW + + ''' + FAS + + ''' + FCA + + ''' + FOB + + ''' + XXX + End Enum + + _ + Partial Public Class DEXPDEGoodsItemTransaction + +#Region "Private fields" + Private _type As DEXPDEGoodsItemTransactionType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPDEGoodsItemTransactionType + Get + Return Me._type + End Get + Set(value As DEXPDEGoodsItemTransactionType) + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemTransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemTransaction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemTransaction object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemTransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemTransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemTransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemTransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemTransaction + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemTransaction) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemTransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemTransaction object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemTransaction) + 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 DEXPDEGoodsItemTransaction) 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 DEXPDEGoodsItemTransaction + 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 Class + + _ + Public Enum DEXPDEGoodsItemTransactionType + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item19 + + ''' + _ + Item21 + + ''' + _ + Item22 + + ''' + _ + Item23 + + ''' + _ + Item29 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item41 + + ''' + _ + Item42 + + ''' + _ + Item51 + + ''' + _ + Item52 + + ''' + _ + Item67 + + ''' + _ + Item69 + + ''' + _ + Item71 + + ''' + _ + Item72 + + ''' + _ + Item81 + + ''' + _ + Item91 + + ''' + _ + Item92 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPDEGoodsItemCustomsWarehouse + +#Region "Private fields" + Private _goodsItemQuantity As String + + Private _customsAuthorization As DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization + + Private _localReferenceNumber As String + + Private _goodsItem As List(Of DEXPDEGoodsItemCustomsWarehouseGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPDEGoodsItemCustomsWarehouseGoodsItem)() + Me._customsAuthorization = New DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization() + End Sub + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPDEGoodsItemCustomsWarehouseGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPDEGoodsItemCustomsWarehouseGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemCustomsWarehouse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouse object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemCustomsWarehouse object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouse) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouse) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemCustomsWarehouse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemCustomsWarehouse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemCustomsWarehouse + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemCustomsWarehouse) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouse object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemCustomsWarehouse object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouse) + 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 DEXPDEGoodsItemCustomsWarehouse) 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 DEXPDEGoodsItemCustomsWarehouse + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization + +#Region "Private fields" + Private _warehouseOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property WarehouseOwner() As String + Get + Return Me._warehouseOwner + End Get + Set(value As String) + Me._warehouseOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization) + 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 DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization) 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 DEXPDEGoodsItemCustomsWarehouseCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemCustomsWarehouseGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedSequenceNumber As String + + Private _registrationNumber As String + + Private _commodityCode As String + + Private _accessViaAtlasFlag As DEXPDEGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + + Private _usualProcessingFlag As DEXPDEGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + + Private _complement As String + + Private _debitAmount As DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount + + Private _commercialAmount As DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._commercialAmount = New DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount() + Me._debitAmount = New DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount() + End Sub + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set(value As String) + Me._referencedSequenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As DEXPDEGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + Get + Return Me._accessViaAtlasFlag + End Get + Set(value As DEXPDEGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag) + Me._accessViaAtlasFlag = Value + End Set + End Property + + Public Property UsualProcessingFlag() As DEXPDEGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + Get + Return Me._usualProcessingFlag + End Get + Set(value As DEXPDEGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag) + Me._usualProcessingFlag = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Public Property DebitAmount() As DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount + Get + Return Me._debitAmount + End Get + Set(value As DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Me._debitAmount = Value + End Set + End Property + + Public Property CommercialAmount() As DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Get + Return Me._commercialAmount + End Get + Set(value As DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Me._commercialAmount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemCustomsWarehouseGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouseGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemCustomsWarehouseGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouseGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemCustomsWarehouseGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemCustomsWarehouseGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemCustomsWarehouseGoodsItem + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemCustomsWarehouseGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouseGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemCustomsWarehouseGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouseGoodsItem) + 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 DEXPDEGoodsItemCustomsWarehouseGoodsItem) 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 DEXPDEGoodsItemCustomsWarehouseGoodsItem + 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 Class + + _ + Public Enum DEXPDEGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Public Enum DEXPDEGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount + +#Region "Private fields" + Private _qualifier As String + + Private _measurementUnit As String + + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set(value As String) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount) + 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 DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount) 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 DEXPDEGoodsItemCustomsWarehouseGoodsItemDebitAmount + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount + +#Region "Private fields" + Private _qualifier As String + + Private _measurementUnit As String + + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set(value As String) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + 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 DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount) 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 DEXPDEGoodsItemCustomsWarehouseGoodsItemCommercialAmount + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemInwardProcessingTransformation + +#Region "Private fields" + Private _goodsItemQuantity As String + + Private _customsAuthorization As DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization + + Private _goodsItem As List(Of DEXPDEGoodsItemInwardProcessingTransformationGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPDEGoodsItemInwardProcessingTransformationGoodsItem)() + Me._customsAuthorization = New DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization() + End Sub + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPDEGoodsItemInwardProcessingTransformationGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPDEGoodsItemInwardProcessingTransformationGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemInwardProcessingTransformation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemInwardProcessingTransformation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemInwardProcessingTransformation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemInwardProcessingTransformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemInwardProcessingTransformation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemInwardProcessingTransformation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemInwardProcessingTransformation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemInwardProcessingTransformation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemInwardProcessingTransformation + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemInwardProcessingTransformation) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemInwardProcessingTransformation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemInwardProcessingTransformation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemInwardProcessingTransformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemInwardProcessingTransformation) + 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 DEXPDEGoodsItemInwardProcessingTransformation) 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 DEXPDEGoodsItemInwardProcessingTransformation + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization + +#Region "Private fields" + Private _processingOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ProcessingOwner() As String + Get + Return Me._processingOwner + End Get + Set(value As String) + Me._processingOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization) + 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 DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization) 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 DEXPDEGoodsItemInwardProcessingTransformationCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPDEGoodsItemInwardProcessingTransformationGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedSequenceNumber As String + + Private _registrationNumber As String + + Private _accessViaAtlasFlag As DEXPDEGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + + Private _goodsRelatedInformation As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set(value As String) + Me._referencedSequenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As DEXPDEGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + Get + Return Me._accessViaAtlasFlag + End Get + Set(value As DEXPDEGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag) + Me._accessViaAtlasFlag = Value + End Set + End Property + + _ + Public Property GoodsRelatedInformation() As String + Get + Return Me._goodsRelatedInformation + End Get + Set(value As String) + Me._goodsRelatedInformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPDEGoodsItemInwardProcessingTransformationGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPDEGoodsItemInwardProcessingTransformationGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPDEGoodsItemInwardProcessingTransformationGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPDEGoodsItemInwardProcessingTransformationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemInwardProcessingTransformationGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPDEGoodsItemInwardProcessingTransformationGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPDEGoodsItemInwardProcessingTransformationGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPDEGoodsItemInwardProcessingTransformationGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPDEGoodsItemInwardProcessingTransformationGoodsItem + Return CType(Serializer.Deserialize(s), DEXPDEGoodsItemInwardProcessingTransformationGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPDEGoodsItemInwardProcessingTransformationGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPDEGoodsItemInwardProcessingTransformationGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPDEGoodsItemInwardProcessingTransformationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPDEGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPDEGoodsItemInwardProcessingTransformationGoodsItem) + 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 DEXPDEGoodsItemInwardProcessingTransformationGoodsItem) 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 DEXPDEGoodsItemInwardProcessingTransformationGoodsItem + 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 Class + + _ + Public Enum DEXPDEGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set(value As Decimal) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + _ + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + _ + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat_DEXPDE.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat_DEXPDE.xsd new file mode 100644 index 0000000..6bc7195 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/e_exp_dat_DEXPDE.xsd @@ -0,0 +1,4993 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel.Designer.vb new file mode 100644 index 0000000..80ba43c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel.Designer.vb @@ -0,0 +1,17916 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' DEXPREListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace DEXPRE + + _ + Partial Public Class DEXPRE + +#Region "Private fields" + Private _interchangeSender As DEXPREInterchangeSender + + Private _interchangeRecipient As DEXPREInterchangeRecipient + + Private _preparation As DEXPREPreparation + + Private _interchangeControlReference As String + + Private _messageGroup As DEXPREMessageGroup + + Private _messageReferenceNumber As DEXPREMessageReferenceNumber + + Private _messageType As DEXPREMessageType + + Private _messageIdentifier As String + + Private _header As DEXPREHeader + + Private _exportRefund As DEXPREExportRefund + + Private _exportCustomsOffice As DEXPREExportCustomsOffice + + Private _supplementaryDeclarationCustomsOffice As DEXPRESupplementaryDeclarationCustomsOffice + + Private _intendedExitCustomsOffice As DEXPREIntendedExitCustomsOffice + + Private _actualExitCustomsOffice As DEXPREActualExitCustomsOffice + + Private _transaction As DEXPRETransaction + + Private _specialFact As List(Of DEXPRESpecialFact) + + Private _itinerary As List(Of DEXPREItinerary) + + Private _seals As DEXPRESeals + + Private _exporter As DEXPREExporter + + Private _declarant As DEXPREDeclarant + + Private _representative As DEXPRERepresentative + + Private _contractor As DEXPREContractor + + Private _outwardProcessingOwner As DEXPREOutwardProcessingOwner + + Private _consignee As DEXPREConsignee + + Private _deliveryTerms As DEXPREDeliveryTerms + + Private _outwardProcessing As DEXPREOutwardProcessing + + Private _goodsItem As List(Of DEXPREGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPREGoodsItem)() + Me._outwardProcessing = New DEXPREOutwardProcessing() + Me._deliveryTerms = New DEXPREDeliveryTerms() + Me._consignee = New DEXPREConsignee() + Me._outwardProcessingOwner = New DEXPREOutwardProcessingOwner() + Me._contractor = New DEXPREContractor() + Me._representative = New DEXPRERepresentative() + Me._declarant = New DEXPREDeclarant() + Me._exporter = New DEXPREExporter() + Me._seals = New DEXPRESeals() + Me._itinerary = New List(Of DEXPREItinerary)() + Me._specialFact = New List(Of DEXPRESpecialFact)() + Me._transaction = New DEXPRETransaction() + Me._actualExitCustomsOffice = New DEXPREActualExitCustomsOffice() + Me._intendedExitCustomsOffice = New DEXPREIntendedExitCustomsOffice() + Me._supplementaryDeclarationCustomsOffice = New DEXPRESupplementaryDeclarationCustomsOffice() + Me._exportCustomsOffice = New DEXPREExportCustomsOffice() + Me._exportRefund = New DEXPREExportRefund() + Me._header = New DEXPREHeader() + Me._preparation = New DEXPREPreparation() + Me._interchangeRecipient = New DEXPREInterchangeRecipient() + Me._interchangeSender = New DEXPREInterchangeSender() + End Sub + + Public Property InterchangeSender() As DEXPREInterchangeSender + Get + Return Me._interchangeSender + End Get + Set(value As DEXPREInterchangeSender) + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As DEXPREInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set(value As DEXPREInterchangeRecipient) + Me._interchangeRecipient = Value + End Set + End Property + + Public Property Preparation() As DEXPREPreparation + Get + Return Me._preparation + End Get + Set(value As DEXPREPreparation) + Me._preparation = Value + End Set + End Property + + _ + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set(value As String) + Me._interchangeControlReference = Value + End Set + End Property + + Public Property MessageGroup() As DEXPREMessageGroup + Get + Return Me._messageGroup + End Get + Set(value As DEXPREMessageGroup) + Me._messageGroup = Value + End Set + End Property + + Public Property MessageReferenceNumber() As DEXPREMessageReferenceNumber + Get + Return Me._messageReferenceNumber + End Get + Set(value As DEXPREMessageReferenceNumber) + Me._messageReferenceNumber = Value + End Set + End Property + + Public Property MessageType() As DEXPREMessageType + Get + Return Me._messageType + End Get + Set(value As DEXPREMessageType) + Me._messageType = Value + End Set + End Property + + _ + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set(value As String) + Me._messageIdentifier = Value + End Set + End Property + + Public Property Header() As DEXPREHeader + Get + Return Me._header + End Get + Set(value As DEXPREHeader) + Me._header = Value + End Set + End Property + + Public Property ExportRefund() As DEXPREExportRefund + Get + Return Me._exportRefund + End Get + Set(value As DEXPREExportRefund) + Me._exportRefund = Value + End Set + End Property + + Public Property ExportCustomsOffice() As DEXPREExportCustomsOffice + Get + Return Me._exportCustomsOffice + End Get + Set(value As DEXPREExportCustomsOffice) + Me._exportCustomsOffice = Value + End Set + End Property + + Public Property SupplementaryDeclarationCustomsOffice() As DEXPRESupplementaryDeclarationCustomsOffice + Get + Return Me._supplementaryDeclarationCustomsOffice + End Get + Set(value As DEXPRESupplementaryDeclarationCustomsOffice) + Me._supplementaryDeclarationCustomsOffice = Value + End Set + End Property + + Public Property IntendedExitCustomsOffice() As DEXPREIntendedExitCustomsOffice + Get + Return Me._intendedExitCustomsOffice + End Get + Set(value As DEXPREIntendedExitCustomsOffice) + Me._intendedExitCustomsOffice = Value + End Set + End Property + + Public Property ActualExitCustomsOffice() As DEXPREActualExitCustomsOffice + Get + Return Me._actualExitCustomsOffice + End Get + Set(value As DEXPREActualExitCustomsOffice) + Me._actualExitCustomsOffice = Value + End Set + End Property + + Public Property Transaction() As DEXPRETransaction + Get + Return Me._transaction + End Get + Set(value As DEXPRETransaction) + Me._transaction = Value + End Set + End Property + + _ + Public Property SpecialFact() As List(Of DEXPRESpecialFact) + Get + Return Me._specialFact + End Get + Set(value As List(Of DEXPRESpecialFact)) + Me._specialFact = Value + End Set + End Property + + _ + Public Property Itinerary() As List(Of DEXPREItinerary) + Get + Return Me._itinerary + End Get + Set(value As List(Of DEXPREItinerary)) + Me._itinerary = Value + End Set + End Property + + Public Property Seals() As DEXPRESeals + Get + Return Me._seals + End Get + Set(value As DEXPRESeals) + Me._seals = Value + End Set + End Property + + Public Property Exporter() As DEXPREExporter + Get + Return Me._exporter + End Get + Set(value As DEXPREExporter) + Me._exporter = Value + End Set + End Property + + Public Property Declarant() As DEXPREDeclarant + Get + Return Me._declarant + End Get + Set(value As DEXPREDeclarant) + Me._declarant = Value + End Set + End Property + + Public Property Representative() As DEXPRERepresentative + Get + Return Me._representative + End Get + Set(value As DEXPRERepresentative) + Me._representative = Value + End Set + End Property + + Public Property Contractor() As DEXPREContractor + Get + Return Me._contractor + End Get + Set(value As DEXPREContractor) + Me._contractor = Value + End Set + End Property + + Public Property OutwardProcessingOwner() As DEXPREOutwardProcessingOwner + Get + Return Me._outwardProcessingOwner + End Get + Set(value As DEXPREOutwardProcessingOwner) + Me._outwardProcessingOwner = Value + End Set + End Property + + Public Property Consignee() As DEXPREConsignee + Get + Return Me._consignee + End Get + Set(value As DEXPREConsignee) + Me._consignee = Value + End Set + End Property + + Public Property DeliveryTerms() As DEXPREDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set(value As DEXPREDeliveryTerms) + Me._deliveryTerms = Value + End Set + End Property + + Public Property OutwardProcessing() As DEXPREOutwardProcessing + Get + Return Me._outwardProcessing + End Get + Set(value As DEXPREOutwardProcessing) + Me._outwardProcessing = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPREGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPREGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRE)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRE object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRE object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRE) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRE) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRE + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRE) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRE + Return CType(Serializer.Deserialize(s), DEXPRE) + End Function +#End Region + + ''' + ''' Serializes current DEXPRE object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRE object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRE) + 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 DEXPRE) 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 DEXPRE + 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 Class + + _ + Partial Public Class DEXPREInterchangeSender + +#Region "Private fields" + Private _identification As DEXPREInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPREInterchangeSenderIdentification() + End Sub + + Public Property Identification() As DEXPREInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set(value As DEXPREInterchangeSenderIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREInterchangeSender + Return CType(Serializer.Deserialize(s), DEXPREInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current DEXPREInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREInterchangeSender) + 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 DEXPREInterchangeSender) 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 DEXPREInterchangeSender + 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 Class + + _ + Partial Public Class DEXPREInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), DEXPREInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPREInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREInterchangeSenderIdentification) + 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 DEXPREInterchangeSenderIdentification) 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 DEXPREInterchangeSenderIdentification + 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 Class + + _ + Partial Public Class DEXPREInterchangeRecipient + +#Region "Private fields" + Private _identification As DEXPREInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPREInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As DEXPREInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set(value As DEXPREInterchangeRecipientIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREInterchangeRecipient + Return CType(Serializer.Deserialize(s), DEXPREInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current DEXPREInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREInterchangeRecipient) + 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 DEXPREInterchangeRecipient) 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 DEXPREInterchangeRecipient + 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 Class + + _ + Partial Public Class DEXPREInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), DEXPREInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPREInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREInterchangeRecipientIdentification) + 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 DEXPREInterchangeRecipientIdentification) 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 DEXPREInterchangeRecipientIdentification + 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 Class + + _ + Partial Public Class DEXPREPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set(value As Date) + Me._date = Value + End Set + End Property + + _ + Public Property Time() As Date + Get + Return Me._time + End Get + Set(value As Date) + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREPreparation + Return CType(Serializer.Deserialize(s), DEXPREPreparation) + End Function +#End Region + + ''' + ''' Serializes current DEXPREPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREPreparation) + 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 DEXPREPreparation) 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 DEXPREPreparation + 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 Class + + _ + Public Enum DEXPREMessageGroup + + ''' + EXP + End Enum + + _ + Public Enum DEXPREMessageReferenceNumber + + ''' + _ + Item1 + End Enum + + _ + Public Enum DEXPREMessageType + + ''' + DEXPRE + End Enum + + _ + Partial Public Class DEXPREHeader + +#Region "Private fields" + Private _declaration As DEXPREHeaderDeclaration + + Private _movementReferenceNumber As String + + Private _messageVersion As String + + Private _exportCountry As String + + Private _destinationCountry As String + + Private _receptionDateTime As Date + + Private _acceptanceDateTime As Date + + Private _issuingDateTime As Date + + Private _decisiveDate As Date + + Private _exitDate As Date + + Private _specificCircumstanceIndicator As String + + Private _transportChargesPaymentMethod As String + + Private _partyConstellation As DEXPREHeaderPartyConstellation + + Private _containerFlag As DEXPREHeaderContainerFlag + + Private _totalGrossMassMeasure As Decimal + + Private _registrationNumber As String + + Private _commercialReferenceNumber As String + + Private _referencedMessageIdentifier As String + + Private _localReferenceNumber As String + + Private _goodsItemQuantity As String + + Private _totalPackageQuantity As String + + Private _customsAuthorization As DEXPREHeaderCustomsAuthorization + + Private _inlandTransportMeans As DEXPREHeaderInlandTransportMeans + + Private _departureTransportMeans As DEXPREHeaderDepartureTransportMeans + + Private _borderTransportMeans As DEXPREHeaderBorderTransportMeans + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._borderTransportMeans = New DEXPREHeaderBorderTransportMeans() + Me._departureTransportMeans = New DEXPREHeaderDepartureTransportMeans() + Me._inlandTransportMeans = New DEXPREHeaderInlandTransportMeans() + Me._customsAuthorization = New DEXPREHeaderCustomsAuthorization() + Me._declaration = New DEXPREHeaderDeclaration() + End Sub + + Public Property Declaration() As DEXPREHeaderDeclaration + Get + Return Me._declaration + End Get + Set(value As DEXPREHeaderDeclaration) + Me._declaration = Value + End Set + End Property + + _ + Public Property MovementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set(value As String) + Me._movementReferenceNumber = Value + End Set + End Property + + _ + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set(value As String) + Me._messageVersion = Value + End Set + End Property + + _ + Public Property ExportCountry() As String + Get + Return Me._exportCountry + End Get + Set(value As String) + Me._exportCountry = Value + End Set + End Property + + _ + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set(value As String) + Me._destinationCountry = Value + End Set + End Property + + Public Property ReceptionDateTime() As Date + Get + Return Me._receptionDateTime + End Get + Set(value As Date) + Me._receptionDateTime = Value + End Set + End Property + + Public Property AcceptanceDateTime() As Date + Get + Return Me._acceptanceDateTime + End Get + Set(value As Date) + Me._acceptanceDateTime = Value + End Set + End Property + + Public Property IssuingDateTime() As Date + Get + Return Me._issuingDateTime + End Get + Set(value As Date) + Me._issuingDateTime = Value + End Set + End Property + + _ + Public Property DecisiveDate() As Date + Get + Return Me._decisiveDate + End Get + Set(value As Date) + Me._decisiveDate = Value + End Set + End Property + + _ + Public Property ExitDate() As Date + Get + Return Me._exitDate + End Get + Set(value As Date) + Me._exitDate = Value + End Set + End Property + + _ + Public Property SpecificCircumstanceIndicator() As String + Get + Return Me._specificCircumstanceIndicator + End Get + Set(value As String) + Me._specificCircumstanceIndicator = Value + End Set + End Property + + _ + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set(value As String) + Me._transportChargesPaymentMethod = Value + End Set + End Property + + Public Property PartyConstellation() As DEXPREHeaderPartyConstellation + Get + Return Me._partyConstellation + End Get + Set(value As DEXPREHeaderPartyConstellation) + Me._partyConstellation = Value + End Set + End Property + + Public Property ContainerFlag() As DEXPREHeaderContainerFlag + Get + Return Me._containerFlag + End Get + Set(value As DEXPREHeaderContainerFlag) + Me._containerFlag = Value + End Set + End Property + + Public Property TotalGrossMassMeasure() As Decimal + Get + Return Me._totalGrossMassMeasure + End Get + Set(value As Decimal) + Me._totalGrossMassMeasure = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set(value As String) + Me._commercialReferenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedMessageIdentifier() As String + Get + Return Me._referencedMessageIdentifier + End Get + Set(value As String) + Me._referencedMessageIdentifier = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + _ + Public Property TotalPackageQuantity() As String + Get + Return Me._totalPackageQuantity + End Get + Set(value As String) + Me._totalPackageQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPREHeaderCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPREHeaderCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + Public Property InlandTransportMeans() As DEXPREHeaderInlandTransportMeans + Get + Return Me._inlandTransportMeans + End Get + Set(value As DEXPREHeaderInlandTransportMeans) + Me._inlandTransportMeans = Value + End Set + End Property + + Public Property DepartureTransportMeans() As DEXPREHeaderDepartureTransportMeans + Get + Return Me._departureTransportMeans + End Get + Set(value As DEXPREHeaderDepartureTransportMeans) + Me._departureTransportMeans = Value + End Set + End Property + + Public Property BorderTransportMeans() As DEXPREHeaderBorderTransportMeans + Get + Return Me._borderTransportMeans + End Get + Set(value As DEXPREHeaderBorderTransportMeans) + Me._borderTransportMeans = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREHeader object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREHeader + Return CType(Serializer.Deserialize(s), DEXPREHeader) + End Function +#End Region + + ''' + ''' Serializes current DEXPREHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREHeader object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeader) + 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 DEXPREHeader) 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 DEXPREHeader + 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 Class + + _ + Partial Public Class DEXPREHeaderDeclaration + +#Region "Private fields" + Private _type As String + + Private _procedure As String + + Private _variant As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property Procedure() As String + Get + Return Me._procedure + End Get + Set(value As String) + Me._procedure = Value + End Set + End Property + + _ + Public Property [Variant]() As String + Get + Return Me._variant + End Get + Set(value As String) + Me._variant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREHeaderDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREHeaderDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREHeaderDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREHeaderDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREHeaderDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREHeaderDeclaration + Return CType(Serializer.Deserialize(s), DEXPREHeaderDeclaration) + End Function +#End Region + + ''' + ''' Serializes current DEXPREHeaderDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREHeaderDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderDeclaration) + 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 DEXPREHeaderDeclaration) 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 DEXPREHeaderDeclaration + 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 Class + + _ + Public Enum DEXPREHeaderPartyConstellation + + ''' + _ + Item0000 + + ''' + _ + Item0001 + + ''' + _ + Item0003 + + ''' + _ + Item0010 + + ''' + _ + Item0011 + + ''' + _ + Item0013 + + ''' + _ + Item0100 + + ''' + _ + Item0101 + + ''' + _ + Item0103 + + ''' + _ + Item0110 + + ''' + _ + Item0111 + + ''' + _ + Item0113 + + ''' + _ + Item1000 + + ''' + _ + Item1001 + + ''' + _ + Item1002 + + ''' + _ + Item1003 + + ''' + _ + Item1010 + + ''' + _ + Item1011 + + ''' + _ + Item1012 + + ''' + _ + Item1013 + + ''' + _ + Item1100 + + ''' + _ + Item1101 + + ''' + _ + Item1102 + + ''' + _ + Item1103 + + ''' + _ + Item1110 + + ''' + _ + Item1111 + + ''' + _ + Item1112 + + ''' + _ + Item1113 + End Enum + + _ + Public Enum DEXPREHeaderContainerFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPREHeaderCustomsAuthorization + +#Region "Private fields" + Private _localClearanceOutwardProcessing As String + + Private _outwardProcessing As String + + Private _trustedExporter As String + + Private _accreditedExporter As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property LocalClearanceOutwardProcessing() As String + Get + Return Me._localClearanceOutwardProcessing + End Get + Set(value As String) + Me._localClearanceOutwardProcessing = Value + End Set + End Property + + _ + Public Property OutwardProcessing() As String + Get + Return Me._outwardProcessing + End Get + Set(value As String) + Me._outwardProcessing = Value + End Set + End Property + + _ + Public Property TrustedExporter() As String + Get + Return Me._trustedExporter + End Get + Set(value As String) + Me._trustedExporter = Value + End Set + End Property + + _ + Public Property AccreditedExporter() As String + Get + Return Me._accreditedExporter + End Get + Set(value As String) + Me._accreditedExporter = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREHeaderCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREHeaderCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREHeaderCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREHeaderCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREHeaderCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREHeaderCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREHeaderCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPREHeaderCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPREHeaderCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREHeaderCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREHeaderCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderCustomsAuthorization) + 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 DEXPREHeaderCustomsAuthorization) 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 DEXPREHeaderCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPREHeaderInlandTransportMeans + +#Region "Private fields" + Private _mode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Mode() As String + Get + Return Me._mode + End Get + Set(value As String) + Me._mode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREHeaderInlandTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREHeaderInlandTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREHeaderInlandTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREHeaderInlandTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderInlandTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderInlandTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREHeaderInlandTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREHeaderInlandTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREHeaderInlandTransportMeans + Return CType(Serializer.Deserialize(s), DEXPREHeaderInlandTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPREHeaderInlandTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREHeaderInlandTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREHeaderInlandTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderInlandTransportMeans) + 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 DEXPREHeaderInlandTransportMeans) 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 DEXPREHeaderInlandTransportMeans + 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 Class + + _ + Partial Public Class DEXPREHeaderDepartureTransportMeans + +#Region "Private fields" + Private _type As DEXPREHeaderDepartureTransportMeansType + + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPREHeaderDepartureTransportMeansType + Get + Return Me._type + End Get + Set(value As DEXPREHeaderDepartureTransportMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + _ + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set(value As String) + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREHeaderDepartureTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREHeaderDepartureTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREHeaderDepartureTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREHeaderDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderDepartureTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderDepartureTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREHeaderDepartureTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREHeaderDepartureTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREHeaderDepartureTransportMeans + Return CType(Serializer.Deserialize(s), DEXPREHeaderDepartureTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPREHeaderDepartureTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREHeaderDepartureTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREHeaderDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderDepartureTransportMeans) + 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 DEXPREHeaderDepartureTransportMeans) 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 DEXPREHeaderDepartureTransportMeans + 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 Class + + _ + Public Enum DEXPREHeaderDepartureTransportMeansType + + ''' + _ + Item10 + + ''' + _ + Item20 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item35 + + ''' + _ + Item40 + + ''' + _ + Item50 + + ''' + _ + Item60 + + ''' + _ + Item70 + End Enum + + _ + Partial Public Class DEXPREHeaderBorderTransportMeans + +#Region "Private fields" + Private _mode As String + + Private _type As DEXPREHeaderBorderTransportMeansType + + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Mode() As String + Get + Return Me._mode + End Get + Set(value As String) + Me._mode = Value + End Set + End Property + + Public Property Type() As DEXPREHeaderBorderTransportMeansType + Get + Return Me._type + End Get + Set(value As DEXPREHeaderBorderTransportMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + _ + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set(value As String) + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREHeaderBorderTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREHeaderBorderTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREHeaderBorderTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREHeaderBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderBorderTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREHeaderBorderTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREHeaderBorderTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREHeaderBorderTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREHeaderBorderTransportMeans + Return CType(Serializer.Deserialize(s), DEXPREHeaderBorderTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPREHeaderBorderTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREHeaderBorderTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREHeaderBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREHeaderBorderTransportMeans) + 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 DEXPREHeaderBorderTransportMeans) 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 DEXPREHeaderBorderTransportMeans + 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 Class + + _ + Public Enum DEXPREHeaderBorderTransportMeansType + + ''' + _ + Item10 + + ''' + _ + Item20 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item35 + + ''' + _ + Item40 + + ''' + _ + Item50 + + ''' + _ + Item60 + + ''' + _ + Item70 + End Enum + + _ + Partial Public Class DEXPREExportRefund + +#Region "Private fields" + Private _destinationCountry As String + + Private _statements As String + + Private _applicationType As DEXPREExportRefundApplicationType + + Private _paymentMethod As String + + Private _authorisedRecipient As String + + Private _guaranteeAccount As String + + Private _reservationFlag As DEXPREExportRefundReservationFlag + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set(value As String) + Me._destinationCountry = Value + End Set + End Property + + _ + Public Property Statements() As String + Get + Return Me._statements + End Get + Set(value As String) + Me._statements = Value + End Set + End Property + + Public Property ApplicationType() As DEXPREExportRefundApplicationType + Get + Return Me._applicationType + End Get + Set(value As DEXPREExportRefundApplicationType) + Me._applicationType = Value + End Set + End Property + + _ + Public Property PaymentMethod() As String + Get + Return Me._paymentMethod + End Get + Set(value As String) + Me._paymentMethod = Value + End Set + End Property + + _ + Public Property AuthorisedRecipient() As String + Get + Return Me._authorisedRecipient + End Get + Set(value As String) + Me._authorisedRecipient = Value + End Set + End Property + + _ + Public Property GuaranteeAccount() As String + Get + Return Me._guaranteeAccount + End Get + Set(value As String) + Me._guaranteeAccount = Value + End Set + End Property + + Public Property ReservationFlag() As DEXPREExportRefundReservationFlag + Get + Return Me._reservationFlag + End Get + Set(value As DEXPREExportRefundReservationFlag) + Me._reservationFlag = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREExportRefund)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREExportRefund object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREExportRefund object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExportRefund) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExportRefund) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREExportRefund + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREExportRefund) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREExportRefund + Return CType(Serializer.Deserialize(s), DEXPREExportRefund) + End Function +#End Region + + ''' + ''' Serializes current DEXPREExportRefund object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREExportRefund object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExportRefund) + 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 DEXPREExportRefund) 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 DEXPREExportRefund + 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 Class + + _ + Public Enum DEXPREExportRefundApplicationType + + ''' + EG + + ''' + EV + + ''' + VR + + ''' + VV + End Enum + + _ + Public Enum DEXPREExportRefundReservationFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPREExportCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREExportCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREExportCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREExportCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExportCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExportCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREExportCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREExportCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREExportCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPREExportCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPREExportCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREExportCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExportCustomsOffice) + 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 DEXPREExportCustomsOffice) 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 DEXPREExportCustomsOffice + 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 Class + + _ + Partial Public Class DEXPRESupplementaryDeclarationCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRESupplementaryDeclarationCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRESupplementaryDeclarationCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRESupplementaryDeclarationCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRESupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRESupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRESupplementaryDeclarationCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRESupplementaryDeclarationCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRESupplementaryDeclarationCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRESupplementaryDeclarationCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRESupplementaryDeclarationCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPRESupplementaryDeclarationCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPRESupplementaryDeclarationCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRESupplementaryDeclarationCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRESupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRESupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRESupplementaryDeclarationCustomsOffice) + 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 DEXPRESupplementaryDeclarationCustomsOffice) 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 DEXPRESupplementaryDeclarationCustomsOffice + 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 Class + + _ + Partial Public Class DEXPREIntendedExitCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREIntendedExitCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREIntendedExitCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREIntendedExitCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREIntendedExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREIntendedExitCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREIntendedExitCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREIntendedExitCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREIntendedExitCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREIntendedExitCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPREIntendedExitCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPREIntendedExitCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREIntendedExitCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREIntendedExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREIntendedExitCustomsOffice) + 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 DEXPREIntendedExitCustomsOffice) 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 DEXPREIntendedExitCustomsOffice + 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 Class + + _ + Partial Public Class DEXPREActualExitCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREActualExitCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREActualExitCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREActualExitCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREActualExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREActualExitCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREActualExitCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREActualExitCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREActualExitCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREActualExitCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPREActualExitCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPREActualExitCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREActualExitCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREActualExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREActualExitCustomsOffice) + 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 DEXPREActualExitCustomsOffice) 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 DEXPREActualExitCustomsOffice + 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 Class + + _ + Partial Public Class DEXPRETransaction + +#Region "Private fields" + Private _type As DEXPRETransactionType + + Private _invoiceAmount As Decimal + + Private _currency As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPRETransactionType + Get + Return Me._type + End Get + Set(value As DEXPRETransactionType) + Me._type = Value + End Set + End Property + + Public Property InvoiceAmount() As Decimal + Get + Return Me._invoiceAmount + End Get + Set(value As Decimal) + Me._invoiceAmount = Value + End Set + End Property + + _ + Public Property Currency() As String + Get + Return Me._currency + End Get + Set(value As String) + Me._currency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRETransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRETransaction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRETransaction object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRETransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRETransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRETransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRETransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRETransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRETransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRETransaction + Return CType(Serializer.Deserialize(s), DEXPRETransaction) + End Function +#End Region + + ''' + ''' Serializes current DEXPRETransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRETransaction object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRETransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRETransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRETransaction) + 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 DEXPRETransaction) 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 DEXPRETransaction + 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 Class + + _ + Public Enum DEXPRETransactionType + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item19 + + ''' + _ + Item21 + + ''' + _ + Item22 + + ''' + _ + Item23 + + ''' + _ + Item29 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item41 + + ''' + _ + Item42 + + ''' + _ + Item51 + + ''' + _ + Item52 + + ''' + _ + Item67 + + ''' + _ + Item69 + + ''' + _ + Item71 + + ''' + _ + Item72 + + ''' + _ + Item81 + + ''' + _ + Item91 + + ''' + _ + Item92 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPRESpecialFact + +#Region "Private fields" + Private _indicator As DEXPRESpecialFactIndicator + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Indicator() As DEXPRESpecialFactIndicator + Get + Return Me._indicator + End Get + Set(value As DEXPRESpecialFactIndicator) + Me._indicator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRESpecialFact)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRESpecialFact object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRESpecialFact object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRESpecialFact object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRESpecialFact, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRESpecialFact) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRESpecialFact) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRESpecialFact + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRESpecialFact) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRESpecialFact + Return CType(Serializer.Deserialize(s), DEXPRESpecialFact) + End Function +#End Region + + ''' + ''' Serializes current DEXPRESpecialFact object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRESpecialFact object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRESpecialFact object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRESpecialFact, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRESpecialFact) + 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 DEXPRESpecialFact) 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 DEXPRESpecialFact + 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 Class + + _ + Public Enum DEXPRESpecialFactIndicator + + ''' + _ + Item0 + + ''' + _ + Item1 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + + ''' + _ + Item5 + End Enum + + _ + Partial Public Class DEXPREItinerary + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREItinerary)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREItinerary object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREItinerary object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREItinerary) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREItinerary) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREItinerary + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREItinerary) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREItinerary + Return CType(Serializer.Deserialize(s), DEXPREItinerary) + End Function +#End Region + + ''' + ''' Serializes current DEXPREItinerary object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREItinerary object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREItinerary) + 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 DEXPREItinerary) 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 DEXPREItinerary + 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 Class + + _ + Partial Public Class DEXPRESeals + +#Region "Private fields" + Private _type As DEXPRESealsType + + Private _number As String + + Private _seal As List(Of DEXPRESealsSeal) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._seal = New List(Of DEXPRESealsSeal)() + End Sub + + Public Property Type() As DEXPRESealsType + Get + Return Me._type + End Get + Set(value As DEXPRESealsType) + Me._type = Value + End Set + End Property + + _ + Public Property Number() As String + Get + Return Me._number + End Get + Set(value As String) + Me._number = Value + End Set + End Property + + _ + Public Property Seal() As List(Of DEXPRESealsSeal) + Get + Return Me._seal + End Get + Set(value As List(Of DEXPRESealsSeal)) + Me._seal = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRESeals)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRESeals object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRESeals object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRESeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRESeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRESeals) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRESeals) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRESeals + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRESeals) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRESeals + Return CType(Serializer.Deserialize(s), DEXPRESeals) + End Function +#End Region + + ''' + ''' Serializes current DEXPRESeals object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRESeals object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRESeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRESeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRESeals) + 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 DEXPRESeals) 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 DEXPRESeals + 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 Class + + _ + Public Enum DEXPRESealsType + + ''' + P + + ''' + R + End Enum + + _ + Partial Public Class DEXPRESealsSeal + +#Region "Private fields" + Private _identity As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRESealsSeal)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRESealsSeal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRESealsSeal object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRESealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRESealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRESealsSeal) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRESealsSeal) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRESealsSeal + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRESealsSeal) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRESealsSeal + Return CType(Serializer.Deserialize(s), DEXPRESealsSeal) + End Function +#End Region + + ''' + ''' Serializes current DEXPRESealsSeal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRESealsSeal object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRESealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRESealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRESealsSeal) + 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 DEXPRESealsSeal) 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 DEXPRESealsSeal + 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 Class + + _ + Partial Public Class DEXPREExporter + +#Region "Private fields" + Private _class As DEXPREExporterClass + + Private _identification As DEXPREExporterIdentification + + Private _name As String + + Private _address As DEXPREExporterAddress + + Private _contactPerson As DEXPREExporterContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPREExporterContactPerson() + Me._address = New DEXPREExporterAddress() + Me._identification = New DEXPREExporterIdentification() + End Sub + + Public Property [Class]() As DEXPREExporterClass + Get + Return Me._class + End Get + Set(value As DEXPREExporterClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPREExporterIdentification + Get + Return Me._identification + End Get + Set(value As DEXPREExporterIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPREExporterAddress + Get + Return Me._address + End Get + Set(value As DEXPREExporterAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPREExporterContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPREExporterContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREExporter)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREExporter object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREExporter object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREExporter object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExporter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExporter) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExporter) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREExporter + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREExporter) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREExporter + Return CType(Serializer.Deserialize(s), DEXPREExporter) + End Function +#End Region + + ''' + ''' Serializes current DEXPREExporter object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREExporter object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREExporter object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREExporter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExporter) + 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 DEXPREExporter) 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 DEXPREExporter + 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 Class + + _ + Public Enum DEXPREExporterClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPREExporterIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREExporterIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREExporterIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREExporterIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREExporterIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExporterIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExporterIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExporterIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREExporterIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREExporterIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREExporterIdentification + Return CType(Serializer.Deserialize(s), DEXPREExporterIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPREExporterIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREExporterIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREExporterIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREExporterIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExporterIdentification) + 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 DEXPREExporterIdentification) 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 DEXPREExporterIdentification + 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 Class + + _ + Partial Public Class DEXPREExporterAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREExporterAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREExporterAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREExporterAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREExporterAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExporterAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExporterAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExporterAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREExporterAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREExporterAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREExporterAddress + Return CType(Serializer.Deserialize(s), DEXPREExporterAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPREExporterAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREExporterAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREExporterAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREExporterAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExporterAddress) + 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 DEXPREExporterAddress) 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 DEXPREExporterAddress + 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 Class + + _ + Partial Public Class DEXPREExporterContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREExporterContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREExporterContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREExporterContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREExporterContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExporterContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExporterContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREExporterContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREExporterContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREExporterContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREExporterContactPerson + Return CType(Serializer.Deserialize(s), DEXPREExporterContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPREExporterContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREExporterContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREExporterContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREExporterContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREExporterContactPerson) + 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 DEXPREExporterContactPerson) 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 DEXPREExporterContactPerson + 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 Class + + _ + Partial Public Class DEXPREDeclarant + +#Region "Private fields" + Private _class As DEXPREDeclarantClass + + Private _identification As DEXPREDeclarantIdentification + + Private _name As String + + Private _address As DEXPREDeclarantAddress + + Private _contactPerson As DEXPREDeclarantContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPREDeclarantContactPerson() + Me._address = New DEXPREDeclarantAddress() + Me._identification = New DEXPREDeclarantIdentification() + End Sub + + Public Property [Class]() As DEXPREDeclarantClass + Get + Return Me._class + End Get + Set(value As DEXPREDeclarantClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPREDeclarantIdentification + Get + Return Me._identification + End Get + Set(value As DEXPREDeclarantIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPREDeclarantAddress + Get + Return Me._address + End Get + Set(value As DEXPREDeclarantAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPREDeclarantContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPREDeclarantContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREDeclarant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREDeclarant object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREDeclarant object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeclarant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeclarant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREDeclarant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREDeclarant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREDeclarant + Return CType(Serializer.Deserialize(s), DEXPREDeclarant) + End Function +#End Region + + ''' + ''' Serializes current DEXPREDeclarant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREDeclarant object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeclarant) + 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 DEXPREDeclarant) 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 DEXPREDeclarant + 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 Class + + _ + Public Enum DEXPREDeclarantClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + End Enum + + _ + Partial Public Class DEXPREDeclarantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREDeclarantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREDeclarantIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREDeclarantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeclarantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeclarantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREDeclarantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREDeclarantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREDeclarantIdentification + Return CType(Serializer.Deserialize(s), DEXPREDeclarantIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPREDeclarantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREDeclarantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeclarantIdentification) + 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 DEXPREDeclarantIdentification) 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 DEXPREDeclarantIdentification + 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 Class + + _ + Partial Public Class DEXPREDeclarantAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREDeclarantAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREDeclarantAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREDeclarantAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeclarantAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeclarantAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREDeclarantAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREDeclarantAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREDeclarantAddress + Return CType(Serializer.Deserialize(s), DEXPREDeclarantAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPREDeclarantAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREDeclarantAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeclarantAddress) + 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 DEXPREDeclarantAddress) 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 DEXPREDeclarantAddress + 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 Class + + _ + Partial Public Class DEXPREDeclarantContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREDeclarantContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREDeclarantContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREDeclarantContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREDeclarantContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeclarantContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeclarantContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeclarantContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREDeclarantContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREDeclarantContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREDeclarantContactPerson + Return CType(Serializer.Deserialize(s), DEXPREDeclarantContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPREDeclarantContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREDeclarantContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREDeclarantContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREDeclarantContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeclarantContactPerson) + 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 DEXPREDeclarantContactPerson) 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 DEXPREDeclarantContactPerson + 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 Class + + _ + Partial Public Class DEXPRERepresentative + +#Region "Private fields" + Private _class As DEXPRERepresentativeClass + + Private _identification As DEXPRERepresentativeIdentification + + Private _name As String + + Private _address As DEXPRERepresentativeAddress + + Private _contactPerson As DEXPRERepresentativeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPRERepresentativeContactPerson() + Me._address = New DEXPRERepresentativeAddress() + Me._identification = New DEXPRERepresentativeIdentification() + End Sub + + Public Property [Class]() As DEXPRERepresentativeClass + Get + Return Me._class + End Get + Set(value As DEXPRERepresentativeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPRERepresentativeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRERepresentativeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPRERepresentativeAddress + Get + Return Me._address + End Get + Set(value As DEXPRERepresentativeAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPRERepresentativeContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPRERepresentativeContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRERepresentative)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRERepresentative object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRERepresentative object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRERepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRERepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRERepresentative) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRERepresentative) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRERepresentative + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRERepresentative) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRERepresentative + Return CType(Serializer.Deserialize(s), DEXPRERepresentative) + End Function +#End Region + + ''' + ''' Serializes current DEXPRERepresentative object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRERepresentative object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRERepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRERepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRERepresentative) + 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 DEXPRERepresentative) 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 DEXPRERepresentative + 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 Class + + _ + Public Enum DEXPRERepresentativeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + End Enum + + _ + Partial Public Class DEXPRERepresentativeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRERepresentativeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRERepresentativeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRERepresentativeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRERepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRERepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRERepresentativeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRERepresentativeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRERepresentativeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRERepresentativeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRERepresentativeIdentification + Return CType(Serializer.Deserialize(s), DEXPRERepresentativeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRERepresentativeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRERepresentativeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRERepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRERepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRERepresentativeIdentification) + 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 DEXPRERepresentativeIdentification) 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 DEXPRERepresentativeIdentification + 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 Class + + _ + Partial Public Class DEXPRERepresentativeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRERepresentativeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRERepresentativeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRERepresentativeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRERepresentativeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRERepresentativeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRERepresentativeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRERepresentativeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRERepresentativeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRERepresentativeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRERepresentativeAddress + Return CType(Serializer.Deserialize(s), DEXPRERepresentativeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPRERepresentativeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRERepresentativeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRERepresentativeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRERepresentativeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRERepresentativeAddress) + 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 DEXPRERepresentativeAddress) 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 DEXPRERepresentativeAddress + 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 Class + + _ + Partial Public Class DEXPRERepresentativeContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRERepresentativeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRERepresentativeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRERepresentativeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRERepresentativeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRERepresentativeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRERepresentativeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRERepresentativeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRERepresentativeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRERepresentativeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRERepresentativeContactPerson + Return CType(Serializer.Deserialize(s), DEXPRERepresentativeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPRERepresentativeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRERepresentativeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRERepresentativeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRERepresentativeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRERepresentativeContactPerson) + 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 DEXPRERepresentativeContactPerson) 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 DEXPRERepresentativeContactPerson + 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 Class + + _ + Partial Public Class DEXPREContractor + +#Region "Private fields" + Private _class As DEXPREContractorClass + + Private _identification As DEXPREContractorIdentification + + Private _name As String + + Private _address As DEXPREContractorAddress + + Private _contactPerson As DEXPREContractorContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPREContractorContactPerson() + Me._address = New DEXPREContractorAddress() + Me._identification = New DEXPREContractorIdentification() + End Sub + + Public Property [Class]() As DEXPREContractorClass + Get + Return Me._class + End Get + Set(value As DEXPREContractorClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPREContractorIdentification + Get + Return Me._identification + End Get + Set(value As DEXPREContractorIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPREContractorAddress + Get + Return Me._address + End Get + Set(value As DEXPREContractorAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPREContractorContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPREContractorContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREContractor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREContractor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREContractor object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREContractor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREContractor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREContractor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREContractor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREContractor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREContractor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREContractor + Return CType(Serializer.Deserialize(s), DEXPREContractor) + End Function +#End Region + + ''' + ''' Serializes current DEXPREContractor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREContractor object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREContractor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREContractor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREContractor) + 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 DEXPREContractor) 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 DEXPREContractor + 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 Class + + _ + Public Enum DEXPREContractorClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + End Enum + + _ + Partial Public Class DEXPREContractorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREContractorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREContractorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREContractorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREContractorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREContractorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREContractorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREContractorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREContractorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREContractorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREContractorIdentification + Return CType(Serializer.Deserialize(s), DEXPREContractorIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPREContractorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREContractorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREContractorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREContractorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREContractorIdentification) + 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 DEXPREContractorIdentification) 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 DEXPREContractorIdentification + 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 Class + + _ + Partial Public Class DEXPREContractorAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREContractorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREContractorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREContractorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREContractorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREContractorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREContractorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREContractorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREContractorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREContractorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREContractorAddress + Return CType(Serializer.Deserialize(s), DEXPREContractorAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPREContractorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREContractorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREContractorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREContractorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREContractorAddress) + 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 DEXPREContractorAddress) 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 DEXPREContractorAddress + 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 Class + + _ + Partial Public Class DEXPREContractorContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREContractorContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREContractorContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREContractorContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREContractorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREContractorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREContractorContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREContractorContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREContractorContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREContractorContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREContractorContactPerson + Return CType(Serializer.Deserialize(s), DEXPREContractorContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPREContractorContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREContractorContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREContractorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREContractorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREContractorContactPerson) + 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 DEXPREContractorContactPerson) 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 DEXPREContractorContactPerson + 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 Class + + _ + Partial Public Class DEXPREOutwardProcessingOwner + +#Region "Private fields" + Private _class As DEXPREOutwardProcessingOwnerClass + + Private _identification As DEXPREOutwardProcessingOwnerIdentification + + Private _name As String + + Private _address As DEXPREOutwardProcessingOwnerAddress + + Private _contactPerson As DEXPREOutwardProcessingOwnerContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPREOutwardProcessingOwnerContactPerson() + Me._address = New DEXPREOutwardProcessingOwnerAddress() + Me._identification = New DEXPREOutwardProcessingOwnerIdentification() + End Sub + + Public Property [Class]() As DEXPREOutwardProcessingOwnerClass + Get + Return Me._class + End Get + Set(value As DEXPREOutwardProcessingOwnerClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPREOutwardProcessingOwnerIdentification + Get + Return Me._identification + End Get + Set(value As DEXPREOutwardProcessingOwnerIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPREOutwardProcessingOwnerAddress + Get + Return Me._address + End Get + Set(value As DEXPREOutwardProcessingOwnerAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPREOutwardProcessingOwnerContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPREOutwardProcessingOwnerContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREOutwardProcessingOwner)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREOutwardProcessingOwner object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREOutwardProcessingOwner object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREOutwardProcessingOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingOwner) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingOwner) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREOutwardProcessingOwner + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREOutwardProcessingOwner) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREOutwardProcessingOwner + Return CType(Serializer.Deserialize(s), DEXPREOutwardProcessingOwner) + End Function +#End Region + + ''' + ''' Serializes current DEXPREOutwardProcessingOwner object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREOutwardProcessingOwner object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREOutwardProcessingOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingOwner) + 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 DEXPREOutwardProcessingOwner) 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 DEXPREOutwardProcessingOwner + 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 Class + + _ + Public Enum DEXPREOutwardProcessingOwnerClass + + ''' + _ + Item0 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPREOutwardProcessingOwnerIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREOutwardProcessingOwnerIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREOutwardProcessingOwnerIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREOutwardProcessingOwnerIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREOutwardProcessingOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingOwnerIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingOwnerIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREOutwardProcessingOwnerIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREOutwardProcessingOwnerIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREOutwardProcessingOwnerIdentification + Return CType(Serializer.Deserialize(s), DEXPREOutwardProcessingOwnerIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPREOutwardProcessingOwnerIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREOutwardProcessingOwnerIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREOutwardProcessingOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingOwnerIdentification) + 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 DEXPREOutwardProcessingOwnerIdentification) 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 DEXPREOutwardProcessingOwnerIdentification + 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 Class + + _ + Partial Public Class DEXPREOutwardProcessingOwnerAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREOutwardProcessingOwnerAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREOutwardProcessingOwnerAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREOutwardProcessingOwnerAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREOutwardProcessingOwnerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingOwnerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingOwnerAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingOwnerAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREOutwardProcessingOwnerAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREOutwardProcessingOwnerAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREOutwardProcessingOwnerAddress + Return CType(Serializer.Deserialize(s), DEXPREOutwardProcessingOwnerAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPREOutwardProcessingOwnerAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREOutwardProcessingOwnerAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREOutwardProcessingOwnerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREOutwardProcessingOwnerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingOwnerAddress) + 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 DEXPREOutwardProcessingOwnerAddress) 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 DEXPREOutwardProcessingOwnerAddress + 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 Class + + _ + Partial Public Class DEXPREOutwardProcessingOwnerContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREOutwardProcessingOwnerContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREOutwardProcessingOwnerContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREOutwardProcessingOwnerContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREOutwardProcessingOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingOwnerContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingOwnerContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREOutwardProcessingOwnerContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREOutwardProcessingOwnerContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREOutwardProcessingOwnerContactPerson + Return CType(Serializer.Deserialize(s), DEXPREOutwardProcessingOwnerContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPREOutwardProcessingOwnerContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREOutwardProcessingOwnerContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREOutwardProcessingOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingOwnerContactPerson) + 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 DEXPREOutwardProcessingOwnerContactPerson) 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 DEXPREOutwardProcessingOwnerContactPerson + 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 Class + + _ + Partial Public Class DEXPREConsignee + +#Region "Private fields" + Private _class As DEXPREConsigneeClass + + Private _identification As DEXPREConsigneeIdentification + + Private _name As String + + Private _address As DEXPREConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPREConsigneeAddress() + Me._identification = New DEXPREConsigneeIdentification() + End Sub + + Public Property [Class]() As DEXPREConsigneeClass + Get + Return Me._class + End Get + Set(value As DEXPREConsigneeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPREConsigneeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPREConsigneeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPREConsigneeAddress + Get + Return Me._address + End Get + Set(value As DEXPREConsigneeAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREConsignee + Return CType(Serializer.Deserialize(s), DEXPREConsignee) + End Function +#End Region + + ''' + ''' Serializes current DEXPREConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREConsignee) + 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 DEXPREConsignee) 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 DEXPREConsignee + 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 Class + + _ + Public Enum DEXPREConsigneeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPREConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREConsigneeIdentification + Return CType(Serializer.Deserialize(s), DEXPREConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPREConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREConsigneeIdentification) + 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 DEXPREConsigneeIdentification) 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 DEXPREConsigneeIdentification + 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 Class + + _ + Partial Public Class DEXPREConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREConsigneeAddress + Return CType(Serializer.Deserialize(s), DEXPREConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPREConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREConsigneeAddress) + 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 DEXPREConsigneeAddress) 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 DEXPREConsigneeAddress + 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 Class + + _ + Partial Public Class DEXPREDeliveryTerms + +#Region "Private fields" + Private _incotermCode As DEXPREDeliveryTermsIncotermCode + + Private _description As String + + Private _location As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property IncotermCode() As DEXPREDeliveryTermsIncotermCode + Get + Return Me._incotermCode + End Get + Set(value As DEXPREDeliveryTermsIncotermCode) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + _ + Public Property Location() As String + Get + Return Me._location + End Get + Set(value As String) + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREDeliveryTerms object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREDeliveryTerms + Return CType(Serializer.Deserialize(s), DEXPREDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current DEXPREDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREDeliveryTerms) + 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 DEXPREDeliveryTerms) 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 DEXPREDeliveryTerms + 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 Class + + _ + Public Enum DEXPREDeliveryTermsIncotermCode + + ''' + CFR + + ''' + CIF + + ''' + CIP + + ''' + CPT + + ''' + DAF + + ''' + DAP + + ''' + DAT + + ''' + DDP + + ''' + DDU + + ''' + DEQ + + ''' + DES + + ''' + EXW + + ''' + FAS + + ''' + FCA + + ''' + FOB + + ''' + XXX + End Enum + + _ + Partial Public Class DEXPREOutwardProcessing + +#Region "Private fields" + Private _reimportDate As Date + + Private _usualReplacement As DEXPREOutwardProcessingUsualReplacement + + Private _reimport As List(Of DEXPREOutwardProcessingReimport) + + Private _identificationMeans As List(Of DEXPREOutwardProcessingIdentificationMeans) + + Private _product As List(Of DEXPREOutwardProcessingProduct) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._product = New List(Of DEXPREOutwardProcessingProduct)() + Me._identificationMeans = New List(Of DEXPREOutwardProcessingIdentificationMeans)() + Me._reimport = New List(Of DEXPREOutwardProcessingReimport)() + End Sub + + _ + Public Property ReimportDate() As Date + Get + Return Me._reimportDate + End Get + Set(value As Date) + Me._reimportDate = Value + End Set + End Property + + Public Property UsualReplacement() As DEXPREOutwardProcessingUsualReplacement + Get + Return Me._usualReplacement + End Get + Set(value As DEXPREOutwardProcessingUsualReplacement) + Me._usualReplacement = Value + End Set + End Property + + _ + Public Property Reimport() As List(Of DEXPREOutwardProcessingReimport) + Get + Return Me._reimport + End Get + Set(value As List(Of DEXPREOutwardProcessingReimport)) + Me._reimport = Value + End Set + End Property + + _ + Public Property IdentificationMeans() As List(Of DEXPREOutwardProcessingIdentificationMeans) + Get + Return Me._identificationMeans + End Get + Set(value As List(Of DEXPREOutwardProcessingIdentificationMeans)) + Me._identificationMeans = Value + End Set + End Property + + _ + Public Property Product() As List(Of DEXPREOutwardProcessingProduct) + Get + Return Me._product + End Get + Set(value As List(Of DEXPREOutwardProcessingProduct)) + Me._product = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREOutwardProcessing)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREOutwardProcessing object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREOutwardProcessing object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREOutwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessing) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessing) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREOutwardProcessing + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREOutwardProcessing) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREOutwardProcessing + Return CType(Serializer.Deserialize(s), DEXPREOutwardProcessing) + End Function +#End Region + + ''' + ''' Serializes current DEXPREOutwardProcessing object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREOutwardProcessing object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREOutwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREOutwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessing) + 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 DEXPREOutwardProcessing) 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 DEXPREOutwardProcessing + 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 Class + + _ + Public Enum DEXPREOutwardProcessingUsualReplacement + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPREOutwardProcessingReimport + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREOutwardProcessingReimport)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREOutwardProcessingReimport object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREOutwardProcessingReimport object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREOutwardProcessingReimport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingReimport) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingReimport) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREOutwardProcessingReimport + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREOutwardProcessingReimport) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREOutwardProcessingReimport + Return CType(Serializer.Deserialize(s), DEXPREOutwardProcessingReimport) + End Function +#End Region + + ''' + ''' Serializes current DEXPREOutwardProcessingReimport object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREOutwardProcessingReimport object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREOutwardProcessingReimport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingReimport) + 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 DEXPREOutwardProcessingReimport) 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 DEXPREOutwardProcessingReimport + 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 Class + + _ + Partial Public Class DEXPREOutwardProcessingIdentificationMeans + +#Region "Private fields" + Private _type As DEXPREOutwardProcessingIdentificationMeansType + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPREOutwardProcessingIdentificationMeansType + Get + Return Me._type + End Get + Set(value As DEXPREOutwardProcessingIdentificationMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREOutwardProcessingIdentificationMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREOutwardProcessingIdentificationMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREOutwardProcessingIdentificationMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREOutwardProcessingIdentificationMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingIdentificationMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingIdentificationMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREOutwardProcessingIdentificationMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREOutwardProcessingIdentificationMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREOutwardProcessingIdentificationMeans + Return CType(Serializer.Deserialize(s), DEXPREOutwardProcessingIdentificationMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPREOutwardProcessingIdentificationMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREOutwardProcessingIdentificationMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREOutwardProcessingIdentificationMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingIdentificationMeans) + 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 DEXPREOutwardProcessingIdentificationMeans) 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 DEXPREOutwardProcessingIdentificationMeans + 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 Class + + _ + Public Enum DEXPREOutwardProcessingIdentificationMeansType + + ''' + A + + ''' + B + + ''' + N + + ''' + O + + ''' + P + + ''' + S + + ''' + T + + ''' + Z + End Enum + + _ + Partial Public Class DEXPREOutwardProcessingProduct + +#Region "Private fields" + Private _commodityCode As String + + Private _goodsDescription As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + _ + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set(value As String) + Me._goodsDescription = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREOutwardProcessingProduct)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREOutwardProcessingProduct object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREOutwardProcessingProduct object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREOutwardProcessingProduct object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingProduct) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREOutwardProcessingProduct) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREOutwardProcessingProduct + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREOutwardProcessingProduct) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREOutwardProcessingProduct + Return CType(Serializer.Deserialize(s), DEXPREOutwardProcessingProduct) + End Function +#End Region + + ''' + ''' Serializes current DEXPREOutwardProcessingProduct object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREOutwardProcessingProduct object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREOutwardProcessingProduct object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREOutwardProcessingProduct) + 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 DEXPREOutwardProcessingProduct) 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 DEXPREOutwardProcessingProduct + 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 Class + + _ + Partial Public Class DEXPREGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _goodsDescription As String + + Private _commercialReferenceNumber As String + + Private _registrationNumber As String + + Private _originFederalState As DEXPREGoodsItemOriginFederalState + + Private _netMass As Decimal + + Private _grossMass As Decimal + + Private _originalSequenceNumber As String + + Private _dangerousGoodsCode As String + + Private _transportChargesPaymentMethod As String + + Private _commodityCode As DEXPREGoodsItemCommodityCode + + Private _exportRefund As DEXPREGoodsItemExportRefund + + Private _procedure As DEXPREGoodsItemProcedure + + Private _foreignTradeStatistics As DEXPREGoodsItemForeignTradeStatistics + + Private _consignee As DEXPREGoodsItemConsignee + + Private _package As List(Of DEXPREGoodsItemPackage) + + Private _container As List(Of DEXPREGoodsItemContainer) + + Private _document As List(Of DEXPREGoodsItemDocument) + + Private _previousAdminstrativeReference As List(Of DEXPREGoodsItemPreviousAdminstrativeReference) + + Private _deliveryTerms As DEXPREGoodsItemDeliveryTerms + + Private _transaction As DEXPREGoodsItemTransaction + + Private _customsWarehouse As DEXPREGoodsItemCustomsWarehouse + + Private _inwardProcessingTransformation As DEXPREGoodsItemInwardProcessingTransformation + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._inwardProcessingTransformation = New DEXPREGoodsItemInwardProcessingTransformation() + Me._customsWarehouse = New DEXPREGoodsItemCustomsWarehouse() + Me._transaction = New DEXPREGoodsItemTransaction() + Me._deliveryTerms = New DEXPREGoodsItemDeliveryTerms() + Me._previousAdminstrativeReference = New List(Of DEXPREGoodsItemPreviousAdminstrativeReference)() + Me._document = New List(Of DEXPREGoodsItemDocument)() + Me._container = New List(Of DEXPREGoodsItemContainer)() + Me._package = New List(Of DEXPREGoodsItemPackage)() + Me._consignee = New DEXPREGoodsItemConsignee() + Me._foreignTradeStatistics = New DEXPREGoodsItemForeignTradeStatistics() + Me._procedure = New DEXPREGoodsItemProcedure() + Me._exportRefund = New DEXPREGoodsItemExportRefund() + Me._commodityCode = New DEXPREGoodsItemCommodityCode() + End Sub + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set(value As String) + Me._goodsDescription = Value + End Set + End Property + + _ + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set(value As String) + Me._commercialReferenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + Public Property OriginFederalState() As DEXPREGoodsItemOriginFederalState + Get + Return Me._originFederalState + End Get + Set(value As DEXPREGoodsItemOriginFederalState) + Me._originFederalState = Value + End Set + End Property + + Public Property NetMass() As Decimal + Get + Return Me._netMass + End Get + Set(value As Decimal) + Me._netMass = Value + End Set + End Property + + Public Property GrossMass() As Decimal + Get + Return Me._grossMass + End Get + Set(value As Decimal) + Me._grossMass = Value + End Set + End Property + + _ + Public Property OriginalSequenceNumber() As String + Get + Return Me._originalSequenceNumber + End Get + Set(value As String) + Me._originalSequenceNumber = Value + End Set + End Property + + _ + Public Property DangerousGoodsCode() As String + Get + Return Me._dangerousGoodsCode + End Get + Set(value As String) + Me._dangerousGoodsCode = Value + End Set + End Property + + _ + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set(value As String) + Me._transportChargesPaymentMethod = Value + End Set + End Property + + Public Property CommodityCode() As DEXPREGoodsItemCommodityCode + Get + Return Me._commodityCode + End Get + Set(value As DEXPREGoodsItemCommodityCode) + Me._commodityCode = Value + End Set + End Property + + Public Property ExportRefund() As DEXPREGoodsItemExportRefund + Get + Return Me._exportRefund + End Get + Set(value As DEXPREGoodsItemExportRefund) + Me._exportRefund = Value + End Set + End Property + + Public Property Procedure() As DEXPREGoodsItemProcedure + Get + Return Me._procedure + End Get + Set(value As DEXPREGoodsItemProcedure) + Me._procedure = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As DEXPREGoodsItemForeignTradeStatistics + Get + Return Me._foreignTradeStatistics + End Get + Set(value As DEXPREGoodsItemForeignTradeStatistics) + Me._foreignTradeStatistics = Value + End Set + End Property + + Public Property Consignee() As DEXPREGoodsItemConsignee + Get + Return Me._consignee + End Get + Set(value As DEXPREGoodsItemConsignee) + Me._consignee = Value + End Set + End Property + + _ + Public Property Package() As List(Of DEXPREGoodsItemPackage) + Get + Return Me._package + End Get + Set(value As List(Of DEXPREGoodsItemPackage)) + Me._package = Value + End Set + End Property + + _ + Public Property Container() As List(Of DEXPREGoodsItemContainer) + Get + Return Me._container + End Get + Set(value As List(Of DEXPREGoodsItemContainer)) + Me._container = Value + End Set + End Property + + _ + Public Property Document() As List(Of DEXPREGoodsItemDocument) + Get + Return Me._document + End Get + Set(value As List(Of DEXPREGoodsItemDocument)) + Me._document = Value + End Set + End Property + + _ + Public Property PreviousAdminstrativeReference() As List(Of DEXPREGoodsItemPreviousAdminstrativeReference) + Get + Return Me._previousAdminstrativeReference + End Get + Set(value As List(Of DEXPREGoodsItemPreviousAdminstrativeReference)) + Me._previousAdminstrativeReference = Value + End Set + End Property + + Public Property DeliveryTerms() As DEXPREGoodsItemDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set(value As DEXPREGoodsItemDeliveryTerms) + Me._deliveryTerms = Value + End Set + End Property + + Public Property Transaction() As DEXPREGoodsItemTransaction + Get + Return Me._transaction + End Get + Set(value As DEXPREGoodsItemTransaction) + Me._transaction = Value + End Set + End Property + + Public Property CustomsWarehouse() As DEXPREGoodsItemCustomsWarehouse + Get + Return Me._customsWarehouse + End Get + Set(value As DEXPREGoodsItemCustomsWarehouse) + Me._customsWarehouse = Value + End Set + End Property + + _ + Public Property InwardProcessingTransformation() As DEXPREGoodsItemInwardProcessingTransformation + Get + Return Me._inwardProcessingTransformation + End Get + Set(value As DEXPREGoodsItemInwardProcessingTransformation) + Me._inwardProcessingTransformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItem + Return CType(Serializer.Deserialize(s), DEXPREGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItem) + 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 DEXPREGoodsItem) 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 DEXPREGoodsItem + 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 Class + + _ + Public Enum DEXPREGoodsItemOriginFederalState + + ''' + _ + Item01 + + ''' + _ + Item02 + + ''' + _ + Item03 + + ''' + _ + Item04 + + ''' + _ + Item05 + + ''' + _ + Item06 + + ''' + _ + Item07 + + ''' + _ + Item08 + + ''' + _ + Item09 + + ''' + _ + Item10 + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item15 + + ''' + _ + Item16 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPREGoodsItemCommodityCode + +#Region "Private fields" + Private _combinedNomenclatureCode As String + + Private _taricCode As String + + Private _taricFirstAdditionalCode As String + + Private _taricSecondAdditionalCode As String + + Private _nationalAdditionalCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property CombinedNomenclatureCode() As String + Get + Return Me._combinedNomenclatureCode + End Get + Set(value As String) + Me._combinedNomenclatureCode = Value + End Set + End Property + + _ + Public Property TaricCode() As String + Get + Return Me._taricCode + End Get + Set(value As String) + Me._taricCode = Value + End Set + End Property + + _ + Public Property TaricFirstAdditionalCode() As String + Get + Return Me._taricFirstAdditionalCode + End Get + Set(value As String) + Me._taricFirstAdditionalCode = Value + End Set + End Property + + _ + Public Property TaricSecondAdditionalCode() As String + Get + Return Me._taricSecondAdditionalCode + End Get + Set(value As String) + Me._taricSecondAdditionalCode = Value + End Set + End Property + + _ + Public Property NationalAdditionalCode() As String + Get + Return Me._nationalAdditionalCode + End Get + Set(value As String) + Me._nationalAdditionalCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemCommodityCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemCommodityCode object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemCommodityCode object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCommodityCode) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCommodityCode) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemCommodityCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemCommodityCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemCommodityCode + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemCommodityCode) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemCommodityCode object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemCommodityCode object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCommodityCode) + 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 DEXPREGoodsItemCommodityCode) 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 DEXPREGoodsItemCommodityCode + 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 Class + + _ + Partial Public Class DEXPREGoodsItemExportRefund + +#Region "Private fields" + Private _goodsDescriptionFirstAddendum As String + + Private _goodsDescriptionSecondAddendum As String + + Private _originCountry As String + + Private _measurementUnit As DEXPREGoodsItemExportRefundMeasurementUnit + + Private _quantity As Decimal + + Private _paymentCaseNonAnnex1 As DEXPREGoodsItemExportRefundPaymentCaseNonAnnex1 + + Private _adaptationCoefficient As Decimal + + Private _valueA As Decimal + + Private _valueB As Decimal + + Private _valueC As Decimal + + Private _valueD As Decimal + + Private _ingredient As List(Of DEXPREGoodsItemExportRefundIngredient) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ingredient = New List(Of DEXPREGoodsItemExportRefundIngredient)() + End Sub + + _ + Public Property GoodsDescriptionFirstAddendum() As String + Get + Return Me._goodsDescriptionFirstAddendum + End Get + Set(value As String) + Me._goodsDescriptionFirstAddendum = Value + End Set + End Property + + _ + Public Property GoodsDescriptionSecondAddendum() As String + Get + Return Me._goodsDescriptionSecondAddendum + End Get + Set(value As String) + Me._goodsDescriptionSecondAddendum = Value + End Set + End Property + + _ + Public Property OriginCountry() As String + Get + Return Me._originCountry + End Get + Set(value As String) + Me._originCountry = Value + End Set + End Property + + Public Property MeasurementUnit() As DEXPREGoodsItemExportRefundMeasurementUnit + Get + Return Me._measurementUnit + End Get + Set(value As DEXPREGoodsItemExportRefundMeasurementUnit) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Public Property PaymentCaseNonAnnex1() As DEXPREGoodsItemExportRefundPaymentCaseNonAnnex1 + Get + Return Me._paymentCaseNonAnnex1 + End Get + Set(value As DEXPREGoodsItemExportRefundPaymentCaseNonAnnex1) + Me._paymentCaseNonAnnex1 = Value + End Set + End Property + + Public Property AdaptationCoefficient() As Decimal + Get + Return Me._adaptationCoefficient + End Get + Set(value As Decimal) + Me._adaptationCoefficient = Value + End Set + End Property + + Public Property ValueA() As Decimal + Get + Return Me._valueA + End Get + Set(value As Decimal) + Me._valueA = Value + End Set + End Property + + Public Property ValueB() As Decimal + Get + Return Me._valueB + End Get + Set(value As Decimal) + Me._valueB = Value + End Set + End Property + + Public Property ValueC() As Decimal + Get + Return Me._valueC + End Get + Set(value As Decimal) + Me._valueC = Value + End Set + End Property + + Public Property ValueD() As Decimal + Get + Return Me._valueD + End Get + Set(value As Decimal) + Me._valueD = Value + End Set + End Property + + _ + Public Property Ingredient() As List(Of DEXPREGoodsItemExportRefundIngredient) + Get + Return Me._ingredient + End Get + Set(value As List(Of DEXPREGoodsItemExportRefundIngredient)) + Me._ingredient = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemExportRefund)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemExportRefund object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemExportRefund object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemExportRefund) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemExportRefund) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemExportRefund + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemExportRefund) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemExportRefund + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemExportRefund) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemExportRefund object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemExportRefund object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemExportRefund) + 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 DEXPREGoodsItemExportRefund) 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 DEXPREGoodsItemExportRefund + 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 Class + + _ + Public Enum DEXPREGoodsItemExportRefundMeasurementUnit + + ''' + CEN + + ''' + DTN + + ''' + HLT + + ''' + KGM + + ''' + LTR + + ''' + MIL + + ''' + NAR + + ''' + TNE + End Enum + + _ + Public Enum DEXPREGoodsItemExportRefundPaymentCaseNonAnnex1 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPREGoodsItemExportRefundIngredient + +#Region "Private fields" + Private _sequenceNumber As String + + Private _conversionFactor1 As Decimal + + Private _conversionFactorMode As DEXPREGoodsItemExportRefundIngredientConversionFactorMode + + Private _conversionFactor2 As Decimal + + Private _conversionFactorRate As Decimal + + Private _massPercentage As Decimal + + Private _fractionMass As Decimal + + Private _manufacturersDeclarationNumber As String + + Private _commodityCode As String + + Private _licenseNumber As String + + Private _statements As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + Public Property ConversionFactor1() As Decimal + Get + Return Me._conversionFactor1 + End Get + Set(value As Decimal) + Me._conversionFactor1 = Value + End Set + End Property + + Public Property ConversionFactorMode() As DEXPREGoodsItemExportRefundIngredientConversionFactorMode + Get + Return Me._conversionFactorMode + End Get + Set(value As DEXPREGoodsItemExportRefundIngredientConversionFactorMode) + Me._conversionFactorMode = Value + End Set + End Property + + Public Property ConversionFactor2() As Decimal + Get + Return Me._conversionFactor2 + End Get + Set(value As Decimal) + Me._conversionFactor2 = Value + End Set + End Property + + Public Property ConversionFactorRate() As Decimal + Get + Return Me._conversionFactorRate + End Get + Set(value As Decimal) + Me._conversionFactorRate = Value + End Set + End Property + + Public Property MassPercentage() As Decimal + Get + Return Me._massPercentage + End Get + Set(value As Decimal) + Me._massPercentage = Value + End Set + End Property + + Public Property FractionMass() As Decimal + Get + Return Me._fractionMass + End Get + Set(value As Decimal) + Me._fractionMass = Value + End Set + End Property + + _ + Public Property ManufacturersDeclarationNumber() As String + Get + Return Me._manufacturersDeclarationNumber + End Get + Set(value As String) + Me._manufacturersDeclarationNumber = Value + End Set + End Property + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + _ + Public Property LicenseNumber() As String + Get + Return Me._licenseNumber + End Get + Set(value As String) + Me._licenseNumber = Value + End Set + End Property + + _ + Public Property Statements() As String + Get + Return Me._statements + End Get + Set(value As String) + Me._statements = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemExportRefundIngredient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemExportRefundIngredient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemExportRefundIngredient object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemExportRefundIngredient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemExportRefundIngredient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemExportRefundIngredient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemExportRefundIngredient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemExportRefundIngredient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemExportRefundIngredient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemExportRefundIngredient + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemExportRefundIngredient) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemExportRefundIngredient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemExportRefundIngredient object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemExportRefundIngredient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemExportRefundIngredient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemExportRefundIngredient) + 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 DEXPREGoodsItemExportRefundIngredient) 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 DEXPREGoodsItemExportRefundIngredient + 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 Class + + _ + Public Enum DEXPREGoodsItemExportRefundIngredientConversionFactorMode + + ''' + D + + ''' + F + End Enum + + _ + Partial Public Class DEXPREGoodsItemProcedure + +#Region "Private fields" + Private _requestedProcedure As String + + Private _previousProcedure As String + + Private _additionalProcedure As String + + Private _exportRefundProcedure As DEXPREGoodsItemProcedureExportRefundProcedure + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property RequestedProcedure() As String + Get + Return Me._requestedProcedure + End Get + Set(value As String) + Me._requestedProcedure = Value + End Set + End Property + + _ + Public Property PreviousProcedure() As String + Get + Return Me._previousProcedure + End Get + Set(value As String) + Me._previousProcedure = Value + End Set + End Property + + _ + Public Property AdditionalProcedure() As String + Get + Return Me._additionalProcedure + End Get + Set(value As String) + Me._additionalProcedure = Value + End Set + End Property + + Public Property ExportRefundProcedure() As DEXPREGoodsItemProcedureExportRefundProcedure + Get + Return Me._exportRefundProcedure + End Get + Set(value As DEXPREGoodsItemProcedureExportRefundProcedure) + Me._exportRefundProcedure = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemProcedure)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemProcedure object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemProcedure object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemProcedure) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemProcedure) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemProcedure + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemProcedure) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemProcedure + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemProcedure) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemProcedure object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemProcedure object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemProcedure) + 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 DEXPREGoodsItemProcedure) 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 DEXPREGoodsItemProcedure + 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 Class + + _ + Public Enum DEXPREGoodsItemProcedureExportRefundProcedure + + ''' + E51 + + ''' + E52 + + ''' + E53 + + ''' + E61 + + ''' + E62 + + ''' + E63 + + ''' + E71 + End Enum + + _ + Partial Public Class DEXPREGoodsItemForeignTradeStatistics + +#Region "Private fields" + Private _specialUnitQuantity As Decimal + + Private _statisticalValue As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property SpecialUnitQuantity() As Decimal + Get + Return Me._specialUnitQuantity + End Get + Set(value As Decimal) + Me._specialUnitQuantity = Value + End Set + End Property + + _ + Public Property StatisticalValue() As String + Get + Return Me._statisticalValue + End Get + Set(value As String) + Me._statisticalValue = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemForeignTradeStatistics object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemForeignTradeStatistics object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemForeignTradeStatistics) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemForeignTradeStatistics + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemForeignTradeStatistics) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemForeignTradeStatistics object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemForeignTradeStatistics object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemForeignTradeStatistics) + 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 DEXPREGoodsItemForeignTradeStatistics) 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 DEXPREGoodsItemForeignTradeStatistics + 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 Class + + _ + Partial Public Class DEXPREGoodsItemConsignee + +#Region "Private fields" + Private _class As DEXPREGoodsItemConsigneeClass + + Private _identification As DEXPREGoodsItemConsigneeIdentification + + Private _name As String + + Private _address As DEXPREGoodsItemConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPREGoodsItemConsigneeAddress() + Me._identification = New DEXPREGoodsItemConsigneeIdentification() + End Sub + + Public Property [Class]() As DEXPREGoodsItemConsigneeClass + Get + Return Me._class + End Get + Set(value As DEXPREGoodsItemConsigneeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPREGoodsItemConsigneeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPREGoodsItemConsigneeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPREGoodsItemConsigneeAddress + Get + Return Me._address + End Get + Set(value As DEXPREGoodsItemConsigneeAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemConsignee + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemConsignee) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemConsignee) + 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 DEXPREGoodsItemConsignee) 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 DEXPREGoodsItemConsignee + 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 Class + + _ + Public Enum DEXPREGoodsItemConsigneeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPREGoodsItemConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemConsigneeIdentification + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemConsigneeIdentification) + 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 DEXPREGoodsItemConsigneeIdentification) 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 DEXPREGoodsItemConsigneeIdentification + 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 Class + + _ + Partial Public Class DEXPREGoodsItemConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemConsigneeAddress + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemConsigneeAddress) + 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 DEXPREGoodsItemConsigneeAddress) 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 DEXPREGoodsItemConsigneeAddress + 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 Class + + _ + Partial Public Class DEXPREGoodsItemPackage + +#Region "Private fields" + Private _quantity As String + + Private _sequenceNumber As String + + Private _kind As String + + Private _marksNumbers As String + + Private _reference As DEXPREGoodsItemPackageReference + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._reference = New DEXPREGoodsItemPackageReference() + End Sub + + _ + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set(value As String) + Me._quantity = Value + End Set + End Property + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property Kind() As String + Get + Return Me._kind + End Get + Set(value As String) + Me._kind = Value + End Set + End Property + + _ + Public Property MarksNumbers() As String + Get + Return Me._marksNumbers + End Get + Set(value As String) + Me._marksNumbers = Value + End Set + End Property + + Public Property Reference() As DEXPREGoodsItemPackageReference + Get + Return Me._reference + End Get + Set(value As DEXPREGoodsItemPackageReference) + Me._reference = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemPackage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemPackage object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemPackage object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemPackage) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemPackage) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemPackage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemPackage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemPackage + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemPackage) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemPackage object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemPackage object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemPackage) + 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 DEXPREGoodsItemPackage) 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 DEXPREGoodsItemPackage + 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 Class + + _ + Partial Public Class DEXPREGoodsItemPackageReference + +#Region "Private fields" + Private _positionNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property PositionNumber() As String + Get + Return Me._positionNumber + End Get + Set(value As String) + Me._positionNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemPackageReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemPackageReference object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemPackageReference object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemPackageReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemPackageReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemPackageReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemPackageReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemPackageReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemPackageReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemPackageReference + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemPackageReference) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemPackageReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemPackageReference object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemPackageReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemPackageReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemPackageReference) + 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 DEXPREGoodsItemPackageReference) 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 DEXPREGoodsItemPackageReference + 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 Class + + _ + Partial Public Class DEXPREGoodsItemContainer + +#Region "Private fields" + Private _identificationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set(value As String) + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemContainer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemContainer object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemContainer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemContainer) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemContainer + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemContainer) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemContainer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemContainer object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemContainer) + 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 DEXPREGoodsItemContainer) 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 DEXPREGoodsItemContainer + 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 Class + + _ + Partial Public Class DEXPREGoodsItemDocument + +#Region "Private fields" + Private _qualifier As String + + Private _type As String + + Private _referenceNumber As String + + Private _complement As String + + Private _detail As String + + Private _issuingDate As Date + + Private _expiryDate As Date + + Private _writeOffValue As String + + Private _measurementUnit As DEXPREGoodsItemDocumentMeasurementUnit + + Private _writeOffQuantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + _ + Public Property Detail() As String + Get + Return Me._detail + End Get + Set(value As String) + Me._detail = Value + End Set + End Property + + _ + Public Property IssuingDate() As Date + Get + Return Me._issuingDate + End Get + Set(value As Date) + Me._issuingDate = Value + End Set + End Property + + _ + Public Property ExpiryDate() As Date + Get + Return Me._expiryDate + End Get + Set(value As Date) + Me._expiryDate = Value + End Set + End Property + + _ + Public Property WriteOffValue() As String + Get + Return Me._writeOffValue + End Get + Set(value As String) + Me._writeOffValue = Value + End Set + End Property + + Public Property MeasurementUnit() As DEXPREGoodsItemDocumentMeasurementUnit + Get + Return Me._measurementUnit + End Get + Set(value As DEXPREGoodsItemDocumentMeasurementUnit) + Me._measurementUnit = Value + End Set + End Property + + Public Property WriteOffQuantity() As Decimal + Get + Return Me._writeOffQuantity + End Get + Set(value As Decimal) + Me._writeOffQuantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemDocument object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemDocument object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemDocument) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemDocument) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemDocument + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemDocument) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemDocument object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemDocument object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemDocument) + 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 DEXPREGoodsItemDocument) 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 DEXPREGoodsItemDocument + 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 Class + + _ + Public Enum DEXPREGoodsItemDocumentMeasurementUnit + + ''' + Los + + ''' + Mio + + ''' + Paar + + ''' + Satz + + ''' + St + + ''' + Syst + + ''' + cbm + + ''' + cm + + ''' + div + + ''' + g + + ''' + gPu + + ''' + gTh + + ''' + gU + + ''' + kg + + ''' + kgPu + + ''' + kgTh + + ''' + kgU + + ''' + km + + ''' + l + + ''' + lfm + + ''' + ltAnlage + + ''' + m + + ''' + mg + + ''' + ml + + ''' + mm + + ''' + qcm + + ''' + qm + + ''' + t + + ''' + tU + + ''' + µg + + ''' + µl + + ''' + µm + End Enum + + _ + Partial Public Class DEXPREGoodsItemPreviousAdminstrativeReference + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private _complement As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemPreviousAdminstrativeReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemPreviousAdminstrativeReference object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemPreviousAdminstrativeReference object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemPreviousAdminstrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemPreviousAdminstrativeReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemPreviousAdminstrativeReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemPreviousAdminstrativeReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemPreviousAdminstrativeReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemPreviousAdminstrativeReference + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemPreviousAdminstrativeReference) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemPreviousAdminstrativeReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemPreviousAdminstrativeReference object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemPreviousAdminstrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemPreviousAdminstrativeReference) + 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 DEXPREGoodsItemPreviousAdminstrativeReference) 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 DEXPREGoodsItemPreviousAdminstrativeReference + 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 Class + + _ + Partial Public Class DEXPREGoodsItemDeliveryTerms + +#Region "Private fields" + Private _incotermCode As DEXPREGoodsItemDeliveryTermsIncotermCode + + Private _description As String + + Private _location As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property IncotermCode() As DEXPREGoodsItemDeliveryTermsIncotermCode + Get + Return Me._incotermCode + End Get + Set(value As DEXPREGoodsItemDeliveryTermsIncotermCode) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + _ + Public Property Location() As String + Get + Return Me._location + End Get + Set(value As String) + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemDeliveryTerms object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemDeliveryTerms + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemDeliveryTerms) + 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 DEXPREGoodsItemDeliveryTerms) 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 DEXPREGoodsItemDeliveryTerms + 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 Class + + _ + Public Enum DEXPREGoodsItemDeliveryTermsIncotermCode + + ''' + CFR + + ''' + CIF + + ''' + CIP + + ''' + CPT + + ''' + DAF + + ''' + DAP + + ''' + DAT + + ''' + DDP + + ''' + DDU + + ''' + DEQ + + ''' + DES + + ''' + EXW + + ''' + FAS + + ''' + FCA + + ''' + FOB + + ''' + XXX + End Enum + + _ + Partial Public Class DEXPREGoodsItemTransaction + +#Region "Private fields" + Private _type As DEXPREGoodsItemTransactionType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPREGoodsItemTransactionType + Get + Return Me._type + End Get + Set(value As DEXPREGoodsItemTransactionType) + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemTransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemTransaction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemTransaction object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemTransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemTransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemTransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemTransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemTransaction + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemTransaction) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemTransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemTransaction object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemTransaction) + 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 DEXPREGoodsItemTransaction) 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 DEXPREGoodsItemTransaction + 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 Class + + _ + Public Enum DEXPREGoodsItemTransactionType + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item19 + + ''' + _ + Item21 + + ''' + _ + Item22 + + ''' + _ + Item23 + + ''' + _ + Item29 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item41 + + ''' + _ + Item42 + + ''' + _ + Item51 + + ''' + _ + Item52 + + ''' + _ + Item67 + + ''' + _ + Item69 + + ''' + _ + Item71 + + ''' + _ + Item72 + + ''' + _ + Item81 + + ''' + _ + Item91 + + ''' + _ + Item92 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPREGoodsItemCustomsWarehouse + +#Region "Private fields" + Private _alignmentFlag As DEXPREGoodsItemCustomsWarehouseAlignmentFlag + + Private _goodsItemQuantity As String + + Private _customsAuthorization As DEXPREGoodsItemCustomsWarehouseCustomsAuthorization + + Private _localReferenceNumber As String + + Private _goodsItem As List(Of DEXPREGoodsItemCustomsWarehouseGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPREGoodsItemCustomsWarehouseGoodsItem)() + Me._customsAuthorization = New DEXPREGoodsItemCustomsWarehouseCustomsAuthorization() + End Sub + + Public Property AlignmentFlag() As DEXPREGoodsItemCustomsWarehouseAlignmentFlag + Get + Return Me._alignmentFlag + End Get + Set(value As DEXPREGoodsItemCustomsWarehouseAlignmentFlag) + Me._alignmentFlag = Value + End Set + End Property + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPREGoodsItemCustomsWarehouseCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPREGoodsItemCustomsWarehouseCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPREGoodsItemCustomsWarehouseGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPREGoodsItemCustomsWarehouseGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemCustomsWarehouse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouse object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemCustomsWarehouse object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouse) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouse) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemCustomsWarehouse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemCustomsWarehouse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemCustomsWarehouse + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemCustomsWarehouse) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouse object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemCustomsWarehouse object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouse) + 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 DEXPREGoodsItemCustomsWarehouse) 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 DEXPREGoodsItemCustomsWarehouse + 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 Class + + _ + Public Enum DEXPREGoodsItemCustomsWarehouseAlignmentFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPREGoodsItemCustomsWarehouseCustomsAuthorization + +#Region "Private fields" + Private _warehouseOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property WarehouseOwner() As String + Get + Return Me._warehouseOwner + End Get + Set(value As String) + Me._warehouseOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemCustomsWarehouseCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouseCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemCustomsWarehouseCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemCustomsWarehouseCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouseCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemCustomsWarehouseCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemCustomsWarehouseCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemCustomsWarehouseCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemCustomsWarehouseCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouseCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemCustomsWarehouseCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemCustomsWarehouseCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouseCustomsAuthorization) + 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 DEXPREGoodsItemCustomsWarehouseCustomsAuthorization) 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 DEXPREGoodsItemCustomsWarehouseCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPREGoodsItemCustomsWarehouseGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedSequenceNumber As String + + Private _registrationNumber As String + + Private _commodityCode As String + + Private _accessViaAtlasFlag As DEXPREGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + + Private _usualProcessingFlag As DEXPREGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + + Private _complement As String + + Private _debitAmount As DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount + + Private _commercialAmount As DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._commercialAmount = New DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount() + Me._debitAmount = New DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount() + End Sub + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set(value As String) + Me._referencedSequenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As DEXPREGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + Get + Return Me._accessViaAtlasFlag + End Get + Set(value As DEXPREGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag) + Me._accessViaAtlasFlag = Value + End Set + End Property + + Public Property UsualProcessingFlag() As DEXPREGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + Get + Return Me._usualProcessingFlag + End Get + Set(value As DEXPREGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag) + Me._usualProcessingFlag = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Public Property DebitAmount() As DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount + Get + Return Me._debitAmount + End Get + Set(value As DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Me._debitAmount = Value + End Set + End Property + + Public Property CommercialAmount() As DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Get + Return Me._commercialAmount + End Get + Set(value As DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Me._commercialAmount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemCustomsWarehouseGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouseGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemCustomsWarehouseGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouseGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemCustomsWarehouseGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemCustomsWarehouseGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemCustomsWarehouseGoodsItem + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemCustomsWarehouseGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouseGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemCustomsWarehouseGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouseGoodsItem) + 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 DEXPREGoodsItemCustomsWarehouseGoodsItem) 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 DEXPREGoodsItemCustomsWarehouseGoodsItem + 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 Class + + _ + Public Enum DEXPREGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Public Enum DEXPREGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount + +#Region "Private fields" + Private _qualifier As String + + Private _measurementUnit As String + + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set(value As String) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount) + 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 DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount) 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 DEXPREGoodsItemCustomsWarehouseGoodsItemDebitAmount + 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 Class + + _ + Partial Public Class DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount + +#Region "Private fields" + Private _qualifier As String + + Private _measurementUnit As String + + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set(value As String) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + 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 DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount) 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 DEXPREGoodsItemCustomsWarehouseGoodsItemCommercialAmount + 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 Class + + _ + Partial Public Class DEXPREGoodsItemInwardProcessingTransformation + +#Region "Private fields" + Private _alignmentFlag As DEXPREGoodsItemInwardProcessingTransformationAlignmentFlag + + Private _goodsItemQuantity As String + + Private _customsAuthorization As DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization + + Private _goodsItem As List(Of DEXPREGoodsItemInwardProcessingTransformationGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPREGoodsItemInwardProcessingTransformationGoodsItem)() + Me._customsAuthorization = New DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization() + End Sub + + Public Property AlignmentFlag() As DEXPREGoodsItemInwardProcessingTransformationAlignmentFlag + Get + Return Me._alignmentFlag + End Get + Set(value As DEXPREGoodsItemInwardProcessingTransformationAlignmentFlag) + Me._alignmentFlag = Value + End Set + End Property + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPREGoodsItemInwardProcessingTransformationGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPREGoodsItemInwardProcessingTransformationGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemInwardProcessingTransformation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemInwardProcessingTransformation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemInwardProcessingTransformation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemInwardProcessingTransformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemInwardProcessingTransformation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemInwardProcessingTransformation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemInwardProcessingTransformation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemInwardProcessingTransformation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemInwardProcessingTransformation + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemInwardProcessingTransformation) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemInwardProcessingTransformation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemInwardProcessingTransformation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemInwardProcessingTransformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemInwardProcessingTransformation) + 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 DEXPREGoodsItemInwardProcessingTransformation) 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 DEXPREGoodsItemInwardProcessingTransformation + 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 Class + + _ + Public Enum DEXPREGoodsItemInwardProcessingTransformationAlignmentFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization + +#Region "Private fields" + Private _processingOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ProcessingOwner() As String + Get + Return Me._processingOwner + End Get + Set(value As String) + Me._processingOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization) + 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 DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization) 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 DEXPREGoodsItemInwardProcessingTransformationCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPREGoodsItemInwardProcessingTransformationGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedSequenceNumber As String + + Private _registrationNumber As String + + Private _accessViaAtlasFlag As DEXPREGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + + Private _goodsRelatedInformation As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set(value As String) + Me._referencedSequenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As DEXPREGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + Get + Return Me._accessViaAtlasFlag + End Get + Set(value As DEXPREGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag) + Me._accessViaAtlasFlag = Value + End Set + End Property + + _ + Public Property GoodsRelatedInformation() As String + Get + Return Me._goodsRelatedInformation + End Get + Set(value As String) + Me._goodsRelatedInformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPREGoodsItemInwardProcessingTransformationGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPREGoodsItemInwardProcessingTransformationGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPREGoodsItemInwardProcessingTransformationGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPREGoodsItemInwardProcessingTransformationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemInwardProcessingTransformationGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPREGoodsItemInwardProcessingTransformationGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPREGoodsItemInwardProcessingTransformationGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPREGoodsItemInwardProcessingTransformationGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPREGoodsItemInwardProcessingTransformationGoodsItem + Return CType(Serializer.Deserialize(s), DEXPREGoodsItemInwardProcessingTransformationGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPREGoodsItemInwardProcessingTransformationGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPREGoodsItemInwardProcessingTransformationGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPREGoodsItemInwardProcessingTransformationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPREGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPREGoodsItemInwardProcessingTransformationGoodsItem) + 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 DEXPREGoodsItemInwardProcessingTransformationGoodsItem) 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 DEXPREGoodsItemInwardProcessingTransformationGoodsItem + 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 Class + + _ + Public Enum DEXPREGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set(value As Decimal) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + _ + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + _ + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel.xsd new file mode 100644 index 0000000..6fb5e24 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel.xsd @@ -0,0 +1,5560 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel_V2.3.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel_V2.3.Designer.vb new file mode 100644 index 0000000..67fe1b3 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel_V2.3.Designer.vb @@ -0,0 +1,17722 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' DEXPRDListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace DEXPRD + + _ + Partial Public Class DEXPRD + +#Region "Private fields" + Private _interchangeSender As DEXPRDInterchangeSender + + Private _interchangeRecipient As DEXPRDInterchangeRecipient + + Private _preparation As DEXPRDPreparation + + Private _interchangeControlReference As String + + Private _messageGroup As DEXPRDMessageGroup + + Private _messageReferenceNumber As DEXPRDMessageReferenceNumber + + Private _messageType As DEXPRDMessageType + + Private _messageIdentifier As String + + Private _header As DEXPRDHeader + + Private _exportRefund As DEXPRDExportRefund + + Private _exportCustomsOffice As DEXPRDExportCustomsOffice + + Private _supplementaryDeclarationCustomsOffice As DEXPRDSupplementaryDeclarationCustomsOffice + + Private _intendedExitCustomsOffice As DEXPRDIntendedExitCustomsOffice + + Private _actualExitCustomsOffice As DEXPRDActualExitCustomsOffice + + Private _transaction As DEXPRDTransaction + + Private _specialFact As List(Of DEXPRDSpecialFact) + + Private _itinerary As List(Of DEXPRDItinerary) + + Private _seals As DEXPRDSeals + + Private _exporter As DEXPRDExporter + + Private _declarant As DEXPRDDeclarant + + Private _representative As DEXPRDRepresentative + + Private _contractor As DEXPRDContractor + + Private _outwardProcessingOwner As DEXPRDOutwardProcessingOwner + + Private _consignee As DEXPRDConsignee + + Private _deliveryTerms As DEXPRDDeliveryTerms + + Private _outwardProcessing As DEXPRDOutwardProcessing + + Private _goodsItem As List(Of DEXPRDGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPRDGoodsItem)() + Me._outwardProcessing = New DEXPRDOutwardProcessing() + Me._deliveryTerms = New DEXPRDDeliveryTerms() + Me._consignee = New DEXPRDConsignee() + Me._outwardProcessingOwner = New DEXPRDOutwardProcessingOwner() + Me._contractor = New DEXPRDContractor() + Me._representative = New DEXPRDRepresentative() + Me._declarant = New DEXPRDDeclarant() + Me._exporter = New DEXPRDExporter() + Me._seals = New DEXPRDSeals() + Me._itinerary = New List(Of DEXPRDItinerary)() + Me._specialFact = New List(Of DEXPRDSpecialFact)() + Me._transaction = New DEXPRDTransaction() + Me._actualExitCustomsOffice = New DEXPRDActualExitCustomsOffice() + Me._intendedExitCustomsOffice = New DEXPRDIntendedExitCustomsOffice() + Me._supplementaryDeclarationCustomsOffice = New DEXPRDSupplementaryDeclarationCustomsOffice() + Me._exportCustomsOffice = New DEXPRDExportCustomsOffice() + Me._exportRefund = New DEXPRDExportRefund() + Me._header = New DEXPRDHeader() + Me._preparation = New DEXPRDPreparation() + Me._interchangeRecipient = New DEXPRDInterchangeRecipient() + Me._interchangeSender = New DEXPRDInterchangeSender() + End Sub + + Public Property InterchangeSender() As DEXPRDInterchangeSender + Get + Return Me._interchangeSender + End Get + Set(value As DEXPRDInterchangeSender) + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As DEXPRDInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set(value As DEXPRDInterchangeRecipient) + Me._interchangeRecipient = Value + End Set + End Property + + Public Property Preparation() As DEXPRDPreparation + Get + Return Me._preparation + End Get + Set(value As DEXPRDPreparation) + Me._preparation = Value + End Set + End Property + + _ + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set(value As String) + Me._interchangeControlReference = Value + End Set + End Property + + Public Property MessageGroup() As DEXPRDMessageGroup + Get + Return Me._messageGroup + End Get + Set(value As DEXPRDMessageGroup) + Me._messageGroup = Value + End Set + End Property + + Public Property MessageReferenceNumber() As DEXPRDMessageReferenceNumber + Get + Return Me._messageReferenceNumber + End Get + Set(value As DEXPRDMessageReferenceNumber) + Me._messageReferenceNumber = Value + End Set + End Property + + Public Property MessageType() As DEXPRDMessageType + Get + Return Me._messageType + End Get + Set(value As DEXPRDMessageType) + Me._messageType = Value + End Set + End Property + + _ + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set(value As String) + Me._messageIdentifier = Value + End Set + End Property + + Public Property Header() As DEXPRDHeader + Get + Return Me._header + End Get + Set(value As DEXPRDHeader) + Me._header = Value + End Set + End Property + + Public Property ExportRefund() As DEXPRDExportRefund + Get + Return Me._exportRefund + End Get + Set(value As DEXPRDExportRefund) + Me._exportRefund = Value + End Set + End Property + + Public Property ExportCustomsOffice() As DEXPRDExportCustomsOffice + Get + Return Me._exportCustomsOffice + End Get + Set(value As DEXPRDExportCustomsOffice) + Me._exportCustomsOffice = Value + End Set + End Property + + Public Property SupplementaryDeclarationCustomsOffice() As DEXPRDSupplementaryDeclarationCustomsOffice + Get + Return Me._supplementaryDeclarationCustomsOffice + End Get + Set(value As DEXPRDSupplementaryDeclarationCustomsOffice) + Me._supplementaryDeclarationCustomsOffice = Value + End Set + End Property + + Public Property IntendedExitCustomsOffice() As DEXPRDIntendedExitCustomsOffice + Get + Return Me._intendedExitCustomsOffice + End Get + Set(value As DEXPRDIntendedExitCustomsOffice) + Me._intendedExitCustomsOffice = Value + End Set + End Property + + Public Property ActualExitCustomsOffice() As DEXPRDActualExitCustomsOffice + Get + Return Me._actualExitCustomsOffice + End Get + Set(value As DEXPRDActualExitCustomsOffice) + Me._actualExitCustomsOffice = Value + End Set + End Property + + Public Property Transaction() As DEXPRDTransaction + Get + Return Me._transaction + End Get + Set(value As DEXPRDTransaction) + Me._transaction = Value + End Set + End Property + + _ + Public Property SpecialFact() As List(Of DEXPRDSpecialFact) + Get + Return Me._specialFact + End Get + Set(value As List(Of DEXPRDSpecialFact)) + Me._specialFact = Value + End Set + End Property + + _ + Public Property Itinerary() As List(Of DEXPRDItinerary) + Get + Return Me._itinerary + End Get + Set(value As List(Of DEXPRDItinerary)) + Me._itinerary = Value + End Set + End Property + + Public Property Seals() As DEXPRDSeals + Get + Return Me._seals + End Get + Set(value As DEXPRDSeals) + Me._seals = Value + End Set + End Property + + Public Property Exporter() As DEXPRDExporter + Get + Return Me._exporter + End Get + Set(value As DEXPRDExporter) + Me._exporter = Value + End Set + End Property + + Public Property Declarant() As DEXPRDDeclarant + Get + Return Me._declarant + End Get + Set(value As DEXPRDDeclarant) + Me._declarant = Value + End Set + End Property + + Public Property Representative() As DEXPRDRepresentative + Get + Return Me._representative + End Get + Set(value As DEXPRDRepresentative) + Me._representative = Value + End Set + End Property + + Public Property Contractor() As DEXPRDContractor + Get + Return Me._contractor + End Get + Set(value As DEXPRDContractor) + Me._contractor = Value + End Set + End Property + + Public Property OutwardProcessingOwner() As DEXPRDOutwardProcessingOwner + Get + Return Me._outwardProcessingOwner + End Get + Set(value As DEXPRDOutwardProcessingOwner) + Me._outwardProcessingOwner = Value + End Set + End Property + + Public Property Consignee() As DEXPRDConsignee + Get + Return Me._consignee + End Get + Set(value As DEXPRDConsignee) + Me._consignee = Value + End Set + End Property + + Public Property DeliveryTerms() As DEXPRDDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set(value As DEXPRDDeliveryTerms) + Me._deliveryTerms = Value + End Set + End Property + + Public Property OutwardProcessing() As DEXPRDOutwardProcessing + Get + Return Me._outwardProcessing + End Get + Set(value As DEXPRDOutwardProcessing) + Me._outwardProcessing = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPRDGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPRDGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRD)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRD object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRD object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRD object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRD, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRD) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRD) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRD + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRD) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRD + Return CType(Serializer.Deserialize(s), DEXPRD) + End Function +#End Region + + ''' + ''' Serializes current DEXPRD object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRD object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRD object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRD, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRD) + 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 DEXPRD) 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 DEXPRD + 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 Class + + _ + Partial Public Class DEXPRDInterchangeSender + +#Region "Private fields" + Private _identification As DEXPRDInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPRDInterchangeSenderIdentification() + End Sub + + Public Property Identification() As DEXPRDInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRDInterchangeSenderIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDInterchangeSender + Return CType(Serializer.Deserialize(s), DEXPRDInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDInterchangeSender) + 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 DEXPRDInterchangeSender) 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 DEXPRDInterchangeSender + 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 Class + + _ + Partial Public Class DEXPRDInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), DEXPRDInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDInterchangeSenderIdentification) + 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 DEXPRDInterchangeSenderIdentification) 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 DEXPRDInterchangeSenderIdentification + 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 Class + + _ + Partial Public Class DEXPRDInterchangeRecipient + +#Region "Private fields" + Private _identification As DEXPRDInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._identification = New DEXPRDInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As DEXPRDInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRDInterchangeRecipientIdentification) + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDInterchangeRecipient + Return CType(Serializer.Deserialize(s), DEXPRDInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDInterchangeRecipient) + 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 DEXPRDInterchangeRecipient) 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 DEXPRDInterchangeRecipient + 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 Class + + _ + Partial Public Class DEXPRDInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), DEXPRDInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDInterchangeRecipientIdentification) + 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 DEXPRDInterchangeRecipientIdentification) 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 DEXPRDInterchangeRecipientIdentification + 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 Class + + _ + Partial Public Class DEXPRDPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set(value As Date) + Me._date = Value + End Set + End Property + + _ + Public Property Time() As Date + Get + Return Me._time + End Get + Set(value As Date) + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDPreparation + Return CType(Serializer.Deserialize(s), DEXPRDPreparation) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDPreparation) + 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 DEXPRDPreparation) 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 DEXPRDPreparation + 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 Class + + _ + Public Enum DEXPRDMessageGroup + + ''' + EXP + End Enum + + _ + Public Enum DEXPRDMessageReferenceNumber + + ''' + _ + Item1 + End Enum + + _ + Public Enum DEXPRDMessageType + + ''' + DEXPRD + End Enum + + _ + Partial Public Class DEXPRDHeader + +#Region "Private fields" + Private _declaration As DEXPRDHeaderDeclaration + + Private _movementReferenceNumber As String + + Private _messageVersion As String + + Private _exportCountry As String + + Private _destinationCountry As String + + Private _receptionDateTime As Date + + Private _acceptanceDateTime As Date + + Private _issuingDateTime As Date + + Private _decisiveDate As Date + + Private _exitDate As Date + + Private _specificCircumstanceIndicator As String + + Private _transportChargesPaymentMethod As String + + Private _partyConstellation As DEXPRDHeaderPartyConstellation + + Private _containerFlag As DEXPRDHeaderContainerFlag + + Private _totalGrossMassMeasure As Decimal + + Private _registrationNumber As String + + Private _commercialReferenceNumber As String + + Private _referencedMessageIdentifier As String + + Private _localReferenceNumber As String + + Private _goodsItemQuantity As String + + Private _totalPackageQuantity As String + + Private _customsAuthorization As DEXPRDHeaderCustomsAuthorization + + Private _inlandTransportMeans As DEXPRDHeaderInlandTransportMeans + + Private _departureTransportMeans As DEXPRDHeaderDepartureTransportMeans + + Private _borderTransportMeans As DEXPRDHeaderBorderTransportMeans + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._borderTransportMeans = New DEXPRDHeaderBorderTransportMeans() + Me._departureTransportMeans = New DEXPRDHeaderDepartureTransportMeans() + Me._inlandTransportMeans = New DEXPRDHeaderInlandTransportMeans() + Me._customsAuthorization = New DEXPRDHeaderCustomsAuthorization() + Me._declaration = New DEXPRDHeaderDeclaration() + End Sub + + Public Property Declaration() As DEXPRDHeaderDeclaration + Get + Return Me._declaration + End Get + Set(value As DEXPRDHeaderDeclaration) + Me._declaration = Value + End Set + End Property + + _ + Public Property MovementReferenceNumber() As String + Get + Return Me._movementReferenceNumber + End Get + Set(value As String) + Me._movementReferenceNumber = Value + End Set + End Property + + _ + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set(value As String) + Me._messageVersion = Value + End Set + End Property + + _ + Public Property ExportCountry() As String + Get + Return Me._exportCountry + End Get + Set(value As String) + Me._exportCountry = Value + End Set + End Property + + _ + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set(value As String) + Me._destinationCountry = Value + End Set + End Property + + Public Property ReceptionDateTime() As Date + Get + Return Me._receptionDateTime + End Get + Set(value As Date) + Me._receptionDateTime = Value + End Set + End Property + + Public Property AcceptanceDateTime() As Date + Get + Return Me._acceptanceDateTime + End Get + Set(value As Date) + Me._acceptanceDateTime = Value + End Set + End Property + + Public Property IssuingDateTime() As Date + Get + Return Me._issuingDateTime + End Get + Set(value As Date) + Me._issuingDateTime = Value + End Set + End Property + + _ + Public Property DecisiveDate() As Date + Get + Return Me._decisiveDate + End Get + Set(value As Date) + Me._decisiveDate = Value + End Set + End Property + + _ + Public Property ExitDate() As Date + Get + Return Me._exitDate + End Get + Set(value As Date) + Me._exitDate = Value + End Set + End Property + + _ + Public Property SpecificCircumstanceIndicator() As String + Get + Return Me._specificCircumstanceIndicator + End Get + Set(value As String) + Me._specificCircumstanceIndicator = Value + End Set + End Property + + _ + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set(value As String) + Me._transportChargesPaymentMethod = Value + End Set + End Property + + Public Property PartyConstellation() As DEXPRDHeaderPartyConstellation + Get + Return Me._partyConstellation + End Get + Set(value As DEXPRDHeaderPartyConstellation) + Me._partyConstellation = Value + End Set + End Property + + Public Property ContainerFlag() As DEXPRDHeaderContainerFlag + Get + Return Me._containerFlag + End Get + Set(value As DEXPRDHeaderContainerFlag) + Me._containerFlag = Value + End Set + End Property + + Public Property TotalGrossMassMeasure() As Decimal + Get + Return Me._totalGrossMassMeasure + End Get + Set(value As Decimal) + Me._totalGrossMassMeasure = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set(value As String) + Me._commercialReferenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedMessageIdentifier() As String + Get + Return Me._referencedMessageIdentifier + End Get + Set(value As String) + Me._referencedMessageIdentifier = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + _ + Public Property TotalPackageQuantity() As String + Get + Return Me._totalPackageQuantity + End Get + Set(value As String) + Me._totalPackageQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPRDHeaderCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPRDHeaderCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + Public Property InlandTransportMeans() As DEXPRDHeaderInlandTransportMeans + Get + Return Me._inlandTransportMeans + End Get + Set(value As DEXPRDHeaderInlandTransportMeans) + Me._inlandTransportMeans = Value + End Set + End Property + + Public Property DepartureTransportMeans() As DEXPRDHeaderDepartureTransportMeans + Get + Return Me._departureTransportMeans + End Get + Set(value As DEXPRDHeaderDepartureTransportMeans) + Me._departureTransportMeans = Value + End Set + End Property + + Public Property BorderTransportMeans() As DEXPRDHeaderBorderTransportMeans + Get + Return Me._borderTransportMeans + End Get + Set(value As DEXPRDHeaderBorderTransportMeans) + Me._borderTransportMeans = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDHeader object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDHeader + Return CType(Serializer.Deserialize(s), DEXPRDHeader) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDHeader object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeader) + 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 DEXPRDHeader) 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 DEXPRDHeader + 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 Class + + _ + Partial Public Class DEXPRDHeaderDeclaration + +#Region "Private fields" + Private _type As String + + Private _procedure As String + + Private _variant As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property Procedure() As String + Get + Return Me._procedure + End Get + Set(value As String) + Me._procedure = Value + End Set + End Property + + _ + Public Property [Variant]() As String + Get + Return Me._variant + End Get + Set(value As String) + Me._variant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDHeaderDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDHeaderDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDHeaderDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDHeaderDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDHeaderDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDHeaderDeclaration + Return CType(Serializer.Deserialize(s), DEXPRDHeaderDeclaration) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDHeaderDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDHeaderDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderDeclaration) + 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 DEXPRDHeaderDeclaration) 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 DEXPRDHeaderDeclaration + 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 Class + + _ + Public Enum DEXPRDHeaderPartyConstellation + + ''' + _ + Item0000 + + ''' + _ + Item0001 + + ''' + _ + Item0003 + + ''' + _ + Item0010 + + ''' + _ + Item0011 + + ''' + _ + Item0013 + + ''' + _ + Item0100 + + ''' + _ + Item0101 + + ''' + _ + Item0103 + + ''' + _ + Item0110 + + ''' + _ + Item0111 + + ''' + _ + Item0113 + + ''' + _ + Item1000 + + ''' + _ + Item1001 + + ''' + _ + Item1002 + + ''' + _ + Item1003 + + ''' + _ + Item1010 + + ''' + _ + Item1011 + + ''' + _ + Item1012 + + ''' + _ + Item1013 + + ''' + _ + Item1100 + + ''' + _ + Item1101 + + ''' + _ + Item1102 + + ''' + _ + Item1103 + + ''' + _ + Item1110 + + ''' + _ + Item1111 + + ''' + _ + Item1112 + + ''' + _ + Item1113 + End Enum + + _ + Public Enum DEXPRDHeaderContainerFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPRDHeaderCustomsAuthorization + +#Region "Private fields" + Private _localClearanceOutwardProcessing As String + + Private _outwardProcessing As String + + Private _trustedExporter As String + + Private _accreditedExporter As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property LocalClearanceOutwardProcessing() As String + Get + Return Me._localClearanceOutwardProcessing + End Get + Set(value As String) + Me._localClearanceOutwardProcessing = Value + End Set + End Property + + _ + Public Property OutwardProcessing() As String + Get + Return Me._outwardProcessing + End Get + Set(value As String) + Me._outwardProcessing = Value + End Set + End Property + + _ + Public Property TrustedExporter() As String + Get + Return Me._trustedExporter + End Get + Set(value As String) + Me._trustedExporter = Value + End Set + End Property + + _ + Public Property AccreditedExporter() As String + Get + Return Me._accreditedExporter + End Get + Set(value As String) + Me._accreditedExporter = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDHeaderCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDHeaderCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDHeaderCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDHeaderCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDHeaderCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDHeaderCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDHeaderCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPRDHeaderCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDHeaderCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDHeaderCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDHeaderCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDHeaderCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderCustomsAuthorization) + 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 DEXPRDHeaderCustomsAuthorization) 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 DEXPRDHeaderCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPRDHeaderInlandTransportMeans + +#Region "Private fields" + Private _mode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Mode() As String + Get + Return Me._mode + End Get + Set(value As String) + Me._mode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDHeaderInlandTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDHeaderInlandTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDHeaderInlandTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDHeaderInlandTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderInlandTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderInlandTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDHeaderInlandTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDHeaderInlandTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDHeaderInlandTransportMeans + Return CType(Serializer.Deserialize(s), DEXPRDHeaderInlandTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDHeaderInlandTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDHeaderInlandTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDHeaderInlandTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDHeaderInlandTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderInlandTransportMeans) + 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 DEXPRDHeaderInlandTransportMeans) 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 DEXPRDHeaderInlandTransportMeans + 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 Class + + _ + Partial Public Class DEXPRDHeaderDepartureTransportMeans + +#Region "Private fields" + Private _type As DEXPRDHeaderDepartureTransportMeansType + + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPRDHeaderDepartureTransportMeansType + Get + Return Me._type + End Get + Set(value As DEXPRDHeaderDepartureTransportMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + _ + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set(value As String) + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDHeaderDepartureTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDHeaderDepartureTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDHeaderDepartureTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDHeaderDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderDepartureTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderDepartureTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDHeaderDepartureTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDHeaderDepartureTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDHeaderDepartureTransportMeans + Return CType(Serializer.Deserialize(s), DEXPRDHeaderDepartureTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDHeaderDepartureTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDHeaderDepartureTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDHeaderDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDHeaderDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderDepartureTransportMeans) + 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 DEXPRDHeaderDepartureTransportMeans) 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 DEXPRDHeaderDepartureTransportMeans + 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 Class + + _ + Public Enum DEXPRDHeaderDepartureTransportMeansType + + ''' + _ + Item10 + + ''' + _ + Item20 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item35 + + ''' + _ + Item40 + + ''' + _ + Item50 + + ''' + _ + Item60 + + ''' + _ + Item70 + End Enum + + _ + Partial Public Class DEXPRDHeaderBorderTransportMeans + +#Region "Private fields" + Private _mode As String + + Private _type As DEXPRDHeaderBorderTransportMeansType + + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Mode() As String + Get + Return Me._mode + End Get + Set(value As String) + Me._mode = Value + End Set + End Property + + Public Property Type() As DEXPRDHeaderBorderTransportMeansType + Get + Return Me._type + End Get + Set(value As DEXPRDHeaderBorderTransportMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + _ + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set(value As String) + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDHeaderBorderTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDHeaderBorderTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDHeaderBorderTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDHeaderBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderBorderTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDHeaderBorderTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDHeaderBorderTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDHeaderBorderTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDHeaderBorderTransportMeans + Return CType(Serializer.Deserialize(s), DEXPRDHeaderBorderTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDHeaderBorderTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDHeaderBorderTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDHeaderBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDHeaderBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDHeaderBorderTransportMeans) + 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 DEXPRDHeaderBorderTransportMeans) 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 DEXPRDHeaderBorderTransportMeans + 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 Class + + _ + Public Enum DEXPRDHeaderBorderTransportMeansType + + ''' + _ + Item10 + + ''' + _ + Item20 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item35 + + ''' + _ + Item40 + + ''' + _ + Item50 + + ''' + _ + Item60 + + ''' + _ + Item70 + End Enum + + _ + Partial Public Class DEXPRDExportRefund + +#Region "Private fields" + Private _destinationCountry As String + + Private _statements As String + + Private _applicationType As DEXPRDExportRefundApplicationType + + Private _paymentMethod As String + + Private _authorisedRecipient As String + + Private _guaranteeAccount As String + + Private _reservationFlag As DEXPRDExportRefundReservationFlag + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set(value As String) + Me._destinationCountry = Value + End Set + End Property + + _ + Public Property Statements() As String + Get + Return Me._statements + End Get + Set(value As String) + Me._statements = Value + End Set + End Property + + Public Property ApplicationType() As DEXPRDExportRefundApplicationType + Get + Return Me._applicationType + End Get + Set(value As DEXPRDExportRefundApplicationType) + Me._applicationType = Value + End Set + End Property + + _ + Public Property PaymentMethod() As String + Get + Return Me._paymentMethod + End Get + Set(value As String) + Me._paymentMethod = Value + End Set + End Property + + _ + Public Property AuthorisedRecipient() As String + Get + Return Me._authorisedRecipient + End Get + Set(value As String) + Me._authorisedRecipient = Value + End Set + End Property + + _ + Public Property GuaranteeAccount() As String + Get + Return Me._guaranteeAccount + End Get + Set(value As String) + Me._guaranteeAccount = Value + End Set + End Property + + Public Property ReservationFlag() As DEXPRDExportRefundReservationFlag + Get + Return Me._reservationFlag + End Get + Set(value As DEXPRDExportRefundReservationFlag) + Me._reservationFlag = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDExportRefund)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDExportRefund object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDExportRefund object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExportRefund) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExportRefund) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDExportRefund + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDExportRefund) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDExportRefund + Return CType(Serializer.Deserialize(s), DEXPRDExportRefund) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDExportRefund object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDExportRefund object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExportRefund) + 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 DEXPRDExportRefund) 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 DEXPRDExportRefund + 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 Class + + _ + Public Enum DEXPRDExportRefundApplicationType + + ''' + EG + + ''' + EV + + ''' + VR + + ''' + VV + End Enum + + _ + Public Enum DEXPRDExportRefundReservationFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPRDExportCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDExportCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDExportCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDExportCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExportCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExportCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDExportCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDExportCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDExportCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPRDExportCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDExportCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDExportCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDExportCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDExportCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExportCustomsOffice) + 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 DEXPRDExportCustomsOffice) 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 DEXPRDExportCustomsOffice + 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 Class + + _ + Partial Public Class DEXPRDSupplementaryDeclarationCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDSupplementaryDeclarationCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDSupplementaryDeclarationCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDSupplementaryDeclarationCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDSupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDSupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDSupplementaryDeclarationCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDSupplementaryDeclarationCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDSupplementaryDeclarationCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDSupplementaryDeclarationCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDSupplementaryDeclarationCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPRDSupplementaryDeclarationCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDSupplementaryDeclarationCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDSupplementaryDeclarationCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDSupplementaryDeclarationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDSupplementaryDeclarationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDSupplementaryDeclarationCustomsOffice) + 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 DEXPRDSupplementaryDeclarationCustomsOffice) 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 DEXPRDSupplementaryDeclarationCustomsOffice + 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 Class + + _ + Partial Public Class DEXPRDIntendedExitCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDIntendedExitCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDIntendedExitCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDIntendedExitCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDIntendedExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDIntendedExitCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDIntendedExitCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDIntendedExitCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDIntendedExitCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDIntendedExitCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPRDIntendedExitCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDIntendedExitCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDIntendedExitCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDIntendedExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDIntendedExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDIntendedExitCustomsOffice) + 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 DEXPRDIntendedExitCustomsOffice) 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 DEXPRDIntendedExitCustomsOffice + 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 Class + + _ + Partial Public Class DEXPRDActualExitCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDActualExitCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDActualExitCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDActualExitCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDActualExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDActualExitCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDActualExitCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDActualExitCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDActualExitCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDActualExitCustomsOffice + Return CType(Serializer.Deserialize(s), DEXPRDActualExitCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDActualExitCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDActualExitCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDActualExitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDActualExitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDActualExitCustomsOffice) + 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 DEXPRDActualExitCustomsOffice) 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 DEXPRDActualExitCustomsOffice + 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 Class + + _ + Partial Public Class DEXPRDTransaction + +#Region "Private fields" + Private _type As DEXPRDTransactionType + + Private _invoiceAmount As Decimal + + Private _currency As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPRDTransactionType + Get + Return Me._type + End Get + Set(value As DEXPRDTransactionType) + Me._type = Value + End Set + End Property + + Public Property InvoiceAmount() As Decimal + Get + Return Me._invoiceAmount + End Get + Set(value As Decimal) + Me._invoiceAmount = Value + End Set + End Property + + _ + Public Property Currency() As String + Get + Return Me._currency + End Get + Set(value As String) + Me._currency = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDTransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDTransaction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDTransaction object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDTransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDTransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDTransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDTransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDTransaction + Return CType(Serializer.Deserialize(s), DEXPRDTransaction) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDTransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDTransaction object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDTransaction) + 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 DEXPRDTransaction) 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 DEXPRDTransaction + 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 Class + + _ + Public Enum DEXPRDTransactionType + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item19 + + ''' + _ + Item21 + + ''' + _ + Item22 + + ''' + _ + Item23 + + ''' + _ + Item29 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item41 + + ''' + _ + Item42 + + ''' + _ + Item51 + + ''' + _ + Item52 + + ''' + _ + Item67 + + ''' + _ + Item69 + + ''' + _ + Item71 + + ''' + _ + Item72 + + ''' + _ + Item81 + + ''' + _ + Item91 + + ''' + _ + Item92 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPRDSpecialFact + +#Region "Private fields" + Private _indicator As DEXPRDSpecialFactIndicator + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Indicator() As DEXPRDSpecialFactIndicator + Get + Return Me._indicator + End Get + Set(value As DEXPRDSpecialFactIndicator) + Me._indicator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDSpecialFact)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDSpecialFact object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDSpecialFact object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDSpecialFact object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDSpecialFact, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDSpecialFact) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDSpecialFact) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDSpecialFact + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDSpecialFact) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDSpecialFact + Return CType(Serializer.Deserialize(s), DEXPRDSpecialFact) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDSpecialFact object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDSpecialFact object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDSpecialFact object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDSpecialFact, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDSpecialFact) + 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 DEXPRDSpecialFact) 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 DEXPRDSpecialFact + 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 Class + + _ + Public Enum DEXPRDSpecialFactIndicator + + ''' + _ + Item0 + + ''' + _ + Item1 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + + ''' + _ + Item5 + End Enum + + _ + Partial Public Class DEXPRDItinerary + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDItinerary)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDItinerary object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDItinerary object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDItinerary) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDItinerary) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDItinerary + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDItinerary) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDItinerary + Return CType(Serializer.Deserialize(s), DEXPRDItinerary) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDItinerary object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDItinerary object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDItinerary) + 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 DEXPRDItinerary) 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 DEXPRDItinerary + 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 Class + + _ + Partial Public Class DEXPRDSeals + +#Region "Private fields" + Private _type As DEXPRDSealsType + + Private _number As String + + Private _seal As List(Of DEXPRDSealsSeal) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._seal = New List(Of DEXPRDSealsSeal)() + End Sub + + Public Property Type() As DEXPRDSealsType + Get + Return Me._type + End Get + Set(value As DEXPRDSealsType) + Me._type = Value + End Set + End Property + + _ + Public Property Number() As String + Get + Return Me._number + End Get + Set(value As String) + Me._number = Value + End Set + End Property + + _ + Public Property Seal() As List(Of DEXPRDSealsSeal) + Get + Return Me._seal + End Get + Set(value As List(Of DEXPRDSealsSeal)) + Me._seal = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDSeals)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDSeals object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDSeals object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDSeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDSeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDSeals) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDSeals) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDSeals + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDSeals) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDSeals + Return CType(Serializer.Deserialize(s), DEXPRDSeals) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDSeals object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDSeals object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDSeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDSeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDSeals) + 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 DEXPRDSeals) 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 DEXPRDSeals + 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 Class + + _ + Public Enum DEXPRDSealsType + + ''' + P + + ''' + R + End Enum + + _ + Partial Public Class DEXPRDSealsSeal + +#Region "Private fields" + Private _identity As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Identity() As String + Get + Return Me._identity + End Get + Set(value As String) + Me._identity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDSealsSeal)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDSealsSeal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDSealsSeal object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDSealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDSealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDSealsSeal) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDSealsSeal) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDSealsSeal + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDSealsSeal) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDSealsSeal + Return CType(Serializer.Deserialize(s), DEXPRDSealsSeal) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDSealsSeal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDSealsSeal object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDSealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDSealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDSealsSeal) + 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 DEXPRDSealsSeal) 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 DEXPRDSealsSeal + 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 Class + + _ + Partial Public Class DEXPRDExporter + +#Region "Private fields" + Private _class As DEXPRDExporterClass + + Private _identification As DEXPRDExporterIdentification + + Private _name As String + + Private _address As DEXPRDExporterAddress + + Private _contactPerson As DEXPRDExporterContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPRDExporterContactPerson() + Me._address = New DEXPRDExporterAddress() + Me._identification = New DEXPRDExporterIdentification() + End Sub + + Public Property [Class]() As DEXPRDExporterClass + Get + Return Me._class + End Get + Set(value As DEXPRDExporterClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPRDExporterIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRDExporterIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPRDExporterAddress + Get + Return Me._address + End Get + Set(value As DEXPRDExporterAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPRDExporterContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPRDExporterContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDExporter)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDExporter object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDExporter object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDExporter object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExporter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExporter) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExporter) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDExporter + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDExporter) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDExporter + Return CType(Serializer.Deserialize(s), DEXPRDExporter) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDExporter object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDExporter object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDExporter object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDExporter, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExporter) + 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 DEXPRDExporter) 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 DEXPRDExporter + 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 Class + + _ + Public Enum DEXPRDExporterClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPRDExporterIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDExporterIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDExporterIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDExporterIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDExporterIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExporterIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExporterIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExporterIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDExporterIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDExporterIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDExporterIdentification + Return CType(Serializer.Deserialize(s), DEXPRDExporterIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDExporterIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDExporterIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDExporterIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDExporterIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExporterIdentification) + 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 DEXPRDExporterIdentification) 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 DEXPRDExporterIdentification + 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 Class + + _ + Partial Public Class DEXPRDExporterAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDExporterAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDExporterAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDExporterAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDExporterAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExporterAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExporterAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExporterAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDExporterAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDExporterAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDExporterAddress + Return CType(Serializer.Deserialize(s), DEXPRDExporterAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDExporterAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDExporterAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDExporterAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDExporterAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExporterAddress) + 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 DEXPRDExporterAddress) 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 DEXPRDExporterAddress + 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 Class + + _ + Partial Public Class DEXPRDExporterContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDExporterContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDExporterContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDExporterContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDExporterContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExporterContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExporterContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDExporterContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDExporterContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDExporterContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDExporterContactPerson + Return CType(Serializer.Deserialize(s), DEXPRDExporterContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDExporterContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDExporterContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDExporterContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDExporterContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDExporterContactPerson) + 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 DEXPRDExporterContactPerson) 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 DEXPRDExporterContactPerson + 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 Class + + _ + Partial Public Class DEXPRDDeclarant + +#Region "Private fields" + Private _class As DEXPRDDeclarantClass + + Private _identification As DEXPRDDeclarantIdentification + + Private _name As String + + Private _address As DEXPRDDeclarantAddress + + Private _contactPerson As DEXPRDDeclarantContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPRDDeclarantContactPerson() + Me._address = New DEXPRDDeclarantAddress() + Me._identification = New DEXPRDDeclarantIdentification() + End Sub + + Public Property [Class]() As DEXPRDDeclarantClass + Get + Return Me._class + End Get + Set(value As DEXPRDDeclarantClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPRDDeclarantIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRDDeclarantIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPRDDeclarantAddress + Get + Return Me._address + End Get + Set(value As DEXPRDDeclarantAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPRDDeclarantContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPRDDeclarantContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDDeclarant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDDeclarant object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDDeclarant object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeclarant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeclarant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDDeclarant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDDeclarant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDDeclarant + Return CType(Serializer.Deserialize(s), DEXPRDDeclarant) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDDeclarant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDDeclarant object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeclarant) + 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 DEXPRDDeclarant) 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 DEXPRDDeclarant + 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 Class + + _ + Public Enum DEXPRDDeclarantClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + End Enum + + _ + Partial Public Class DEXPRDDeclarantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDDeclarantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDDeclarantIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDDeclarantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeclarantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeclarantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDDeclarantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDDeclarantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDDeclarantIdentification + Return CType(Serializer.Deserialize(s), DEXPRDDeclarantIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDDeclarantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDDeclarantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeclarantIdentification) + 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 DEXPRDDeclarantIdentification) 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 DEXPRDDeclarantIdentification + 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 Class + + _ + Partial Public Class DEXPRDDeclarantAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDDeclarantAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDDeclarantAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDDeclarantAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeclarantAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeclarantAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDDeclarantAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDDeclarantAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDDeclarantAddress + Return CType(Serializer.Deserialize(s), DEXPRDDeclarantAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDDeclarantAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDDeclarantAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeclarantAddress) + 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 DEXPRDDeclarantAddress) 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 DEXPRDDeclarantAddress + 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 Class + + _ + Partial Public Class DEXPRDDeclarantContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDDeclarantContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDDeclarantContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDDeclarantContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDDeclarantContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeclarantContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeclarantContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeclarantContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDDeclarantContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDDeclarantContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDDeclarantContactPerson + Return CType(Serializer.Deserialize(s), DEXPRDDeclarantContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDDeclarantContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDDeclarantContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDDeclarantContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDDeclarantContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeclarantContactPerson) + 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 DEXPRDDeclarantContactPerson) 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 DEXPRDDeclarantContactPerson + 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 Class + + _ + Partial Public Class DEXPRDRepresentative + +#Region "Private fields" + Private _class As DEXPRDRepresentativeClass + + Private _identification As DEXPRDRepresentativeIdentification + + Private _name As String + + Private _address As DEXPRDRepresentativeAddress + + Private _contactPerson As DEXPRDRepresentativeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPRDRepresentativeContactPerson() + Me._address = New DEXPRDRepresentativeAddress() + Me._identification = New DEXPRDRepresentativeIdentification() + End Sub + + Public Property [Class]() As DEXPRDRepresentativeClass + Get + Return Me._class + End Get + Set(value As DEXPRDRepresentativeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPRDRepresentativeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRDRepresentativeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPRDRepresentativeAddress + Get + Return Me._address + End Get + Set(value As DEXPRDRepresentativeAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPRDRepresentativeContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPRDRepresentativeContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDRepresentative)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDRepresentative object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDRepresentative object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDRepresentative) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDRepresentative) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDRepresentative + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDRepresentative) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDRepresentative + Return CType(Serializer.Deserialize(s), DEXPRDRepresentative) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDRepresentative object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDRepresentative object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDRepresentative) + 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 DEXPRDRepresentative) 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 DEXPRDRepresentative + 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 Class + + _ + Public Enum DEXPRDRepresentativeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + End Enum + + _ + Partial Public Class DEXPRDRepresentativeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDRepresentativeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDRepresentativeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDRepresentativeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDRepresentativeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDRepresentativeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDRepresentativeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDRepresentativeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDRepresentativeIdentification + Return CType(Serializer.Deserialize(s), DEXPRDRepresentativeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDRepresentativeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDRepresentativeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDRepresentativeIdentification) + 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 DEXPRDRepresentativeIdentification) 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 DEXPRDRepresentativeIdentification + 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 Class + + _ + Partial Public Class DEXPRDRepresentativeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDRepresentativeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDRepresentativeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDRepresentativeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDRepresentativeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDRepresentativeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDRepresentativeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDRepresentativeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDRepresentativeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDRepresentativeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDRepresentativeAddress + Return CType(Serializer.Deserialize(s), DEXPRDRepresentativeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDRepresentativeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDRepresentativeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDRepresentativeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDRepresentativeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDRepresentativeAddress) + 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 DEXPRDRepresentativeAddress) 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 DEXPRDRepresentativeAddress + 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 Class + + _ + Partial Public Class DEXPRDRepresentativeContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDRepresentativeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDRepresentativeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDRepresentativeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDRepresentativeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDRepresentativeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDRepresentativeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDRepresentativeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDRepresentativeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDRepresentativeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDRepresentativeContactPerson + Return CType(Serializer.Deserialize(s), DEXPRDRepresentativeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDRepresentativeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDRepresentativeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDRepresentativeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDRepresentativeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDRepresentativeContactPerson) + 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 DEXPRDRepresentativeContactPerson) 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 DEXPRDRepresentativeContactPerson + 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 Class + + _ + Partial Public Class DEXPRDContractor + +#Region "Private fields" + Private _class As DEXPRDContractorClass + + Private _identification As DEXPRDContractorIdentification + + Private _name As String + + Private _address As DEXPRDContractorAddress + + Private _contactPerson As DEXPRDContractorContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPRDContractorContactPerson() + Me._address = New DEXPRDContractorAddress() + Me._identification = New DEXPRDContractorIdentification() + End Sub + + Public Property [Class]() As DEXPRDContractorClass + Get + Return Me._class + End Get + Set(value As DEXPRDContractorClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPRDContractorIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRDContractorIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPRDContractorAddress + Get + Return Me._address + End Get + Set(value As DEXPRDContractorAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPRDContractorContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPRDContractorContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDContractor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDContractor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDContractor object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDContractor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDContractor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDContractor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDContractor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDContractor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDContractor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDContractor + Return CType(Serializer.Deserialize(s), DEXPRDContractor) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDContractor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDContractor object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDContractor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDContractor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDContractor) + 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 DEXPRDContractor) 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 DEXPRDContractor + 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 Class + + _ + Public Enum DEXPRDContractorClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + End Enum + + _ + Partial Public Class DEXPRDContractorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDContractorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDContractorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDContractorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDContractorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDContractorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDContractorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDContractorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDContractorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDContractorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDContractorIdentification + Return CType(Serializer.Deserialize(s), DEXPRDContractorIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDContractorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDContractorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDContractorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDContractorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDContractorIdentification) + 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 DEXPRDContractorIdentification) 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 DEXPRDContractorIdentification + 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 Class + + _ + Partial Public Class DEXPRDContractorAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDContractorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDContractorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDContractorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDContractorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDContractorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDContractorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDContractorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDContractorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDContractorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDContractorAddress + Return CType(Serializer.Deserialize(s), DEXPRDContractorAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDContractorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDContractorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDContractorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDContractorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDContractorAddress) + 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 DEXPRDContractorAddress) 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 DEXPRDContractorAddress + 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 Class + + _ + Partial Public Class DEXPRDContractorContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDContractorContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDContractorContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDContractorContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDContractorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDContractorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDContractorContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDContractorContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDContractorContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDContractorContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDContractorContactPerson + Return CType(Serializer.Deserialize(s), DEXPRDContractorContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDContractorContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDContractorContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDContractorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDContractorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDContractorContactPerson) + 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 DEXPRDContractorContactPerson) 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 DEXPRDContractorContactPerson + 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 Class + + _ + Partial Public Class DEXPRDOutwardProcessingOwner + +#Region "Private fields" + Private _class As DEXPRDOutwardProcessingOwnerClass + + Private _identification As DEXPRDOutwardProcessingOwnerIdentification + + Private _name As String + + Private _address As DEXPRDOutwardProcessingOwnerAddress + + Private _contactPerson As DEXPRDOutwardProcessingOwnerContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._contactPerson = New DEXPRDOutwardProcessingOwnerContactPerson() + Me._address = New DEXPRDOutwardProcessingOwnerAddress() + Me._identification = New DEXPRDOutwardProcessingOwnerIdentification() + End Sub + + Public Property [Class]() As DEXPRDOutwardProcessingOwnerClass + Get + Return Me._class + End Get + Set(value As DEXPRDOutwardProcessingOwnerClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPRDOutwardProcessingOwnerIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRDOutwardProcessingOwnerIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPRDOutwardProcessingOwnerAddress + Get + Return Me._address + End Get + Set(value As DEXPRDOutwardProcessingOwnerAddress) + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DEXPRDOutwardProcessingOwnerContactPerson + Get + Return Me._contactPerson + End Get + Set(value As DEXPRDOutwardProcessingOwnerContactPerson) + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDOutwardProcessingOwner)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDOutwardProcessingOwner object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDOutwardProcessingOwner object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDOutwardProcessingOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingOwner) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingOwner) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDOutwardProcessingOwner + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDOutwardProcessingOwner) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDOutwardProcessingOwner + Return CType(Serializer.Deserialize(s), DEXPRDOutwardProcessingOwner) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDOutwardProcessingOwner object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDOutwardProcessingOwner object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDOutwardProcessingOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDOutwardProcessingOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingOwner) + 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 DEXPRDOutwardProcessingOwner) 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 DEXPRDOutwardProcessingOwner + 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 Class + + _ + Public Enum DEXPRDOutwardProcessingOwnerClass + + ''' + _ + Item0 + + ''' + _ + Item2 + End Enum + + _ + Partial Public Class DEXPRDOutwardProcessingOwnerIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDOutwardProcessingOwnerIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDOutwardProcessingOwnerIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDOutwardProcessingOwnerIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDOutwardProcessingOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingOwnerIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingOwnerIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDOutwardProcessingOwnerIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDOutwardProcessingOwnerIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDOutwardProcessingOwnerIdentification + Return CType(Serializer.Deserialize(s), DEXPRDOutwardProcessingOwnerIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDOutwardProcessingOwnerIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDOutwardProcessingOwnerIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDOutwardProcessingOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDOutwardProcessingOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingOwnerIdentification) + 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 DEXPRDOutwardProcessingOwnerIdentification) 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 DEXPRDOutwardProcessingOwnerIdentification + 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 Class + + _ + Partial Public Class DEXPRDOutwardProcessingOwnerAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDOutwardProcessingOwnerAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDOutwardProcessingOwnerAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDOutwardProcessingOwnerAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDOutwardProcessingOwnerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingOwnerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingOwnerAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingOwnerAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDOutwardProcessingOwnerAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDOutwardProcessingOwnerAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDOutwardProcessingOwnerAddress + Return CType(Serializer.Deserialize(s), DEXPRDOutwardProcessingOwnerAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDOutwardProcessingOwnerAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDOutwardProcessingOwnerAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDOutwardProcessingOwnerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDOutwardProcessingOwnerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingOwnerAddress) + 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 DEXPRDOutwardProcessingOwnerAddress) 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 DEXPRDOutwardProcessingOwnerAddress + 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 Class + + _ + Partial Public Class DEXPRDOutwardProcessingOwnerContactPerson + +#Region "Private fields" + Private _position As String + + Private _name As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Position() As String + Get + Return Me._position + End Get + Set(value As String) + Me._position = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set(value As String) + Me._phoneNumber = Value + End Set + End Property + + _ + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set(value As String) + Me._facsimileNumber = Value + End Set + End Property + + _ + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set(value As String) + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDOutwardProcessingOwnerContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDOutwardProcessingOwnerContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDOutwardProcessingOwnerContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDOutwardProcessingOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingOwnerContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingOwnerContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDOutwardProcessingOwnerContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDOutwardProcessingOwnerContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDOutwardProcessingOwnerContactPerson + Return CType(Serializer.Deserialize(s), DEXPRDOutwardProcessingOwnerContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDOutwardProcessingOwnerContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDOutwardProcessingOwnerContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDOutwardProcessingOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDOutwardProcessingOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingOwnerContactPerson) + 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 DEXPRDOutwardProcessingOwnerContactPerson) 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 DEXPRDOutwardProcessingOwnerContactPerson + 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 Class + + _ + Partial Public Class DEXPRDConsignee + +#Region "Private fields" + Private _class As DEXPRDConsigneeClass + + Private _identification As DEXPRDConsigneeIdentification + + Private _name As String + + Private _address As DEXPRDConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPRDConsigneeAddress() + Me._identification = New DEXPRDConsigneeIdentification() + End Sub + + Public Property [Class]() As DEXPRDConsigneeClass + Get + Return Me._class + End Get + Set(value As DEXPRDConsigneeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPRDConsigneeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRDConsigneeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPRDConsigneeAddress + Get + Return Me._address + End Get + Set(value As DEXPRDConsigneeAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDConsignee + Return CType(Serializer.Deserialize(s), DEXPRDConsignee) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDConsignee) + 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 DEXPRDConsignee) 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 DEXPRDConsignee + 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 Class + + _ + Public Enum DEXPRDConsigneeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPRDConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDConsigneeIdentification + Return CType(Serializer.Deserialize(s), DEXPRDConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDConsigneeIdentification) + 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 DEXPRDConsigneeIdentification) 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 DEXPRDConsigneeIdentification + 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 Class + + _ + Partial Public Class DEXPRDConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDConsigneeAddress + Return CType(Serializer.Deserialize(s), DEXPRDConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDConsigneeAddress) + 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 DEXPRDConsigneeAddress) 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 DEXPRDConsigneeAddress + 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 Class + + _ + Partial Public Class DEXPRDDeliveryTerms + +#Region "Private fields" + Private _incotermCode As DEXPRDDeliveryTermsIncotermCode + + Private _description As String + + Private _location As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property IncotermCode() As DEXPRDDeliveryTermsIncotermCode + Get + Return Me._incotermCode + End Get + Set(value As DEXPRDDeliveryTermsIncotermCode) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + _ + Public Property Location() As String + Get + Return Me._location + End Get + Set(value As String) + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDDeliveryTerms object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDDeliveryTerms + Return CType(Serializer.Deserialize(s), DEXPRDDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDDeliveryTerms) + 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 DEXPRDDeliveryTerms) 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 DEXPRDDeliveryTerms + 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 Class + + _ + Public Enum DEXPRDDeliveryTermsIncotermCode + + ''' + CFR + + ''' + CIF + + ''' + CIP + + ''' + CPT + + ''' + DAF + + ''' + DAP + + ''' + DAT + + ''' + DDP + + ''' + DDU + + ''' + DEQ + + ''' + DES + + ''' + EXW + + ''' + FAS + + ''' + FCA + + ''' + FOB + + ''' + XXX + End Enum + + _ + Partial Public Class DEXPRDOutwardProcessing + +#Region "Private fields" + Private _reimportDate As Date + + Private _usualReplacement As DEXPRDOutwardProcessingUsualReplacement + + Private _reimport As List(Of DEXPRDOutwardProcessingReimport) + + Private _identificationMeans As List(Of DEXPRDOutwardProcessingIdentificationMeans) + + Private _product As List(Of DEXPRDOutwardProcessingProduct) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._product = New List(Of DEXPRDOutwardProcessingProduct)() + Me._identificationMeans = New List(Of DEXPRDOutwardProcessingIdentificationMeans)() + Me._reimport = New List(Of DEXPRDOutwardProcessingReimport)() + End Sub + + _ + Public Property ReimportDate() As Date + Get + Return Me._reimportDate + End Get + Set(value As Date) + Me._reimportDate = Value + End Set + End Property + + Public Property UsualReplacement() As DEXPRDOutwardProcessingUsualReplacement + Get + Return Me._usualReplacement + End Get + Set(value As DEXPRDOutwardProcessingUsualReplacement) + Me._usualReplacement = Value + End Set + End Property + + _ + Public Property Reimport() As List(Of DEXPRDOutwardProcessingReimport) + Get + Return Me._reimport + End Get + Set(value As List(Of DEXPRDOutwardProcessingReimport)) + Me._reimport = Value + End Set + End Property + + _ + Public Property IdentificationMeans() As List(Of DEXPRDOutwardProcessingIdentificationMeans) + Get + Return Me._identificationMeans + End Get + Set(value As List(Of DEXPRDOutwardProcessingIdentificationMeans)) + Me._identificationMeans = Value + End Set + End Property + + _ + Public Property Product() As List(Of DEXPRDOutwardProcessingProduct) + Get + Return Me._product + End Get + Set(value As List(Of DEXPRDOutwardProcessingProduct)) + Me._product = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDOutwardProcessing)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDOutwardProcessing object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDOutwardProcessing object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDOutwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessing) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessing) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDOutwardProcessing + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDOutwardProcessing) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDOutwardProcessing + Return CType(Serializer.Deserialize(s), DEXPRDOutwardProcessing) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDOutwardProcessing object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDOutwardProcessing object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDOutwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDOutwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessing) + 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 DEXPRDOutwardProcessing) 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 DEXPRDOutwardProcessing + 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 Class + + _ + Public Enum DEXPRDOutwardProcessingUsualReplacement + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPRDOutwardProcessingReimport + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDOutwardProcessingReimport)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDOutwardProcessingReimport object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDOutwardProcessingReimport object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDOutwardProcessingReimport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingReimport) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingReimport) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDOutwardProcessingReimport + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDOutwardProcessingReimport) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDOutwardProcessingReimport + Return CType(Serializer.Deserialize(s), DEXPRDOutwardProcessingReimport) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDOutwardProcessingReimport object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDOutwardProcessingReimport object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDOutwardProcessingReimport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDOutwardProcessingReimport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingReimport) + 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 DEXPRDOutwardProcessingReimport) 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 DEXPRDOutwardProcessingReimport + 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 Class + + _ + Partial Public Class DEXPRDOutwardProcessingIdentificationMeans + +#Region "Private fields" + Private _type As DEXPRDOutwardProcessingIdentificationMeansType + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPRDOutwardProcessingIdentificationMeansType + Get + Return Me._type + End Get + Set(value As DEXPRDOutwardProcessingIdentificationMeansType) + Me._type = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDOutwardProcessingIdentificationMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDOutwardProcessingIdentificationMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDOutwardProcessingIdentificationMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDOutwardProcessingIdentificationMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingIdentificationMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingIdentificationMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDOutwardProcessingIdentificationMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDOutwardProcessingIdentificationMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDOutwardProcessingIdentificationMeans + Return CType(Serializer.Deserialize(s), DEXPRDOutwardProcessingIdentificationMeans) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDOutwardProcessingIdentificationMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDOutwardProcessingIdentificationMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDOutwardProcessingIdentificationMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDOutwardProcessingIdentificationMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingIdentificationMeans) + 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 DEXPRDOutwardProcessingIdentificationMeans) 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 DEXPRDOutwardProcessingIdentificationMeans + 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 Class + + _ + Public Enum DEXPRDOutwardProcessingIdentificationMeansType + + ''' + A + + ''' + B + + ''' + N + + ''' + O + + ''' + P + + ''' + S + + ''' + T + + ''' + Z + End Enum + + _ + Partial Public Class DEXPRDOutwardProcessingProduct + +#Region "Private fields" + Private _commodityCode As String + + Private _goodsDescription As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + _ + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set(value As String) + Me._goodsDescription = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDOutwardProcessingProduct)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDOutwardProcessingProduct object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDOutwardProcessingProduct object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDOutwardProcessingProduct object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingProduct) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDOutwardProcessingProduct) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDOutwardProcessingProduct + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDOutwardProcessingProduct) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDOutwardProcessingProduct + Return CType(Serializer.Deserialize(s), DEXPRDOutwardProcessingProduct) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDOutwardProcessingProduct object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDOutwardProcessingProduct object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDOutwardProcessingProduct object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDOutwardProcessingProduct, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDOutwardProcessingProduct) + 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 DEXPRDOutwardProcessingProduct) 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 DEXPRDOutwardProcessingProduct + 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 Class + + _ + Partial Public Class DEXPRDGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _goodsDescription As String + + Private _commercialReferenceNumber As String + + Private _registrationNumber As String + + Private _originFederalState As DEXPRDGoodsItemOriginFederalState + + Private _netMass As Decimal + + Private _grossMass As Decimal + + Private _originalSequenceNumber As String + + Private _dangerousGoodsCode As String + + Private _transportChargesPaymentMethod As String + + Private _commodityCode As DEXPRDGoodsItemCommodityCode + + Private _exportRefund As DEXPRDGoodsItemExportRefund + + Private _procedure As DEXPRDGoodsItemProcedure + + Private _foreignTradeStatistics As DEXPRDGoodsItemForeignTradeStatistics + + Private _consignee As DEXPRDGoodsItemConsignee + + Private _package As List(Of DEXPRDGoodsItemPackage) + + Private _container As List(Of DEXPRDGoodsItemContainer) + + Private _document As List(Of DEXPRDGoodsItemDocument) + + Private _previousAdminstrativeReference As List(Of DEXPRDGoodsItemPreviousAdminstrativeReference) + + Private _deliveryTerms As DEXPRDGoodsItemDeliveryTerms + + Private _transaction As DEXPRDGoodsItemTransaction + + Private _customsWarehouse As DEXPRDGoodsItemCustomsWarehouse + + Private _inwardProcessingTransformation As DEXPRDGoodsItemInwardProcessingTransformation + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._inwardProcessingTransformation = New DEXPRDGoodsItemInwardProcessingTransformation() + Me._customsWarehouse = New DEXPRDGoodsItemCustomsWarehouse() + Me._transaction = New DEXPRDGoodsItemTransaction() + Me._deliveryTerms = New DEXPRDGoodsItemDeliveryTerms() + Me._previousAdminstrativeReference = New List(Of DEXPRDGoodsItemPreviousAdminstrativeReference)() + Me._document = New List(Of DEXPRDGoodsItemDocument)() + Me._container = New List(Of DEXPRDGoodsItemContainer)() + Me._package = New List(Of DEXPRDGoodsItemPackage)() + Me._consignee = New DEXPRDGoodsItemConsignee() + Me._foreignTradeStatistics = New DEXPRDGoodsItemForeignTradeStatistics() + Me._procedure = New DEXPRDGoodsItemProcedure() + Me._exportRefund = New DEXPRDGoodsItemExportRefund() + Me._commodityCode = New DEXPRDGoodsItemCommodityCode() + End Sub + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set(value As String) + Me._goodsDescription = Value + End Set + End Property + + _ + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set(value As String) + Me._commercialReferenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + Public Property OriginFederalState() As DEXPRDGoodsItemOriginFederalState + Get + Return Me._originFederalState + End Get + Set(value As DEXPRDGoodsItemOriginFederalState) + Me._originFederalState = Value + End Set + End Property + + Public Property NetMass() As Decimal + Get + Return Me._netMass + End Get + Set(value As Decimal) + Me._netMass = Value + End Set + End Property + + Public Property GrossMass() As Decimal + Get + Return Me._grossMass + End Get + Set(value As Decimal) + Me._grossMass = Value + End Set + End Property + + _ + Public Property OriginalSequenceNumber() As String + Get + Return Me._originalSequenceNumber + End Get + Set(value As String) + Me._originalSequenceNumber = Value + End Set + End Property + + _ + Public Property DangerousGoodsCode() As String + Get + Return Me._dangerousGoodsCode + End Get + Set(value As String) + Me._dangerousGoodsCode = Value + End Set + End Property + + _ + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set(value As String) + Me._transportChargesPaymentMethod = Value + End Set + End Property + + Public Property CommodityCode() As DEXPRDGoodsItemCommodityCode + Get + Return Me._commodityCode + End Get + Set(value As DEXPRDGoodsItemCommodityCode) + Me._commodityCode = Value + End Set + End Property + + Public Property ExportRefund() As DEXPRDGoodsItemExportRefund + Get + Return Me._exportRefund + End Get + Set(value As DEXPRDGoodsItemExportRefund) + Me._exportRefund = Value + End Set + End Property + + Public Property Procedure() As DEXPRDGoodsItemProcedure + Get + Return Me._procedure + End Get + Set(value As DEXPRDGoodsItemProcedure) + Me._procedure = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As DEXPRDGoodsItemForeignTradeStatistics + Get + Return Me._foreignTradeStatistics + End Get + Set(value As DEXPRDGoodsItemForeignTradeStatistics) + Me._foreignTradeStatistics = Value + End Set + End Property + + Public Property Consignee() As DEXPRDGoodsItemConsignee + Get + Return Me._consignee + End Get + Set(value As DEXPRDGoodsItemConsignee) + Me._consignee = Value + End Set + End Property + + _ + Public Property Package() As List(Of DEXPRDGoodsItemPackage) + Get + Return Me._package + End Get + Set(value As List(Of DEXPRDGoodsItemPackage)) + Me._package = Value + End Set + End Property + + _ + Public Property Container() As List(Of DEXPRDGoodsItemContainer) + Get + Return Me._container + End Get + Set(value As List(Of DEXPRDGoodsItemContainer)) + Me._container = Value + End Set + End Property + + _ + Public Property Document() As List(Of DEXPRDGoodsItemDocument) + Get + Return Me._document + End Get + Set(value As List(Of DEXPRDGoodsItemDocument)) + Me._document = Value + End Set + End Property + + _ + Public Property PreviousAdminstrativeReference() As List(Of DEXPRDGoodsItemPreviousAdminstrativeReference) + Get + Return Me._previousAdminstrativeReference + End Get + Set(value As List(Of DEXPRDGoodsItemPreviousAdminstrativeReference)) + Me._previousAdminstrativeReference = Value + End Set + End Property + + Public Property DeliveryTerms() As DEXPRDGoodsItemDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set(value As DEXPRDGoodsItemDeliveryTerms) + Me._deliveryTerms = Value + End Set + End Property + + Public Property Transaction() As DEXPRDGoodsItemTransaction + Get + Return Me._transaction + End Get + Set(value As DEXPRDGoodsItemTransaction) + Me._transaction = Value + End Set + End Property + + Public Property CustomsWarehouse() As DEXPRDGoodsItemCustomsWarehouse + Get + Return Me._customsWarehouse + End Get + Set(value As DEXPRDGoodsItemCustomsWarehouse) + Me._customsWarehouse = Value + End Set + End Property + + _ + Public Property InwardProcessingTransformation() As DEXPRDGoodsItemInwardProcessingTransformation + Get + Return Me._inwardProcessingTransformation + End Get + Set(value As DEXPRDGoodsItemInwardProcessingTransformation) + Me._inwardProcessingTransformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItem + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItem) + 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 DEXPRDGoodsItem) 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 DEXPRDGoodsItem + 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 Class + + _ + Public Enum DEXPRDGoodsItemOriginFederalState + + ''' + _ + Item01 + + ''' + _ + Item02 + + ''' + _ + Item03 + + ''' + _ + Item04 + + ''' + _ + Item05 + + ''' + _ + Item06 + + ''' + _ + Item07 + + ''' + _ + Item08 + + ''' + _ + Item09 + + ''' + _ + Item10 + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item15 + + ''' + _ + Item16 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPRDGoodsItemCommodityCode + +#Region "Private fields" + Private _combinedNomenclatureCode As String + + Private _taricCode As String + + Private _taricFirstAdditionalCode As String + + Private _taricSecondAdditionalCode As String + + Private _nationalAdditionalCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property CombinedNomenclatureCode() As String + Get + Return Me._combinedNomenclatureCode + End Get + Set(value As String) + Me._combinedNomenclatureCode = Value + End Set + End Property + + _ + Public Property TaricCode() As String + Get + Return Me._taricCode + End Get + Set(value As String) + Me._taricCode = Value + End Set + End Property + + _ + Public Property TaricFirstAdditionalCode() As String + Get + Return Me._taricFirstAdditionalCode + End Get + Set(value As String) + Me._taricFirstAdditionalCode = Value + End Set + End Property + + _ + Public Property TaricSecondAdditionalCode() As String + Get + Return Me._taricSecondAdditionalCode + End Get + Set(value As String) + Me._taricSecondAdditionalCode = Value + End Set + End Property + + _ + Public Property NationalAdditionalCode() As String + Get + Return Me._nationalAdditionalCode + End Get + Set(value As String) + Me._nationalAdditionalCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemCommodityCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemCommodityCode object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemCommodityCode object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCommodityCode) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCommodityCode) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemCommodityCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemCommodityCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemCommodityCode + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemCommodityCode) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemCommodityCode object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemCommodityCode object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCommodityCode) + 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 DEXPRDGoodsItemCommodityCode) 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 DEXPRDGoodsItemCommodityCode + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemExportRefund + +#Region "Private fields" + Private _goodsDescriptionFirstAddendum As String + + Private _goodsDescriptionSecondAddendum As String + + Private _originCountry As String + + Private _measurementUnit As DEXPRDGoodsItemExportRefundMeasurementUnit + + Private _quantity As Decimal + + Private _paymentCaseNonAnnex1 As DEXPRDGoodsItemExportRefundPaymentCaseNonAnnex1 + + Private _adaptationCoefficient As Decimal + + Private _valueA As Decimal + + Private _valueB As Decimal + + Private _valueC As Decimal + + Private _valueD As Decimal + + Private _ingredient As List(Of DEXPRDGoodsItemExportRefundIngredient) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ingredient = New List(Of DEXPRDGoodsItemExportRefundIngredient)() + End Sub + + _ + Public Property GoodsDescriptionFirstAddendum() As String + Get + Return Me._goodsDescriptionFirstAddendum + End Get + Set(value As String) + Me._goodsDescriptionFirstAddendum = Value + End Set + End Property + + _ + Public Property GoodsDescriptionSecondAddendum() As String + Get + Return Me._goodsDescriptionSecondAddendum + End Get + Set(value As String) + Me._goodsDescriptionSecondAddendum = Value + End Set + End Property + + _ + Public Property OriginCountry() As String + Get + Return Me._originCountry + End Get + Set(value As String) + Me._originCountry = Value + End Set + End Property + + Public Property MeasurementUnit() As DEXPRDGoodsItemExportRefundMeasurementUnit + Get + Return Me._measurementUnit + End Get + Set(value As DEXPRDGoodsItemExportRefundMeasurementUnit) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Public Property PaymentCaseNonAnnex1() As DEXPRDGoodsItemExportRefundPaymentCaseNonAnnex1 + Get + Return Me._paymentCaseNonAnnex1 + End Get + Set(value As DEXPRDGoodsItemExportRefundPaymentCaseNonAnnex1) + Me._paymentCaseNonAnnex1 = Value + End Set + End Property + + Public Property AdaptationCoefficient() As Decimal + Get + Return Me._adaptationCoefficient + End Get + Set(value As Decimal) + Me._adaptationCoefficient = Value + End Set + End Property + + Public Property ValueA() As Decimal + Get + Return Me._valueA + End Get + Set(value As Decimal) + Me._valueA = Value + End Set + End Property + + Public Property ValueB() As Decimal + Get + Return Me._valueB + End Get + Set(value As Decimal) + Me._valueB = Value + End Set + End Property + + Public Property ValueC() As Decimal + Get + Return Me._valueC + End Get + Set(value As Decimal) + Me._valueC = Value + End Set + End Property + + Public Property ValueD() As Decimal + Get + Return Me._valueD + End Get + Set(value As Decimal) + Me._valueD = Value + End Set + End Property + + _ + Public Property Ingredient() As List(Of DEXPRDGoodsItemExportRefundIngredient) + Get + Return Me._ingredient + End Get + Set(value As List(Of DEXPRDGoodsItemExportRefundIngredient)) + Me._ingredient = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemExportRefund)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemExportRefund object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemExportRefund object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemExportRefund) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemExportRefund) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemExportRefund + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemExportRefund) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemExportRefund + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemExportRefund) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemExportRefund object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemExportRefund object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemExportRefund object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemExportRefund, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemExportRefund) + 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 DEXPRDGoodsItemExportRefund) 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 DEXPRDGoodsItemExportRefund + 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 Class + + _ + Public Enum DEXPRDGoodsItemExportRefundMeasurementUnit + + ''' + CEN + + ''' + DTN + + ''' + HLT + + ''' + KGM + + ''' + LTR + + ''' + MIL + + ''' + NAR + + ''' + TNE + End Enum + + _ + Public Enum DEXPRDGoodsItemExportRefundPaymentCaseNonAnnex1 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPRDGoodsItemExportRefundIngredient + +#Region "Private fields" + Private _sequenceNumber As String + + Private _conversionFactor1 As Decimal + + Private _conversionFactorMode As DEXPRDGoodsItemExportRefundIngredientConversionFactorMode + + Private _conversionFactor2 As Decimal + + Private _conversionFactorRate As Decimal + + Private _massPercentage As Decimal + + Private _fractionMass As Decimal + + Private _manufacturersDeclarationNumber As String + + Private _commodityCode As String + + Private _licenseNumber As String + + Private _statements As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + Public Property ConversionFactor1() As Decimal + Get + Return Me._conversionFactor1 + End Get + Set(value As Decimal) + Me._conversionFactor1 = Value + End Set + End Property + + Public Property ConversionFactorMode() As DEXPRDGoodsItemExportRefundIngredientConversionFactorMode + Get + Return Me._conversionFactorMode + End Get + Set(value As DEXPRDGoodsItemExportRefundIngredientConversionFactorMode) + Me._conversionFactorMode = Value + End Set + End Property + + Public Property ConversionFactor2() As Decimal + Get + Return Me._conversionFactor2 + End Get + Set(value As Decimal) + Me._conversionFactor2 = Value + End Set + End Property + + Public Property ConversionFactorRate() As Decimal + Get + Return Me._conversionFactorRate + End Get + Set(value As Decimal) + Me._conversionFactorRate = Value + End Set + End Property + + Public Property MassPercentage() As Decimal + Get + Return Me._massPercentage + End Get + Set(value As Decimal) + Me._massPercentage = Value + End Set + End Property + + Public Property FractionMass() As Decimal + Get + Return Me._fractionMass + End Get + Set(value As Decimal) + Me._fractionMass = Value + End Set + End Property + + _ + Public Property ManufacturersDeclarationNumber() As String + Get + Return Me._manufacturersDeclarationNumber + End Get + Set(value As String) + Me._manufacturersDeclarationNumber = Value + End Set + End Property + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + _ + Public Property LicenseNumber() As String + Get + Return Me._licenseNumber + End Get + Set(value As String) + Me._licenseNumber = Value + End Set + End Property + + _ + Public Property Statements() As String + Get + Return Me._statements + End Get + Set(value As String) + Me._statements = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemExportRefundIngredient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemExportRefundIngredient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemExportRefundIngredient object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemExportRefundIngredient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemExportRefundIngredient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemExportRefundIngredient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemExportRefundIngredient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemExportRefundIngredient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemExportRefundIngredient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemExportRefundIngredient + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemExportRefundIngredient) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemExportRefundIngredient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemExportRefundIngredient object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemExportRefundIngredient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemExportRefundIngredient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemExportRefundIngredient) + 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 DEXPRDGoodsItemExportRefundIngredient) 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 DEXPRDGoodsItemExportRefundIngredient + 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 Class + + _ + Public Enum DEXPRDGoodsItemExportRefundIngredientConversionFactorMode + + ''' + D + + ''' + F + End Enum + + _ + Partial Public Class DEXPRDGoodsItemProcedure + +#Region "Private fields" + Private _requestedProcedure As String + + Private _previousProcedure As String + + Private _additionalProcedure As String + + Private _exportRefundProcedure As DEXPRDGoodsItemProcedureExportRefundProcedure + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property RequestedProcedure() As String + Get + Return Me._requestedProcedure + End Get + Set(value As String) + Me._requestedProcedure = Value + End Set + End Property + + _ + Public Property PreviousProcedure() As String + Get + Return Me._previousProcedure + End Get + Set(value As String) + Me._previousProcedure = Value + End Set + End Property + + _ + Public Property AdditionalProcedure() As String + Get + Return Me._additionalProcedure + End Get + Set(value As String) + Me._additionalProcedure = Value + End Set + End Property + + Public Property ExportRefundProcedure() As DEXPRDGoodsItemProcedureExportRefundProcedure + Get + Return Me._exportRefundProcedure + End Get + Set(value As DEXPRDGoodsItemProcedureExportRefundProcedure) + Me._exportRefundProcedure = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemProcedure)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemProcedure object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemProcedure object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemProcedure) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemProcedure) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemProcedure + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemProcedure) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemProcedure + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemProcedure) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemProcedure object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemProcedure object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemProcedure) + 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 DEXPRDGoodsItemProcedure) 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 DEXPRDGoodsItemProcedure + 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 Class + + _ + Public Enum DEXPRDGoodsItemProcedureExportRefundProcedure + + ''' + E51 + + ''' + E52 + + ''' + E53 + + ''' + E61 + + ''' + E62 + + ''' + E63 + + ''' + E71 + End Enum + + _ + Partial Public Class DEXPRDGoodsItemForeignTradeStatistics + +#Region "Private fields" + Private _specialUnitQuantity As Decimal + + Private _statisticalValue As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property SpecialUnitQuantity() As Decimal + Get + Return Me._specialUnitQuantity + End Get + Set(value As Decimal) + Me._specialUnitQuantity = Value + End Set + End Property + + _ + Public Property StatisticalValue() As String + Get + Return Me._statisticalValue + End Get + Set(value As String) + Me._statisticalValue = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemForeignTradeStatistics object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemForeignTradeStatistics object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemForeignTradeStatistics) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemForeignTradeStatistics + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemForeignTradeStatistics) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemForeignTradeStatistics object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemForeignTradeStatistics object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemForeignTradeStatistics) + 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 DEXPRDGoodsItemForeignTradeStatistics) 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 DEXPRDGoodsItemForeignTradeStatistics + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemConsignee + +#Region "Private fields" + Private _class As DEXPRDGoodsItemConsigneeClass + + Private _identification As DEXPRDGoodsItemConsigneeIdentification + + Private _name As String + + Private _address As DEXPRDGoodsItemConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._address = New DEXPRDGoodsItemConsigneeAddress() + Me._identification = New DEXPRDGoodsItemConsigneeIdentification() + End Sub + + Public Property [Class]() As DEXPRDGoodsItemConsigneeClass + Get + Return Me._class + End Get + Set(value As DEXPRDGoodsItemConsigneeClass) + Me._class = Value + End Set + End Property + + Public Property Identification() As DEXPRDGoodsItemConsigneeIdentification + Get + Return Me._identification + End Get + Set(value As DEXPRDGoodsItemConsigneeIdentification) + Me._identification = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + Public Property Address() As DEXPRDGoodsItemConsigneeAddress + Get + Return Me._address + End Get + Set(value As DEXPRDGoodsItemConsigneeAddress) + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemConsignee + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemConsignee) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemConsignee) + 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 DEXPRDGoodsItemConsignee) 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 DEXPRDGoodsItemConsignee + 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 Class + + _ + Public Enum DEXPRDGoodsItemConsigneeClass + + ''' + _ + Item0 + + ''' + _ + Item2 + + ''' + _ + Item3 + + ''' + _ + Item4 + End Enum + + _ + Partial Public Class DEXPRDGoodsItemConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set(value As String) + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemConsigneeIdentification + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemConsigneeIdentification) + 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 DEXPRDGoodsItemConsigneeIdentification) 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 DEXPRDGoodsItemConsigneeIdentification + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _city As String + + Private _postcode As String + + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Line() As String + Get + Return Me._line + End Get + Set(value As String) + Me._line = Value + End Set + End Property + + _ + Public Property City() As String + Get + Return Me._city + End Get + Set(value As String) + Me._city = Value + End Set + End Property + + _ + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set(value As String) + Me._postcode = Value + End Set + End Property + + _ + Public Property Country() As String + Get + Return Me._country + End Get + Set(value As String) + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemConsigneeAddress + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemConsigneeAddress) + 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 DEXPRDGoodsItemConsigneeAddress) 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 DEXPRDGoodsItemConsigneeAddress + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemPackage + +#Region "Private fields" + Private _quantity As String + + Private _sequenceNumber As String + + Private _kind As String + + Private _marksNumbers As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set(value As String) + Me._quantity = Value + End Set + End Property + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property Kind() As String + Get + Return Me._kind + End Get + Set(value As String) + Me._kind = Value + End Set + End Property + + _ + Public Property MarksNumbers() As String + Get + Return Me._marksNumbers + End Get + Set(value As String) + Me._marksNumbers = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemPackage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemPackage object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemPackage object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemPackage) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemPackage) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemPackage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemPackage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemPackage + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemPackage) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemPackage object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemPackage object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemPackage) + 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 DEXPRDGoodsItemPackage) 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 DEXPRDGoodsItemPackage + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemContainer + +#Region "Private fields" + Private _identificationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set(value As String) + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemContainer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemContainer object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemContainer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemContainer) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemContainer + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemContainer) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemContainer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemContainer object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemContainer) + 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 DEXPRDGoodsItemContainer) 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 DEXPRDGoodsItemContainer + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemDocument + +#Region "Private fields" + Private _qualifier As String + + Private _type As String + + Private _referenceNumber As String + + Private _complement As String + + Private _detail As String + + Private _issuingDate As Date + + Private _expiryDate As Date + + Private _writeOffValue As String + + Private _measurementUnit As DEXPRDGoodsItemDocumentMeasurementUnit + + Private _writeOffQuantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + _ + Public Property Detail() As String + Get + Return Me._detail + End Get + Set(value As String) + Me._detail = Value + End Set + End Property + + _ + Public Property IssuingDate() As Date + Get + Return Me._issuingDate + End Get + Set(value As Date) + Me._issuingDate = Value + End Set + End Property + + _ + Public Property ExpiryDate() As Date + Get + Return Me._expiryDate + End Get + Set(value As Date) + Me._expiryDate = Value + End Set + End Property + + _ + Public Property WriteOffValue() As String + Get + Return Me._writeOffValue + End Get + Set(value As String) + Me._writeOffValue = Value + End Set + End Property + + Public Property MeasurementUnit() As DEXPRDGoodsItemDocumentMeasurementUnit + Get + Return Me._measurementUnit + End Get + Set(value As DEXPRDGoodsItemDocumentMeasurementUnit) + Me._measurementUnit = Value + End Set + End Property + + Public Property WriteOffQuantity() As Decimal + Get + Return Me._writeOffQuantity + End Get + Set(value As Decimal) + Me._writeOffQuantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemDocument object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemDocument object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemDocument) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemDocument) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemDocument + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemDocument) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemDocument object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemDocument object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemDocument) + 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 DEXPRDGoodsItemDocument) 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 DEXPRDGoodsItemDocument + 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 Class + + _ + Public Enum DEXPRDGoodsItemDocumentMeasurementUnit + + ''' + Los + + ''' + Mio + + ''' + Paar + + ''' + Satz + + ''' + St + + ''' + Syst + + ''' + cbm + + ''' + cm + + ''' + div + + ''' + g + + ''' + gPu + + ''' + gTh + + ''' + gU + + ''' + kg + + ''' + kgPu + + ''' + kgTh + + ''' + kgU + + ''' + km + + ''' + l + + ''' + lfm + + ''' + ltAnlage + + ''' + m + + ''' + mg + + ''' + ml + + ''' + mm + + ''' + qcm + + ''' + qm + + ''' + t + + ''' + tU + + ''' + µg + + ''' + µl + + ''' + µm + End Enum + + _ + Partial Public Class DEXPRDGoodsItemPreviousAdminstrativeReference + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private _complement As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Type() As String + Get + Return Me._type + End Get + Set(value As String) + Me._type = Value + End Set + End Property + + _ + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set(value As String) + Me._referenceNumber = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemPreviousAdminstrativeReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemPreviousAdminstrativeReference object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemPreviousAdminstrativeReference object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemPreviousAdminstrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemPreviousAdminstrativeReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemPreviousAdminstrativeReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemPreviousAdminstrativeReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemPreviousAdminstrativeReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemPreviousAdminstrativeReference + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemPreviousAdminstrativeReference) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemPreviousAdminstrativeReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemPreviousAdminstrativeReference object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemPreviousAdminstrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemPreviousAdminstrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemPreviousAdminstrativeReference) + 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 DEXPRDGoodsItemPreviousAdminstrativeReference) 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 DEXPRDGoodsItemPreviousAdminstrativeReference + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemDeliveryTerms + +#Region "Private fields" + Private _incotermCode As DEXPRDGoodsItemDeliveryTermsIncotermCode + + Private _description As String + + Private _location As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property IncotermCode() As DEXPRDGoodsItemDeliveryTermsIncotermCode + Get + Return Me._incotermCode + End Get + Set(value As DEXPRDGoodsItemDeliveryTermsIncotermCode) + Me._incotermCode = Value + End Set + End Property + + _ + Public Property Description() As String + Get + Return Me._description + End Get + Set(value As String) + Me._description = Value + End Set + End Property + + _ + Public Property Location() As String + Get + Return Me._location + End Get + Set(value As String) + Me._location = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemDeliveryTerms object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemDeliveryTerms + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemDeliveryTerms) + 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 DEXPRDGoodsItemDeliveryTerms) 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 DEXPRDGoodsItemDeliveryTerms + 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 Class + + _ + Public Enum DEXPRDGoodsItemDeliveryTermsIncotermCode + + ''' + CFR + + ''' + CIF + + ''' + CIP + + ''' + CPT + + ''' + DAF + + ''' + DAP + + ''' + DAT + + ''' + DDP + + ''' + DDU + + ''' + DEQ + + ''' + DES + + ''' + EXW + + ''' + FAS + + ''' + FCA + + ''' + FOB + + ''' + XXX + End Enum + + _ + Partial Public Class DEXPRDGoodsItemTransaction + +#Region "Private fields" + Private _type As DEXPRDGoodsItemTransactionType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Type() As DEXPRDGoodsItemTransactionType + Get + Return Me._type + End Get + Set(value As DEXPRDGoodsItemTransactionType) + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemTransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemTransaction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemTransaction object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemTransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemTransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemTransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemTransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemTransaction + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemTransaction) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemTransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemTransaction object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemTransaction) + 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 DEXPRDGoodsItemTransaction) 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 DEXPRDGoodsItemTransaction + 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 Class + + _ + Public Enum DEXPRDGoodsItemTransactionType + + ''' + _ + Item11 + + ''' + _ + Item12 + + ''' + _ + Item13 + + ''' + _ + Item14 + + ''' + _ + Item19 + + ''' + _ + Item21 + + ''' + _ + Item22 + + ''' + _ + Item23 + + ''' + _ + Item29 + + ''' + _ + Item31 + + ''' + _ + Item32 + + ''' + _ + Item33 + + ''' + _ + Item34 + + ''' + _ + Item41 + + ''' + _ + Item42 + + ''' + _ + Item51 + + ''' + _ + Item52 + + ''' + _ + Item67 + + ''' + _ + Item69 + + ''' + _ + Item71 + + ''' + _ + Item72 + + ''' + _ + Item81 + + ''' + _ + Item91 + + ''' + _ + Item92 + + ''' + _ + Item99 + End Enum + + _ + Partial Public Class DEXPRDGoodsItemCustomsWarehouse + +#Region "Private fields" + Private _alignmentFlag As DEXPRDGoodsItemCustomsWarehouseAlignmentFlag + + Private _goodsItemQuantity As String + + Private _customsAuthorization As DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization + + Private _localReferenceNumber As String + + Private _goodsItem As List(Of DEXPRDGoodsItemCustomsWarehouseGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPRDGoodsItemCustomsWarehouseGoodsItem)() + Me._customsAuthorization = New DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization() + End Sub + + Public Property AlignmentFlag() As DEXPRDGoodsItemCustomsWarehouseAlignmentFlag + Get + Return Me._alignmentFlag + End Get + Set(value As DEXPRDGoodsItemCustomsWarehouseAlignmentFlag) + Me._alignmentFlag = Value + End Set + End Property + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + _ + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set(value As String) + Me._localReferenceNumber = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPRDGoodsItemCustomsWarehouseGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPRDGoodsItemCustomsWarehouseGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemCustomsWarehouse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouse object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemCustomsWarehouse object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouse) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouse) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemCustomsWarehouse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemCustomsWarehouse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemCustomsWarehouse + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemCustomsWarehouse) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouse object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemCustomsWarehouse object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouse) + 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 DEXPRDGoodsItemCustomsWarehouse) 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 DEXPRDGoodsItemCustomsWarehouse + 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 Class + + _ + Public Enum DEXPRDGoodsItemCustomsWarehouseAlignmentFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization + +#Region "Private fields" + Private _warehouseOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property WarehouseOwner() As String + Get + Return Me._warehouseOwner + End Get + Set(value As String) + Me._warehouseOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization) + 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 DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization) 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 DEXPRDGoodsItemCustomsWarehouseCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemCustomsWarehouseGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedSequenceNumber As String + + Private _registrationNumber As String + + Private _commodityCode As String + + Private _accessViaAtlasFlag As DEXPRDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + + Private _usualProcessingFlag As DEXPRDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + + Private _complement As String + + Private _debitAmount As DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount + + Private _commercialAmount As DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._commercialAmount = New DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount() + Me._debitAmount = New DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount() + End Sub + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set(value As String) + Me._referencedSequenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + _ + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set(value As String) + Me._commodityCode = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As DEXPRDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + Get + Return Me._accessViaAtlasFlag + End Get + Set(value As DEXPRDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag) + Me._accessViaAtlasFlag = Value + End Set + End Property + + Public Property UsualProcessingFlag() As DEXPRDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + Get + Return Me._usualProcessingFlag + End Get + Set(value As DEXPRDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag) + Me._usualProcessingFlag = Value + End Set + End Property + + _ + Public Property Complement() As String + Get + Return Me._complement + End Get + Set(value As String) + Me._complement = Value + End Set + End Property + + Public Property DebitAmount() As DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount + Get + Return Me._debitAmount + End Get + Set(value As DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Me._debitAmount = Value + End Set + End Property + + Public Property CommercialAmount() As DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Get + Return Me._commercialAmount + End Get + Set(value As DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Me._commercialAmount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemCustomsWarehouseGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouseGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemCustomsWarehouseGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouseGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemCustomsWarehouseGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemCustomsWarehouseGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemCustomsWarehouseGoodsItem + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemCustomsWarehouseGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouseGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemCustomsWarehouseGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouseGoodsItem) + 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 DEXPRDGoodsItemCustomsWarehouseGoodsItem) 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 DEXPRDGoodsItemCustomsWarehouseGoodsItem + 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 Class + + _ + Public Enum DEXPRDGoodsItemCustomsWarehouseGoodsItemAccessViaAtlasFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Public Enum DEXPRDGoodsItemCustomsWarehouseGoodsItemUsualProcessingFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount + +#Region "Private fields" + Private _qualifier As String + + Private _measurementUnit As String + + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set(value As String) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount) + 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 DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount) 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 DEXPRDGoodsItemCustomsWarehouseGoodsItemDebitAmount + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + +#Region "Private fields" + Private _qualifier As String + + Private _measurementUnit As String + + Private _quantity As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + _ + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set(value As String) + Me._measurementUnit = Value + End Set + End Property + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set(value As Decimal) + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) + 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 DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount) 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 DEXPRDGoodsItemCustomsWarehouseGoodsItemCommercialAmount + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemInwardProcessingTransformation + +#Region "Private fields" + Private _alignmentFlag As DEXPRDGoodsItemInwardProcessingTransformationAlignmentFlag + + Private _goodsItemQuantity As String + + Private _customsAuthorization As DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization + + Private _goodsItem As List(Of DEXPRDGoodsItemInwardProcessingTransformationGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._goodsItem = New List(Of DEXPRDGoodsItemInwardProcessingTransformationGoodsItem)() + Me._customsAuthorization = New DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization() + End Sub + + Public Property AlignmentFlag() As DEXPRDGoodsItemInwardProcessingTransformationAlignmentFlag + Get + Return Me._alignmentFlag + End Get + Set(value As DEXPRDGoodsItemInwardProcessingTransformationAlignmentFlag) + Me._alignmentFlag = Value + End Set + End Property + + _ + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set(value As String) + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorization() As DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization + Get + Return Me._customsAuthorization + End Get + Set(value As DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization) + Me._customsAuthorization = Value + End Set + End Property + + _ + Public Property GoodsItem() As List(Of DEXPRDGoodsItemInwardProcessingTransformationGoodsItem) + Get + Return Me._goodsItem + End Get + Set(value As List(Of DEXPRDGoodsItemInwardProcessingTransformationGoodsItem)) + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemInwardProcessingTransformation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemInwardProcessingTransformation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemInwardProcessingTransformation object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemInwardProcessingTransformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemInwardProcessingTransformation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemInwardProcessingTransformation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemInwardProcessingTransformation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemInwardProcessingTransformation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemInwardProcessingTransformation + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemInwardProcessingTransformation) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemInwardProcessingTransformation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemInwardProcessingTransformation object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemInwardProcessingTransformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemInwardProcessingTransformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemInwardProcessingTransformation) + 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 DEXPRDGoodsItemInwardProcessingTransformation) 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 DEXPRDGoodsItemInwardProcessingTransformation + 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 Class + + _ + Public Enum DEXPRDGoodsItemInwardProcessingTransformationAlignmentFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization + +#Region "Private fields" + Private _processingOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ProcessingOwner() As String + Get + Return Me._processingOwner + End Get + Set(value As String) + Me._processingOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization) + 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 DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization) 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 DEXPRDGoodsItemInwardProcessingTransformationCustomsAuthorization + 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 Class + + _ + Partial Public Class DEXPRDGoodsItemInwardProcessingTransformationGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedSequenceNumber As String + + Private _registrationNumber As String + + Private _accessViaAtlasFlag As DEXPRDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + + Private _goodsRelatedInformation As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set(value As String) + Me._sequenceNumber = Value + End Set + End Property + + _ + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set(value As String) + Me._referencedSequenceNumber = Value + End Set + End Property + + _ + Public Property RegistrationNumber() As String + Get + Return Me._registrationNumber + End Get + Set(value As String) + Me._registrationNumber = Value + End Set + End Property + + Public Property AccessViaAtlasFlag() As DEXPRDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + Get + Return Me._accessViaAtlasFlag + End Get + Set(value As DEXPRDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag) + Me._accessViaAtlasFlag = Value + End Set + End Property + + _ + Public Property GoodsRelatedInformation() As String + Get + Return Me._goodsRelatedInformation + End Get + Set(value As String) + Me._goodsRelatedInformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DEXPRDGoodsItemInwardProcessingTransformationGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DEXPRDGoodsItemInwardProcessingTransformationGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DEXPRDGoodsItemInwardProcessingTransformationGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DEXPRDGoodsItemInwardProcessingTransformationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemInwardProcessingTransformationGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DEXPRDGoodsItemInwardProcessingTransformationGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DEXPRDGoodsItemInwardProcessingTransformationGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DEXPRDGoodsItemInwardProcessingTransformationGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DEXPRDGoodsItemInwardProcessingTransformationGoodsItem + Return CType(Serializer.Deserialize(s), DEXPRDGoodsItemInwardProcessingTransformationGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DEXPRDGoodsItemInwardProcessingTransformationGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DEXPRDGoodsItemInwardProcessingTransformationGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DEXPRDGoodsItemInwardProcessingTransformationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DEXPRDGoodsItemInwardProcessingTransformationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DEXPRDGoodsItemInwardProcessingTransformationGoodsItem) + 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 DEXPRDGoodsItemInwardProcessingTransformationGoodsItem) 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 DEXPRDGoodsItemInwardProcessingTransformationGoodsItem + 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 Class + + _ + Public Enum DEXPRDGoodsItemInwardProcessingTransformationGoodsItemAccessViaAtlasFlag + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set(value As Decimal) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + _ + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + _ + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + _ + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set(value As List(Of System.Xml.XmlAttribute)) + Me._anyAttr = Value + End Set + End Property + + _ + Public Property Value() As String + Get + Return Me._value + End Get + Set(value As String) + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel_V2.3.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel_V2.3.xsd new file mode 100644 index 0000000..8e884e5 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/Überlassung/e_exp_rel_V2.3.xsd @@ -0,0 +1,5510 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/Codelists/Codelist_C0008.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/Codelists/Codelist_C0008.Designer.vb new file mode 100644 index 0000000..4f8755f --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/Codelists/Codelist_C0008.Designer.vb @@ -0,0 +1,487 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' CodelistListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace Codelist + + _ + Partial Public Class Entry + +#Region "Private fields" + Private _items() As String + + Private _itemsElementName() As EntryItemsChoiceType + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Items() As String() + Get + Return Me._items + End Get + Set(value As String()) + Me._items = Value + End Set + End Property + + _ + Public Property ItemsElementName() As EntryItemsChoiceType() + Get + Return Me._itemsElementName + End Get + Set(value As EntryItemsChoiceType()) + Me._itemsElementName = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Entry)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Entry object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an Entry object + ''' + ''' string workflow markup to deserialize + ''' Output Entry object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Entry, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Entry) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Entry) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As Entry + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Entry) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Entry + Return CType(Serializer.Deserialize(s), Entry) + End Function +#End Region + + ''' + ''' Serializes current Entry object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an Entry object + ''' + ''' string xml file to load and deserialize + ''' Output Entry object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As Entry, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Entry) + 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 Entry) 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 Entry + 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 Class + + _ + Public Enum EntryItemsChoiceType + + ''' + Code + + ''' + Description + + ''' + EndDate + + ''' + StartDate + End Enum + + _ + Partial Public Class Codelist + +#Region "Private fields" + Private _entry As List(Of Entry) + + Private _id As String + + Private _name As String + + Private _release As CodelistRelease + + Private _system As String + + Private _publicationDate As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._entry = New List(Of Entry)() + End Sub + + _ + Public Property Entry() As List(Of Entry) + Get + Return Me._entry + End Get + Set(value As List(Of Entry)) + Me._entry = Value + End Set + End Property + + _ + Public Property Id() As String + Get + Return Me._id + End Get + Set(value As String) + Me._id = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property Release() As CodelistRelease + Get + Return Me._release + End Get + Set(value As CodelistRelease) + Me._release = Value + End Set + End Property + + _ + Public Property System() As String + Get + Return Me._system + End Get + Set(value As String) + Me._system = Value + End Set + End Property + + _ + Public Property PublicationDate() As String + Get + Return Me._publicationDate + End Get + Set(value As String) + Me._publicationDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Codelist)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Codelist object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an Codelist object + ''' + ''' string workflow markup to deserialize + ''' Output Codelist object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Codelist, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Codelist) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Codelist) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As Codelist + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Codelist) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Codelist + Return CType(Serializer.Deserialize(s), Codelist) + End Function +#End Region + + ''' + ''' Serializes current Codelist object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an Codelist object + ''' + ''' string xml file to load and deserialize + ''' Output Codelist object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As Codelist, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, Codelist) + 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 Codelist) 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 Codelist + 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 Class + + _ + Public Enum CodelistRelease + + ''' + _ + Item + End Enum +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/Codelists/Codelist_C0008.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/Codelists/Codelist_C0008.xsd new file mode 100644 index 0000000..13274a1 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/Codelists/Codelist_C0008.xsd @@ -0,0 +1,44 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_007.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_007.Designer.vb new file mode 100644 index 0000000..fff4238 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_007.Designer.vb @@ -0,0 +1,5726 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' AbgabenbescheidListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace Abgabenbescheid + + _ + Partial Public Class AbgabenbescheidEinfuhrTAXTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelAbgabenbescheid As EinzelAbgabenbescheidTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelAbgabenbescheid = New EinzelAbgabenbescheidTyp() + End Sub + + _ + Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp + Get + Return Me._einzelAbgabenbescheid + End Get + Set(value As EinzelAbgabenbescheidTyp) + Me._einzelAbgabenbescheid = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenbescheidEinfuhrTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenbescheidEinfuhrTAXTyp + Return CType(Serializer.Deserialize(s), AbgabenbescheidEinfuhrTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + 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 AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp + 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 Class + + _ + Partial Public Class EinzelAbgabenbescheidTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXTyp + + Private _kopfDaten As KopfDatenEinfuhrbescheidTyp + + Private _position As List(Of PositionAbgabenbescheidEinfuhrTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._position = New List(Of PositionAbgabenbescheidEinfuhrTyp)() + Me._kopfDaten = New KopfDatenEinfuhrbescheidTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungTAXTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenEinfuhrbescheidTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp) + Get + Return Me._position + End Get + Set(value As List(Of PositionAbgabenbescheidEinfuhrTyp)) + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenbescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelAbgabenbescheidTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelAbgabenbescheidTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenbescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenbescheidTyp + Return CType(Serializer.Deserialize(s), EinzelAbgabenbescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbgabenbescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelAbgabenbescheidTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + 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 EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungTAXTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + 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 ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp + 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 Class + + _ + Partial Public Class EinzelAbgabenSatzTAXTyp + +#Region "Private fields" + Private _lfdNrAbgabensatz As List(Of String) + + Private _abgabensatz As List(Of Decimal) + + Private _bemessungsmassstab As List(Of String) + + Private _gehaltsangabenArt As List(Of String) + + Private _gehaltsangabenGradProzent As List(Of Decimal) + + Private _bemessungsgrundlageKz As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._bemessungsgrundlageKz = New List(Of String)() + Me._gehaltsangabenGradProzent = New List(Of Decimal)() + Me._gehaltsangabenArt = New List(Of String)() + Me._bemessungsmassstab = New List(Of String)() + Me._abgabensatz = New List(Of Decimal)() + Me._lfdNrAbgabensatz = New List(Of String)() + End Sub + + _ + Public Property LfdNrAbgabensatz() As List(Of String) + Get + Return Me._lfdNrAbgabensatz + End Get + Set(value As List(Of String)) + Me._lfdNrAbgabensatz = Value + End Set + End Property + + _ + Public Property Abgabensatz() As List(Of Decimal) + Get + Return Me._abgabensatz + End Get + Set(value As List(Of Decimal)) + Me._abgabensatz = Value + End Set + End Property + + _ + Public Property Bemessungsmassstab() As List(Of String) + Get + Return Me._bemessungsmassstab + End Get + Set(value As List(Of String)) + Me._bemessungsmassstab = Value + End Set + End Property + + _ + Public Property GehaltsangabenArt() As List(Of String) + Get + Return Me._gehaltsangabenArt + End Get + Set(value As List(Of String)) + Me._gehaltsangabenArt = Value + End Set + End Property + + _ + Public Property GehaltsangabenGradProzent() As List(Of Decimal) + Get + Return Me._gehaltsangabenGradProzent + End Get + Set(value As List(Of Decimal)) + Me._gehaltsangabenGradProzent = Value + End Set + End Property + + _ + Public Property BemessungsgrundlageKz() As List(Of String) + Get + Return Me._bemessungsgrundlageKz + End Get + Set(value As List(Of String)) + Me._bemessungsgrundlageKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenSatzTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelAbgabenSatzTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelAbgabenSatzTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenSatzTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenSatzTAXTyp + Return CType(Serializer.Deserialize(s), EinzelAbgabenSatzTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbgabenSatzTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelAbgabenSatzTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + 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 EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp + 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 Class + + _ + Partial Public Class AbgabengruppeTAXTyp + +#Region "Private fields" + Private _abgabengruppe As String + + Private _abgabeArt As String + + Private _berechnungshinweis As String + + Private _angewandterPVMinderungsBetrag As Decimal + + Private _errechneterAbgabenbetrag As Decimal + + Private _abgabenbetrag As Decimal + + Private _abgabensatzKontNr As String + + Private _verbrauchssteuerCode As String + + Private _verbrauchssteuerMenge As Decimal + + Private _verbrauchssteuerMasseinheit As String + + Private _verbrauchssteuerQualifikator As String + + Private _verbrauchssteuerGradProzent As Decimal + + Private _verbrauchssteuerWert As Decimal + + Private _einzelAbgabenSatz As List(Of EinzelAbgabenSatzTAXTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelAbgabenSatz = New List(Of EinzelAbgabenSatzTAXTyp)() + End Sub + + _ + Public Property Abgabengruppe() As String + Get + Return Me._abgabengruppe + End Get + Set(value As String) + Me._abgabengruppe = Value + End Set + End Property + + _ + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set(value As String) + Me._abgabeArt = Value + End Set + End Property + + _ + Public Property Berechnungshinweis() As String + Get + Return Me._berechnungshinweis + End Get + Set(value As String) + Me._berechnungshinweis = Value + End Set + End Property + + _ + Public Property AngewandterPVMinderungsBetrag() As Decimal + Get + Return Me._angewandterPVMinderungsBetrag + End Get + Set(value As Decimal) + Me._angewandterPVMinderungsBetrag = Value + End Set + End Property + + _ + Public Property ErrechneterAbgabenbetrag() As Decimal + Get + Return Me._errechneterAbgabenbetrag + End Get + Set(value As Decimal) + Me._errechneterAbgabenbetrag = Value + End Set + End Property + + _ + Public Property Abgabenbetrag() As Decimal + Get + Return Me._abgabenbetrag + End Get + Set(value As Decimal) + Me._abgabenbetrag = Value + End Set + End Property + + _ + Public Property AbgabensatzKontNr() As String + Get + Return Me._abgabensatzKontNr + End Get + Set(value As String) + Me._abgabensatzKontNr = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerCode() As String + Get + Return Me._verbrauchssteuerCode + End Get + Set(value As String) + Me._verbrauchssteuerCode = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerMenge() As Decimal + Get + Return Me._verbrauchssteuerMenge + End Get + Set(value As Decimal) + Me._verbrauchssteuerMenge = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerMasseinheit() As String + Get + Return Me._verbrauchssteuerMasseinheit + End Get + Set(value As String) + Me._verbrauchssteuerMasseinheit = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerQualifikator() As String + Get + Return Me._verbrauchssteuerQualifikator + End Get + Set(value As String) + Me._verbrauchssteuerQualifikator = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerGradProzent() As Decimal + Get + Return Me._verbrauchssteuerGradProzent + End Get + Set(value As Decimal) + Me._verbrauchssteuerGradProzent = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerWert() As Decimal + Get + Return Me._verbrauchssteuerWert + End Get + Set(value As Decimal) + Me._verbrauchssteuerWert = Value + End Set + End Property + + _ + Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp) + Get + Return Me._einzelAbgabenSatz + End Get + Set(value As List(Of EinzelAbgabenSatzTAXTyp)) + Me._einzelAbgabenSatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabengruppeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabengruppeTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgabengruppeTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabengruppeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabengruppeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabengruppeTAXTyp + Return CType(Serializer.Deserialize(s), AbgabengruppeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabengruppeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgabengruppeTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + 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 AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp + 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 Class + + _ + Partial Public Class AbweichendeFestsetzungTAXTyp + +#Region "Private fields" + Private _feldname As String + + Private _qualifikator As String + + Private _qualifikatorInhalt As String + + Private _artAbweichendeFestsetzung As String + + Private _festgesetztVon As String + + Private _festgesetztAuf As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Feldname() As String + Get + Return Me._feldname + End Get + Set(value As String) + Me._feldname = Value + End Set + End Property + + _ + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set(value As String) + Me._qualifikator = Value + End Set + End Property + + _ + Public Property QualifikatorInhalt() As String + Get + Return Me._qualifikatorInhalt + End Get + Set(value As String) + Me._qualifikatorInhalt = Value + End Set + End Property + + _ + Public Property ArtAbweichendeFestsetzung() As String + Get + Return Me._artAbweichendeFestsetzung + End Get + Set(value As String) + Me._artAbweichendeFestsetzung = Value + End Set + End Property + + _ + Public Property FestgesetztVon() As String + Get + Return Me._festgesetztVon + End Get + Set(value As String) + Me._festgesetztVon = Value + End Set + End Property + + _ + Public Property FestgesetztAuf() As String + Get + Return Me._festgesetztAuf + End Get + Set(value As String) + Me._festgesetztAuf = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbweichendeFestsetzungTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbweichendeFestsetzungTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbweichendeFestsetzungTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichendeFestsetzungTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichendeFestsetzungTAXTyp + Return CType(Serializer.Deserialize(s), AbweichendeFestsetzungTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbweichendeFestsetzungTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbweichendeFestsetzungTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + 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 AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp + 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 Class + + _ + Partial Public Class KontingentAngerechnetWarenMengeTAXTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Menge() As String + Get + Return Me._menge + End Get + Set(value As String) + Me._menge = Value + End Set + End Property + + _ + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set(value As String) + Me._masseinheit = Value + End Set + End Property + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetWarenMengeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetWarenMengeTAXTyp + Return CType(Serializer.Deserialize(s), KontingentAngerechnetWarenMengeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + 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 KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp + 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 Class + + _ + Partial Public Class KontingentAngerechnetTAXTyp + +#Region "Private fields" + Private _kontNrAngerechnet As String + + Private _zollwertAngerechnet As Decimal + + Private _eUStKostenAngerechnet As Decimal + + Private _beguenstMengeAngerechnet As Decimal + + Private _masseinhBegMengeAng As String + + Private _qualifBegMengeAng As String + + Private _warenMenge As List(Of KontingentAngerechnetWarenMengeTAXTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._warenMenge = New List(Of KontingentAngerechnetWarenMengeTAXTyp)() + End Sub + + _ + Public Property KontNrAngerechnet() As String + Get + Return Me._kontNrAngerechnet + End Get + Set(value As String) + Me._kontNrAngerechnet = Value + End Set + End Property + + _ + Public Property ZollwertAngerechnet() As Decimal + Get + Return Me._zollwertAngerechnet + End Get + Set(value As Decimal) + Me._zollwertAngerechnet = Value + End Set + End Property + + _ + Public Property EUStKostenAngerechnet() As Decimal + Get + Return Me._eUStKostenAngerechnet + End Get + Set(value As Decimal) + Me._eUStKostenAngerechnet = Value + End Set + End Property + + _ + Public Property BeguenstMengeAngerechnet() As Decimal + Get + Return Me._beguenstMengeAngerechnet + End Get + Set(value As Decimal) + Me._beguenstMengeAngerechnet = Value + End Set + End Property + + _ + Public Property MasseinhBegMengeAng() As String + Get + Return Me._masseinhBegMengeAng + End Get + Set(value As String) + Me._masseinhBegMengeAng = Value + End Set + End Property + + _ + Public Property QualifBegMengeAng() As String + Get + Return Me._qualifBegMengeAng + End Get + Set(value As String) + Me._qualifBegMengeAng = Value + End Set + End Property + + _ + Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp) + Get + Return Me._warenMenge + End Get + Set(value As List(Of KontingentAngerechnetWarenMengeTAXTyp)) + Me._warenMenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KontingentAngerechnetTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KontingentAngerechnetTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetTAXTyp + Return CType(Serializer.Deserialize(s), KontingentAngerechnetTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KontingentAngerechnetTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KontingentAngerechnetTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + 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 KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp + 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 Class + + _ + Partial Public Class SonderfalleingabeTAXTyp + +#Region "Private fields" + Private _sonderabgabenGruppe As String + + Private _anwendungsart As String + + Private _satzBetragFaktor As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property SonderabgabenGruppe() As String + Get + Return Me._sonderabgabenGruppe + End Get + Set(value As String) + Me._sonderabgabenGruppe = Value + End Set + End Property + + _ + Public Property Anwendungsart() As String + Get + Return Me._anwendungsart + End Get + Set(value As String) + Me._anwendungsart = Value + End Set + End Property + + _ + Public Property SatzBetragFaktor() As Decimal + Get + Return Me._satzBetragFaktor + End Get + Set(value As Decimal) + Me._satzBetragFaktor = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalleingabeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SonderfalleingabeTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SonderfalleingabeTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SonderfalleingabeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderfalleingabeTAXTyp + Return CType(Serializer.Deserialize(s), SonderfalleingabeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderfalleingabeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SonderfalleingabeTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + 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 SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp + 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 Class + + _ + Partial Public Class AngemeldeteUnterlageTAXTyp + +#Region "Private fields" + Private _unterlageArt As String + + Private _unterlageBereich As String + + Private _unterlageNr As String + + Private _anerkennungKz As String + + Private _abschreibungKz As String + + Private _einbehaltenKz As String + + Private _periodischeVorlageKz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property UnterlageArt() As String + Get + Return Me._unterlageArt + End Get + Set(value As String) + Me._unterlageArt = Value + End Set + End Property + + _ + Public Property UnterlageBereich() As String + Get + Return Me._unterlageBereich + End Get + Set(value As String) + Me._unterlageBereich = Value + End Set + End Property + + _ + Public Property UnterlageNr() As String + Get + Return Me._unterlageNr + End Get + Set(value As String) + Me._unterlageNr = Value + End Set + End Property + + _ + Public Property AnerkennungKz() As String + Get + Return Me._anerkennungKz + End Get + Set(value As String) + Me._anerkennungKz = Value + End Set + End Property + + _ + Public Property AbschreibungKz() As String + Get + Return Me._abschreibungKz + End Get + Set(value As String) + Me._abschreibungKz = Value + End Set + End Property + + _ + Public Property EinbehaltenKz() As String + Get + Return Me._einbehaltenKz + End Get + Set(value As String) + Me._einbehaltenKz = Value + End Set + End Property + + _ + Public Property PeriodischeVorlageKz() As String + Get + Return Me._periodischeVorlageKz + End Get + Set(value As String) + Me._periodischeVorlageKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AngemeldeteUnterlageTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AngemeldeteUnterlageTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AngemeldeteUnterlageTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AngemeldeteUnterlageTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AngemeldeteUnterlageTAXTyp + Return CType(Serializer.Deserialize(s), AngemeldeteUnterlageTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AngemeldeteUnterlageTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AngemeldeteUnterlageTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + 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 AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp + 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 Class + + _ + Partial Public Class KursAbzugHinzuTAXTyp + +#Region "Private fields" + Private _artAbHinzu As String + + Private _angewandterKurs As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ArtAbHinzu() As String + Get + Return Me._artAbHinzu + End Get + Set(value As String) + Me._artAbHinzu = Value + End Set + End Property + + _ + Public Property AngewandterKurs() As Decimal + Get + Return Me._angewandterKurs + End Get + Set(value As Decimal) + Me._angewandterKurs = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KursAbzugHinzuTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KursAbzugHinzuTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KursAbzugHinzuTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KursAbzugHinzuTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KursAbzugHinzuTAXTyp + Return CType(Serializer.Deserialize(s), KursAbzugHinzuTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KursAbzugHinzuTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KursAbzugHinzuTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + 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 KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp + 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 Class + + _ + Partial Public Class PositionAbgabenbescheidEinfuhrTyp + +#Region "Private fields" + Private _positionsNr As String + + Private _erledigungKz As String + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _warenBezeichnung As String + + Private _beschauMitteilung As String + + Private _erledigungMitteilung As String + + Private _ablehnungAenderung As String + + Private _weitererNachweis As String + + Private _gewaehrteBeguenstigung As String + + Private _anordnungKz As String + + Private _eUStWert As Decimal + + Private _kostenFuerEUSt As Decimal + + Private _zollWert As Decimal + + Private _annahmeAenderung As String + + Private _sicherheitsLeistungBetrag As Decimal + + Private _registrierNrvZAAZ As String + + Private _positionsNrInvZAAZ As String + + Private _annahmeKz As String + + Private _annahmeDatum As Date + + Private _ueberlassungDatum As Date + + Private _lagerfrist As String + + Private _wiederAusfuhrFrist As Date + + Private _erledigungsfrist As Date + + Private _fristWeitererNachweis As Date + + Private _befund As String + + Private _dV1AbweichendFestgesetztKz As String + + Private _sonderfalleingabeKz As String + + Private _angewandterKursNettopreis As Decimal + + Private _angewandterKursMittelbZahlungen As Decimal + + Private _abzugHinzurechnungen As List(Of KursAbzugHinzuTAXTyp) + + Private _luftFrachtGesamtProzentsatz As String + + Private _luftFrachtGesamtAngewandterKurs As Decimal + + Private _angemeldeteUnterlage As List(Of AngemeldeteUnterlageTAXTyp) + + Private _sonderabgabenGruppe As List(Of SonderfalleingabeTAXTyp) + + Private _kontNrAngewandt As List(Of String) + + Private _kontingentAngerechnet As List(Of KontingentAngerechnetTAXTyp) + + Private _abweichendeFestsetzung As List(Of AbweichendeFestsetzungTAXTyp) + + Private _abgaben As List(Of AbgabengruppeTAXTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._abgaben = New List(Of AbgabengruppeTAXTyp)() + Me._abweichendeFestsetzung = New List(Of AbweichendeFestsetzungTAXTyp)() + Me._kontingentAngerechnet = New List(Of KontingentAngerechnetTAXTyp)() + Me._kontNrAngewandt = New List(Of String)() + Me._sonderabgabenGruppe = New List(Of SonderfalleingabeTAXTyp)() + Me._angemeldeteUnterlage = New List(Of AngemeldeteUnterlageTAXTyp)() + Me._abzugHinzurechnungen = New List(Of KursAbzugHinzuTAXTyp)() + Me._warenNummerZusatzCode = New List(Of String)() + End Sub + + _ + Public Property PositionsNr() As String + Get + Return Me._positionsNr + End Get + Set(value As String) + Me._positionsNr = Value + End Set + End Property + + _ + Public Property ErledigungKz() As String + Get + Return Me._erledigungKz + End Get + Set(value As String) + Me._erledigungKz = Value + End Set + End Property + + _ + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set(value As String) + Me._warenNummerEZT = Value + End Set + End Property + + _ + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set(value As List(Of String)) + Me._warenNummerZusatzCode = Value + End Set + End Property + + _ + Public Property WarenBezeichnung() As String + Get + Return Me._warenBezeichnung + End Get + Set(value As String) + Me._warenBezeichnung = Value + End Set + End Property + + _ + Public Property BeschauMitteilung() As String + Get + Return Me._beschauMitteilung + End Get + Set(value As String) + Me._beschauMitteilung = Value + End Set + End Property + + _ + Public Property ErledigungMitteilung() As String + Get + Return Me._erledigungMitteilung + End Get + Set(value As String) + Me._erledigungMitteilung = Value + End Set + End Property + + _ + Public Property AblehnungAenderung() As String + Get + Return Me._ablehnungAenderung + End Get + Set(value As String) + Me._ablehnungAenderung = Value + End Set + End Property + + _ + Public Property WeitererNachweis() As String + Get + Return Me._weitererNachweis + End Get + Set(value As String) + Me._weitererNachweis = Value + End Set + End Property + + _ + Public Property GewaehrteBeguenstigung() As String + Get + Return Me._gewaehrteBeguenstigung + End Get + Set(value As String) + Me._gewaehrteBeguenstigung = Value + End Set + End Property + + _ + Public Property AnordnungKz() As String + Get + Return Me._anordnungKz + End Get + Set(value As String) + Me._anordnungKz = Value + End Set + End Property + + _ + Public Property EUStWert() As Decimal + Get + Return Me._eUStWert + End Get + Set(value As Decimal) + Me._eUStWert = Value + End Set + End Property + + _ + Public Property KostenFuerEUSt() As Decimal + Get + Return Me._kostenFuerEUSt + End Get + Set(value As Decimal) + Me._kostenFuerEUSt = Value + End Set + End Property + + _ + Public Property ZollWert() As Decimal + Get + Return Me._zollWert + End Get + Set(value As Decimal) + Me._zollWert = Value + End Set + End Property + + _ + Public Property AnnahmeAenderung() As String + Get + Return Me._annahmeAenderung + End Get + Set(value As String) + Me._annahmeAenderung = Value + End Set + End Property + + _ + Public Property SicherheitsLeistungBetrag() As Decimal + Get + Return Me._sicherheitsLeistungBetrag + End Get + Set(value As Decimal) + Me._sicherheitsLeistungBetrag = Value + End Set + End Property + + _ + Public Property RegistrierNrvZAAZ() As String + Get + Return Me._registrierNrvZAAZ + End Get + Set(value As String) + Me._registrierNrvZAAZ = Value + End Set + End Property + + _ + Public Property PositionsNrInvZAAZ() As String + Get + Return Me._positionsNrInvZAAZ + End Get + Set(value As String) + Me._positionsNrInvZAAZ = Value + End Set + End Property + + _ + Public Property AnnahmeKz() As String + Get + Return Me._annahmeKz + End Get + Set(value As String) + Me._annahmeKz = Value + End Set + End Property + + _ + Public Property AnnahmeDatum() As Date + Get + Return Me._annahmeDatum + End Get + Set(value As Date) + Me._annahmeDatum = Value + End Set + End Property + + _ + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set(value As Date) + Me._ueberlassungDatum = Value + End Set + End Property + + _ + Public Property Lagerfrist() As String + Get + Return Me._lagerfrist + End Get + Set(value As String) + Me._lagerfrist = Value + End Set + End Property + + _ + Public Property WiederAusfuhrFrist() As Date + Get + Return Me._wiederAusfuhrFrist + End Get + Set(value As Date) + Me._wiederAusfuhrFrist = Value + End Set + End Property + + _ + Public Property Erledigungsfrist() As Date + Get + Return Me._erledigungsfrist + End Get + Set(value As Date) + Me._erledigungsfrist = Value + End Set + End Property + + _ + Public Property FristWeitererNachweis() As Date + Get + Return Me._fristWeitererNachweis + End Get + Set(value As Date) + Me._fristWeitererNachweis = Value + End Set + End Property + + _ + Public Property Befund() As String + Get + Return Me._befund + End Get + Set(value As String) + Me._befund = Value + End Set + End Property + + _ + Public Property DV1AbweichendFestgesetztKz() As String + Get + Return Me._dV1AbweichendFestgesetztKz + End Get + Set(value As String) + Me._dV1AbweichendFestgesetztKz = Value + End Set + End Property + + _ + Public Property SonderfalleingabeKz() As String + Get + Return Me._sonderfalleingabeKz + End Get + Set(value As String) + Me._sonderfalleingabeKz = Value + End Set + End Property + + _ + Public Property AngewandterKursNettopreis() As Decimal + Get + Return Me._angewandterKursNettopreis + End Get + Set(value As Decimal) + Me._angewandterKursNettopreis = Value + End Set + End Property + + _ + Public Property AngewandterKursMittelbZahlungen() As Decimal + Get + Return Me._angewandterKursMittelbZahlungen + End Get + Set(value As Decimal) + Me._angewandterKursMittelbZahlungen = Value + End Set + End Property + + _ + Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp) + Get + Return Me._abzugHinzurechnungen + End Get + Set(value As List(Of KursAbzugHinzuTAXTyp)) + Me._abzugHinzurechnungen = Value + End Set + End Property + + _ + Public Property LuftFrachtGesamtProzentsatz() As String + Get + Return Me._luftFrachtGesamtProzentsatz + End Get + Set(value As String) + Me._luftFrachtGesamtProzentsatz = Value + End Set + End Property + + _ + Public Property LuftFrachtGesamtAngewandterKurs() As Decimal + Get + Return Me._luftFrachtGesamtAngewandterKurs + End Get + Set(value As Decimal) + Me._luftFrachtGesamtAngewandterKurs = Value + End Set + End Property + + _ + Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp) + Get + Return Me._angemeldeteUnterlage + End Get + Set(value As List(Of AngemeldeteUnterlageTAXTyp)) + Me._angemeldeteUnterlage = Value + End Set + End Property + + _ + Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp) + Get + Return Me._sonderabgabenGruppe + End Get + Set(value As List(Of SonderfalleingabeTAXTyp)) + Me._sonderabgabenGruppe = Value + End Set + End Property + + _ + Public Property KontNrAngewandt() As List(Of String) + Get + Return Me._kontNrAngewandt + End Get + Set(value As List(Of String)) + Me._kontNrAngewandt = Value + End Set + End Property + + _ + Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp) + Get + Return Me._kontingentAngerechnet + End Get + Set(value As List(Of KontingentAngerechnetTAXTyp)) + Me._kontingentAngerechnet = Value + End Set + End Property + + _ + Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp) + Get + Return Me._abweichendeFestsetzung + End Get + Set(value As List(Of AbweichendeFestsetzungTAXTyp)) + Me._abweichendeFestsetzung = Value + End Set + End Property + + _ + Public Property Abgaben() As List(Of AbgabengruppeTAXTyp) + Get + Return Me._abgaben + End Get + Set(value As List(Of AbgabengruppeTAXTyp)) + Me._abgaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAbgabenbescheidEinfuhrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAbgabenbescheidEinfuhrTyp + Return CType(Serializer.Deserialize(s), PositionAbgabenbescheidEinfuhrTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + 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 PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp + 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 Class + + _ + Partial Public Class SicherheitTAXTyp + +#Region "Private fields" + Private _einzelbetragUnbareSicherheit As Decimal + + Private _artUnbareSicherheitsleistung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property EinzelbetragUnbareSicherheit() As Decimal + Get + Return Me._einzelbetragUnbareSicherheit + End Get + Set(value As Decimal) + Me._einzelbetragUnbareSicherheit = Value + End Set + End Property + + _ + Public Property ArtUnbareSicherheitsleistung() As String + Get + Return Me._artUnbareSicherheitsleistung + End Get + Set(value As String) + Me._artUnbareSicherheitsleistung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SicherheitTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitTAXTyp + Return CType(Serializer.Deserialize(s), SicherheitTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SicherheitTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + 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 SicherheitTAXTyp) 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 SicherheitTAXTyp + 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 Class + + _ + Partial Public Class AbgabenNachArtKopfTAXTyp + +#Region "Private fields" + Private _abgabeArt As String + + Private _abgabenbetrag As Decimal + + Private _zahlungsart As String + + Private _aufschubnehmerName As String + + Private _aufschubnehmerTIN As String + + Private _artAufschubAntrag As String + + Private _kennBuchstabenAufschub As String + + Private _aufschubkontoNr As String + + Private _faelligkeit As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set(value As String) + Me._abgabeArt = Value + End Set + End Property + + _ + Public Property Abgabenbetrag() As Decimal + Get + Return Me._abgabenbetrag + End Get + Set(value As Decimal) + Me._abgabenbetrag = Value + End Set + End Property + + _ + Public Property Zahlungsart() As String + Get + Return Me._zahlungsart + End Get + Set(value As String) + Me._zahlungsart = Value + End Set + End Property + + _ + Public Property AufschubnehmerName() As String + Get + Return Me._aufschubnehmerName + End Get + Set(value As String) + Me._aufschubnehmerName = Value + End Set + End Property + + _ + Public Property AufschubnehmerTIN() As String + Get + Return Me._aufschubnehmerTIN + End Get + Set(value As String) + Me._aufschubnehmerTIN = Value + End Set + End Property + + _ + Public Property ArtAufschubAntrag() As String + Get + Return Me._artAufschubAntrag + End Get + Set(value As String) + Me._artAufschubAntrag = Value + End Set + End Property + + _ + Public Property KennBuchstabenAufschub() As String + Get + Return Me._kennBuchstabenAufschub + End Get + Set(value As String) + Me._kennBuchstabenAufschub = Value + End Set + End Property + + _ + Public Property AufschubkontoNr() As String + Get + Return Me._aufschubkontoNr + End Get + Set(value As String) + Me._aufschubkontoNr = Value + End Set + End Property + + _ + Public Property Faelligkeit() As Date + Get + Return Me._faelligkeit + End Get + Set(value As Date) + Me._faelligkeit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenNachArtKopfTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabenNachArtKopfTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgabenNachArtKopfTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenNachArtKopfTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenNachArtKopfTAXTyp + Return CType(Serializer.Deserialize(s), AbgabenNachArtKopfTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenNachArtKopfTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgabenNachArtKopfTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + 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 AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp + 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 Class + + _ + Partial Public Class KopfDatenEinfuhrbescheidTyp + +#Region "Private fields" + Private _artAnmeldung As String + + Private _erledigungKopfKz As String + + Private _waehrung As String + + Private _gesamtabgabenBetrag As Decimal + + Private _abgabenbetragZuZahlen As Decimal + + Private _abgabenbetragZuErstatten As Decimal + + Private _vertretungsverhaeltnis As String + + Private _zahlungsaufforderungArtAufschub As String + + Private _zahlungsaufforderungArtAbgaben As String + + Private _zahlungsaufforderungArtSicherheit As String + + Private _kleinbetragKz As String + + Private _kleinbetragRechtsbehelf As String + + Private _gesamtschuldnerschaftKz As String + + Private _eingangszollstelleGeaendertKz As String + + Private _benutzererstelltKz As String + + Private _eUStKz As String + + Private _ustID As String + + Private _registriernummer As String + + Private _registrierdatum As Date + + Private _nizzaRegistrierKz As String + + Private _nizzaRegistrierKzSicherheit As String + + Private _abgabenNachArt As List(Of AbgabenNachArtKopfTAXTyp) + + Private _gesamtsicherheitssumme As Decimal + + Private _errechneteSicherheitsSumme As Decimal + + Private _unbarSicherheitsbetraege As Decimal + + Private _barSicherheitsbetraege As Decimal + + Private _freizugebenSicherheit As Decimal + + Private _auszuzahlenSicherheit As Decimal + + Private _einbehaltenSicherheit As Decimal + + Private _sicherheitsleistungForm As String + + Private _sicherheitsleistungsVerzicht As String + + Private _auszahlungsArt As String + + Private _unbareSicherheiten As List(Of SicherheitTAXTyp) + + Private _bescheidendeDienststelleNr As String + + Private _bescheidendeDienststelleName As String + + Private _bescheidendeDienststelleStrasseHausNr As String + + Private _bescheidendeDienststelleOrtS As String + + Private _bescheidendeDienststellePLZS As String + + Private _bearbeiter As String + + Private _bescheidendeDienststelleTelefonNr As String + + Private _rechtsbehelfHauptzollamt As String + + Private _rechtsbehelfHZAEmailAdresse As String + + Private _rechtsbehelfHauptzollamtStrHausNr As String + + Private _rechtsbehelfHauptzollamtPLZS As String + + Private _rechtsbehelfHauptzollamtOrtS As String + + Private _rechtsbehelfHauptzollamtOrtsteil As String + + Private _rechtsbehelfHauptzollamtPostfach As String + + Private _rechtsbehelfHauptzollamtPLZP As String + + Private _rechtsbehelfHauptzollamtOrtP As String + + Private _zollzahlstelle As String + + Private _zollzahlstelleKreditinstitut As String + + Private _zollzahlstelleStrasseHausNr As String + + Private _zollzahlstellePLZS As String + + Private _zollzahlstelleOrtS As String + + Private _zollzahlstellePostfach As String + + Private _zollzahlstellePLZP As String + + Private _zollzahlstelleOrtP As String + + Private _zollzahlstelleIBAN As String + + Private _zollzahlstelleBIC As String + + Private _anmelderEORI As String + + Private _anmelderNLNR As String + + Private _vorsteuerabzugKz As String + + Private _anmelderName As String + + Private _anmelderNationalitaet As String + + Private _anmelderStrasseHausNr As String + + Private _anmelderPLZS As String + + Private _anmelderOrtS As String + + Private _anmelderOrtsteil As String + + Private _vertreterEORI As String + + Private _vertreterNLNR As String + + Private _vertreterName As String + + Private _vertreterNationalitaet As String + + Private _vertreterStrasseHausNr As String + + Private _vertreterPLZS As String + + Private _vertreterOrtS As String + + Private _vertreterOrtsteil As String + + Private _fRechnungEORI As String + + Private _fRechnungNLNR As String + + Private _fRechnungNationalitaet As String + + Private _fRechnungName As String + + Private _fRechnungStrasseHausNr As String + + Private _fRechnungPLZS As String + + Private _fRechnungOrtS As String + + Private _fRechnungOrtsteil As String + + Private _lagerhalterEORI As String + + Private _lagerhalterNLNR As String + + Private _lagerhalterName As String + + Private _lagerhalterStrasseHausNr As String + + Private _lagerhalterNationalitaet As String + + Private _lagerhalterPLZ As String + + Private _lagerhalterOrt As String + + Private _lagerhalterOrtsteil As String + + Private _empfaengerEORI As String + + Private _empfaengerNLNR As String + + Private _empfaengerNationalitaet As String + + Private _empfaengerName As String + + Private _empfaengerStrasseHausNr As String + + Private _empfaengerPLZS As String + + Private _empfaengerOrtS As String + + Private _empfaengerOrtsteil As String + + Private _zahlungsEmpfaengerEORI As String + + Private _zahlungsEmpfaengerNLNR As String + + Private _zahlungsEmpfaengerKreditinstitut As String + + Private _zahlungsEmpfaengerName As String + + Private _zahlungsEmpfaengerNationalitaet As String + + Private _zahlungsEmpfaengerStrasseHausNr As String + + Private _zahlungsEmpfaengerPLZS As String + + Private _zahlungsEmpfaengerOrtS As String + + Private _zahlungsEmpfaengerOrtsteil As String + + Private _zahlungsEmpfaengerIBAN As String + + Private _zahlungsEmpfaengerBIC As String + + Private _erstellungsDatumBefund As Date + + Private _erfassungsdatum As Date + + Private _barzahlungFaelligkeit As Date + + Private _sicherheitsleistungFaelligkeit As String + + Private _abrechnungszeitraumBeginn As Date + + Private _abrechnungszeitraumEnde As Date + + Private _zollbefund As String + + Private _lieferbedingungCode As String + + Private _lieferbedingungText As String + + Private _lieferbedingungOrt As String + + Private _lieferbedingungSchluessel As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._unbareSicherheiten = New List(Of SicherheitTAXTyp)() + Me._abgabenNachArt = New List(Of AbgabenNachArtKopfTAXTyp)() + End Sub + + _ + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set(value As String) + Me._artAnmeldung = Value + End Set + End Property + + _ + Public Property ErledigungKopfKz() As String + Get + Return Me._erledigungKopfKz + End Get + Set(value As String) + Me._erledigungKopfKz = Value + End Set + End Property + + _ + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set(value As String) + Me._waehrung = Value + End Set + End Property + + _ + Public Property GesamtabgabenBetrag() As Decimal + Get + Return Me._gesamtabgabenBetrag + End Get + Set(value As Decimal) + Me._gesamtabgabenBetrag = Value + End Set + End Property + + _ + Public Property AbgabenbetragZuZahlen() As Decimal + Get + Return Me._abgabenbetragZuZahlen + End Get + Set(value As Decimal) + Me._abgabenbetragZuZahlen = Value + End Set + End Property + + _ + Public Property AbgabenbetragZuErstatten() As Decimal + Get + Return Me._abgabenbetragZuErstatten + End Get + Set(value As Decimal) + Me._abgabenbetragZuErstatten = Value + End Set + End Property + + _ + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set(value As String) + Me._vertretungsverhaeltnis = Value + End Set + End Property + + _ + Public Property ZahlungsaufforderungArtAufschub() As String + Get + Return Me._zahlungsaufforderungArtAufschub + End Get + Set(value As String) + Me._zahlungsaufforderungArtAufschub = Value + End Set + End Property + + _ + Public Property ZahlungsaufforderungArtAbgaben() As String + Get + Return Me._zahlungsaufforderungArtAbgaben + End Get + Set(value As String) + Me._zahlungsaufforderungArtAbgaben = Value + End Set + End Property + + _ + Public Property ZahlungsaufforderungArtSicherheit() As String + Get + Return Me._zahlungsaufforderungArtSicherheit + End Get + Set(value As String) + Me._zahlungsaufforderungArtSicherheit = Value + End Set + End Property + + _ + Public Property KleinbetragKz() As String + Get + Return Me._kleinbetragKz + End Get + Set(value As String) + Me._kleinbetragKz = Value + End Set + End Property + + _ + Public Property KleinbetragRechtsbehelf() As String + Get + Return Me._kleinbetragRechtsbehelf + End Get + Set(value As String) + Me._kleinbetragRechtsbehelf = Value + End Set + End Property + + _ + Public Property GesamtschuldnerschaftKz() As String + Get + Return Me._gesamtschuldnerschaftKz + End Get + Set(value As String) + Me._gesamtschuldnerschaftKz = Value + End Set + End Property + + _ + Public Property EingangszollstelleGeaendertKz() As String + Get + Return Me._eingangszollstelleGeaendertKz + End Get + Set(value As String) + Me._eingangszollstelleGeaendertKz = Value + End Set + End Property + + _ + Public Property BenutzererstelltKz() As String + Get + Return Me._benutzererstelltKz + End Get + Set(value As String) + Me._benutzererstelltKz = Value + End Set + End Property + + _ + Public Property EUStKz() As String + Get + Return Me._eUStKz + End Get + Set(value As String) + Me._eUStKz = Value + End Set + End Property + + _ + Public Property UstID() As String + Get + Return Me._ustID + End Get + Set(value As String) + Me._ustID = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set(value As Date) + Me._registrierdatum = Value + End Set + End Property + + _ + Public Property NizzaRegistrierKz() As String + Get + Return Me._nizzaRegistrierKz + End Get + Set(value As String) + Me._nizzaRegistrierKz = Value + End Set + End Property + + _ + Public Property NizzaRegistrierKzSicherheit() As String + Get + Return Me._nizzaRegistrierKzSicherheit + End Get + Set(value As String) + Me._nizzaRegistrierKzSicherheit = Value + End Set + End Property + + _ + Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp) + Get + Return Me._abgabenNachArt + End Get + Set(value As List(Of AbgabenNachArtKopfTAXTyp)) + Me._abgabenNachArt = Value + End Set + End Property + + _ + Public Property Gesamtsicherheitssumme() As Decimal + Get + Return Me._gesamtsicherheitssumme + End Get + Set(value As Decimal) + Me._gesamtsicherheitssumme = Value + End Set + End Property + + _ + Public Property ErrechneteSicherheitsSumme() As Decimal + Get + Return Me._errechneteSicherheitsSumme + End Get + Set(value As Decimal) + Me._errechneteSicherheitsSumme = Value + End Set + End Property + + _ + Public Property UnbarSicherheitsbetraege() As Decimal + Get + Return Me._unbarSicherheitsbetraege + End Get + Set(value As Decimal) + Me._unbarSicherheitsbetraege = Value + End Set + End Property + + _ + Public Property BarSicherheitsbetraege() As Decimal + Get + Return Me._barSicherheitsbetraege + End Get + Set(value As Decimal) + Me._barSicherheitsbetraege = Value + End Set + End Property + + _ + Public Property FreizugebenSicherheit() As Decimal + Get + Return Me._freizugebenSicherheit + End Get + Set(value As Decimal) + Me._freizugebenSicherheit = Value + End Set + End Property + + _ + Public Property AuszuzahlenSicherheit() As Decimal + Get + Return Me._auszuzahlenSicherheit + End Get + Set(value As Decimal) + Me._auszuzahlenSicherheit = Value + End Set + End Property + + _ + Public Property EinbehaltenSicherheit() As Decimal + Get + Return Me._einbehaltenSicherheit + End Get + Set(value As Decimal) + Me._einbehaltenSicherheit = Value + End Set + End Property + + _ + Public Property SicherheitsleistungForm() As String + Get + Return Me._sicherheitsleistungForm + End Get + Set(value As String) + Me._sicherheitsleistungForm = Value + End Set + End Property + + _ + Public Property SicherheitsleistungsVerzicht() As String + Get + Return Me._sicherheitsleistungsVerzicht + End Get + Set(value As String) + Me._sicherheitsleistungsVerzicht = Value + End Set + End Property + + _ + Public Property AuszahlungsArt() As String + Get + Return Me._auszahlungsArt + End Get + Set(value As String) + Me._auszahlungsArt = Value + End Set + End Property + + _ + Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp) + Get + Return Me._unbareSicherheiten + End Get + Set(value As List(Of SicherheitTAXTyp)) + Me._unbareSicherheiten = Value + End Set + End Property + + _ + Public Property BescheidendeDienststelleNr() As String + Get + Return Me._bescheidendeDienststelleNr + End Get + Set(value As String) + Me._bescheidendeDienststelleNr = Value + End Set + End Property + + _ + Public Property BescheidendeDienststelleName() As String + Get + Return Me._bescheidendeDienststelleName + End Get + Set(value As String) + Me._bescheidendeDienststelleName = Value + End Set + End Property + + _ + Public Property BescheidendeDienststelleStrasseHausNr() As String + Get + Return Me._bescheidendeDienststelleStrasseHausNr + End Get + Set(value As String) + Me._bescheidendeDienststelleStrasseHausNr = Value + End Set + End Property + + _ + Public Property BescheidendeDienststelleOrtS() As String + Get + Return Me._bescheidendeDienststelleOrtS + End Get + Set(value As String) + Me._bescheidendeDienststelleOrtS = Value + End Set + End Property + + _ + Public Property BescheidendeDienststellePLZS() As String + Get + Return Me._bescheidendeDienststellePLZS + End Get + Set(value As String) + Me._bescheidendeDienststellePLZS = Value + End Set + End Property + + _ + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set(value As String) + Me._bearbeiter = Value + End Set + End Property + + _ + Public Property BescheidendeDienststelleTelefonNr() As String + Get + Return Me._bescheidendeDienststelleTelefonNr + End Get + Set(value As String) + Me._bescheidendeDienststelleTelefonNr = Value + End Set + End Property + + _ + Public Property RechtsbehelfHauptzollamt() As String + Get + Return Me._rechtsbehelfHauptzollamt + End Get + Set(value As String) + Me._rechtsbehelfHauptzollamt = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZAEmailAdresse() As String + Get + Return Me._rechtsbehelfHZAEmailAdresse + End Get + Set(value As String) + Me._rechtsbehelfHZAEmailAdresse = Value + End Set + End Property + + _ + Public Property RechtsbehelfHauptzollamtStrHausNr() As String + Get + Return Me._rechtsbehelfHauptzollamtStrHausNr + End Get + Set(value As String) + Me._rechtsbehelfHauptzollamtStrHausNr = Value + End Set + End Property + + _ + Public Property RechtsbehelfHauptzollamtPLZS() As String + Get + Return Me._rechtsbehelfHauptzollamtPLZS + End Get + Set(value As String) + Me._rechtsbehelfHauptzollamtPLZS = Value + End Set + End Property + + _ + Public Property RechtsbehelfHauptzollamtOrtS() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtS + End Get + Set(value As String) + Me._rechtsbehelfHauptzollamtOrtS = Value + End Set + End Property + + _ + Public Property RechtsbehelfHauptzollamtOrtsteil() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtsteil + End Get + Set(value As String) + Me._rechtsbehelfHauptzollamtOrtsteil = Value + End Set + End Property + + _ + Public Property RechtsbehelfHauptzollamtPostfach() As String + Get + Return Me._rechtsbehelfHauptzollamtPostfach + End Get + Set(value As String) + Me._rechtsbehelfHauptzollamtPostfach = Value + End Set + End Property + + _ + Public Property RechtsbehelfHauptzollamtPLZP() As String + Get + Return Me._rechtsbehelfHauptzollamtPLZP + End Get + Set(value As String) + Me._rechtsbehelfHauptzollamtPLZP = Value + End Set + End Property + + _ + Public Property RechtsbehelfHauptzollamtOrtP() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtP + End Get + Set(value As String) + Me._rechtsbehelfHauptzollamtOrtP = Value + End Set + End Property + + _ + Public Property Zollzahlstelle() As String + Get + Return Me._zollzahlstelle + End Get + Set(value As String) + Me._zollzahlstelle = Value + End Set + End Property + + _ + Public Property ZollzahlstelleKreditinstitut() As String + Get + Return Me._zollzahlstelleKreditinstitut + End Get + Set(value As String) + Me._zollzahlstelleKreditinstitut = Value + End Set + End Property + + _ + Public Property ZollzahlstelleStrasseHausNr() As String + Get + Return Me._zollzahlstelleStrasseHausNr + End Get + Set(value As String) + Me._zollzahlstelleStrasseHausNr = Value + End Set + End Property + + _ + Public Property ZollzahlstellePLZS() As String + Get + Return Me._zollzahlstellePLZS + End Get + Set(value As String) + Me._zollzahlstellePLZS = Value + End Set + End Property + + _ + Public Property ZollzahlstelleOrtS() As String + Get + Return Me._zollzahlstelleOrtS + End Get + Set(value As String) + Me._zollzahlstelleOrtS = Value + End Set + End Property + + _ + Public Property ZollzahlstellePostfach() As String + Get + Return Me._zollzahlstellePostfach + End Get + Set(value As String) + Me._zollzahlstellePostfach = Value + End Set + End Property + + _ + Public Property ZollzahlstellePLZP() As String + Get + Return Me._zollzahlstellePLZP + End Get + Set(value As String) + Me._zollzahlstellePLZP = Value + End Set + End Property + + _ + Public Property ZollzahlstelleOrtP() As String + Get + Return Me._zollzahlstelleOrtP + End Get + Set(value As String) + Me._zollzahlstelleOrtP = Value + End Set + End Property + + _ + Public Property ZollzahlstelleIBAN() As String + Get + Return Me._zollzahlstelleIBAN + End Get + Set(value As String) + Me._zollzahlstelleIBAN = Value + End Set + End Property + + _ + Public Property ZollzahlstelleBIC() As String + Get + Return Me._zollzahlstelleBIC + End Get + Set(value As String) + Me._zollzahlstelleBIC = Value + End Set + End Property + + _ + Public Property AnmelderEORI() As String + Get + Return Me._anmelderEORI + End Get + Set(value As String) + Me._anmelderEORI = Value + End Set + End Property + + _ + Public Property AnmelderNLNR() As String + Get + Return Me._anmelderNLNR + End Get + Set(value As String) + Me._anmelderNLNR = Value + End Set + End Property + + _ + Public Property VorsteuerabzugKz() As String + Get + Return Me._vorsteuerabzugKz + End Get + Set(value As String) + Me._vorsteuerabzugKz = Value + End Set + End Property + + _ + Public Property AnmelderName() As String + Get + Return Me._anmelderName + End Get + Set(value As String) + Me._anmelderName = Value + End Set + End Property + + _ + Public Property AnmelderNationalitaet() As String + Get + Return Me._anmelderNationalitaet + End Get + Set(value As String) + Me._anmelderNationalitaet = Value + End Set + End Property + + _ + Public Property AnmelderStrasseHausNr() As String + Get + Return Me._anmelderStrasseHausNr + End Get + Set(value As String) + Me._anmelderStrasseHausNr = Value + End Set + End Property + + _ + Public Property AnmelderPLZS() As String + Get + Return Me._anmelderPLZS + End Get + Set(value As String) + Me._anmelderPLZS = Value + End Set + End Property + + _ + Public Property AnmelderOrtS() As String + Get + Return Me._anmelderOrtS + End Get + Set(value As String) + Me._anmelderOrtS = Value + End Set + End Property + + _ + Public Property AnmelderOrtsteil() As String + Get + Return Me._anmelderOrtsteil + End Get + Set(value As String) + Me._anmelderOrtsteil = Value + End Set + End Property + + _ + Public Property VertreterEORI() As String + Get + Return Me._vertreterEORI + End Get + Set(value As String) + Me._vertreterEORI = Value + End Set + End Property + + _ + Public Property VertreterNLNR() As String + Get + Return Me._vertreterNLNR + End Get + Set(value As String) + Me._vertreterNLNR = Value + End Set + End Property + + _ + Public Property VertreterName() As String + Get + Return Me._vertreterName + End Get + Set(value As String) + Me._vertreterName = Value + End Set + End Property + + _ + Public Property VertreterNationalitaet() As String + Get + Return Me._vertreterNationalitaet + End Get + Set(value As String) + Me._vertreterNationalitaet = Value + End Set + End Property + + _ + Public Property VertreterStrasseHausNr() As String + Get + Return Me._vertreterStrasseHausNr + End Get + Set(value As String) + Me._vertreterStrasseHausNr = Value + End Set + End Property + + _ + Public Property VertreterPLZS() As String + Get + Return Me._vertreterPLZS + End Get + Set(value As String) + Me._vertreterPLZS = Value + End Set + End Property + + _ + Public Property VertreterOrtS() As String + Get + Return Me._vertreterOrtS + End Get + Set(value As String) + Me._vertreterOrtS = Value + End Set + End Property + + _ + Public Property VertreterOrtsteil() As String + Get + Return Me._vertreterOrtsteil + End Get + Set(value As String) + Me._vertreterOrtsteil = Value + End Set + End Property + + _ + Public Property FRechnungEORI() As String + Get + Return Me._fRechnungEORI + End Get + Set(value As String) + Me._fRechnungEORI = Value + End Set + End Property + + _ + Public Property FRechnungNLNR() As String + Get + Return Me._fRechnungNLNR + End Get + Set(value As String) + Me._fRechnungNLNR = Value + End Set + End Property + + _ + Public Property FRechnungNationalitaet() As String + Get + Return Me._fRechnungNationalitaet + End Get + Set(value As String) + Me._fRechnungNationalitaet = Value + End Set + End Property + + _ + Public Property FRechnungName() As String + Get + Return Me._fRechnungName + End Get + Set(value As String) + Me._fRechnungName = Value + End Set + End Property + + _ + Public Property FRechnungStrasseHausNr() As String + Get + Return Me._fRechnungStrasseHausNr + End Get + Set(value As String) + Me._fRechnungStrasseHausNr = Value + End Set + End Property + + _ + Public Property FRechnungPLZS() As String + Get + Return Me._fRechnungPLZS + End Get + Set(value As String) + Me._fRechnungPLZS = Value + End Set + End Property + + _ + Public Property FRechnungOrtS() As String + Get + Return Me._fRechnungOrtS + End Get + Set(value As String) + Me._fRechnungOrtS = Value + End Set + End Property + + _ + Public Property FRechnungOrtsteil() As String + Get + Return Me._fRechnungOrtsteil + End Get + Set(value As String) + Me._fRechnungOrtsteil = Value + End Set + End Property + + _ + Public Property LagerhalterEORI() As String + Get + Return Me._lagerhalterEORI + End Get + Set(value As String) + Me._lagerhalterEORI = Value + End Set + End Property + + _ + Public Property LagerhalterNLNR() As String + Get + Return Me._lagerhalterNLNR + End Get + Set(value As String) + Me._lagerhalterNLNR = Value + End Set + End Property + + _ + Public Property LagerhalterName() As String + Get + Return Me._lagerhalterName + End Get + Set(value As String) + Me._lagerhalterName = Value + End Set + End Property + + _ + Public Property LagerhalterStrasseHausNr() As String + Get + Return Me._lagerhalterStrasseHausNr + End Get + Set(value As String) + Me._lagerhalterStrasseHausNr = Value + End Set + End Property + + _ + Public Property LagerhalterNationalitaet() As String + Get + Return Me._lagerhalterNationalitaet + End Get + Set(value As String) + Me._lagerhalterNationalitaet = Value + End Set + End Property + + _ + Public Property LagerhalterPLZ() As String + Get + Return Me._lagerhalterPLZ + End Get + Set(value As String) + Me._lagerhalterPLZ = Value + End Set + End Property + + _ + Public Property LagerhalterOrt() As String + Get + Return Me._lagerhalterOrt + End Get + Set(value As String) + Me._lagerhalterOrt = Value + End Set + End Property + + _ + Public Property LagerhalterOrtsteil() As String + Get + Return Me._lagerhalterOrtsteil + End Get + Set(value As String) + Me._lagerhalterOrtsteil = Value + End Set + End Property + + _ + Public Property EmpfaengerEORI() As String + Get + Return Me._empfaengerEORI + End Get + Set(value As String) + Me._empfaengerEORI = Value + End Set + End Property + + _ + Public Property EmpfaengerNLNR() As String + Get + Return Me._empfaengerNLNR + End Get + Set(value As String) + Me._empfaengerNLNR = Value + End Set + End Property + + _ + Public Property EmpfaengerNationalitaet() As String + Get + Return Me._empfaengerNationalitaet + End Get + Set(value As String) + Me._empfaengerNationalitaet = Value + End Set + End Property + + _ + Public Property EmpfaengerName() As String + Get + Return Me._empfaengerName + End Get + Set(value As String) + Me._empfaengerName = Value + End Set + End Property + + _ + Public Property EmpfaengerStrasseHausNr() As String + Get + Return Me._empfaengerStrasseHausNr + End Get + Set(value As String) + Me._empfaengerStrasseHausNr = Value + End Set + End Property + + _ + Public Property EmpfaengerPLZS() As String + Get + Return Me._empfaengerPLZS + End Get + Set(value As String) + Me._empfaengerPLZS = Value + End Set + End Property + + _ + Public Property EmpfaengerOrtS() As String + Get + Return Me._empfaengerOrtS + End Get + Set(value As String) + Me._empfaengerOrtS = Value + End Set + End Property + + _ + Public Property EmpfaengerOrtsteil() As String + Get + Return Me._empfaengerOrtsteil + End Get + Set(value As String) + Me._empfaengerOrtsteil = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerEORI() As String + Get + Return Me._zahlungsEmpfaengerEORI + End Get + Set(value As String) + Me._zahlungsEmpfaengerEORI = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerNLNR() As String + Get + Return Me._zahlungsEmpfaengerNLNR + End Get + Set(value As String) + Me._zahlungsEmpfaengerNLNR = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerKreditinstitut() As String + Get + Return Me._zahlungsEmpfaengerKreditinstitut + End Get + Set(value As String) + Me._zahlungsEmpfaengerKreditinstitut = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerName() As String + Get + Return Me._zahlungsEmpfaengerName + End Get + Set(value As String) + Me._zahlungsEmpfaengerName = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerNationalitaet() As String + Get + Return Me._zahlungsEmpfaengerNationalitaet + End Get + Set(value As String) + Me._zahlungsEmpfaengerNationalitaet = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerStrasseHausNr() As String + Get + Return Me._zahlungsEmpfaengerStrasseHausNr + End Get + Set(value As String) + Me._zahlungsEmpfaengerStrasseHausNr = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerPLZS() As String + Get + Return Me._zahlungsEmpfaengerPLZS + End Get + Set(value As String) + Me._zahlungsEmpfaengerPLZS = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerOrtS() As String + Get + Return Me._zahlungsEmpfaengerOrtS + End Get + Set(value As String) + Me._zahlungsEmpfaengerOrtS = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerOrtsteil() As String + Get + Return Me._zahlungsEmpfaengerOrtsteil + End Get + Set(value As String) + Me._zahlungsEmpfaengerOrtsteil = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerIBAN() As String + Get + Return Me._zahlungsEmpfaengerIBAN + End Get + Set(value As String) + Me._zahlungsEmpfaengerIBAN = Value + End Set + End Property + + _ + Public Property ZahlungsEmpfaengerBIC() As String + Get + Return Me._zahlungsEmpfaengerBIC + End Get + Set(value As String) + Me._zahlungsEmpfaengerBIC = Value + End Set + End Property + + _ + Public Property ErstellungsDatumBefund() As Date + Get + Return Me._erstellungsDatumBefund + End Get + Set(value As Date) + Me._erstellungsDatumBefund = Value + End Set + End Property + + _ + Public Property Erfassungsdatum() As Date + Get + Return Me._erfassungsdatum + End Get + Set(value As Date) + Me._erfassungsdatum = Value + End Set + End Property + + _ + Public Property BarzahlungFaelligkeit() As Date + Get + Return Me._barzahlungFaelligkeit + End Get + Set(value As Date) + Me._barzahlungFaelligkeit = Value + End Set + End Property + + _ + Public Property SicherheitsleistungFaelligkeit() As String + Get + Return Me._sicherheitsleistungFaelligkeit + End Get + Set(value As String) + Me._sicherheitsleistungFaelligkeit = Value + End Set + End Property + + _ + Public Property AbrechnungszeitraumBeginn() As Date + Get + Return Me._abrechnungszeitraumBeginn + End Get + Set(value As Date) + Me._abrechnungszeitraumBeginn = Value + End Set + End Property + + _ + Public Property AbrechnungszeitraumEnde() As Date + Get + Return Me._abrechnungszeitraumEnde + End Get + Set(value As Date) + Me._abrechnungszeitraumEnde = Value + End Set + End Property + + _ + Public Property Zollbefund() As String + Get + Return Me._zollbefund + End Get + Set(value As String) + Me._zollbefund = Value + End Set + End Property + + _ + Public Property LieferbedingungCode() As String + Get + Return Me._lieferbedingungCode + End Get + Set(value As String) + Me._lieferbedingungCode = Value + End Set + End Property + + _ + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set(value As String) + Me._lieferbedingungText = Value + End Set + End Property + + _ + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set(value As String) + Me._lieferbedingungOrt = Value + End Set + End Property + + _ + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set(value As String) + Me._lieferbedingungSchluessel = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrbescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenEinfuhrbescheidTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenEinfuhrbescheidTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEinfuhrbescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEinfuhrbescheidTyp + Return CType(Serializer.Deserialize(s), KopfDatenEinfuhrbescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEinfuhrbescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenEinfuhrbescheidTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + 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 KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp + 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 Class + + _ + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionFreierVerkehrTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_007.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_007.xsd new file mode 100644 index 0000000..d367a59 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_007.xsd @@ -0,0 +1,513 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_008.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_008.Designer.vb new file mode 100644 index 0000000..6384e14 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_008.Designer.vb @@ -0,0 +1,6831 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' Abgabenbescheid_008ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace Abgabenbescheid_008 + + + Partial Public Class AbgabenbescheidEinfuhrTAXTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelAbgabenbescheid As EinzelAbgabenbescheidTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAbgabenbescheid = New EinzelAbgabenbescheidTyp() + End Sub + + + Public Property EinzelAbgabenbescheid() As EinzelAbgabenbescheidTyp + Get + Return Me._einzelAbgabenbescheid + End Get + Set + Me._einzelAbgabenbescheid = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenbescheidEinfuhrTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenbescheidEinfuhrTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenbescheidEinfuhrTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenbescheidEinfuhrTAXTyp + Return CType(Serializer.Deserialize(s), AbgabenbescheidEinfuhrTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenbescheidEinfuhrTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgabenbescheidEinfuhrTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabenbescheidEinfuhrTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenbescheidEinfuhrTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenbescheidEinfuhrTAXTyp) + 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 AbgabenbescheidEinfuhrTAXTyp) 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 AbgabenbescheidEinfuhrTAXTyp + 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 Class + + + Partial Public Class EinzelAbgabenbescheidTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXTyp + + Private _kopfDaten As KopfDatenEinfuhrbescheidTyp + + Private _position As List(Of PositionAbgabenbescheidEinfuhrTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionAbgabenbescheidEinfuhrTyp)() + Me._kopfDaten = New KopfDatenEinfuhrbescheidTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenEinfuhrbescheidTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionAbgabenbescheidEinfuhrTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenbescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelAbgabenbescheidTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelAbgabenbescheidTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenbescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenbescheidTyp + Return CType(Serializer.Deserialize(s), EinzelAbgabenbescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbgabenbescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelAbgabenbescheidTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelAbgabenbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenbescheidTyp) + 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 EinzelAbgabenbescheidTyp) 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 EinzelAbgabenbescheidTyp + 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 Class + + + Partial Public Class ObjektIdentifizierungTAXTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXTyp) + 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 ObjektIdentifizierungTAXTyp) 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 ObjektIdentifizierungTAXTyp + 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 Class + + + Partial Public Class EinzelAbgabenSatzTAXTyp + +#Region "Private fields" + Private _lfdNrAbgabensatz As List(Of String) + + Private _abgabensatz As List(Of Decimal) + + Private _bemessungsmassstab As List(Of String) + + Private _gehaltsangabenArt As List(Of String) + + Private _gehaltsangabenGradProzent As List(Of Decimal) + + Private _bemessungsgrundlageKz As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._bemessungsgrundlageKz = New List(Of String)() + Me._gehaltsangabenGradProzent = New List(Of Decimal)() + Me._gehaltsangabenArt = New List(Of String)() + Me._bemessungsmassstab = New List(Of String)() + Me._abgabensatz = New List(Of Decimal)() + Me._lfdNrAbgabensatz = New List(Of String)() + End Sub + + + Public Property LfdNrAbgabensatz() As List(Of String) + Get + Return Me._lfdNrAbgabensatz + End Get + Set + Me._lfdNrAbgabensatz = Value + End Set + End Property + + + Public Property Abgabensatz() As List(Of Decimal) + Get + Return Me._abgabensatz + End Get + Set + Me._abgabensatz = Value + End Set + End Property + + + Public Property Bemessungsmassstab() As List(Of String) + Get + Return Me._bemessungsmassstab + End Get + Set + Me._bemessungsmassstab = Value + End Set + End Property + + + Public Property GehaltsangabenArt() As List(Of String) + Get + Return Me._gehaltsangabenArt + End Get + Set + Me._gehaltsangabenArt = Value + End Set + End Property + + + Public Property GehaltsangabenGradProzent() As List(Of Decimal) + Get + Return Me._gehaltsangabenGradProzent + End Get + Set + Me._gehaltsangabenGradProzent = Value + End Set + End Property + + + Public Property BemessungsgrundlageKz() As List(Of String) + Get + Return Me._bemessungsgrundlageKz + End Get + Set + Me._bemessungsgrundlageKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbgabenSatzTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelAbgabenSatzTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelAbgabenSatzTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbgabenSatzTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbgabenSatzTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbgabenSatzTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbgabenSatzTAXTyp + Return CType(Serializer.Deserialize(s), EinzelAbgabenSatzTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbgabenSatzTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelAbgabenSatzTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelAbgabenSatzTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbgabenSatzTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbgabenSatzTAXTyp) + 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 EinzelAbgabenSatzTAXTyp) 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 EinzelAbgabenSatzTAXTyp + 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 Class + + + Partial Public Class AbgabengruppeTAXTyp + +#Region "Private fields" + Private _abgabengruppe As String + + Private _abgabeArt As String + + Private _berechnungshinweis As String + + Private _angewandterPVMinderungsBetrag As Decimal + + Private _errechneterAbgabenbetrag As Decimal + + Private _abgabenbetrag As Decimal + + Private _abgabensatzKontNr As String + + Private _verbrauchssteuerCode As String + + Private _verbrauchssteuerMenge As Decimal + + Private _verbrauchssteuerMasseinheit As String + + Private _verbrauchssteuerQualifikator As String + + Private _verbrauchssteuerGradProzent As Decimal + + Private _verbrauchssteuerWert As Decimal + + Private _einzelAbgabenSatz As List(Of EinzelAbgabenSatzTAXTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAbgabenSatz = New List(Of EinzelAbgabenSatzTAXTyp)() + End Sub + + + Public Property Abgabengruppe() As String + Get + Return Me._abgabengruppe + End Get + Set + Me._abgabengruppe = Value + End Set + End Property + + + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set + Me._abgabeArt = Value + End Set + End Property + + + Public Property Berechnungshinweis() As String + Get + Return Me._berechnungshinweis + End Get + Set + Me._berechnungshinweis = Value + End Set + End Property + + + Public Property AngewandterPVMinderungsBetrag() As Decimal + Get + Return Me._angewandterPVMinderungsBetrag + End Get + Set + Me._angewandterPVMinderungsBetrag = Value + End Set + End Property + + + Public Property ErrechneterAbgabenbetrag() As Decimal + Get + Return Me._errechneterAbgabenbetrag + End Get + Set + Me._errechneterAbgabenbetrag = Value + End Set + End Property + + + Public Property Abgabenbetrag() As Decimal + Get + Return Me._abgabenbetrag + End Get + Set + Me._abgabenbetrag = Value + End Set + End Property + + + Public Property AbgabensatzKontNr() As String + Get + Return Me._abgabensatzKontNr + End Get + Set + Me._abgabensatzKontNr = Value + End Set + End Property + + + Public Property VerbrauchssteuerCode() As String + Get + Return Me._verbrauchssteuerCode + End Get + Set + Me._verbrauchssteuerCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMenge() As Decimal + Get + Return Me._verbrauchssteuerMenge + End Get + Set + Me._verbrauchssteuerMenge = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheit() As String + Get + Return Me._verbrauchssteuerMasseinheit + End Get + Set + Me._verbrauchssteuerMasseinheit = Value + End Set + End Property + + + Public Property VerbrauchssteuerQualifikator() As String + Get + Return Me._verbrauchssteuerQualifikator + End Get + Set + Me._verbrauchssteuerQualifikator = Value + End Set + End Property + + + Public Property VerbrauchssteuerGradProzent() As Decimal + Get + Return Me._verbrauchssteuerGradProzent + End Get + Set + Me._verbrauchssteuerGradProzent = Value + End Set + End Property + + + Public Property VerbrauchssteuerWert() As Decimal + Get + Return Me._verbrauchssteuerWert + End Get + Set + Me._verbrauchssteuerWert = Value + End Set + End Property + + + Public Property EinzelAbgabenSatz() As List(Of EinzelAbgabenSatzTAXTyp) + Get + Return Me._einzelAbgabenSatz + End Get + Set + Me._einzelAbgabenSatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabengruppeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabengruppeTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgabengruppeTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabengruppeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabengruppeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabengruppeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabengruppeTAXTyp + Return CType(Serializer.Deserialize(s), AbgabengruppeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabengruppeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgabengruppeTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabengruppeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabengruppeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabengruppeTAXTyp) + 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 AbgabengruppeTAXTyp) 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 AbgabengruppeTAXTyp + 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 Class + + + Partial Public Class AbweichendeFestsetzungTAXTyp + +#Region "Private fields" + Private _feldname As String + + Private _qualifikator As String + + Private _qualifikatorInhalt As String + + Private _artAbweichendeFestsetzung As String + + Private _festgesetztVon As String + + Private _festgesetztAuf As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Feldname() As String + Get + Return Me._feldname + End Get + Set + Me._feldname = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + + Public Property QualifikatorInhalt() As String + Get + Return Me._qualifikatorInhalt + End Get + Set + Me._qualifikatorInhalt = Value + End Set + End Property + + + Public Property ArtAbweichendeFestsetzung() As String + Get + Return Me._artAbweichendeFestsetzung + End Get + Set + Me._artAbweichendeFestsetzung = Value + End Set + End Property + + + Public Property FestgesetztVon() As String + Get + Return Me._festgesetztVon + End Get + Set + Me._festgesetztVon = Value + End Set + End Property + + + Public Property FestgesetztAuf() As String + Get + Return Me._festgesetztAuf + End Get + Set + Me._festgesetztAuf = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbweichendeFestsetzungTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbweichendeFestsetzungTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbweichendeFestsetzungTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichendeFestsetzungTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichendeFestsetzungTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbweichendeFestsetzungTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichendeFestsetzungTAXTyp + Return CType(Serializer.Deserialize(s), AbweichendeFestsetzungTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbweichendeFestsetzungTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbweichendeFestsetzungTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbweichendeFestsetzungTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbweichendeFestsetzungTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichendeFestsetzungTAXTyp) + 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 AbweichendeFestsetzungTAXTyp) 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 AbweichendeFestsetzungTAXTyp + 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 Class + + + Partial Public Class KontingentAngerechnetWarenMengeTAXTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Menge() As String + Get + Return Me._menge + End Get + Set + Me._menge = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetWarenMengeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetWarenMengeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetWarenMengeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetWarenMengeTAXTyp + Return CType(Serializer.Deserialize(s), KontingentAngerechnetWarenMengeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KontingentAngerechnetWarenMengeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KontingentAngerechnetWarenMengeTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KontingentAngerechnetWarenMengeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetWarenMengeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetWarenMengeTAXTyp) + 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 KontingentAngerechnetWarenMengeTAXTyp) 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 KontingentAngerechnetWarenMengeTAXTyp + 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 Class + + + Partial Public Class KontingentAngerechnetTAXTyp + +#Region "Private fields" + Private _kontNrAngerechnet As String + + Private _zollwertAngerechnet As Decimal + + Private _eUStKostenAngerechnet As Decimal + + Private _beguenstMengeAngerechnet As Decimal + + Private _masseinhBegMengeAng As String + + Private _qualifBegMengeAng As String + + Private _warenMenge As List(Of KontingentAngerechnetWarenMengeTAXTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenMenge = New List(Of KontingentAngerechnetWarenMengeTAXTyp)() + End Sub + + + Public Property KontNrAngerechnet() As String + Get + Return Me._kontNrAngerechnet + End Get + Set + Me._kontNrAngerechnet = Value + End Set + End Property + + + Public Property ZollwertAngerechnet() As Decimal + Get + Return Me._zollwertAngerechnet + End Get + Set + Me._zollwertAngerechnet = Value + End Set + End Property + + + Public Property EUStKostenAngerechnet() As Decimal + Get + Return Me._eUStKostenAngerechnet + End Get + Set + Me._eUStKostenAngerechnet = Value + End Set + End Property + + + Public Property BeguenstMengeAngerechnet() As Decimal + Get + Return Me._beguenstMengeAngerechnet + End Get + Set + Me._beguenstMengeAngerechnet = Value + End Set + End Property + + + Public Property MasseinhBegMengeAng() As String + Get + Return Me._masseinhBegMengeAng + End Get + Set + Me._masseinhBegMengeAng = Value + End Set + End Property + + + Public Property QualifBegMengeAng() As String + Get + Return Me._qualifBegMengeAng + End Get + Set + Me._qualifBegMengeAng = Value + End Set + End Property + + + Public Property WarenMenge() As List(Of KontingentAngerechnetWarenMengeTAXTyp) + Get + Return Me._warenMenge + End Get + Set + Me._warenMenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KontingentAngerechnetTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KontingentAngerechnetTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KontingentAngerechnetTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KontingentAngerechnetTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KontingentAngerechnetTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KontingentAngerechnetTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KontingentAngerechnetTAXTyp + Return CType(Serializer.Deserialize(s), KontingentAngerechnetTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KontingentAngerechnetTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KontingentAngerechnetTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KontingentAngerechnetTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KontingentAngerechnetTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KontingentAngerechnetTAXTyp) + 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 KontingentAngerechnetTAXTyp) 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 KontingentAngerechnetTAXTyp + 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 Class + + + Partial Public Class SonderfalleingabeTAXTyp + +#Region "Private fields" + Private _sonderabgabenGruppe As String + + Private _anwendungsart As String + + Private _satzBetragFaktor As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property SonderabgabenGruppe() As String + Get + Return Me._sonderabgabenGruppe + End Get + Set + Me._sonderabgabenGruppe = Value + End Set + End Property + + + Public Property Anwendungsart() As String + Get + Return Me._anwendungsart + End Get + Set + Me._anwendungsart = Value + End Set + End Property + + + Public Property SatzBetragFaktor() As Decimal + Get + Return Me._satzBetragFaktor + End Get + Set + Me._satzBetragFaktor = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalleingabeTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SonderfalleingabeTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SonderfalleingabeTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalleingabeTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SonderfalleingabeTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SonderfalleingabeTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderfalleingabeTAXTyp + Return CType(Serializer.Deserialize(s), SonderfalleingabeTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderfalleingabeTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SonderfalleingabeTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SonderfalleingabeTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalleingabeTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalleingabeTAXTyp) + 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 SonderfalleingabeTAXTyp) 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 SonderfalleingabeTAXTyp + 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 Class + + + Partial Public Class EZAAVVeredelungserzeugnisTyp + +#Region "Private fields" + Private _warenbezeichnung As String + + Private _ausbeuteart As String + + Private _ausbeutesatz As String + + Private _kNCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set + Me._warenbezeichnung = Value + End Set + End Property + + + Public Property Ausbeuteart() As String + Get + Return Me._ausbeuteart + End Get + Set + Me._ausbeuteart = Value + End Set + End Property + + + Public Property Ausbeutesatz() As String + Get + Return Me._ausbeutesatz + End Get + Set + Me._ausbeutesatz = Value + End Set + End Property + + + Public Property KNCode() As String + Get + Return Me._kNCode + End Get + Set + Me._kNCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVVeredelungserzeugnisTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EZAAVVeredelungserzeugnisTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EZAAVVeredelungserzeugnisTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EZAAVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVVeredelungserzeugnisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVVeredelungserzeugnisTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVVeredelungserzeugnisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVVeredelungserzeugnisTyp + Return CType(Serializer.Deserialize(s), EZAAVVeredelungserzeugnisTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVVeredelungserzeugnisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EZAAVVeredelungserzeugnisTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EZAAVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVVeredelungserzeugnisTyp) + 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 EZAAVVeredelungserzeugnisTyp) 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 EZAAVVeredelungserzeugnisTyp + 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 Class + + + Partial Public Class EZAAVAngabenPosTyp + +#Region "Private fields" + Private _aVWirtschaftlicheVoraussetzungen As String + + Private _aVVeredelungserzeugnis As List(Of EZAAVVeredelungserzeugnisTyp) + + Private _aVNaemlichkeitsmittel As String + + Private _aVErlaeuterungNaemlichkeit As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._aVVeredelungserzeugnis = New List(Of EZAAVVeredelungserzeugnisTyp)() + End Sub + + + Public Property AVWirtschaftlicheVoraussetzungen() As String + Get + Return Me._aVWirtschaftlicheVoraussetzungen + End Get + Set + Me._aVWirtschaftlicheVoraussetzungen = Value + End Set + End Property + + + Public Property AVVeredelungserzeugnis() As List(Of EZAAVVeredelungserzeugnisTyp) + Get + Return Me._aVVeredelungserzeugnis + End Get + Set + Me._aVVeredelungserzeugnis = Value + End Set + End Property + + + Public Property AVNaemlichkeitsmittel() As String + Get + Return Me._aVNaemlichkeitsmittel + End Get + Set + Me._aVNaemlichkeitsmittel = Value + End Set + End Property + + + Public Property AVErlaeuterungNaemlichkeit() As String + Get + Return Me._aVErlaeuterungNaemlichkeit + End Get + Set + Me._aVErlaeuterungNaemlichkeit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenPosTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EZAAVAngabenPosTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EZAAVAngabenPosTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EZAAVAngabenPosTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenPosTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenPosTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenPosTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenPosTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenPosTyp + Return CType(Serializer.Deserialize(s), EZAAVAngabenPosTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVAngabenPosTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EZAAVAngabenPosTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EZAAVAngabenPosTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenPosTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenPosTyp) + 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 EZAAVAngabenPosTyp) 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 EZAAVAngabenPosTyp + 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 Class + + + Partial Public Class AngemeldeteUnterlageTAXTyp + +#Region "Private fields" + Private _unterlageArt As String + + Private _unterlageBereich As String + + Private _unterlageNr As String + + Private _anerkennungKz As String + + Private _abschreibungKz As String + + Private _einbehaltenKz As String + + Private _periodischeVorlageKz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property UnterlageArt() As String + Get + Return Me._unterlageArt + End Get + Set + Me._unterlageArt = Value + End Set + End Property + + + Public Property UnterlageBereich() As String + Get + Return Me._unterlageBereich + End Get + Set + Me._unterlageBereich = Value + End Set + End Property + + + Public Property UnterlageNr() As String + Get + Return Me._unterlageNr + End Get + Set + Me._unterlageNr = Value + End Set + End Property + + + Public Property AnerkennungKz() As String + Get + Return Me._anerkennungKz + End Get + Set + Me._anerkennungKz = Value + End Set + End Property + + + Public Property AbschreibungKz() As String + Get + Return Me._abschreibungKz + End Get + Set + Me._abschreibungKz = Value + End Set + End Property + + + Public Property EinbehaltenKz() As String + Get + Return Me._einbehaltenKz + End Get + Set + Me._einbehaltenKz = Value + End Set + End Property + + + Public Property PeriodischeVorlageKz() As String + Get + Return Me._periodischeVorlageKz + End Get + Set + Me._periodischeVorlageKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AngemeldeteUnterlageTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AngemeldeteUnterlageTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AngemeldeteUnterlageTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AngemeldeteUnterlageTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AngemeldeteUnterlageTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AngemeldeteUnterlageTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AngemeldeteUnterlageTAXTyp + Return CType(Serializer.Deserialize(s), AngemeldeteUnterlageTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AngemeldeteUnterlageTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AngemeldeteUnterlageTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AngemeldeteUnterlageTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AngemeldeteUnterlageTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AngemeldeteUnterlageTAXTyp) + 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 AngemeldeteUnterlageTAXTyp) 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 AngemeldeteUnterlageTAXTyp + 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 Class + + + Partial Public Class KursAbzugHinzuTAXTyp + +#Region "Private fields" + Private _artAbHinzu As String + + Private _angewandterKurs As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ArtAbHinzu() As String + Get + Return Me._artAbHinzu + End Get + Set + Me._artAbHinzu = Value + End Set + End Property + + + Public Property AngewandterKurs() As Decimal + Get + Return Me._angewandterKurs + End Get + Set + Me._angewandterKurs = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KursAbzugHinzuTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KursAbzugHinzuTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KursAbzugHinzuTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KursAbzugHinzuTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KursAbzugHinzuTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KursAbzugHinzuTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KursAbzugHinzuTAXTyp + Return CType(Serializer.Deserialize(s), KursAbzugHinzuTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current KursAbzugHinzuTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KursAbzugHinzuTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KursAbzugHinzuTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KursAbzugHinzuTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KursAbzugHinzuTAXTyp) + 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 KursAbzugHinzuTAXTyp) 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 KursAbzugHinzuTAXTyp + 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 Class + + + Partial Public Class PositionAbgabenbescheidEinfuhrTyp + +#Region "Private fields" + Private _positionsNr As String + + Private _erledigungKz As String + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _warenBezeichnung As String + + Private _beschauMitteilung As String + + Private _erledigungMitteilung As String + + Private _ablehnungAenderung As String + + Private _weitererNachweis As String + + Private _gewaehrteBeguenstigung As String + + Private _anordnungKz As String + + Private _eUStWert As Decimal + + Private _kostenFuerEUSt As Decimal + + Private _zollWert As Decimal + + Private _annahmeAenderung As String + + Private _sicherheitsLeistungBetrag As Decimal + + Private _registrierNrvZAAZ As String + + Private _positionsNrInvZAAZ As String + + Private _annahmeKz As String + + Private _annahmeDatum As Date + + Private _ueberlassungDatum As Date + + Private _lagerfrist As String + + Private _wiederAusfuhrFrist As Date + + Private _fristWeitererNachweis As Date + + Private _befund As String + + Private _dV1AbweichendFestgesetztKz As String + + Private _sonderfalleingabeKz As String + + Private _angewandterKursNettopreis As Decimal + + Private _angewandterKursMittelbZahlungen As Decimal + + Private _abzugHinzurechnungen As List(Of KursAbzugHinzuTAXTyp) + + Private _luftFrachtGesamtProzentsatz As String + + Private _luftFrachtGesamtAngewandterKurs As Decimal + + Private _angemeldeteUnterlage As List(Of AngemeldeteUnterlageTAXTyp) + + Private _eZAAVAngabenPos As EZAAVAngabenPosTyp + + Private _sonderabgabenGruppe As List(Of SonderfalleingabeTAXTyp) + + Private _kontNrAngewandt As List(Of String) + + Private _kontingentAngerechnet As List(Of KontingentAngerechnetTAXTyp) + + Private _abweichendeFestsetzung As List(Of AbweichendeFestsetzungTAXTyp) + + Private _abgaben As List(Of AbgabengruppeTAXTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._abgaben = New List(Of AbgabengruppeTAXTyp)() + Me._abweichendeFestsetzung = New List(Of AbweichendeFestsetzungTAXTyp)() + Me._kontingentAngerechnet = New List(Of KontingentAngerechnetTAXTyp)() + Me._kontNrAngewandt = New List(Of String)() + Me._sonderabgabenGruppe = New List(Of SonderfalleingabeTAXTyp)() + Me._eZAAVAngabenPos = New EZAAVAngabenPosTyp() + Me._angemeldeteUnterlage = New List(Of AngemeldeteUnterlageTAXTyp)() + Me._abzugHinzurechnungen = New List(Of KursAbzugHinzuTAXTyp)() + Me._warenNummerZusatzCode = New List(Of String)() + End Sub + + + Public Property PositionsNr() As String + Get + Return Me._positionsNr + End Get + Set + Me._positionsNr = Value + End Set + End Property + + + Public Property ErledigungKz() As String + Get + Return Me._erledigungKz + End Get + Set + Me._erledigungKz = Value + End Set + End Property + + + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set + Me._warenNummerEZT = Value + End Set + End Property + + + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set + Me._warenNummerZusatzCode = Value + End Set + End Property + + + Public Property WarenBezeichnung() As String + Get + Return Me._warenBezeichnung + End Get + Set + Me._warenBezeichnung = Value + End Set + End Property + + + Public Property BeschauMitteilung() As String + Get + Return Me._beschauMitteilung + End Get + Set + Me._beschauMitteilung = Value + End Set + End Property + + + Public Property ErledigungMitteilung() As String + Get + Return Me._erledigungMitteilung + End Get + Set + Me._erledigungMitteilung = Value + End Set + End Property + + + Public Property AblehnungAenderung() As String + Get + Return Me._ablehnungAenderung + End Get + Set + Me._ablehnungAenderung = Value + End Set + End Property + + + Public Property WeitererNachweis() As String + Get + Return Me._weitererNachweis + End Get + Set + Me._weitererNachweis = Value + End Set + End Property + + + Public Property GewaehrteBeguenstigung() As String + Get + Return Me._gewaehrteBeguenstigung + End Get + Set + Me._gewaehrteBeguenstigung = Value + End Set + End Property + + + Public Property AnordnungKz() As String + Get + Return Me._anordnungKz + End Get + Set + Me._anordnungKz = Value + End Set + End Property + + + Public Property EUStWert() As Decimal + Get + Return Me._eUStWert + End Get + Set + Me._eUStWert = Value + End Set + End Property + + + Public Property KostenFuerEUSt() As Decimal + Get + Return Me._kostenFuerEUSt + End Get + Set + Me._kostenFuerEUSt = Value + End Set + End Property + + + Public Property ZollWert() As Decimal + Get + Return Me._zollWert + End Get + Set + Me._zollWert = Value + End Set + End Property + + + Public Property AnnahmeAenderung() As String + Get + Return Me._annahmeAenderung + End Get + Set + Me._annahmeAenderung = Value + End Set + End Property + + + Public Property SicherheitsLeistungBetrag() As Decimal + Get + Return Me._sicherheitsLeistungBetrag + End Get + Set + Me._sicherheitsLeistungBetrag = Value + End Set + End Property + + + Public Property RegistrierNrvZAAZ() As String + Get + Return Me._registrierNrvZAAZ + End Get + Set + Me._registrierNrvZAAZ = Value + End Set + End Property + + + Public Property PositionsNrInvZAAZ() As String + Get + Return Me._positionsNrInvZAAZ + End Get + Set + Me._positionsNrInvZAAZ = Value + End Set + End Property + + + Public Property AnnahmeKz() As String + Get + Return Me._annahmeKz + End Get + Set + Me._annahmeKz = Value + End Set + End Property + + + Public Property AnnahmeDatum() As Date + Get + Return Me._annahmeDatum + End Get + Set + Me._annahmeDatum = Value + End Set + End Property + + + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set + Me._ueberlassungDatum = Value + End Set + End Property + + + Public Property Lagerfrist() As String + Get + Return Me._lagerfrist + End Get + Set + Me._lagerfrist = Value + End Set + End Property + + + Public Property WiederAusfuhrFrist() As Date + Get + Return Me._wiederAusfuhrFrist + End Get + Set + Me._wiederAusfuhrFrist = Value + End Set + End Property + + + Public Property FristWeitererNachweis() As Date + Get + Return Me._fristWeitererNachweis + End Get + Set + Me._fristWeitererNachweis = Value + End Set + End Property + + + Public Property Befund() As String + Get + Return Me._befund + End Get + Set + Me._befund = Value + End Set + End Property + + + Public Property DV1AbweichendFestgesetztKz() As String + Get + Return Me._dV1AbweichendFestgesetztKz + End Get + Set + Me._dV1AbweichendFestgesetztKz = Value + End Set + End Property + + + Public Property SonderfalleingabeKz() As String + Get + Return Me._sonderfalleingabeKz + End Get + Set + Me._sonderfalleingabeKz = Value + End Set + End Property + + + Public Property AngewandterKursNettopreis() As Decimal + Get + Return Me._angewandterKursNettopreis + End Get + Set + Me._angewandterKursNettopreis = Value + End Set + End Property + + + Public Property AngewandterKursMittelbZahlungen() As Decimal + Get + Return Me._angewandterKursMittelbZahlungen + End Get + Set + Me._angewandterKursMittelbZahlungen = Value + End Set + End Property + + + Public Property AbzugHinzurechnungen() As List(Of KursAbzugHinzuTAXTyp) + Get + Return Me._abzugHinzurechnungen + End Get + Set + Me._abzugHinzurechnungen = Value + End Set + End Property + + + Public Property LuftFrachtGesamtProzentsatz() As String + Get + Return Me._luftFrachtGesamtProzentsatz + End Get + Set + Me._luftFrachtGesamtProzentsatz = Value + End Set + End Property + + + Public Property LuftFrachtGesamtAngewandterKurs() As Decimal + Get + Return Me._luftFrachtGesamtAngewandterKurs + End Get + Set + Me._luftFrachtGesamtAngewandterKurs = Value + End Set + End Property + + + Public Property AngemeldeteUnterlage() As List(Of AngemeldeteUnterlageTAXTyp) + Get + Return Me._angemeldeteUnterlage + End Get + Set + Me._angemeldeteUnterlage = Value + End Set + End Property + + + Public Property EZAAVAngabenPos() As EZAAVAngabenPosTyp + Get + Return Me._eZAAVAngabenPos + End Get + Set + Me._eZAAVAngabenPos = Value + End Set + End Property + + + Public Property SonderabgabenGruppe() As List(Of SonderfalleingabeTAXTyp) + Get + Return Me._sonderabgabenGruppe + End Get + Set + Me._sonderabgabenGruppe = Value + End Set + End Property + + + Public Property KontNrAngewandt() As List(Of String) + Get + Return Me._kontNrAngewandt + End Get + Set + Me._kontNrAngewandt = Value + End Set + End Property + + + Public Property KontingentAngerechnet() As List(Of KontingentAngerechnetTAXTyp) + Get + Return Me._kontingentAngerechnet + End Get + Set + Me._kontingentAngerechnet = Value + End Set + End Property + + + Public Property AbweichendeFestsetzung() As List(Of AbweichendeFestsetzungTAXTyp) + Get + Return Me._abweichendeFestsetzung + End Get + Set + Me._abweichendeFestsetzung = Value + End Set + End Property + + + Public Property Abgaben() As List(Of AbgabengruppeTAXTyp) + Get + Return Me._abgaben + End Get + Set + Me._abgaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbgabenbescheidEinfuhrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAbgabenbescheidEinfuhrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAbgabenbescheidEinfuhrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAbgabenbescheidEinfuhrTyp + Return CType(Serializer.Deserialize(s), PositionAbgabenbescheidEinfuhrTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAbgabenbescheidEinfuhrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionAbgabenbescheidEinfuhrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionAbgabenbescheidEinfuhrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbgabenbescheidEinfuhrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbgabenbescheidEinfuhrTyp) + 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 PositionAbgabenbescheidEinfuhrTyp) 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 PositionAbgabenbescheidEinfuhrTyp + 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 Class + + + Partial Public Class EZAAVAngabenKopfWeitererVeredelungsortTyp + +#Region "Private fields" + Private _strasse As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ortsteil As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ortsteil() As String + Get + Return Me._ortsteil + End Get + Set + Me._ortsteil = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfWeitererVeredelungsortTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfWeitererVeredelungsortTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfWeitererVeredelungsortTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfWeitererVeredelungsortTyp + Return CType(Serializer.Deserialize(s), EZAAVAngabenKopfWeitererVeredelungsortTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVAngabenKopfWeitererVeredelungsortTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EZAAVAngabenKopfWeitererVeredelungsortTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfWeitererVeredelungsortTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfWeitererVeredelungsortTyp) + 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 EZAAVAngabenKopfWeitererVeredelungsortTyp) 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 EZAAVAngabenKopfWeitererVeredelungsortTyp + 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 Class + + + Partial Public Class EZAAVAngabenKopfTyp + +#Region "Private fields" + Private _kzBemessungEinfuhrabgabenbetrag As String + + Private _kzAbrechnung As String + + Private _kzVereinfBefoerderung As String + + Private _zusaetzlicheAngaben As String + + Private _kzVerzichtSicherheit As String + + Private _erlaeuterungenZurSicherheit As String + + Private _betragDerSicherheit As Decimal + + Private _deutschesUeHZA As String + + Private _einzelheitenGeplantVeredelungsvorgang As String + + Private _hauptbuchhaltungStrasse As String + + Private _hauptbuchhaltungLand As String + + Private _hauptbuchhaltungPLZ As String + + Private _hauptbuchhaltungOrt As String + + Private _hauptbuchhaltungOrtsteil As String + + Private _veredelungStrasse As String + + Private _veredelungLand As String + + Private _veredelungPLZ As String + + Private _veredelungOrt As String + + Private _veredelungOrtsteil As String + + Private _weitererVeredelungsort As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + + Private _zollstelleErledigung As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._zollstelleErledigung = New List(Of String)() + Me._weitererVeredelungsort = New List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp)() + End Sub + + + Public Property KzBemessungEinfuhrabgabenbetrag() As String + Get + Return Me._kzBemessungEinfuhrabgabenbetrag + End Get + Set + Me._kzBemessungEinfuhrabgabenbetrag = Value + End Set + End Property + + + Public Property KzAbrechnung() As String + Get + Return Me._kzAbrechnung + End Get + Set + Me._kzAbrechnung = Value + End Set + End Property + + + Public Property KzVereinfBefoerderung() As String + Get + Return Me._kzVereinfBefoerderung + End Get + Set + Me._kzVereinfBefoerderung = Value + End Set + End Property + + + Public Property ZusaetzlicheAngaben() As String + Get + Return Me._zusaetzlicheAngaben + End Get + Set + Me._zusaetzlicheAngaben = Value + End Set + End Property + + + Public Property KzVerzichtSicherheit() As String + Get + Return Me._kzVerzichtSicherheit + End Get + Set + Me._kzVerzichtSicherheit = Value + End Set + End Property + + + Public Property ErlaeuterungenZurSicherheit() As String + Get + Return Me._erlaeuterungenZurSicherheit + End Get + Set + Me._erlaeuterungenZurSicherheit = Value + End Set + End Property + + + Public Property BetragDerSicherheit() As Decimal + Get + Return Me._betragDerSicherheit + End Get + Set + Me._betragDerSicherheit = Value + End Set + End Property + + + Public Property DeutschesUeHZA() As String + Get + Return Me._deutschesUeHZA + End Get + Set + Me._deutschesUeHZA = Value + End Set + End Property + + + Public Property EinzelheitenGeplantVeredelungsvorgang() As String + Get + Return Me._einzelheitenGeplantVeredelungsvorgang + End Get + Set + Me._einzelheitenGeplantVeredelungsvorgang = Value + End Set + End Property + + + Public Property HauptbuchhaltungStrasse() As String + Get + Return Me._hauptbuchhaltungStrasse + End Get + Set + Me._hauptbuchhaltungStrasse = Value + End Set + End Property + + + Public Property HauptbuchhaltungLand() As String + Get + Return Me._hauptbuchhaltungLand + End Get + Set + Me._hauptbuchhaltungLand = Value + End Set + End Property + + + Public Property HauptbuchhaltungPLZ() As String + Get + Return Me._hauptbuchhaltungPLZ + End Get + Set + Me._hauptbuchhaltungPLZ = Value + End Set + End Property + + + Public Property HauptbuchhaltungOrt() As String + Get + Return Me._hauptbuchhaltungOrt + End Get + Set + Me._hauptbuchhaltungOrt = Value + End Set + End Property + + + Public Property HauptbuchhaltungOrtsteil() As String + Get + Return Me._hauptbuchhaltungOrtsteil + End Get + Set + Me._hauptbuchhaltungOrtsteil = Value + End Set + End Property + + + Public Property VeredelungStrasse() As String + Get + Return Me._veredelungStrasse + End Get + Set + Me._veredelungStrasse = Value + End Set + End Property + + + Public Property VeredelungLand() As String + Get + Return Me._veredelungLand + End Get + Set + Me._veredelungLand = Value + End Set + End Property + + + Public Property VeredelungPLZ() As String + Get + Return Me._veredelungPLZ + End Get + Set + Me._veredelungPLZ = Value + End Set + End Property + + + Public Property VeredelungOrt() As String + Get + Return Me._veredelungOrt + End Get + Set + Me._veredelungOrt = Value + End Set + End Property + + + Public Property VeredelungOrtsteil() As String + Get + Return Me._veredelungOrtsteil + End Get + Set + Me._veredelungOrtsteil = Value + End Set + End Property + + + Public Property WeitererVeredelungsort() As List(Of EZAAVAngabenKopfWeitererVeredelungsortTyp) + Get + Return Me._weitererVeredelungsort + End Get + Set + Me._weitererVeredelungsort = Value + End Set + End Property + + + Public Property ZollstelleErledigung() As List(Of String) + Get + Return Me._zollstelleErledigung + End Get + Set + Me._zollstelleErledigung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EZAAVAngabenKopfTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EZAAVAngabenKopfTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EZAAVAngabenKopfTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EZAAVAngabenKopfTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EZAAVAngabenKopfTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EZAAVAngabenKopfTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EZAAVAngabenKopfTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EZAAVAngabenKopfTyp + Return CType(Serializer.Deserialize(s), EZAAVAngabenKopfTyp) + End Function +#End Region + + ''' + ''' Serializes current EZAAVAngabenKopfTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EZAAVAngabenKopfTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EZAAVAngabenKopfTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EZAAVAngabenKopfTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EZAAVAngabenKopfTyp) + 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 EZAAVAngabenKopfTyp) 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 EZAAVAngabenKopfTyp + 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 Class + + + Partial Public Class SicherheitTAXTyp + +#Region "Private fields" + Private _einzelbetragUnbareSicherheit As Decimal + + Private _artUnbareSicherheitsleistung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property EinzelbetragUnbareSicherheit() As Decimal + Get + Return Me._einzelbetragUnbareSicherheit + End Get + Set + Me._einzelbetragUnbareSicherheit = Value + End Set + End Property + + + Public Property ArtUnbareSicherheitsleistung() As String + Get + Return Me._artUnbareSicherheitsleistung + End Get + Set + Me._artUnbareSicherheitsleistung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SicherheitTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitTAXTyp + Return CType(Serializer.Deserialize(s), SicherheitTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SicherheitTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitTAXTyp) + 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 SicherheitTAXTyp) 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 SicherheitTAXTyp + 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 Class + + + Partial Public Class AbgabenNachArtKopfTAXTyp + +#Region "Private fields" + Private _abgabeArt As String + + Private _abgabenbetrag As Decimal + + Private _zahlungsart As String + + Private _aufschubnehmerName As String + + Private _aufschubnehmerTIN As String + + Private _artAufschubAntrag As String + + Private _kennBuchstabenAufschub As String + + Private _aufschubkontoNr As String + + Private _faelligkeit As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set + Me._abgabeArt = Value + End Set + End Property + + + Public Property Abgabenbetrag() As Decimal + Get + Return Me._abgabenbetrag + End Get + Set + Me._abgabenbetrag = Value + End Set + End Property + + + Public Property Zahlungsart() As String + Get + Return Me._zahlungsart + End Get + Set + Me._zahlungsart = Value + End Set + End Property + + + Public Property AufschubnehmerName() As String + Get + Return Me._aufschubnehmerName + End Get + Set + Me._aufschubnehmerName = Value + End Set + End Property + + + Public Property AufschubnehmerTIN() As String + Get + Return Me._aufschubnehmerTIN + End Get + Set + Me._aufschubnehmerTIN = Value + End Set + End Property + + + Public Property ArtAufschubAntrag() As String + Get + Return Me._artAufschubAntrag + End Get + Set + Me._artAufschubAntrag = Value + End Set + End Property + + + Public Property KennBuchstabenAufschub() As String + Get + Return Me._kennBuchstabenAufschub + End Get + Set + Me._kennBuchstabenAufschub = Value + End Set + End Property + + + Public Property AufschubkontoNr() As String + Get + Return Me._aufschubkontoNr + End Get + Set + Me._aufschubkontoNr = Value + End Set + End Property + + + Public Property Faelligkeit() As Date + Get + Return Me._faelligkeit + End Get + Set + Me._faelligkeit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenNachArtKopfTAXTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabenNachArtKopfTAXTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgabenNachArtKopfTAXTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenNachArtKopfTAXTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenNachArtKopfTAXTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenNachArtKopfTAXTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenNachArtKopfTAXTyp + Return CType(Serializer.Deserialize(s), AbgabenNachArtKopfTAXTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenNachArtKopfTAXTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgabenNachArtKopfTAXTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabenNachArtKopfTAXTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenNachArtKopfTAXTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenNachArtKopfTAXTyp) + 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 AbgabenNachArtKopfTAXTyp) 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 AbgabenNachArtKopfTAXTyp + 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 Class + + + Partial Public Class KopfDatenEinfuhrbescheidTyp + +#Region "Private fields" + Private _artAnmeldung As String + + Private _erledigungKopfKz As String + + Private _waehrung As String + + Private _gesamtabgabenBetrag As Decimal + + Private _abgabenbetragZuZahlen As Decimal + + Private _abgabenbetragZuErstatten As Decimal + + Private _vertretungsverhaeltnis As String + + Private _zahlungsaufforderungArtAufschub As String + + Private _zahlungsaufforderungArtAbgaben As String + + Private _zahlungsaufforderungArtSicherheit As String + + Private _kleinbetragKz As String + + Private _kleinbetragRechtsbehelf As String + + Private _gesamtschuldnerschaftKz As String + + Private _eingangszollstelleGeaendertKz As String + + Private _aVbewilligtKz As String + + Private _benutzererstelltKz As String + + Private _eUStKz As String + + Private _ustID As String + + Private _registriernummer As String + + Private _registrierdatum As Date + + Private _nizzaRegistrierKz As String + + Private _nizzaRegistrierKzSicherheit As String + + Private _abgabenNachArt As List(Of AbgabenNachArtKopfTAXTyp) + + Private _gesamtsicherheitssumme As Decimal + + Private _errechneteSicherheitsSumme As Decimal + + Private _unbarSicherheitsbetraege As Decimal + + Private _barSicherheitsbetraege As Decimal + + Private _freizugebenSicherheit As Decimal + + Private _auszuzahlenSicherheit As Decimal + + Private _einbehaltenSicherheit As Decimal + + Private _sicherheitsleistungForm As String + + Private _sicherheitsleistungsVerzicht As String + + Private _auszahlungsArt As String + + Private _unbareSicherheiten As List(Of SicherheitTAXTyp) + + Private _bescheidendeDienststelleNr As String + + Private _bescheidendeDienststelleName As String + + Private _bescheidendeDienststelleStrasseHausNr As String + + Private _bescheidendeDienststelleOrtS As String + + Private _bescheidendeDienststellePLZS As String + + Private _bearbeiter As String + + Private _bescheidendeDienststelleTelefonNr As String + + Private _rechtsbehelfHauptzollamt As String + + Private _rechtsbehelfHZAEmailAdresse As String + + Private _rechtsbehelfHauptzollamtStrHausNr As String + + Private _rechtsbehelfHauptzollamtPLZS As String + + Private _rechtsbehelfHauptzollamtOrtS As String + + Private _rechtsbehelfHauptzollamtOrtsteil As String + + Private _rechtsbehelfHauptzollamtPostfach As String + + Private _rechtsbehelfHauptzollamtPLZP As String + + Private _rechtsbehelfHauptzollamtOrtP As String + + Private _zollzahlstelle As String + + Private _zollzahlstelleKreditinstitut As String + + Private _zollzahlstelleStrasseHausNr As String + + Private _zollzahlstellePLZS As String + + Private _zollzahlstelleOrtS As String + + Private _zollzahlstellePostfach As String + + Private _zollzahlstellePLZP As String + + Private _zollzahlstelleOrtP As String + + Private _zollzahlstelleIBAN As String + + Private _zollzahlstelleBIC As String + + Private _anmelderEORI As String + + Private _anmelderNLNR As String + + Private _vorsteuerabzugKz As String + + Private _anmelderName As String + + Private _anmelderNationalitaet As String + + Private _anmelderStrasseHausNr As String + + Private _anmelderPLZS As String + + Private _anmelderOrtS As String + + Private _anmelderOrtsteil As String + + Private _vertreterEORI As String + + Private _vertreterNLNR As String + + Private _vertreterName As String + + Private _vertreterNationalitaet As String + + Private _vertreterStrasseHausNr As String + + Private _vertreterPLZS As String + + Private _vertreterOrtS As String + + Private _vertreterOrtsteil As String + + Private _fRechnungEORI As String + + Private _fRechnungNLNR As String + + Private _fRechnungNationalitaet As String + + Private _fRechnungName As String + + Private _fRechnungStrasseHausNr As String + + Private _fRechnungPLZS As String + + Private _fRechnungOrtS As String + + Private _fRechnungOrtsteil As String + + Private _lagerhalterEORI As String + + Private _lagerhalterNLNR As String + + Private _lagerhalterName As String + + Private _lagerhalterStrasseHausNr As String + + Private _lagerhalterNationalitaet As String + + Private _lagerhalterPLZ As String + + Private _lagerhalterOrt As String + + Private _lagerhalterOrtsteil As String + + Private _empfaengerEORI As String + + Private _empfaengerNLNR As String + + Private _empfaengerNationalitaet As String + + Private _empfaengerName As String + + Private _empfaengerStrasseHausNr As String + + Private _empfaengerPLZS As String + + Private _empfaengerOrtS As String + + Private _empfaengerOrtsteil As String + + Private _zahlungsEmpfaengerEORI As String + + Private _zahlungsEmpfaengerNLNR As String + + Private _zahlungsEmpfaengerKreditinstitut As String + + Private _zahlungsEmpfaengerName As String + + Private _zahlungsEmpfaengerNationalitaet As String + + Private _zahlungsEmpfaengerStrasseHausNr As String + + Private _zahlungsEmpfaengerPLZS As String + + Private _zahlungsEmpfaengerOrtS As String + + Private _zahlungsEmpfaengerOrtsteil As String + + Private _zahlungsEmpfaengerIBAN As String + + Private _zahlungsEmpfaengerBIC As String + + Private _erstellungsDatumBefund As Date + + Private _erfassungsdatum As Date + + Private _barzahlungFaelligkeit As Date + + Private _sicherheitsleistungFaelligkeit As String + + Private _abrechnungszeitraumBeginn As Date + + Private _abrechnungszeitraumEnde As Date + + Private _zollbefund As String + + Private _eZAAVAngabenKopf As EZAAVAngabenKopfTyp + + Private _lieferbedingungCode As String + + Private _lieferbedingungText As String + + Private _lieferbedingungOrt As String + + Private _lieferbedingungSchluessel As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._eZAAVAngabenKopf = New EZAAVAngabenKopfTyp() + Me._unbareSicherheiten = New List(Of SicherheitTAXTyp)() + Me._abgabenNachArt = New List(Of AbgabenNachArtKopfTAXTyp)() + End Sub + + + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set + Me._artAnmeldung = Value + End Set + End Property + + + Public Property ErledigungKopfKz() As String + Get + Return Me._erledigungKopfKz + End Get + Set + Me._erledigungKopfKz = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property GesamtabgabenBetrag() As Decimal + Get + Return Me._gesamtabgabenBetrag + End Get + Set + Me._gesamtabgabenBetrag = Value + End Set + End Property + + + Public Property AbgabenbetragZuZahlen() As Decimal + Get + Return Me._abgabenbetragZuZahlen + End Get + Set + Me._abgabenbetragZuZahlen = Value + End Set + End Property + + + Public Property AbgabenbetragZuErstatten() As Decimal + Get + Return Me._abgabenbetragZuErstatten + End Get + Set + Me._abgabenbetragZuErstatten = Value + End Set + End Property + + + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set + Me._vertretungsverhaeltnis = Value + End Set + End Property + + + Public Property ZahlungsaufforderungArtAufschub() As String + Get + Return Me._zahlungsaufforderungArtAufschub + End Get + Set + Me._zahlungsaufforderungArtAufschub = Value + End Set + End Property + + + Public Property ZahlungsaufforderungArtAbgaben() As String + Get + Return Me._zahlungsaufforderungArtAbgaben + End Get + Set + Me._zahlungsaufforderungArtAbgaben = Value + End Set + End Property + + + Public Property ZahlungsaufforderungArtSicherheit() As String + Get + Return Me._zahlungsaufforderungArtSicherheit + End Get + Set + Me._zahlungsaufforderungArtSicherheit = Value + End Set + End Property + + + Public Property KleinbetragKz() As String + Get + Return Me._kleinbetragKz + End Get + Set + Me._kleinbetragKz = Value + End Set + End Property + + + Public Property KleinbetragRechtsbehelf() As String + Get + Return Me._kleinbetragRechtsbehelf + End Get + Set + Me._kleinbetragRechtsbehelf = Value + End Set + End Property + + + Public Property GesamtschuldnerschaftKz() As String + Get + Return Me._gesamtschuldnerschaftKz + End Get + Set + Me._gesamtschuldnerschaftKz = Value + End Set + End Property + + + Public Property EingangszollstelleGeaendertKz() As String + Get + Return Me._eingangszollstelleGeaendertKz + End Get + Set + Me._eingangszollstelleGeaendertKz = Value + End Set + End Property + + + Public Property AVbewilligtKz() As String + Get + Return Me._aVbewilligtKz + End Get + Set + Me._aVbewilligtKz = Value + End Set + End Property + + + Public Property BenutzererstelltKz() As String + Get + Return Me._benutzererstelltKz + End Get + Set + Me._benutzererstelltKz = Value + End Set + End Property + + + Public Property EUStKz() As String + Get + Return Me._eUStKz + End Get + Set + Me._eUStKz = Value + End Set + End Property + + + Public Property UstID() As String + Get + Return Me._ustID + End Get + Set + Me._ustID = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set + Me._registrierdatum = Value + End Set + End Property + + + Public Property NizzaRegistrierKz() As String + Get + Return Me._nizzaRegistrierKz + End Get + Set + Me._nizzaRegistrierKz = Value + End Set + End Property + + + Public Property NizzaRegistrierKzSicherheit() As String + Get + Return Me._nizzaRegistrierKzSicherheit + End Get + Set + Me._nizzaRegistrierKzSicherheit = Value + End Set + End Property + + + Public Property AbgabenNachArt() As List(Of AbgabenNachArtKopfTAXTyp) + Get + Return Me._abgabenNachArt + End Get + Set + Me._abgabenNachArt = Value + End Set + End Property + + + Public Property Gesamtsicherheitssumme() As Decimal + Get + Return Me._gesamtsicherheitssumme + End Get + Set + Me._gesamtsicherheitssumme = Value + End Set + End Property + + + Public Property ErrechneteSicherheitsSumme() As Decimal + Get + Return Me._errechneteSicherheitsSumme + End Get + Set + Me._errechneteSicherheitsSumme = Value + End Set + End Property + + + Public Property UnbarSicherheitsbetraege() As Decimal + Get + Return Me._unbarSicherheitsbetraege + End Get + Set + Me._unbarSicherheitsbetraege = Value + End Set + End Property + + + Public Property BarSicherheitsbetraege() As Decimal + Get + Return Me._barSicherheitsbetraege + End Get + Set + Me._barSicherheitsbetraege = Value + End Set + End Property + + + Public Property FreizugebenSicherheit() As Decimal + Get + Return Me._freizugebenSicherheit + End Get + Set + Me._freizugebenSicherheit = Value + End Set + End Property + + + Public Property AuszuzahlenSicherheit() As Decimal + Get + Return Me._auszuzahlenSicherheit + End Get + Set + Me._auszuzahlenSicherheit = Value + End Set + End Property + + + Public Property EinbehaltenSicherheit() As Decimal + Get + Return Me._einbehaltenSicherheit + End Get + Set + Me._einbehaltenSicherheit = Value + End Set + End Property + + + Public Property SicherheitsleistungForm() As String + Get + Return Me._sicherheitsleistungForm + End Get + Set + Me._sicherheitsleistungForm = Value + End Set + End Property + + + Public Property SicherheitsleistungsVerzicht() As String + Get + Return Me._sicherheitsleistungsVerzicht + End Get + Set + Me._sicherheitsleistungsVerzicht = Value + End Set + End Property + + + Public Property AuszahlungsArt() As String + Get + Return Me._auszahlungsArt + End Get + Set + Me._auszahlungsArt = Value + End Set + End Property + + + Public Property UnbareSicherheiten() As List(Of SicherheitTAXTyp) + Get + Return Me._unbareSicherheiten + End Get + Set + Me._unbareSicherheiten = Value + End Set + End Property + + + Public Property BescheidendeDienststelleNr() As String + Get + Return Me._bescheidendeDienststelleNr + End Get + Set + Me._bescheidendeDienststelleNr = Value + End Set + End Property + + + Public Property BescheidendeDienststelleName() As String + Get + Return Me._bescheidendeDienststelleName + End Get + Set + Me._bescheidendeDienststelleName = Value + End Set + End Property + + + Public Property BescheidendeDienststelleStrasseHausNr() As String + Get + Return Me._bescheidendeDienststelleStrasseHausNr + End Get + Set + Me._bescheidendeDienststelleStrasseHausNr = Value + End Set + End Property + + + Public Property BescheidendeDienststelleOrtS() As String + Get + Return Me._bescheidendeDienststelleOrtS + End Get + Set + Me._bescheidendeDienststelleOrtS = Value + End Set + End Property + + + Public Property BescheidendeDienststellePLZS() As String + Get + Return Me._bescheidendeDienststellePLZS + End Get + Set + Me._bescheidendeDienststellePLZS = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property BescheidendeDienststelleTelefonNr() As String + Get + Return Me._bescheidendeDienststelleTelefonNr + End Get + Set + Me._bescheidendeDienststelleTelefonNr = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamt() As String + Get + Return Me._rechtsbehelfHauptzollamt + End Get + Set + Me._rechtsbehelfHauptzollamt = Value + End Set + End Property + + + Public Property RechtsbehelfHZAEmailAdresse() As String + Get + Return Me._rechtsbehelfHZAEmailAdresse + End Get + Set + Me._rechtsbehelfHZAEmailAdresse = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtStrHausNr() As String + Get + Return Me._rechtsbehelfHauptzollamtStrHausNr + End Get + Set + Me._rechtsbehelfHauptzollamtStrHausNr = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtPLZS() As String + Get + Return Me._rechtsbehelfHauptzollamtPLZS + End Get + Set + Me._rechtsbehelfHauptzollamtPLZS = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtOrtS() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtS + End Get + Set + Me._rechtsbehelfHauptzollamtOrtS = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtOrtsteil() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtsteil + End Get + Set + Me._rechtsbehelfHauptzollamtOrtsteil = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtPostfach() As String + Get + Return Me._rechtsbehelfHauptzollamtPostfach + End Get + Set + Me._rechtsbehelfHauptzollamtPostfach = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtPLZP() As String + Get + Return Me._rechtsbehelfHauptzollamtPLZP + End Get + Set + Me._rechtsbehelfHauptzollamtPLZP = Value + End Set + End Property + + + Public Property RechtsbehelfHauptzollamtOrtP() As String + Get + Return Me._rechtsbehelfHauptzollamtOrtP + End Get + Set + Me._rechtsbehelfHauptzollamtOrtP = Value + End Set + End Property + + + Public Property Zollzahlstelle() As String + Get + Return Me._zollzahlstelle + End Get + Set + Me._zollzahlstelle = Value + End Set + End Property + + + Public Property ZollzahlstelleKreditinstitut() As String + Get + Return Me._zollzahlstelleKreditinstitut + End Get + Set + Me._zollzahlstelleKreditinstitut = Value + End Set + End Property + + + Public Property ZollzahlstelleStrasseHausNr() As String + Get + Return Me._zollzahlstelleStrasseHausNr + End Get + Set + Me._zollzahlstelleStrasseHausNr = Value + End Set + End Property + + + Public Property ZollzahlstellePLZS() As String + Get + Return Me._zollzahlstellePLZS + End Get + Set + Me._zollzahlstellePLZS = Value + End Set + End Property + + + Public Property ZollzahlstelleOrtS() As String + Get + Return Me._zollzahlstelleOrtS + End Get + Set + Me._zollzahlstelleOrtS = Value + End Set + End Property + + + Public Property ZollzahlstellePostfach() As String + Get + Return Me._zollzahlstellePostfach + End Get + Set + Me._zollzahlstellePostfach = Value + End Set + End Property + + + Public Property ZollzahlstellePLZP() As String + Get + Return Me._zollzahlstellePLZP + End Get + Set + Me._zollzahlstellePLZP = Value + End Set + End Property + + + Public Property ZollzahlstelleOrtP() As String + Get + Return Me._zollzahlstelleOrtP + End Get + Set + Me._zollzahlstelleOrtP = Value + End Set + End Property + + + Public Property ZollzahlstelleIBAN() As String + Get + Return Me._zollzahlstelleIBAN + End Get + Set + Me._zollzahlstelleIBAN = Value + End Set + End Property + + + Public Property ZollzahlstelleBIC() As String + Get + Return Me._zollzahlstelleBIC + End Get + Set + Me._zollzahlstelleBIC = Value + End Set + End Property + + + Public Property AnmelderEORI() As String + Get + Return Me._anmelderEORI + End Get + Set + Me._anmelderEORI = Value + End Set + End Property + + + Public Property AnmelderNLNR() As String + Get + Return Me._anmelderNLNR + End Get + Set + Me._anmelderNLNR = Value + End Set + End Property + + + Public Property VorsteuerabzugKz() As String + Get + Return Me._vorsteuerabzugKz + End Get + Set + Me._vorsteuerabzugKz = Value + End Set + End Property + + + Public Property AnmelderName() As String + Get + Return Me._anmelderName + End Get + Set + Me._anmelderName = Value + End Set + End Property + + + Public Property AnmelderNationalitaet() As String + Get + Return Me._anmelderNationalitaet + End Get + Set + Me._anmelderNationalitaet = Value + End Set + End Property + + + Public Property AnmelderStrasseHausNr() As String + Get + Return Me._anmelderStrasseHausNr + End Get + Set + Me._anmelderStrasseHausNr = Value + End Set + End Property + + + Public Property AnmelderPLZS() As String + Get + Return Me._anmelderPLZS + End Get + Set + Me._anmelderPLZS = Value + End Set + End Property + + + Public Property AnmelderOrtS() As String + Get + Return Me._anmelderOrtS + End Get + Set + Me._anmelderOrtS = Value + End Set + End Property + + + Public Property AnmelderOrtsteil() As String + Get + Return Me._anmelderOrtsteil + End Get + Set + Me._anmelderOrtsteil = Value + End Set + End Property + + + Public Property VertreterEORI() As String + Get + Return Me._vertreterEORI + End Get + Set + Me._vertreterEORI = Value + End Set + End Property + + + Public Property VertreterNLNR() As String + Get + Return Me._vertreterNLNR + End Get + Set + Me._vertreterNLNR = Value + End Set + End Property + + + Public Property VertreterName() As String + Get + Return Me._vertreterName + End Get + Set + Me._vertreterName = Value + End Set + End Property + + + Public Property VertreterNationalitaet() As String + Get + Return Me._vertreterNationalitaet + End Get + Set + Me._vertreterNationalitaet = Value + End Set + End Property + + + Public Property VertreterStrasseHausNr() As String + Get + Return Me._vertreterStrasseHausNr + End Get + Set + Me._vertreterStrasseHausNr = Value + End Set + End Property + + + Public Property VertreterPLZS() As String + Get + Return Me._vertreterPLZS + End Get + Set + Me._vertreterPLZS = Value + End Set + End Property + + + Public Property VertreterOrtS() As String + Get + Return Me._vertreterOrtS + End Get + Set + Me._vertreterOrtS = Value + End Set + End Property + + + Public Property VertreterOrtsteil() As String + Get + Return Me._vertreterOrtsteil + End Get + Set + Me._vertreterOrtsteil = Value + End Set + End Property + + + Public Property FRechnungEORI() As String + Get + Return Me._fRechnungEORI + End Get + Set + Me._fRechnungEORI = Value + End Set + End Property + + + Public Property FRechnungNLNR() As String + Get + Return Me._fRechnungNLNR + End Get + Set + Me._fRechnungNLNR = Value + End Set + End Property + + + Public Property FRechnungNationalitaet() As String + Get + Return Me._fRechnungNationalitaet + End Get + Set + Me._fRechnungNationalitaet = Value + End Set + End Property + + + Public Property FRechnungName() As String + Get + Return Me._fRechnungName + End Get + Set + Me._fRechnungName = Value + End Set + End Property + + + Public Property FRechnungStrasseHausNr() As String + Get + Return Me._fRechnungStrasseHausNr + End Get + Set + Me._fRechnungStrasseHausNr = Value + End Set + End Property + + + Public Property FRechnungPLZS() As String + Get + Return Me._fRechnungPLZS + End Get + Set + Me._fRechnungPLZS = Value + End Set + End Property + + + Public Property FRechnungOrtS() As String + Get + Return Me._fRechnungOrtS + End Get + Set + Me._fRechnungOrtS = Value + End Set + End Property + + + Public Property FRechnungOrtsteil() As String + Get + Return Me._fRechnungOrtsteil + End Get + Set + Me._fRechnungOrtsteil = Value + End Set + End Property + + + Public Property LagerhalterEORI() As String + Get + Return Me._lagerhalterEORI + End Get + Set + Me._lagerhalterEORI = Value + End Set + End Property + + + Public Property LagerhalterNLNR() As String + Get + Return Me._lagerhalterNLNR + End Get + Set + Me._lagerhalterNLNR = Value + End Set + End Property + + + Public Property LagerhalterName() As String + Get + Return Me._lagerhalterName + End Get + Set + Me._lagerhalterName = Value + End Set + End Property + + + Public Property LagerhalterStrasseHausNr() As String + Get + Return Me._lagerhalterStrasseHausNr + End Get + Set + Me._lagerhalterStrasseHausNr = Value + End Set + End Property + + + Public Property LagerhalterNationalitaet() As String + Get + Return Me._lagerhalterNationalitaet + End Get + Set + Me._lagerhalterNationalitaet = Value + End Set + End Property + + + Public Property LagerhalterPLZ() As String + Get + Return Me._lagerhalterPLZ + End Get + Set + Me._lagerhalterPLZ = Value + End Set + End Property + + + Public Property LagerhalterOrt() As String + Get + Return Me._lagerhalterOrt + End Get + Set + Me._lagerhalterOrt = Value + End Set + End Property + + + Public Property LagerhalterOrtsteil() As String + Get + Return Me._lagerhalterOrtsteil + End Get + Set + Me._lagerhalterOrtsteil = Value + End Set + End Property + + + Public Property EmpfaengerEORI() As String + Get + Return Me._empfaengerEORI + End Get + Set + Me._empfaengerEORI = Value + End Set + End Property + + + Public Property EmpfaengerNLNR() As String + Get + Return Me._empfaengerNLNR + End Get + Set + Me._empfaengerNLNR = Value + End Set + End Property + + + Public Property EmpfaengerNationalitaet() As String + Get + Return Me._empfaengerNationalitaet + End Get + Set + Me._empfaengerNationalitaet = Value + End Set + End Property + + + Public Property EmpfaengerName() As String + Get + Return Me._empfaengerName + End Get + Set + Me._empfaengerName = Value + End Set + End Property + + + Public Property EmpfaengerStrasseHausNr() As String + Get + Return Me._empfaengerStrasseHausNr + End Get + Set + Me._empfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property EmpfaengerPLZS() As String + Get + Return Me._empfaengerPLZS + End Get + Set + Me._empfaengerPLZS = Value + End Set + End Property + + + Public Property EmpfaengerOrtS() As String + Get + Return Me._empfaengerOrtS + End Get + Set + Me._empfaengerOrtS = Value + End Set + End Property + + + Public Property EmpfaengerOrtsteil() As String + Get + Return Me._empfaengerOrtsteil + End Get + Set + Me._empfaengerOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerEORI() As String + Get + Return Me._zahlungsEmpfaengerEORI + End Get + Set + Me._zahlungsEmpfaengerEORI = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerNLNR() As String + Get + Return Me._zahlungsEmpfaengerNLNR + End Get + Set + Me._zahlungsEmpfaengerNLNR = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerKreditinstitut() As String + Get + Return Me._zahlungsEmpfaengerKreditinstitut + End Get + Set + Me._zahlungsEmpfaengerKreditinstitut = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerName() As String + Get + Return Me._zahlungsEmpfaengerName + End Get + Set + Me._zahlungsEmpfaengerName = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerNationalitaet() As String + Get + Return Me._zahlungsEmpfaengerNationalitaet + End Get + Set + Me._zahlungsEmpfaengerNationalitaet = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerStrasseHausNr() As String + Get + Return Me._zahlungsEmpfaengerStrasseHausNr + End Get + Set + Me._zahlungsEmpfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerPLZS() As String + Get + Return Me._zahlungsEmpfaengerPLZS + End Get + Set + Me._zahlungsEmpfaengerPLZS = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerOrtS() As String + Get + Return Me._zahlungsEmpfaengerOrtS + End Get + Set + Me._zahlungsEmpfaengerOrtS = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerOrtsteil() As String + Get + Return Me._zahlungsEmpfaengerOrtsteil + End Get + Set + Me._zahlungsEmpfaengerOrtsteil = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerIBAN() As String + Get + Return Me._zahlungsEmpfaengerIBAN + End Get + Set + Me._zahlungsEmpfaengerIBAN = Value + End Set + End Property + + + Public Property ZahlungsEmpfaengerBIC() As String + Get + Return Me._zahlungsEmpfaengerBIC + End Get + Set + Me._zahlungsEmpfaengerBIC = Value + End Set + End Property + + + Public Property ErstellungsDatumBefund() As Date + Get + Return Me._erstellungsDatumBefund + End Get + Set + Me._erstellungsDatumBefund = Value + End Set + End Property + + + Public Property Erfassungsdatum() As Date + Get + Return Me._erfassungsdatum + End Get + Set + Me._erfassungsdatum = Value + End Set + End Property + + + Public Property BarzahlungFaelligkeit() As Date + Get + Return Me._barzahlungFaelligkeit + End Get + Set + Me._barzahlungFaelligkeit = Value + End Set + End Property + + + Public Property SicherheitsleistungFaelligkeit() As String + Get + Return Me._sicherheitsleistungFaelligkeit + End Get + Set + Me._sicherheitsleistungFaelligkeit = Value + End Set + End Property + + + Public Property AbrechnungszeitraumBeginn() As Date + Get + Return Me._abrechnungszeitraumBeginn + End Get + Set + Me._abrechnungszeitraumBeginn = Value + End Set + End Property + + + Public Property AbrechnungszeitraumEnde() As Date + Get + Return Me._abrechnungszeitraumEnde + End Get + Set + Me._abrechnungszeitraumEnde = Value + End Set + End Property + + + Public Property Zollbefund() As String + Get + Return Me._zollbefund + End Get + Set + Me._zollbefund = Value + End Set + End Property + + + Public Property EZAAVAngabenKopf() As EZAAVAngabenKopfTyp + Get + Return Me._eZAAVAngabenKopf + End Get + Set + Me._eZAAVAngabenKopf = Value + End Set + End Property + + + Public Property LieferbedingungCode() As String + Get + Return Me._lieferbedingungCode + End Get + Set + Me._lieferbedingungCode = Value + End Set + End Property + + + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set + Me._lieferbedingungText = Value + End Set + End Property + + + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set + Me._lieferbedingungOrt = Value + End Set + End Property + + + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set + Me._lieferbedingungSchluessel = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrbescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenEinfuhrbescheidTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenEinfuhrbescheidTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrbescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEinfuhrbescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrbescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEinfuhrbescheidTyp + Return CType(Serializer.Deserialize(s), KopfDatenEinfuhrbescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEinfuhrbescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenEinfuhrbescheidTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenEinfuhrbescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrbescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrbescheidTyp) + 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 KopfDatenEinfuhrbescheidTyp) 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 KopfDatenEinfuhrbescheidTyp + 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 Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_008.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_008.xsd new file mode 100644 index 0000000..e7bc691 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/Abgabenbescheid/Abgabenbescheid_008.xsd @@ -0,0 +1,575 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_003.Designer.vb new file mode 100644 index 0000000..46d51b6 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_003.Designer.vb @@ -0,0 +1,2142 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' AbschliessendeFestsetzungListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace AbschliessendeFestsetzung + + _ + Partial Public Class AbschliessendeFestsetzungTAXATyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelAbschliessendeFestsetzung As EinzelAbschliessendeFestsetzungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelAbschliessendeFestsetzung = New EinzelAbschliessendeFestsetzungTyp() + End Sub + + _ + Public Property EinzelAbschliessendeFestsetzung() As EinzelAbschliessendeFestsetzungTyp + Get + Return Me._einzelAbschliessendeFestsetzung + End Get + Set(value As EinzelAbschliessendeFestsetzungTyp) + Me._einzelAbschliessendeFestsetzung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbschliessendeFestsetzungTAXATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbschliessendeFestsetzungTAXATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbschliessendeFestsetzungTAXATyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbschliessendeFestsetzungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbschliessendeFestsetzungTAXATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbschliessendeFestsetzungTAXATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbschliessendeFestsetzungTAXATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbschliessendeFestsetzungTAXATyp + Return CType(Serializer.Deserialize(s), AbschliessendeFestsetzungTAXATyp) + End Function +#End Region + + ''' + ''' Serializes current AbschliessendeFestsetzungTAXATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbschliessendeFestsetzungTAXATyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbschliessendeFestsetzungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbschliessendeFestsetzungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbschliessendeFestsetzungTAXATyp) + 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 AbschliessendeFestsetzungTAXATyp) 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 AbschliessendeFestsetzungTAXATyp + 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 Class + + _ + Partial Public Class EinzelAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXATyp + + Private _kopfDaten As KopfDatenAbschliessendeFestsetzungTyp + + Private _position As List(Of PositionAbschliessendeFestsetzungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._position = New List(Of PositionAbschliessendeFestsetzungTyp)() + Me._kopfDaten = New KopfDatenAbschliessendeFestsetzungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXATyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXATyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungTAXATyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenAbschliessendeFestsetzungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenAbschliessendeFestsetzungTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property Position() As List(Of PositionAbschliessendeFestsetzungTyp) + Get + Return Me._position + End Get + Set(value As List(Of PositionAbschliessendeFestsetzungTyp)) + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelAbschliessendeFestsetzungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), EinzelAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAbschliessendeFestsetzungTyp) + 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 EinzelAbschliessendeFestsetzungTyp) 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 EinzelAbschliessendeFestsetzungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungTAXATyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungTAXATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungTAXATyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXATyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTAXATyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTAXATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXATyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungTAXATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXATyp) + 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 ObjektIdentifizierungTAXATyp) 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 ObjektIdentifizierungTAXATyp + 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 Class + + _ + Partial Public Class PositionAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _freigabeSicherheitenKz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property FreigabeSicherheitenKz() As String + Get + Return Me._freigabeSicherheitenKz + End Get + Set(value As String) + Me._freigabeSicherheitenKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionAbschliessendeFestsetzungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), PositionAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAbschliessendeFestsetzungTyp) + 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 PositionAbschliessendeFestsetzungTyp) 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 PositionAbschliessendeFestsetzungTyp + 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 Class + + _ + Partial Public Class KopfDatenAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _waehrungKz As String + + Private _rechtsbehelfKz As String + + Private _gesamtschuldnerschaftKz As String + + Private _umsatzsteuerIDNr As String + + Private _registrierNr As String + + Private _nIZZARegistrierKz As String + + Private _freizugebeneSicherheitEUR As Decimal + + Private _auszahlungArt As String + + Private _freigegebeneSicherheitGesamt As Decimal + + Private _freigabeSicherheitKz As String + + Private _freigabeSicherheitArt As String + + Private _sonstigeMitteilung As String + + Private _bearbeiter As String + + Private _rechtsbehelfHZABezeichung As String + + Private _rechtsbehelfHZAEmailAdresse As String + + Private _rechtsbehelfHZAStrasseHausNr As String + + Private _rechtsbehelfHZAPLZS As String + + Private _rechtsbehelfHZAOrtS As String + + Private _rechtsbehelfHZAOrtsteil As String + + Private _rechtsbehelfHZAPostfach As String + + Private _rechtsbehelfHZAPLZP As String + + Private _rechtsbehelfHZAOrtP As String + + Private _rechnungEORI As String + + Private _rechnungNLNR As String + + Private _rechnungNationalitaet As String + + Private _rechnungNameFirmenbezeichnung As String + + Private _rechnungStrasseHausNr As String + + Private _rechnungPLZS As String + + Private _rechnungOrtS As String + + Private _rechnungOrtsteil As String + + Private _zahlungsempfaengerFreigegebeneSicherheitenEORI As String + + Private _zahlungsempfaengerFreigegebeneSicherheitenNLNR As String + + Private _zahlungsempfaengerKreditinstitut As String + + Private _zahlungsempfaengerFreigegebeneSicherheitenName As String + + Private _zahlungsempfaengerNationalitaet As String + + Private _zahlungsempfaengerStrasseHausNr As String + + Private _zahlungsempfaengerPLZS As String + + Private _zahlungsempfaengerOrtS As String + + Private _zahlungsempfaengerOrtsteil As String + + Private _zahlungsempfaengerIBAN As String + + Private _zahlungsempfaengerBIC As String + + Private _bescheideempfaengerEORI As String + + Private _bescheideempfaengerNLNR As String + + Private _bescheideempfaengerKreditinstitut As String + + Private _bescheideempfaengerName As String + + Private _bescheideempfaengerNationalitaet As String + + Private _bescheideempfaengerStrasseHausNr As String + + Private _bescheideempfaengerPLZS As String + + Private _bescheideempfaengerOrtS As String + + Private _bescheideempfaengerOrtsteil As String + + Private _bescheideempfaengerIBAN As String + + Private _bescheideempfaengerBIC As String + + Private _abgabenschuldnerEORI As String + + Private _abgabenschuldnerNLNR As String + + Private _abgabenschuldnerName As String + + Private _abgabenschuldnerNationalitaet As String + + Private _abgabenschuldnerStrasseHausNr As String + + Private _abgabenschuldnerPLZS As String + + Private _abgabenschuldnerOrtS As String + + Private _abgabenschuldnerOrtsteil As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property WaehrungKz() As String + Get + Return Me._waehrungKz + End Get + Set(value As String) + Me._waehrungKz = Value + End Set + End Property + + _ + Public Property RechtsbehelfKz() As String + Get + Return Me._rechtsbehelfKz + End Get + Set(value As String) + Me._rechtsbehelfKz = Value + End Set + End Property + + _ + Public Property GesamtschuldnerschaftKz() As String + Get + Return Me._gesamtschuldnerschaftKz + End Get + Set(value As String) + Me._gesamtschuldnerschaftKz = Value + End Set + End Property + + _ + Public Property UmsatzsteuerIDNr() As String + Get + Return Me._umsatzsteuerIDNr + End Get + Set(value As String) + Me._umsatzsteuerIDNr = Value + End Set + End Property + + _ + Public Property RegistrierNr() As String + Get + Return Me._registrierNr + End Get + Set(value As String) + Me._registrierNr = Value + End Set + End Property + + _ + Public Property NIZZARegistrierKz() As String + Get + Return Me._nIZZARegistrierKz + End Get + Set(value As String) + Me._nIZZARegistrierKz = Value + End Set + End Property + + _ + Public Property FreizugebeneSicherheitEUR() As Decimal + Get + Return Me._freizugebeneSicherheitEUR + End Get + Set(value As Decimal) + Me._freizugebeneSicherheitEUR = Value + End Set + End Property + + _ + Public Property AuszahlungArt() As String + Get + Return Me._auszahlungArt + End Get + Set(value As String) + Me._auszahlungArt = Value + End Set + End Property + + _ + Public Property FreigegebeneSicherheitGesamt() As Decimal + Get + Return Me._freigegebeneSicherheitGesamt + End Get + Set(value As Decimal) + Me._freigegebeneSicherheitGesamt = Value + End Set + End Property + + _ + Public Property FreigabeSicherheitKz() As String + Get + Return Me._freigabeSicherheitKz + End Get + Set(value As String) + Me._freigabeSicherheitKz = Value + End Set + End Property + + _ + Public Property FreigabeSicherheitArt() As String + Get + Return Me._freigabeSicherheitArt + End Get + Set(value As String) + Me._freigabeSicherheitArt = Value + End Set + End Property + + _ + Public Property SonstigeMitteilung() As String + Get + Return Me._sonstigeMitteilung + End Get + Set(value As String) + Me._sonstigeMitteilung = Value + End Set + End Property + + _ + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set(value As String) + Me._bearbeiter = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZABezeichung() As String + Get + Return Me._rechtsbehelfHZABezeichung + End Get + Set(value As String) + Me._rechtsbehelfHZABezeichung = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZAEmailAdresse() As String + Get + Return Me._rechtsbehelfHZAEmailAdresse + End Get + Set(value As String) + Me._rechtsbehelfHZAEmailAdresse = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZAStrasseHausNr() As String + Get + Return Me._rechtsbehelfHZAStrasseHausNr + End Get + Set(value As String) + Me._rechtsbehelfHZAStrasseHausNr = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZAPLZS() As String + Get + Return Me._rechtsbehelfHZAPLZS + End Get + Set(value As String) + Me._rechtsbehelfHZAPLZS = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZAOrtS() As String + Get + Return Me._rechtsbehelfHZAOrtS + End Get + Set(value As String) + Me._rechtsbehelfHZAOrtS = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZAOrtsteil() As String + Get + Return Me._rechtsbehelfHZAOrtsteil + End Get + Set(value As String) + Me._rechtsbehelfHZAOrtsteil = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZAPostfach() As String + Get + Return Me._rechtsbehelfHZAPostfach + End Get + Set(value As String) + Me._rechtsbehelfHZAPostfach = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZAPLZP() As String + Get + Return Me._rechtsbehelfHZAPLZP + End Get + Set(value As String) + Me._rechtsbehelfHZAPLZP = Value + End Set + End Property + + _ + Public Property RechtsbehelfHZAOrtP() As String + Get + Return Me._rechtsbehelfHZAOrtP + End Get + Set(value As String) + Me._rechtsbehelfHZAOrtP = Value + End Set + End Property + + _ + Public Property RechnungEORI() As String + Get + Return Me._rechnungEORI + End Get + Set(value As String) + Me._rechnungEORI = Value + End Set + End Property + + _ + Public Property RechnungNLNR() As String + Get + Return Me._rechnungNLNR + End Get + Set(value As String) + Me._rechnungNLNR = Value + End Set + End Property + + _ + Public Property RechnungNationalitaet() As String + Get + Return Me._rechnungNationalitaet + End Get + Set(value As String) + Me._rechnungNationalitaet = Value + End Set + End Property + + _ + Public Property RechnungNameFirmenbezeichnung() As String + Get + Return Me._rechnungNameFirmenbezeichnung + End Get + Set(value As String) + Me._rechnungNameFirmenbezeichnung = Value + End Set + End Property + + _ + Public Property RechnungStrasseHausNr() As String + Get + Return Me._rechnungStrasseHausNr + End Get + Set(value As String) + Me._rechnungStrasseHausNr = Value + End Set + End Property + + _ + Public Property RechnungPLZS() As String + Get + Return Me._rechnungPLZS + End Get + Set(value As String) + Me._rechnungPLZS = Value + End Set + End Property + + _ + Public Property RechnungOrtS() As String + Get + Return Me._rechnungOrtS + End Get + Set(value As String) + Me._rechnungOrtS = Value + End Set + End Property + + _ + Public Property RechnungOrtsteil() As String + Get + Return Me._rechnungOrtsteil + End Get + Set(value As String) + Me._rechnungOrtsteil = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerFreigegebeneSicherheitenEORI() As String + Get + Return Me._zahlungsempfaengerFreigegebeneSicherheitenEORI + End Get + Set(value As String) + Me._zahlungsempfaengerFreigegebeneSicherheitenEORI = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerFreigegebeneSicherheitenNLNR() As String + Get + Return Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR + End Get + Set(value As String) + Me._zahlungsempfaengerFreigegebeneSicherheitenNLNR = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerKreditinstitut() As String + Get + Return Me._zahlungsempfaengerKreditinstitut + End Get + Set(value As String) + Me._zahlungsempfaengerKreditinstitut = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerFreigegebeneSicherheitenName() As String + Get + Return Me._zahlungsempfaengerFreigegebeneSicherheitenName + End Get + Set(value As String) + Me._zahlungsempfaengerFreigegebeneSicherheitenName = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerNationalitaet() As String + Get + Return Me._zahlungsempfaengerNationalitaet + End Get + Set(value As String) + Me._zahlungsempfaengerNationalitaet = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerStrasseHausNr() As String + Get + Return Me._zahlungsempfaengerStrasseHausNr + End Get + Set(value As String) + Me._zahlungsempfaengerStrasseHausNr = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerPLZS() As String + Get + Return Me._zahlungsempfaengerPLZS + End Get + Set(value As String) + Me._zahlungsempfaengerPLZS = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerOrtS() As String + Get + Return Me._zahlungsempfaengerOrtS + End Get + Set(value As String) + Me._zahlungsempfaengerOrtS = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerOrtsteil() As String + Get + Return Me._zahlungsempfaengerOrtsteil + End Get + Set(value As String) + Me._zahlungsempfaengerOrtsteil = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerIBAN() As String + Get + Return Me._zahlungsempfaengerIBAN + End Get + Set(value As String) + Me._zahlungsempfaengerIBAN = Value + End Set + End Property + + _ + Public Property ZahlungsempfaengerBIC() As String + Get + Return Me._zahlungsempfaengerBIC + End Get + Set(value As String) + Me._zahlungsempfaengerBIC = Value + End Set + End Property + + _ + Public Property BescheideempfaengerEORI() As String + Get + Return Me._bescheideempfaengerEORI + End Get + Set(value As String) + Me._bescheideempfaengerEORI = Value + End Set + End Property + + _ + Public Property BescheideempfaengerNLNR() As String + Get + Return Me._bescheideempfaengerNLNR + End Get + Set(value As String) + Me._bescheideempfaengerNLNR = Value + End Set + End Property + + _ + Public Property BescheideempfaengerKreditinstitut() As String + Get + Return Me._bescheideempfaengerKreditinstitut + End Get + Set(value As String) + Me._bescheideempfaengerKreditinstitut = Value + End Set + End Property + + _ + Public Property BescheideempfaengerName() As String + Get + Return Me._bescheideempfaengerName + End Get + Set(value As String) + Me._bescheideempfaengerName = Value + End Set + End Property + + _ + Public Property BescheideempfaengerNationalitaet() As String + Get + Return Me._bescheideempfaengerNationalitaet + End Get + Set(value As String) + Me._bescheideempfaengerNationalitaet = Value + End Set + End Property + + _ + Public Property BescheideempfaengerStrasseHausNr() As String + Get + Return Me._bescheideempfaengerStrasseHausNr + End Get + Set(value As String) + Me._bescheideempfaengerStrasseHausNr = Value + End Set + End Property + + _ + Public Property BescheideempfaengerPLZS() As String + Get + Return Me._bescheideempfaengerPLZS + End Get + Set(value As String) + Me._bescheideempfaengerPLZS = Value + End Set + End Property + + _ + Public Property BescheideempfaengerOrtS() As String + Get + Return Me._bescheideempfaengerOrtS + End Get + Set(value As String) + Me._bescheideempfaengerOrtS = Value + End Set + End Property + + _ + Public Property BescheideempfaengerOrtsteil() As String + Get + Return Me._bescheideempfaengerOrtsteil + End Get + Set(value As String) + Me._bescheideempfaengerOrtsteil = Value + End Set + End Property + + _ + Public Property BescheideempfaengerIBAN() As String + Get + Return Me._bescheideempfaengerIBAN + End Get + Set(value As String) + Me._bescheideempfaengerIBAN = Value + End Set + End Property + + _ + Public Property BescheideempfaengerBIC() As String + Get + Return Me._bescheideempfaengerBIC + End Get + Set(value As String) + Me._bescheideempfaengerBIC = Value + End Set + End Property + + _ + Public Property AbgabenschuldnerEORI() As String + Get + Return Me._abgabenschuldnerEORI + End Get + Set(value As String) + Me._abgabenschuldnerEORI = Value + End Set + End Property + + _ + Public Property AbgabenschuldnerNLNR() As String + Get + Return Me._abgabenschuldnerNLNR + End Get + Set(value As String) + Me._abgabenschuldnerNLNR = Value + End Set + End Property + + _ + Public Property AbgabenschuldnerName() As String + Get + Return Me._abgabenschuldnerName + End Get + Set(value As String) + Me._abgabenschuldnerName = Value + End Set + End Property + + _ + Public Property AbgabenschuldnerNationalitaet() As String + Get + Return Me._abgabenschuldnerNationalitaet + End Get + Set(value As String) + Me._abgabenschuldnerNationalitaet = Value + End Set + End Property + + _ + Public Property AbgabenschuldnerStrasseHausNr() As String + Get + Return Me._abgabenschuldnerStrasseHausNr + End Get + Set(value As String) + Me._abgabenschuldnerStrasseHausNr = Value + End Set + End Property + + _ + Public Property AbgabenschuldnerPLZS() As String + Get + Return Me._abgabenschuldnerPLZS + End Get + Set(value As String) + Me._abgabenschuldnerPLZS = Value + End Set + End Property + + _ + Public Property AbgabenschuldnerOrtS() As String + Get + Return Me._abgabenschuldnerOrtS + End Get + Set(value As String) + Me._abgabenschuldnerOrtS = Value + End Set + End Property + + _ + Public Property AbgabenschuldnerOrtsteil() As String + Get + Return Me._abgabenschuldnerOrtsteil + End Get + Set(value As String) + Me._abgabenschuldnerOrtsteil = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenAbschliessendeFestsetzungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), KopfDatenAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAbschliessendeFestsetzungTyp) + 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 KopfDatenAbschliessendeFestsetzungTyp) 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 KopfDatenAbschliessendeFestsetzungTyp + 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 Class + + _ + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionFreierVerkehrTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_003.xsd new file mode 100644 index 0000000..4984944 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/AbschliessendeFestsetzung/AbschliessendeFestsetzung_003.xsd @@ -0,0 +1,232 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_005.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_005.Designer.vb new file mode 100644 index 0000000..e3e3bbc --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_005.Designer.vb @@ -0,0 +1,5948 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' BefundVereinfachteZollanmeldungListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace BefundVereinfachteZollanmeldung + + _ + Partial Public Class BefundVereinfachteZollanmeldungVBTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelBefundVereinfachteZollanmeldung As EinzelBefundVereinfachteZollanmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelBefundVereinfachteZollanmeldung = New EinzelBefundVereinfachteZollanmeldungTyp() + End Sub + + _ + Public Property EinzelBefundVereinfachteZollanmeldung() As EinzelBefundVereinfachteZollanmeldungTyp + Get + Return Me._einzelBefundVereinfachteZollanmeldung + End Get + Set(value As EinzelBefundVereinfachteZollanmeldungTyp) + Me._einzelBefundVereinfachteZollanmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefundVereinfachteZollanmeldungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BefundVereinfachteZollanmeldungVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BefundVereinfachteZollanmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefundVereinfachteZollanmeldungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefundVereinfachteZollanmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefundVereinfachteZollanmeldungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefundVereinfachteZollanmeldungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefundVereinfachteZollanmeldungVBTyp + Return CType(Serializer.Deserialize(s), BefundVereinfachteZollanmeldungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current BefundVereinfachteZollanmeldungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BefundVereinfachteZollanmeldungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BefundVereinfachteZollanmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class EinzelBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungVBTyp + + Private _kopfDaten As KopfdatenBefundVereinfachteZollanmeldungTyp + + Private _position As List(Of PositionBefundVereinfachteZollanmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._position = New List(Of PositionBefundVereinfachteZollanmeldungTyp)() + Me._kopfDaten = New KopfdatenBefundVereinfachteZollanmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungVBTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungVBTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungVBTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfdatenBefundVereinfachteZollanmeldungTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp) + Get + Return Me._position + End Get + Set(value As List(Of PositionBefundVereinfachteZollanmeldungTyp)) + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelBefundVereinfachteZollanmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelBefundVereinfachteZollanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelBefundVereinfachteZollanmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelBefundVereinfachteZollanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelBefundVereinfachteZollanmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelBefundVereinfachteZollanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelBefundVereinfachteZollanmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class ObjektIdentifizierungVBTyp + +#Region "Private fields" + Private _objektName As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungVBTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class SonderabgabenVBTyp + +#Region "Private fields" + Private _sonderfalleingabeSonderabgabengruppe As String + + Private _anwendungsart As String + + Private _satzBetragFaktor As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property SonderfalleingabeSonderabgabengruppe() As String + Get + Return Me._sonderfalleingabeSonderabgabengruppe + End Get + Set(value As String) + Me._sonderfalleingabeSonderabgabengruppe = Value + End Set + End Property + + _ + Public Property Anwendungsart() As String + Get + Return Me._anwendungsart + End Get + Set(value As String) + Me._anwendungsart = Value + End Set + End Property + + _ + Public Property SatzBetragFaktor() As Decimal + Get + Return Me._satzBetragFaktor + End Get + Set(value As Decimal) + Me._satzBetragFaktor = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderabgabenVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SonderabgabenVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SonderabgabenVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SonderabgabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderabgabenVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderabgabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SonderabgabenVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SonderabgabenVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderabgabenVBTyp + Return CType(Serializer.Deserialize(s), SonderabgabenVBTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderabgabenVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SonderabgabenVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SonderabgabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class MinderungVBTyp + +#Region "Private fields" + Private _minderndeAbgabengruppe As String + + Private _minderungsbetrag As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property MinderndeAbgabengruppe() As String + Get + Return Me._minderndeAbgabengruppe + End Get + Set(value As String) + Me._minderndeAbgabengruppe = Value + End Set + End Property + + _ + Public Property Minderungsbetrag() As Decimal + Get + Return Me._minderungsbetrag + End Get + Set(value As Decimal) + Me._minderungsbetrag = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MinderungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MinderungVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MinderungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output MinderungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MinderungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MinderungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MinderungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MinderungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MinderungVBTyp + Return CType(Serializer.Deserialize(s), MinderungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current MinderungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MinderungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output MinderungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class VerbrauchsteuerVBTyp + +#Region "Private fields" + Private _verbrauchsteuerCode As String + + Private _verbrauchssteuerMenge As Decimal + + Private _verbrauchssteuerMasseinheitCode As String + + Private _verbrauchssteuerMasseinheitQualifier As String + + Private _gradProzent As Decimal + + Private _verbrauchssteuerWertBasis As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property VerbrauchsteuerCode() As String + Get + Return Me._verbrauchsteuerCode + End Get + Set(value As String) + Me._verbrauchsteuerCode = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerMenge() As Decimal + Get + Return Me._verbrauchssteuerMenge + End Get + Set(value As Decimal) + Me._verbrauchssteuerMenge = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerMasseinheitCode() As String + Get + Return Me._verbrauchssteuerMasseinheitCode + End Get + Set(value As String) + Me._verbrauchssteuerMasseinheitCode = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerMasseinheitQualifier() As String + Get + Return Me._verbrauchssteuerMasseinheitQualifier + End Get + Set(value As String) + Me._verbrauchssteuerMasseinheitQualifier = Value + End Set + End Property + + _ + Public Property GradProzent() As Decimal + Get + Return Me._gradProzent + End Get + Set(value As Decimal) + Me._gradProzent = Value + End Set + End Property + + _ + Public Property VerbrauchssteuerWertBasis() As Decimal + Get + Return Me._verbrauchssteuerWertBasis + End Get + Set(value As Decimal) + Me._verbrauchssteuerWertBasis = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchsteuerVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerbrauchsteuerVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerbrauchsteuerVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerbrauchsteuerVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchsteuerVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchsteuerVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbrauchsteuerVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerbrauchsteuerVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbrauchsteuerVBTyp + Return CType(Serializer.Deserialize(s), VerbrauchsteuerVBTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbrauchsteuerVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerbrauchsteuerVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerbrauchsteuerVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class GehaltsangabenVBTyp + +#Region "Private fields" + Private _artCode As String + + Private _gradProzent As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set(value As String) + Me._artCode = Value + End Set + End Property + + _ + Public Property GradProzent() As Decimal + Get + Return Me._gradProzent + End Get + Set(value As Decimal) + Me._gradProzent = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GehaltsangabenVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an GehaltsangabenVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output GehaltsangabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GehaltsangabenVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GehaltsangabenVBTyp + Return CType(Serializer.Deserialize(s), GehaltsangabenVBTyp) + End Function +#End Region + + ''' + ''' Serializes current GehaltsangabenVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an GehaltsangabenVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output GehaltsangabenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class PreisWertangabeVBTyp + +#Region "Private fields" + Private _preisartCode As String + + Private _wert As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property PreisartCode() As String + Get + Return Me._preisartCode + End Get + Set(value As String) + Me._preisartCode = Value + End Set + End Property + + _ + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set(value As Decimal) + Me._wert = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PreisWertangabeVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PreisWertangabeVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PreisWertangabeVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PreisWertangabeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PreisWertangabeVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PreisWertangabeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PreisWertangabeVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PreisWertangabeVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PreisWertangabeVBTyp + Return CType(Serializer.Deserialize(s), PreisWertangabeVBTyp) + End Function +#End Region + + ''' + ''' Serializes current PreisWertangabeVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PreisWertangabeVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PreisWertangabeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class WarenMengeVBTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Menge() As String + Get + Return Me._menge + End Get + Set(value As String) + Me._menge = Value + End Set + End Property + + _ + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set(value As String) + Me._masseinheit = Value + End Set + End Property + + _ + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set(value As String) + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WarenMengeVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an WarenMengeVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output WarenMengeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenMengeVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarenMengeVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenMengeVBTyp + Return CType(Serializer.Deserialize(s), WarenMengeVBTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenMengeVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an WarenMengeVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output WarenMengeVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class AbzugHinzurechnungenVBTyp + +#Region "Private fields" + Private _artCode As String + + Private _artText As String + + Private _betrag As Decimal + + Private _iATAKursKz As String + + Private _waehrung As String + + Private _kursVereinbartKz As String + + Private _kursAuslandswaehrung As Decimal + + Private _kursDatum As Date + + Private _prozentsatz As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set(value As String) + Me._artCode = Value + End Set + End Property + + _ + Public Property ArtText() As String + Get + Return Me._artText + End Get + Set(value As String) + Me._artText = Value + End Set + End Property + + _ + Public Property Betrag() As Decimal + Get + Return Me._betrag + End Get + Set(value As Decimal) + Me._betrag = Value + End Set + End Property + + _ + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set(value As String) + Me._iATAKursKz = Value + End Set + End Property + + _ + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set(value As String) + Me._waehrung = Value + End Set + End Property + + _ + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set(value As String) + Me._kursVereinbartKz = Value + End Set + End Property + + _ + Public Property KursAuslandswaehrung() As Decimal + Get + Return Me._kursAuslandswaehrung + End Get + Set(value As Decimal) + Me._kursAuslandswaehrung = Value + End Set + End Property + + _ + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set(value As Date) + Me._kursDatum = Value + End Set + End Property + + _ + Public Property Prozentsatz() As Decimal + Get + Return Me._prozentsatz + End Get + Set(value As Decimal) + Me._prozentsatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungenVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbzugHinzurechnungenVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbzugHinzurechnungenVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbzugHinzurechnungenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungenVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungenVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbzugHinzurechnungenVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungenVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbzugHinzurechnungenVBTyp + Return CType(Serializer.Deserialize(s), AbzugHinzurechnungenVBTyp) + End Function +#End Region + + ''' + ''' Serializes current AbzugHinzurechnungenVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbzugHinzurechnungenVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbzugHinzurechnungenVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class AbweichungVBTyp + +#Region "Private fields" + Private _abweichendFestgesetztesFeld As String + + Private _abweichendFestgesetztesFeldQualifikator As String + + Private _qualifikatorInhalt As String + + Private _abweichendeFestsetzungArt As String + + Private _abweichendFestgesetztVon As String + + Private _abweichendFestgesetztAuf As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property AbweichendFestgesetztesFeld() As String + Get + Return Me._abweichendFestgesetztesFeld + End Get + Set(value As String) + Me._abweichendFestgesetztesFeld = Value + End Set + End Property + + _ + Public Property AbweichendFestgesetztesFeldQualifikator() As String + Get + Return Me._abweichendFestgesetztesFeldQualifikator + End Get + Set(value As String) + Me._abweichendFestgesetztesFeldQualifikator = Value + End Set + End Property + + _ + Public Property QualifikatorInhalt() As String + Get + Return Me._qualifikatorInhalt + End Get + Set(value As String) + Me._qualifikatorInhalt = Value + End Set + End Property + + _ + Public Property AbweichendeFestsetzungArt() As String + Get + Return Me._abweichendeFestsetzungArt + End Get + Set(value As String) + Me._abweichendeFestsetzungArt = Value + End Set + End Property + + _ + Public Property AbweichendFestgesetztVon() As String + Get + Return Me._abweichendFestgesetztVon + End Get + Set(value As String) + Me._abweichendFestgesetztVon = Value + End Set + End Property + + _ + Public Property AbweichendFestgesetztAuf() As String + Get + Return Me._abweichendFestgesetztAuf + End Get + Set(value As String) + Me._abweichendFestgesetztAuf = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbweichungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbweichungVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbweichungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbweichungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbweichungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbweichungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbweichungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbweichungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbweichungVBTyp + Return CType(Serializer.Deserialize(s), AbweichungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current AbweichungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbweichungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbweichungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class UnterlageVBTyp + +#Region "Private fields" + Private _art As String + + Private _bereich As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private _vorlageKz As String + + Private _abschreibungsMenge As Decimal + + Private _abschreibungsMengeMasseinheit As String + + Private _abschreibungsMengeMasseinheitQualifier As String + + Private _kzAnerkennung As String + + Private _kzAbschreibung As String + + Private _kzEinbehalten As String + + Private _kzPeriodischeVorlage As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Art() As String + Get + Return Me._art + End Get + Set(value As String) + Me._art = Value + End Set + End Property + + _ + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set(value As String) + Me._bereich = Value + End Set + End Property + + _ + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set(value As String) + Me._nummer = Value + End Set + End Property + + _ + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set(value As Date) + Me._datumAusstellung = Value + End Set + End Property + + _ + Public Property VorlageKz() As String + Get + Return Me._vorlageKz + End Get + Set(value As String) + Me._vorlageKz = Value + End Set + End Property + + _ + Public Property AbschreibungsMenge() As Decimal + Get + Return Me._abschreibungsMenge + End Get + Set(value As Decimal) + Me._abschreibungsMenge = Value + End Set + End Property + + _ + Public Property AbschreibungsMengeMasseinheit() As String + Get + Return Me._abschreibungsMengeMasseinheit + End Get + Set(value As String) + Me._abschreibungsMengeMasseinheit = Value + End Set + End Property + + _ + Public Property AbschreibungsMengeMasseinheitQualifier() As String + Get + Return Me._abschreibungsMengeMasseinheitQualifier + End Get + Set(value As String) + Me._abschreibungsMengeMasseinheitQualifier = Value + End Set + End Property + + _ + Public Property KzAnerkennung() As String + Get + Return Me._kzAnerkennung + End Get + Set(value As String) + Me._kzAnerkennung = Value + End Set + End Property + + _ + Public Property KzAbschreibung() As String + Get + Return Me._kzAbschreibung + End Get + Set(value As String) + Me._kzAbschreibung = Value + End Set + End Property + + _ + Public Property KzEinbehalten() As String + Get + Return Me._kzEinbehalten + End Get + Set(value As String) + Me._kzEinbehalten = Value + End Set + End Property + + _ + Public Property KzPeriodischeVorlage() As String + Get + Return Me._kzPeriodischeVorlage + End Get + Set(value As String) + Me._kzPeriodischeVorlage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UnterlageVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UnterlageVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UnterlageVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UnterlageVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageVBTyp + Return CType(Serializer.Deserialize(s), UnterlageVBTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UnterlageVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UnterlageVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class PositionBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _positionsNrvZAAZ As String + + Private _mitteilungAnTeilnehmerBeschau As String + + Private _weitererNachweis As String + + Private _mitteilungAnTeilnehmerErledigung As String + + Private _positionsbefund As String + + Private _unterlage As List(Of UnterlageVBTyp) + + Private _ueberlassungDatum As Date + + Private _weitererNachweisFrist As Date + + Private _positionKzErledigung As String + + Private _abweichung As List(Of AbweichungVBTyp) + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _abgabensteuerungKz As String + + Private _eUCode As String + + Private _sachbereich As String + + Private _artikelNummer As String + + Private _artikelpreis As Decimal + + Private _positionsZusatz As String + + Private _eigenmasse As Decimal + + Private _ursprungslandCode As String + + Private _tabakSteuerzeichenID As String + + Private _statistikStatus As String + + Private _artGeschaeftCode As String + + Private _bestimmungsbundesland As String + + Private _aHStatWert As String + + Private _aHStatMenge As Decimal + + Private _aHStatMengeMasseinheit As String + + Private _aHStatMengeQualifier As String + + Private _rohmasse As Decimal + + Private _dV1Nettopreis As Decimal + + Private _dV1Waehrung As String + + Private _dV1KzKursNettoVereinbart As String + + Private _dV1Kurs As Decimal + + Private _dV1MittelbareZahlungen As Decimal + + Private _dV1MittelbareZahlungenWaehrung As String + + Private _dV1MittelbareZahlungenKursKz As String + + Private _dV1MittelbareZahlungenKurs As Decimal + + Private _ortVerbringens As String + + Private _abflughafenIATACode As String + + Private _luftfrachtkostenGesamt As Decimal + + Private _iATAKursKz As String + + Private _luftfrachtkostenGesamtWaehrung As String + + Private _kursVereinbartKz As String + + Private _kursBetragVereinbart As Decimal + + Private _kursDatum As Date + + Private _abzugHinzurechnungen As List(Of AbzugHinzurechnungenVBTyp) + + Private _zollwert As Decimal + + Private _warenMenge As List(Of WarenMengeVBTyp) + + Private _besondereWertangabe As List(Of PreisWertangabeVBTyp) + + Private _gehaltsangaben As List(Of GehaltsangabenVBTyp) + + Private _veredelungWertsteigerung As Decimal + + Private _kostenEUSt As Decimal + + Private _verbrauchsteuer As List(Of VerbrauchsteuerVBTyp) + + Private _beguenstigungBeantragtCode As String + + Private _beguenstigungMenge As String + + Private _beguenstigungMengeMasseinheit As String + + Private _beguenstigungMengeQualifikator As String + + Private _minderung As List(Of MinderungVBTyp) + + Private _sonderabgaben As List(Of SonderabgabenVBTyp) + + Private _kontingentNrAngewandt As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kontingentNrAngewandt = New List(Of String)() + Me._sonderabgaben = New List(Of SonderabgabenVBTyp)() + Me._minderung = New List(Of MinderungVBTyp)() + Me._verbrauchsteuer = New List(Of VerbrauchsteuerVBTyp)() + Me._gehaltsangaben = New List(Of GehaltsangabenVBTyp)() + Me._besondereWertangabe = New List(Of PreisWertangabeVBTyp)() + Me._warenMenge = New List(Of WarenMengeVBTyp)() + Me._abzugHinzurechnungen = New List(Of AbzugHinzurechnungenVBTyp)() + Me._warenNummerZusatzCode = New List(Of String)() + Me._abweichung = New List(Of AbweichungVBTyp)() + Me._unterlage = New List(Of UnterlageVBTyp)() + End Sub + + _ + Public Property PositionsNrvZAAZ() As String + Get + Return Me._positionsNrvZAAZ + End Get + Set(value As String) + Me._positionsNrvZAAZ = Value + End Set + End Property + + _ + Public Property MitteilungAnTeilnehmerBeschau() As String + Get + Return Me._mitteilungAnTeilnehmerBeschau + End Get + Set(value As String) + Me._mitteilungAnTeilnehmerBeschau = Value + End Set + End Property + + _ + Public Property WeitererNachweis() As String + Get + Return Me._weitererNachweis + End Get + Set(value As String) + Me._weitererNachweis = Value + End Set + End Property + + _ + Public Property MitteilungAnTeilnehmerErledigung() As String + Get + Return Me._mitteilungAnTeilnehmerErledigung + End Get + Set(value As String) + Me._mitteilungAnTeilnehmerErledigung = Value + End Set + End Property + + _ + Public Property Positionsbefund() As String + Get + Return Me._positionsbefund + End Get + Set(value As String) + Me._positionsbefund = Value + End Set + End Property + + _ + Public Property Unterlage() As List(Of UnterlageVBTyp) + Get + Return Me._unterlage + End Get + Set(value As List(Of UnterlageVBTyp)) + Me._unterlage = Value + End Set + End Property + + _ + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set(value As Date) + Me._ueberlassungDatum = Value + End Set + End Property + + _ + Public Property WeitererNachweisFrist() As Date + Get + Return Me._weitererNachweisFrist + End Get + Set(value As Date) + Me._weitererNachweisFrist = Value + End Set + End Property + + _ + Public Property PositionKzErledigung() As String + Get + Return Me._positionKzErledigung + End Get + Set(value As String) + Me._positionKzErledigung = Value + End Set + End Property + + _ + Public Property Abweichung() As List(Of AbweichungVBTyp) + Get + Return Me._abweichung + End Get + Set(value As List(Of AbweichungVBTyp)) + Me._abweichung = Value + End Set + End Property + + _ + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set(value As String) + Me._warenNummerEZT = Value + End Set + End Property + + _ + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set(value As List(Of String)) + Me._warenNummerZusatzCode = Value + End Set + End Property + + _ + Public Property AbgabensteuerungKz() As String + Get + Return Me._abgabensteuerungKz + End Get + Set(value As String) + Me._abgabensteuerungKz = Value + End Set + End Property + + _ + Public Property EUCode() As String + Get + Return Me._eUCode + End Get + Set(value As String) + Me._eUCode = Value + End Set + End Property + + _ + Public Property Sachbereich() As String + Get + Return Me._sachbereich + End Get + Set(value As String) + Me._sachbereich = Value + End Set + End Property + + _ + Public Property ArtikelNummer() As String + Get + Return Me._artikelNummer + End Get + Set(value As String) + Me._artikelNummer = Value + End Set + End Property + + _ + Public Property Artikelpreis() As Decimal + Get + Return Me._artikelpreis + End Get + Set(value As Decimal) + Me._artikelpreis = Value + End Set + End Property + + _ + Public Property PositionsZusatz() As String + Get + Return Me._positionsZusatz + End Get + Set(value As String) + Me._positionsZusatz = Value + End Set + End Property + + _ + Public Property Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set(value As Decimal) + Me._eigenmasse = Value + End Set + End Property + + _ + Public Property UrsprungslandCode() As String + Get + Return Me._ursprungslandCode + End Get + Set(value As String) + Me._ursprungslandCode = Value + End Set + End Property + + _ + Public Property TabakSteuerzeichenID() As String + Get + Return Me._tabakSteuerzeichenID + End Get + Set(value As String) + Me._tabakSteuerzeichenID = Value + End Set + End Property + + _ + Public Property StatistikStatus() As String + Get + Return Me._statistikStatus + End Get + Set(value As String) + Me._statistikStatus = Value + End Set + End Property + + _ + Public Property ArtGeschaeftCode() As String + Get + Return Me._artGeschaeftCode + End Get + Set(value As String) + Me._artGeschaeftCode = Value + End Set + End Property + + _ + Public Property Bestimmungsbundesland() As String + Get + Return Me._bestimmungsbundesland + End Get + Set(value As String) + Me._bestimmungsbundesland = Value + End Set + End Property + + _ + Public Property AHStatWert() As String + Get + Return Me._aHStatWert + End Get + Set(value As String) + Me._aHStatWert = Value + End Set + End Property + + _ + Public Property AHStatMenge() As Decimal + Get + Return Me._aHStatMenge + End Get + Set(value As Decimal) + Me._aHStatMenge = Value + End Set + End Property + + _ + Public Property AHStatMengeMasseinheit() As String + Get + Return Me._aHStatMengeMasseinheit + End Get + Set(value As String) + Me._aHStatMengeMasseinheit = Value + End Set + End Property + + _ + Public Property AHStatMengeQualifier() As String + Get + Return Me._aHStatMengeQualifier + End Get + Set(value As String) + Me._aHStatMengeQualifier = Value + End Set + End Property + + _ + Public Property Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set(value As Decimal) + Me._rohmasse = Value + End Set + End Property + + _ + Public Property DV1Nettopreis() As Decimal + Get + Return Me._dV1Nettopreis + End Get + Set(value As Decimal) + Me._dV1Nettopreis = Value + End Set + End Property + + _ + Public Property DV1Waehrung() As String + Get + Return Me._dV1Waehrung + End Get + Set(value As String) + Me._dV1Waehrung = Value + End Set + End Property + + _ + Public Property DV1KzKursNettoVereinbart() As String + Get + Return Me._dV1KzKursNettoVereinbart + End Get + Set(value As String) + Me._dV1KzKursNettoVereinbart = Value + End Set + End Property + + _ + Public Property DV1Kurs() As Decimal + Get + Return Me._dV1Kurs + End Get + Set(value As Decimal) + Me._dV1Kurs = Value + End Set + End Property + + _ + Public Property DV1MittelbareZahlungen() As Decimal + Get + Return Me._dV1MittelbareZahlungen + End Get + Set(value As Decimal) + Me._dV1MittelbareZahlungen = Value + End Set + End Property + + _ + Public Property DV1MittelbareZahlungenWaehrung() As String + Get + Return Me._dV1MittelbareZahlungenWaehrung + End Get + Set(value As String) + Me._dV1MittelbareZahlungenWaehrung = Value + End Set + End Property + + _ + Public Property DV1MittelbareZahlungenKursKz() As String + Get + Return Me._dV1MittelbareZahlungenKursKz + End Get + Set(value As String) + Me._dV1MittelbareZahlungenKursKz = Value + End Set + End Property + + _ + Public Property DV1MittelbareZahlungenKurs() As Decimal + Get + Return Me._dV1MittelbareZahlungenKurs + End Get + Set(value As Decimal) + Me._dV1MittelbareZahlungenKurs = Value + End Set + End Property + + _ + Public Property OrtVerbringens() As String + Get + Return Me._ortVerbringens + End Get + Set(value As String) + Me._ortVerbringens = Value + End Set + End Property + + _ + Public Property AbflughafenIATACode() As String + Get + Return Me._abflughafenIATACode + End Get + Set(value As String) + Me._abflughafenIATACode = Value + End Set + End Property + + _ + Public Property LuftfrachtkostenGesamt() As Decimal + Get + Return Me._luftfrachtkostenGesamt + End Get + Set(value As Decimal) + Me._luftfrachtkostenGesamt = Value + End Set + End Property + + _ + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set(value As String) + Me._iATAKursKz = Value + End Set + End Property + + _ + Public Property LuftfrachtkostenGesamtWaehrung() As String + Get + Return Me._luftfrachtkostenGesamtWaehrung + End Get + Set(value As String) + Me._luftfrachtkostenGesamtWaehrung = Value + End Set + End Property + + _ + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set(value As String) + Me._kursVereinbartKz = Value + End Set + End Property + + _ + Public Property KursBetragVereinbart() As Decimal + Get + Return Me._kursBetragVereinbart + End Get + Set(value As Decimal) + Me._kursBetragVereinbart = Value + End Set + End Property + + _ + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set(value As Date) + Me._kursDatum = Value + End Set + End Property + + _ + Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp) + Get + Return Me._abzugHinzurechnungen + End Get + Set(value As List(Of AbzugHinzurechnungenVBTyp)) + Me._abzugHinzurechnungen = Value + End Set + End Property + + _ + Public Property Zollwert() As Decimal + Get + Return Me._zollwert + End Get + Set(value As Decimal) + Me._zollwert = Value + End Set + End Property + + _ + Public Property WarenMenge() As List(Of WarenMengeVBTyp) + Get + Return Me._warenMenge + End Get + Set(value As List(Of WarenMengeVBTyp)) + Me._warenMenge = Value + End Set + End Property + + _ + Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp) + Get + Return Me._besondereWertangabe + End Get + Set(value As List(Of PreisWertangabeVBTyp)) + Me._besondereWertangabe = Value + End Set + End Property + + _ + Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp) + Get + Return Me._gehaltsangaben + End Get + Set(value As List(Of GehaltsangabenVBTyp)) + Me._gehaltsangaben = Value + End Set + End Property + + _ + Public Property VeredelungWertsteigerung() As Decimal + Get + Return Me._veredelungWertsteigerung + End Get + Set(value As Decimal) + Me._veredelungWertsteigerung = Value + End Set + End Property + + _ + Public Property KostenEUSt() As Decimal + Get + Return Me._kostenEUSt + End Get + Set(value As Decimal) + Me._kostenEUSt = Value + End Set + End Property + + _ + Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp) + Get + Return Me._verbrauchsteuer + End Get + Set(value As List(Of VerbrauchsteuerVBTyp)) + Me._verbrauchsteuer = Value + End Set + End Property + + _ + Public Property BeguenstigungBeantragtCode() As String + Get + Return Me._beguenstigungBeantragtCode + End Get + Set(value As String) + Me._beguenstigungBeantragtCode = Value + End Set + End Property + + _ + Public Property BeguenstigungMenge() As String + Get + Return Me._beguenstigungMenge + End Get + Set(value As String) + Me._beguenstigungMenge = Value + End Set + End Property + + _ + Public Property BeguenstigungMengeMasseinheit() As String + Get + Return Me._beguenstigungMengeMasseinheit + End Get + Set(value As String) + Me._beguenstigungMengeMasseinheit = Value + End Set + End Property + + _ + Public Property BeguenstigungMengeQualifikator() As String + Get + Return Me._beguenstigungMengeQualifikator + End Get + Set(value As String) + Me._beguenstigungMengeQualifikator = Value + End Set + End Property + + _ + Public Property Minderung() As List(Of MinderungVBTyp) + Get + Return Me._minderung + End Get + Set(value As List(Of MinderungVBTyp)) + Me._minderung = Value + End Set + End Property + + _ + Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp) + Get + Return Me._sonderabgaben + End Get + Set(value As List(Of SonderabgabenVBTyp)) + Me._sonderabgaben = Value + End Set + End Property + + _ + Public Property KontingentNrAngewandt() As List(Of String) + Get + Return Me._kontingentNrAngewandt + End Get + Set(value As List(Of String)) + Me._kontingentNrAngewandt = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionBefundVereinfachteZollanmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionBefundVereinfachteZollanmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionBefundVereinfachteZollanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionBefundVereinfachteZollanmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionBefundVereinfachteZollanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionBefundVereinfachteZollanmeldungTyp + Return CType(Serializer.Deserialize(s), PositionBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionBefundVereinfachteZollanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionBefundVereinfachteZollanmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class AnmeldungVBTyp + +#Region "Private fields" + Private _bereich As String + + Private _art As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set(value As String) + Me._bereich = Value + End Set + End Property + + _ + Public Property Art() As String + Get + Return Me._art + End Get + Set(value As String) + Me._art = Value + End Set + End Property + + _ + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set(value As String) + Me._nummer = Value + End Set + End Property + + _ + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set(value As Date) + Me._datumAusstellung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnmeldungVBTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnmeldungVBTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AnmeldungVBTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnmeldungVBTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnmeldungVBTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnmeldungVBTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnmeldungVBTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnmeldungVBTyp + Return CType(Serializer.Deserialize(s), AnmeldungVBTyp) + End Function +#End Region + + ''' + ''' Serializes current AnmeldungVBTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AnmeldungVBTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnmeldungVBTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class KopfdatenBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _telefonnummerBearbeiter As String + + Private _kopfKzErledigung As String + + Private _registriernummer As String + + Private _registrierdatum As Date + + Private _artAnmeldung As String + + Private _datumErstellungBefund As Date + + Private _befund As String + + Private _kzVertretungsverhaeltnis As String + + Private _wKZ As String + + Private _kzRechtsbehelf As String + + Private _kzGesamtschuldnerschaft As String + + Private _eingangszollstelleGeaendertKz As String + + Private _anmelderEORI As String + + Private _anmelderNLNR As String + + Private _anmelderFirmenbezeichung As String + + Private _anmelderStrasseHausNr As String + + Private _anmelderOrtsteil As String + + Private _anmelderOrtS As String + + Private _anmelderPLZS As String + + Private _anmelderNationalitaet As String + + Private _dienststellenschluessel As String + + Private _dienststelleBezeichung As String + + Private _dienststelleStrasseHausNr As String + + Private _dienststelleOrtS As String + + Private _dienststellePLZS As String + + Private _bearbeiter As String + + Private _dienststelleVorwahlTelefonNr As String + + Private _vertreterEORI As String + + Private _vertreterNLNR As String + + Private _vertreterFirmenbezeichnung As String + + Private _vertreterStrasseHausNr As String + + Private _vertreterOrtsteil As String + + Private _vertreterOrtS As String + + Private _vertreterPLZS As String + + Private _vertreterNationalitaet As String + + Private _hZABezeichnung As String + + Private _hZAEmailAdresse As String + + Private _hZAPostfach As String + + Private _hZAOrtP As String + + Private _hZAPLZP As String + + Private _hZAStrasseHausNr As String + + Private _hZAOrtsteil As String + + Private _hZAOrtS As String + + Private _hZAPLZS As String + + Private _fRechnungEORI As String + + Private _fRechnungNLNR As String + + Private _fRechnungNationalitaet As String + + Private _fRechnungName As String + + Private _fRechnungStrasseHausNr As String + + Private _fRechnungPLZS As String + + Private _fRechnungOrtS As String + + Private _fRechnungOrtsteil As String + + Private _anmelderEmpfaengerKz As String + + Private _bewilligungsnummer As String + + Private _versendungslandCode As String + + Private _lieferbedingung As String + + Private _lieferbedingungText As String + + Private _lieferbedingungOrt As String + + Private _lieferbedingungSchluessel As String + + Private _rechnungspreis As Decimal + + Private _rechnungswaehrung As String + + Private _sitzEinfuehrer As String + + Private _ustIdNummer As String + + Private _finanzamt As String + + Private _eingangszollstelle As String + + Private _dV1Kz As String + + Private _verkaeuferEORI As String + + Private _verkaeuferFirmenbezeichnung As String + + Private _verkaeuferNationalitaet As String + + Private _verkaeuferStrasseHausNr As String + + Private _verkaeuferPLZS As String + + Private _verkaeuferOrtS As String + + Private _verkaeuferOrtsteil As String + + Private _kaeuferEORI As String + + Private _kaeuferFirmenbezeichnung As String + + Private _kaeuferNationalitaet As String + + Private _kaeuferStrasseHausNr As String + + Private _kaeuferPLZS As String + + Private _kaeuferOrtS As String + + Private _kaeuferOrtsteil As String + + Private _zollwertanmelderEORI As String + + Private _zollwertanmelderFirmenbezeichnung As String + + Private _zollwertanmelderNationalitaet As String + + Private _zollwertanmelderStrasseHausNr As String + + Private _zollwertanmelderPLZS As String + + Private _zollwertanmelderOrtS As String + + Private _zollwertanmelderOrtsteil As String + + Private _vertreterZollwertanmelderEORI As String + + Private _vertreterZollwertanmelderFirmenbezeichnung As String + + Private _vertreterZollwertanmelderNationalitaet As String + + Private _vertreterZollwertanmelderStrasseHausNr As String + + Private _vertreterZollwertanmelderPLZS As String + + Private _vertreterZollwertanmelderOrtS As String + + Private _vertreterZollwertanmelderOrtsteil As String + + Private _vertretungsverhaeltnis As String + + Private _fruehereEntscheidungen As String + + Private _verbundenheit As String + + Private _verbundenheitEinzelheiten As String + + Private _einschraenkungenKz As String + + Private _bedingungenLeistungenKz As String + + Private _bedingungenLeistungenArt As String + + Private _lizenzgebuehrenKz As String + + Private _lizenzgebuehrenUmstand As String + + Private _spezielleVereinbarungKz As String + + Private _spezielleVereinbarungUmstand As String + + Private _empfaengerEORI As String + + Private _empfaengerNLNR As String + + Private _empfaengerFirmenbezeichnung As String + + Private _empfaengerNationalitaet As String + + Private _empfaengerStrasseHausNr As String + + Private _empfaengerPLZS As String + + Private _empfaengerOrtS As String + + Private _empfaengerOrtsteil As String + + Private _datenuebermittlungEORI As String + + Private _erwerberAndererMitgliedstaatEORI As String + + Private _erwerberAndererMitgliedstaatNLNR As String + + Private _erwerberFirmenbezeichnung As String + + Private _erwerberNationalitaet As String + + Private _erwerberStrasseHausNr As String + + Private _erwerberPLZS As String + + Private _erwerberOrtS As String + + Private _erwerberOrtsteil As String + + Private _erwerberUStIdNrAndererMitgliedstaat As String + + Private _versenderAusfuehrerEORI As String + + Private _versenderAusfuehrerFirmenbezeichnung As String + + Private _versenderAusfuehrerNationalitaet As String + + Private _versenderAusfuehrerStrasseHausNr As String + + Private _versenderAusfuehrerPLZS As String + + Private _versenderAusfuehrerOrtS As String + + Private _versenderAusfuehrerOrtsteil As String + + Private _unterlage As List(Of AnmeldungVBTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._unterlage = New List(Of AnmeldungVBTyp)() + End Sub + + _ + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set(value As String) + Me._sachbearbeiter = Value + End Set + End Property + + _ + Public Property TelefonnummerBearbeiter() As String + Get + Return Me._telefonnummerBearbeiter + End Get + Set(value As String) + Me._telefonnummerBearbeiter = Value + End Set + End Property + + _ + Public Property KopfKzErledigung() As String + Get + Return Me._kopfKzErledigung + End Get + Set(value As String) + Me._kopfKzErledigung = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set(value As Date) + Me._registrierdatum = Value + End Set + End Property + + _ + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set(value As String) + Me._artAnmeldung = Value + End Set + End Property + + _ + Public Property DatumErstellungBefund() As Date + Get + Return Me._datumErstellungBefund + End Get + Set(value As Date) + Me._datumErstellungBefund = Value + End Set + End Property + + _ + Public Property Befund() As String + Get + Return Me._befund + End Get + Set(value As String) + Me._befund = Value + End Set + End Property + + _ + Public Property KzVertretungsverhaeltnis() As String + Get + Return Me._kzVertretungsverhaeltnis + End Get + Set(value As String) + Me._kzVertretungsverhaeltnis = Value + End Set + End Property + + _ + Public Property WKZ() As String + Get + Return Me._wKZ + End Get + Set(value As String) + Me._wKZ = Value + End Set + End Property + + _ + Public Property KzRechtsbehelf() As String + Get + Return Me._kzRechtsbehelf + End Get + Set(value As String) + Me._kzRechtsbehelf = Value + End Set + End Property + + _ + Public Property KzGesamtschuldnerschaft() As String + Get + Return Me._kzGesamtschuldnerschaft + End Get + Set(value As String) + Me._kzGesamtschuldnerschaft = Value + End Set + End Property + + _ + Public Property EingangszollstelleGeaendertKz() As String + Get + Return Me._eingangszollstelleGeaendertKz + End Get + Set(value As String) + Me._eingangszollstelleGeaendertKz = Value + End Set + End Property + + _ + Public Property AnmelderEORI() As String + Get + Return Me._anmelderEORI + End Get + Set(value As String) + Me._anmelderEORI = Value + End Set + End Property + + _ + Public Property AnmelderNLNR() As String + Get + Return Me._anmelderNLNR + End Get + Set(value As String) + Me._anmelderNLNR = Value + End Set + End Property + + _ + Public Property AnmelderFirmenbezeichung() As String + Get + Return Me._anmelderFirmenbezeichung + End Get + Set(value As String) + Me._anmelderFirmenbezeichung = Value + End Set + End Property + + _ + Public Property AnmelderStrasseHausNr() As String + Get + Return Me._anmelderStrasseHausNr + End Get + Set(value As String) + Me._anmelderStrasseHausNr = Value + End Set + End Property + + _ + Public Property AnmelderOrtsteil() As String + Get + Return Me._anmelderOrtsteil + End Get + Set(value As String) + Me._anmelderOrtsteil = Value + End Set + End Property + + _ + Public Property AnmelderOrtS() As String + Get + Return Me._anmelderOrtS + End Get + Set(value As String) + Me._anmelderOrtS = Value + End Set + End Property + + _ + Public Property AnmelderPLZS() As String + Get + Return Me._anmelderPLZS + End Get + Set(value As String) + Me._anmelderPLZS = Value + End Set + End Property + + _ + Public Property AnmelderNationalitaet() As String + Get + Return Me._anmelderNationalitaet + End Get + Set(value As String) + Me._anmelderNationalitaet = Value + End Set + End Property + + _ + Public Property Dienststellenschluessel() As String + Get + Return Me._dienststellenschluessel + End Get + Set(value As String) + Me._dienststellenschluessel = Value + End Set + End Property + + _ + Public Property DienststelleBezeichung() As String + Get + Return Me._dienststelleBezeichung + End Get + Set(value As String) + Me._dienststelleBezeichung = Value + End Set + End Property + + _ + Public Property DienststelleStrasseHausNr() As String + Get + Return Me._dienststelleStrasseHausNr + End Get + Set(value As String) + Me._dienststelleStrasseHausNr = Value + End Set + End Property + + _ + Public Property DienststelleOrtS() As String + Get + Return Me._dienststelleOrtS + End Get + Set(value As String) + Me._dienststelleOrtS = Value + End Set + End Property + + _ + Public Property DienststellePLZS() As String + Get + Return Me._dienststellePLZS + End Get + Set(value As String) + Me._dienststellePLZS = Value + End Set + End Property + + _ + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set(value As String) + Me._bearbeiter = Value + End Set + End Property + + _ + Public Property DienststelleVorwahlTelefonNr() As String + Get + Return Me._dienststelleVorwahlTelefonNr + End Get + Set(value As String) + Me._dienststelleVorwahlTelefonNr = Value + End Set + End Property + + _ + Public Property VertreterEORI() As String + Get + Return Me._vertreterEORI + End Get + Set(value As String) + Me._vertreterEORI = Value + End Set + End Property + + _ + Public Property VertreterNLNR() As String + Get + Return Me._vertreterNLNR + End Get + Set(value As String) + Me._vertreterNLNR = Value + End Set + End Property + + _ + Public Property VertreterFirmenbezeichnung() As String + Get + Return Me._vertreterFirmenbezeichnung + End Get + Set(value As String) + Me._vertreterFirmenbezeichnung = Value + End Set + End Property + + _ + Public Property VertreterStrasseHausNr() As String + Get + Return Me._vertreterStrasseHausNr + End Get + Set(value As String) + Me._vertreterStrasseHausNr = Value + End Set + End Property + + _ + Public Property VertreterOrtsteil() As String + Get + Return Me._vertreterOrtsteil + End Get + Set(value As String) + Me._vertreterOrtsteil = Value + End Set + End Property + + _ + Public Property VertreterOrtS() As String + Get + Return Me._vertreterOrtS + End Get + Set(value As String) + Me._vertreterOrtS = Value + End Set + End Property + + _ + Public Property VertreterPLZS() As String + Get + Return Me._vertreterPLZS + End Get + Set(value As String) + Me._vertreterPLZS = Value + End Set + End Property + + _ + Public Property VertreterNationalitaet() As String + Get + Return Me._vertreterNationalitaet + End Get + Set(value As String) + Me._vertreterNationalitaet = Value + End Set + End Property + + _ + Public Property HZABezeichnung() As String + Get + Return Me._hZABezeichnung + End Get + Set(value As String) + Me._hZABezeichnung = Value + End Set + End Property + + _ + Public Property HZAEmailAdresse() As String + Get + Return Me._hZAEmailAdresse + End Get + Set(value As String) + Me._hZAEmailAdresse = Value + End Set + End Property + + _ + Public Property HZAPostfach() As String + Get + Return Me._hZAPostfach + End Get + Set(value As String) + Me._hZAPostfach = Value + End Set + End Property + + _ + Public Property HZAOrtP() As String + Get + Return Me._hZAOrtP + End Get + Set(value As String) + Me._hZAOrtP = Value + End Set + End Property + + _ + Public Property HZAPLZP() As String + Get + Return Me._hZAPLZP + End Get + Set(value As String) + Me._hZAPLZP = Value + End Set + End Property + + _ + Public Property HZAStrasseHausNr() As String + Get + Return Me._hZAStrasseHausNr + End Get + Set(value As String) + Me._hZAStrasseHausNr = Value + End Set + End Property + + _ + Public Property HZAOrtsteil() As String + Get + Return Me._hZAOrtsteil + End Get + Set(value As String) + Me._hZAOrtsteil = Value + End Set + End Property + + _ + Public Property HZAOrtS() As String + Get + Return Me._hZAOrtS + End Get + Set(value As String) + Me._hZAOrtS = Value + End Set + End Property + + _ + Public Property HZAPLZS() As String + Get + Return Me._hZAPLZS + End Get + Set(value As String) + Me._hZAPLZS = Value + End Set + End Property + + _ + Public Property FRechnungEORI() As String + Get + Return Me._fRechnungEORI + End Get + Set(value As String) + Me._fRechnungEORI = Value + End Set + End Property + + _ + Public Property FRechnungNLNR() As String + Get + Return Me._fRechnungNLNR + End Get + Set(value As String) + Me._fRechnungNLNR = Value + End Set + End Property + + _ + Public Property FRechnungNationalitaet() As String + Get + Return Me._fRechnungNationalitaet + End Get + Set(value As String) + Me._fRechnungNationalitaet = Value + End Set + End Property + + _ + Public Property FRechnungName() As String + Get + Return Me._fRechnungName + End Get + Set(value As String) + Me._fRechnungName = Value + End Set + End Property + + _ + Public Property FRechnungStrasseHausNr() As String + Get + Return Me._fRechnungStrasseHausNr + End Get + Set(value As String) + Me._fRechnungStrasseHausNr = Value + End Set + End Property + + _ + Public Property FRechnungPLZS() As String + Get + Return Me._fRechnungPLZS + End Get + Set(value As String) + Me._fRechnungPLZS = Value + End Set + End Property + + _ + Public Property FRechnungOrtS() As String + Get + Return Me._fRechnungOrtS + End Get + Set(value As String) + Me._fRechnungOrtS = Value + End Set + End Property + + _ + Public Property FRechnungOrtsteil() As String + Get + Return Me._fRechnungOrtsteil + End Get + Set(value As String) + Me._fRechnungOrtsteil = Value + End Set + End Property + + _ + Public Property AnmelderEmpfaengerKz() As String + Get + Return Me._anmelderEmpfaengerKz + End Get + Set(value As String) + Me._anmelderEmpfaengerKz = Value + End Set + End Property + + _ + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set(value As String) + Me._bewilligungsnummer = Value + End Set + End Property + + _ + Public Property VersendungslandCode() As String + Get + Return Me._versendungslandCode + End Get + Set(value As String) + Me._versendungslandCode = Value + End Set + End Property + + _ + Public Property Lieferbedingung() As String + Get + Return Me._lieferbedingung + End Get + Set(value As String) + Me._lieferbedingung = Value + End Set + End Property + + _ + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set(value As String) + Me._lieferbedingungText = Value + End Set + End Property + + _ + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set(value As String) + Me._lieferbedingungOrt = Value + End Set + End Property + + _ + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set(value As String) + Me._lieferbedingungSchluessel = Value + End Set + End Property + + _ + Public Property Rechnungspreis() As Decimal + Get + Return Me._rechnungspreis + End Get + Set(value As Decimal) + Me._rechnungspreis = Value + End Set + End Property + + _ + Public Property Rechnungswaehrung() As String + Get + Return Me._rechnungswaehrung + End Get + Set(value As String) + Me._rechnungswaehrung = Value + End Set + End Property + + _ + Public Property SitzEinfuehrer() As String + Get + Return Me._sitzEinfuehrer + End Get + Set(value As String) + Me._sitzEinfuehrer = Value + End Set + End Property + + _ + Public Property UstIdNummer() As String + Get + Return Me._ustIdNummer + End Get + Set(value As String) + Me._ustIdNummer = Value + End Set + End Property + + _ + Public Property Finanzamt() As String + Get + Return Me._finanzamt + End Get + Set(value As String) + Me._finanzamt = Value + End Set + End Property + + _ + Public Property Eingangszollstelle() As String + Get + Return Me._eingangszollstelle + End Get + Set(value As String) + Me._eingangszollstelle = Value + End Set + End Property + + _ + Public Property DV1Kz() As String + Get + Return Me._dV1Kz + End Get + Set(value As String) + Me._dV1Kz = Value + End Set + End Property + + _ + Public Property VerkaeuferEORI() As String + Get + Return Me._verkaeuferEORI + End Get + Set(value As String) + Me._verkaeuferEORI = Value + End Set + End Property + + _ + Public Property VerkaeuferFirmenbezeichnung() As String + Get + Return Me._verkaeuferFirmenbezeichnung + End Get + Set(value As String) + Me._verkaeuferFirmenbezeichnung = Value + End Set + End Property + + _ + Public Property VerkaeuferNationalitaet() As String + Get + Return Me._verkaeuferNationalitaet + End Get + Set(value As String) + Me._verkaeuferNationalitaet = Value + End Set + End Property + + _ + Public Property VerkaeuferStrasseHausNr() As String + Get + Return Me._verkaeuferStrasseHausNr + End Get + Set(value As String) + Me._verkaeuferStrasseHausNr = Value + End Set + End Property + + _ + Public Property VerkaeuferPLZS() As String + Get + Return Me._verkaeuferPLZS + End Get + Set(value As String) + Me._verkaeuferPLZS = Value + End Set + End Property + + _ + Public Property VerkaeuferOrtS() As String + Get + Return Me._verkaeuferOrtS + End Get + Set(value As String) + Me._verkaeuferOrtS = Value + End Set + End Property + + _ + Public Property VerkaeuferOrtsteil() As String + Get + Return Me._verkaeuferOrtsteil + End Get + Set(value As String) + Me._verkaeuferOrtsteil = Value + End Set + End Property + + _ + Public Property KaeuferEORI() As String + Get + Return Me._kaeuferEORI + End Get + Set(value As String) + Me._kaeuferEORI = Value + End Set + End Property + + _ + Public Property KaeuferFirmenbezeichnung() As String + Get + Return Me._kaeuferFirmenbezeichnung + End Get + Set(value As String) + Me._kaeuferFirmenbezeichnung = Value + End Set + End Property + + _ + Public Property KaeuferNationalitaet() As String + Get + Return Me._kaeuferNationalitaet + End Get + Set(value As String) + Me._kaeuferNationalitaet = Value + End Set + End Property + + _ + Public Property KaeuferStrasseHausNr() As String + Get + Return Me._kaeuferStrasseHausNr + End Get + Set(value As String) + Me._kaeuferStrasseHausNr = Value + End Set + End Property + + _ + Public Property KaeuferPLZS() As String + Get + Return Me._kaeuferPLZS + End Get + Set(value As String) + Me._kaeuferPLZS = Value + End Set + End Property + + _ + Public Property KaeuferOrtS() As String + Get + Return Me._kaeuferOrtS + End Get + Set(value As String) + Me._kaeuferOrtS = Value + End Set + End Property + + _ + Public Property KaeuferOrtsteil() As String + Get + Return Me._kaeuferOrtsteil + End Get + Set(value As String) + Me._kaeuferOrtsteil = Value + End Set + End Property + + _ + Public Property ZollwertanmelderEORI() As String + Get + Return Me._zollwertanmelderEORI + End Get + Set(value As String) + Me._zollwertanmelderEORI = Value + End Set + End Property + + _ + Public Property ZollwertanmelderFirmenbezeichnung() As String + Get + Return Me._zollwertanmelderFirmenbezeichnung + End Get + Set(value As String) + Me._zollwertanmelderFirmenbezeichnung = Value + End Set + End Property + + _ + Public Property ZollwertanmelderNationalitaet() As String + Get + Return Me._zollwertanmelderNationalitaet + End Get + Set(value As String) + Me._zollwertanmelderNationalitaet = Value + End Set + End Property + + _ + Public Property ZollwertanmelderStrasseHausNr() As String + Get + Return Me._zollwertanmelderStrasseHausNr + End Get + Set(value As String) + Me._zollwertanmelderStrasseHausNr = Value + End Set + End Property + + _ + Public Property ZollwertanmelderPLZS() As String + Get + Return Me._zollwertanmelderPLZS + End Get + Set(value As String) + Me._zollwertanmelderPLZS = Value + End Set + End Property + + _ + Public Property ZollwertanmelderOrtS() As String + Get + Return Me._zollwertanmelderOrtS + End Get + Set(value As String) + Me._zollwertanmelderOrtS = Value + End Set + End Property + + _ + Public Property ZollwertanmelderOrtsteil() As String + Get + Return Me._zollwertanmelderOrtsteil + End Get + Set(value As String) + Me._zollwertanmelderOrtsteil = Value + End Set + End Property + + _ + Public Property VertreterZollwertanmelderEORI() As String + Get + Return Me._vertreterZollwertanmelderEORI + End Get + Set(value As String) + Me._vertreterZollwertanmelderEORI = Value + End Set + End Property + + _ + Public Property VertreterZollwertanmelderFirmenbezeichnung() As String + Get + Return Me._vertreterZollwertanmelderFirmenbezeichnung + End Get + Set(value As String) + Me._vertreterZollwertanmelderFirmenbezeichnung = Value + End Set + End Property + + _ + Public Property VertreterZollwertanmelderNationalitaet() As String + Get + Return Me._vertreterZollwertanmelderNationalitaet + End Get + Set(value As String) + Me._vertreterZollwertanmelderNationalitaet = Value + End Set + End Property + + _ + Public Property VertreterZollwertanmelderStrasseHausNr() As String + Get + Return Me._vertreterZollwertanmelderStrasseHausNr + End Get + Set(value As String) + Me._vertreterZollwertanmelderStrasseHausNr = Value + End Set + End Property + + _ + Public Property VertreterZollwertanmelderPLZS() As String + Get + Return Me._vertreterZollwertanmelderPLZS + End Get + Set(value As String) + Me._vertreterZollwertanmelderPLZS = Value + End Set + End Property + + _ + Public Property VertreterZollwertanmelderOrtS() As String + Get + Return Me._vertreterZollwertanmelderOrtS + End Get + Set(value As String) + Me._vertreterZollwertanmelderOrtS = Value + End Set + End Property + + _ + Public Property VertreterZollwertanmelderOrtsteil() As String + Get + Return Me._vertreterZollwertanmelderOrtsteil + End Get + Set(value As String) + Me._vertreterZollwertanmelderOrtsteil = Value + End Set + End Property + + _ + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set(value As String) + Me._vertretungsverhaeltnis = Value + End Set + End Property + + _ + Public Property FruehereEntscheidungen() As String + Get + Return Me._fruehereEntscheidungen + End Get + Set(value As String) + Me._fruehereEntscheidungen = Value + End Set + End Property + + _ + Public Property Verbundenheit() As String + Get + Return Me._verbundenheit + End Get + Set(value As String) + Me._verbundenheit = Value + End Set + End Property + + _ + Public Property VerbundenheitEinzelheiten() As String + Get + Return Me._verbundenheitEinzelheiten + End Get + Set(value As String) + Me._verbundenheitEinzelheiten = Value + End Set + End Property + + _ + Public Property EinschraenkungenKz() As String + Get + Return Me._einschraenkungenKz + End Get + Set(value As String) + Me._einschraenkungenKz = Value + End Set + End Property + + _ + Public Property BedingungenLeistungenKz() As String + Get + Return Me._bedingungenLeistungenKz + End Get + Set(value As String) + Me._bedingungenLeistungenKz = Value + End Set + End Property + + _ + Public Property BedingungenLeistungenArt() As String + Get + Return Me._bedingungenLeistungenArt + End Get + Set(value As String) + Me._bedingungenLeistungenArt = Value + End Set + End Property + + _ + Public Property LizenzgebuehrenKz() As String + Get + Return Me._lizenzgebuehrenKz + End Get + Set(value As String) + Me._lizenzgebuehrenKz = Value + End Set + End Property + + _ + Public Property LizenzgebuehrenUmstand() As String + Get + Return Me._lizenzgebuehrenUmstand + End Get + Set(value As String) + Me._lizenzgebuehrenUmstand = Value + End Set + End Property + + _ + Public Property SpezielleVereinbarungKz() As String + Get + Return Me._spezielleVereinbarungKz + End Get + Set(value As String) + Me._spezielleVereinbarungKz = Value + End Set + End Property + + _ + Public Property SpezielleVereinbarungUmstand() As String + Get + Return Me._spezielleVereinbarungUmstand + End Get + Set(value As String) + Me._spezielleVereinbarungUmstand = Value + End Set + End Property + + _ + Public Property EmpfaengerEORI() As String + Get + Return Me._empfaengerEORI + End Get + Set(value As String) + Me._empfaengerEORI = Value + End Set + End Property + + _ + Public Property EmpfaengerNLNR() As String + Get + Return Me._empfaengerNLNR + End Get + Set(value As String) + Me._empfaengerNLNR = Value + End Set + End Property + + _ + Public Property EmpfaengerFirmenbezeichnung() As String + Get + Return Me._empfaengerFirmenbezeichnung + End Get + Set(value As String) + Me._empfaengerFirmenbezeichnung = Value + End Set + End Property + + _ + Public Property EmpfaengerNationalitaet() As String + Get + Return Me._empfaengerNationalitaet + End Get + Set(value As String) + Me._empfaengerNationalitaet = Value + End Set + End Property + + _ + Public Property EmpfaengerStrasseHausNr() As String + Get + Return Me._empfaengerStrasseHausNr + End Get + Set(value As String) + Me._empfaengerStrasseHausNr = Value + End Set + End Property + + _ + Public Property EmpfaengerPLZS() As String + Get + Return Me._empfaengerPLZS + End Get + Set(value As String) + Me._empfaengerPLZS = Value + End Set + End Property + + _ + Public Property EmpfaengerOrtS() As String + Get + Return Me._empfaengerOrtS + End Get + Set(value As String) + Me._empfaengerOrtS = Value + End Set + End Property + + _ + Public Property EmpfaengerOrtsteil() As String + Get + Return Me._empfaengerOrtsteil + End Get + Set(value As String) + Me._empfaengerOrtsteil = Value + End Set + End Property + + _ + Public Property DatenuebermittlungEORI() As String + Get + Return Me._datenuebermittlungEORI + End Get + Set(value As String) + Me._datenuebermittlungEORI = Value + End Set + End Property + + _ + Public Property ErwerberAndererMitgliedstaatEORI() As String + Get + Return Me._erwerberAndererMitgliedstaatEORI + End Get + Set(value As String) + Me._erwerberAndererMitgliedstaatEORI = Value + End Set + End Property + + _ + Public Property ErwerberAndererMitgliedstaatNLNR() As String + Get + Return Me._erwerberAndererMitgliedstaatNLNR + End Get + Set(value As String) + Me._erwerberAndererMitgliedstaatNLNR = Value + End Set + End Property + + _ + Public Property ErwerberFirmenbezeichnung() As String + Get + Return Me._erwerberFirmenbezeichnung + End Get + Set(value As String) + Me._erwerberFirmenbezeichnung = Value + End Set + End Property + + _ + Public Property ErwerberNationalitaet() As String + Get + Return Me._erwerberNationalitaet + End Get + Set(value As String) + Me._erwerberNationalitaet = Value + End Set + End Property + + _ + Public Property ErwerberStrasseHausNr() As String + Get + Return Me._erwerberStrasseHausNr + End Get + Set(value As String) + Me._erwerberStrasseHausNr = Value + End Set + End Property + + _ + Public Property ErwerberPLZS() As String + Get + Return Me._erwerberPLZS + End Get + Set(value As String) + Me._erwerberPLZS = Value + End Set + End Property + + _ + Public Property ErwerberOrtS() As String + Get + Return Me._erwerberOrtS + End Get + Set(value As String) + Me._erwerberOrtS = Value + End Set + End Property + + _ + Public Property ErwerberOrtsteil() As String + Get + Return Me._erwerberOrtsteil + End Get + Set(value As String) + Me._erwerberOrtsteil = Value + End Set + End Property + + _ + Public Property ErwerberUStIdNrAndererMitgliedstaat() As String + Get + Return Me._erwerberUStIdNrAndererMitgliedstaat + End Get + Set(value As String) + Me._erwerberUStIdNrAndererMitgliedstaat = Value + End Set + End Property + + _ + Public Property VersenderAusfuehrerEORI() As String + Get + Return Me._versenderAusfuehrerEORI + End Get + Set(value As String) + Me._versenderAusfuehrerEORI = Value + End Set + End Property + + _ + Public Property VersenderAusfuehrerFirmenbezeichnung() As String + Get + Return Me._versenderAusfuehrerFirmenbezeichnung + End Get + Set(value As String) + Me._versenderAusfuehrerFirmenbezeichnung = Value + End Set + End Property + + _ + Public Property VersenderAusfuehrerNationalitaet() As String + Get + Return Me._versenderAusfuehrerNationalitaet + End Get + Set(value As String) + Me._versenderAusfuehrerNationalitaet = Value + End Set + End Property + + _ + Public Property VersenderAusfuehrerStrasseHausNr() As String + Get + Return Me._versenderAusfuehrerStrasseHausNr + End Get + Set(value As String) + Me._versenderAusfuehrerStrasseHausNr = Value + End Set + End Property + + _ + Public Property VersenderAusfuehrerPLZS() As String + Get + Return Me._versenderAusfuehrerPLZS + End Get + Set(value As String) + Me._versenderAusfuehrerPLZS = Value + End Set + End Property + + _ + Public Property VersenderAusfuehrerOrtS() As String + Get + Return Me._versenderAusfuehrerOrtS + End Get + Set(value As String) + Me._versenderAusfuehrerOrtS = Value + End Set + End Property + + _ + Public Property VersenderAusfuehrerOrtsteil() As String + Get + Return Me._versenderAusfuehrerOrtsteil + End Get + Set(value As String) + Me._versenderAusfuehrerOrtsteil = Value + End Set + End Property + + _ + Public Property Unterlage() As List(Of AnmeldungVBTyp) + Get + Return Me._unterlage + End Get + Set(value As List(Of AnmeldungVBTyp)) + Me._unterlage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfdatenBefundVereinfachteZollanmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfdatenBefundVereinfachteZollanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfdatenBefundVereinfachteZollanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfdatenBefundVereinfachteZollanmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfdatenBefundVereinfachteZollanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfdatenBefundVereinfachteZollanmeldungTyp + Return CType(Serializer.Deserialize(s), KopfdatenBefundVereinfachteZollanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfdatenBefundVereinfachteZollanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfdatenBefundVereinfachteZollanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionFreierVerkehrTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_005.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_005.xsd new file mode 100644 index 0000000..c9ab651 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_005.xsd @@ -0,0 +1,540 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_006.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_006.Designer.vb new file mode 100644 index 0000000..56c4dc1 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_006.Designer.vb @@ -0,0 +1,3284 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' BefundVereinfachteZollanmeldung_006ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllFalseFalseTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseSerializeDeserializeSaveToFileLoadFromFileFalseFalseIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.Collections.Generic + +Namespace BefundVereinfachteZollanmeldung_006 + + + Partial Public Class BefundVereinfachteZollanmeldungVBTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelBefundVereinfachteZollanmeldung As EinzelBefundVereinfachteZollanmeldungTyp +#End Region + + Public Sub New() + MyBase.New + Me._einzelBefundVereinfachteZollanmeldung = New EinzelBefundVereinfachteZollanmeldungTyp() + End Sub + + + Public Property EinzelBefundVereinfachteZollanmeldung() As EinzelBefundVereinfachteZollanmeldungTyp + Get + Return Me._einzelBefundVereinfachteZollanmeldung + End Get + Set + Me._einzelBefundVereinfachteZollanmeldung = Value + End Set + End Property + End Class + + + Partial Public Class EinzelBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungVBTyp + + Private _kopfDaten As KopfdatenBefundVereinfachteZollanmeldungTyp + + Private _position As List(Of PositionBefundVereinfachteZollanmeldungTyp) +#End Region + + Public Sub New() + MyBase.New + Me._position = New List(Of PositionBefundVereinfachteZollanmeldungTyp)() + Me._kopfDaten = New KopfdatenBefundVereinfachteZollanmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungVBTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungVBTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfdatenBefundVereinfachteZollanmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property Position() As List(Of PositionBefundVereinfachteZollanmeldungTyp) + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + End Class + + + Partial Public Class ObjektIdentifizierungVBTyp + +#Region "Private fields" + Private _objektName As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + End Class + + + Partial Public Class SonderabgabenVBTyp + +#Region "Private fields" + Private _sonderfalleingabeSonderabgabengruppe As String + + Private _anwendungsart As String + + Private _satzBetragFaktor As Decimal +#End Region + + + Public Property SonderfalleingabeSonderabgabengruppe() As String + Get + Return Me._sonderfalleingabeSonderabgabengruppe + End Get + Set + Me._sonderfalleingabeSonderabgabengruppe = Value + End Set + End Property + + + Public Property Anwendungsart() As String + Get + Return Me._anwendungsart + End Get + Set + Me._anwendungsart = Value + End Set + End Property + + + Public Property SatzBetragFaktor() As Decimal + Get + Return Me._satzBetragFaktor + End Get + Set + Me._satzBetragFaktor = Value + End Set + End Property + End Class + + + Partial Public Class MinderungVBTyp + +#Region "Private fields" + Private _minderndeAbgabengruppe As String + + Private _minderungsbetrag As Decimal +#End Region + + + Public Property MinderndeAbgabengruppe() As String + Get + Return Me._minderndeAbgabengruppe + End Get + Set + Me._minderndeAbgabengruppe = Value + End Set + End Property + + + Public Property Minderungsbetrag() As Decimal + Get + Return Me._minderungsbetrag + End Get + Set + Me._minderungsbetrag = Value + End Set + End Property + End Class + + + Partial Public Class VerbrauchsteuerVBTyp + +#Region "Private fields" + Private _verbrauchsteuerCode As String + + Private _verbrauchssteuerMenge As Decimal + + Private _verbrauchssteuerMasseinheitCode As String + + Private _verbrauchssteuerMasseinheitQualifier As String + + Private _gradProzent As Decimal + + Private _verbrauchssteuerWertBasis As Decimal +#End Region + + + Public Property VerbrauchsteuerCode() As String + Get + Return Me._verbrauchsteuerCode + End Get + Set + Me._verbrauchsteuerCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMenge() As Decimal + Get + Return Me._verbrauchssteuerMenge + End Get + Set + Me._verbrauchssteuerMenge = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitCode() As String + Get + Return Me._verbrauchssteuerMasseinheitCode + End Get + Set + Me._verbrauchssteuerMasseinheitCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitQualifier() As String + Get + Return Me._verbrauchssteuerMasseinheitQualifier + End Get + Set + Me._verbrauchssteuerMasseinheitQualifier = Value + End Set + End Property + + + Public Property GradProzent() As Decimal + Get + Return Me._gradProzent + End Get + Set + Me._gradProzent = Value + End Set + End Property + + + Public Property VerbrauchssteuerWertBasis() As Decimal + Get + Return Me._verbrauchssteuerWertBasis + End Get + Set + Me._verbrauchssteuerWertBasis = Value + End Set + End Property + End Class + + + Partial Public Class GehaltsangabenVBTyp + +#Region "Private fields" + Private _artCode As String + + Private _gradProzent As Decimal +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property GradProzent() As Decimal + Get + Return Me._gradProzent + End Get + Set + Me._gradProzent = Value + End Set + End Property + End Class + + + Partial Public Class PreisWertangabeVBTyp + +#Region "Private fields" + Private _preisartCode As String + + Private _wert As Decimal +#End Region + + + Public Property PreisartCode() As String + Get + Return Me._preisartCode + End Get + Set + Me._preisartCode = Value + End Set + End Property + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + End Class + + + Partial Public Class WarenMengeVBTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheit As String + + Private _qualifier As String +#End Region + + + Public Property Menge() As String + Get + Return Me._menge + End Get + Set + Me._menge = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + End Class + + + Partial Public Class AbzugHinzurechnungenVBTyp + +#Region "Private fields" + Private _artCode As String + + Private _artText As String + + Private _betrag As Decimal + + Private _iATAKursKz As String + + Private _waehrung As String + + Private _kursVereinbartKz As String + + Private _kursAuslandswaehrung As Decimal + + Private _kursDatum As Date + + Private _prozentsatz As Decimal +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property ArtText() As String + Get + Return Me._artText + End Get + Set + Me._artText = Value + End Set + End Property + + + Public Property Betrag() As Decimal + Get + Return Me._betrag + End Get + Set + Me._betrag = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursAuslandswaehrung() As Decimal + Get + Return Me._kursAuslandswaehrung + End Get + Set + Me._kursAuslandswaehrung = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property Prozentsatz() As Decimal + Get + Return Me._prozentsatz + End Get + Set + Me._prozentsatz = Value + End Set + End Property + End Class + + + Partial Public Class AbweichungVBTyp + +#Region "Private fields" + Private _abweichendFestgesetztesFeld As String + + Private _abweichendFestgesetztesFeldQualifikator As String + + Private _qualifikatorInhalt As String + + Private _abweichendeFestsetzungArt As String + + Private _abweichendFestgesetztVon As String + + Private _abweichendFestgesetztAuf As String +#End Region + + + Public Property AbweichendFestgesetztesFeld() As String + Get + Return Me._abweichendFestgesetztesFeld + End Get + Set + Me._abweichendFestgesetztesFeld = Value + End Set + End Property + + + Public Property AbweichendFestgesetztesFeldQualifikator() As String + Get + Return Me._abweichendFestgesetztesFeldQualifikator + End Get + Set + Me._abweichendFestgesetztesFeldQualifikator = Value + End Set + End Property + + + Public Property QualifikatorInhalt() As String + Get + Return Me._qualifikatorInhalt + End Get + Set + Me._qualifikatorInhalt = Value + End Set + End Property + + + Public Property AbweichendeFestsetzungArt() As String + Get + Return Me._abweichendeFestsetzungArt + End Get + Set + Me._abweichendeFestsetzungArt = Value + End Set + End Property + + + Public Property AbweichendFestgesetztVon() As String + Get + Return Me._abweichendFestgesetztVon + End Get + Set + Me._abweichendFestgesetztVon = Value + End Set + End Property + + + Public Property AbweichendFestgesetztAuf() As String + Get + Return Me._abweichendFestgesetztAuf + End Get + Set + Me._abweichendFestgesetztAuf = Value + End Set + End Property + End Class + + + Partial Public Class UnterlageVBTyp + +#Region "Private fields" + Private _art As String + + Private _bereich As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private _vorlageKz As String + + Private _abschreibungsMenge As Decimal + + Private _abschreibungsMengeMasseinheit As String + + Private _abschreibungsMengeMasseinheitQualifier As String + + Private _kzAnerkennung As String + + Private _kzAbschreibung As String + + Private _kzEinbehalten As String + + Private _kzPeriodischeVorlage As String +#End Region + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set + Me._bereich = Value + End Set + End Property + + + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + + + Public Property VorlageKz() As String + Get + Return Me._vorlageKz + End Get + Set + Me._vorlageKz = Value + End Set + End Property + + + Public Property AbschreibungsMenge() As Decimal + Get + Return Me._abschreibungsMenge + End Get + Set + Me._abschreibungsMenge = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheit() As String + Get + Return Me._abschreibungsMengeMasseinheit + End Get + Set + Me._abschreibungsMengeMasseinheit = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheitQualifier() As String + Get + Return Me._abschreibungsMengeMasseinheitQualifier + End Get + Set + Me._abschreibungsMengeMasseinheitQualifier = Value + End Set + End Property + + + Public Property KzAnerkennung() As String + Get + Return Me._kzAnerkennung + End Get + Set + Me._kzAnerkennung = Value + End Set + End Property + + + Public Property KzAbschreibung() As String + Get + Return Me._kzAbschreibung + End Get + Set + Me._kzAbschreibung = Value + End Set + End Property + + + Public Property KzEinbehalten() As String + Get + Return Me._kzEinbehalten + End Get + Set + Me._kzEinbehalten = Value + End Set + End Property + + + Public Property KzPeriodischeVorlage() As String + Get + Return Me._kzPeriodischeVorlage + End Get + Set + Me._kzPeriodischeVorlage = Value + End Set + End Property + End Class + + + Partial Public Class PositionBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _positionsNrvZAAZ As String + + Private _mitteilungAnTeilnehmerBeschau As String + + Private _weitererNachweis As String + + Private _mitteilungAnTeilnehmerErledigung As String + + Private _positionsbefund As String + + Private _unterlage As List(Of UnterlageVBTyp) + + Private _ueberlassungDatum As Date + + Private _weitererNachweisFrist As Date + + Private _positionKzErledigung As String + + Private _abweichung As List(Of AbweichungVBTyp) + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _abgabensteuerungKz As String + + Private _eUCode As String + + Private _sachbereich As String + + Private _artikelNummer As String + + Private _artikelpreis As Decimal + + Private _positionsZusatz As String + + Private _eigenmasse As Decimal + + Private _ursprungslandCode As String + + Private _tabakSteuerzeichenID As String + + Private _statistikStatus As String + + Private _artGeschaeftCode As String + + Private _bestimmungsbundesland As String + + Private _aHStatWert As String + + Private _aHStatMenge As Decimal + + Private _aHStatMengeMasseinheit As String + + Private _aHStatMengeQualifier As String + + Private _rohmasse As Decimal + + Private _dV1Nettopreis As Decimal + + Private _dV1Waehrung As String + + Private _dV1KzKursNettoVereinbart As String + + Private _dV1Kurs As Decimal + + Private _dV1MittelbareZahlungen As Decimal + + Private _dV1MittelbareZahlungenWaehrung As String + + Private _dV1MittelbareZahlungenKursKz As String + + Private _dV1MittelbareZahlungenKurs As Decimal + + Private _ortVerbringens As String + + Private _abflughafenIATACode As String + + Private _luftfrachtkostenGesamt As Decimal + + Private _iATAKursKz As String + + Private _luftfrachtkostenGesamtWaehrung As String + + Private _kursVereinbartKz As String + + Private _kursBetragVereinbart As Decimal + + Private _kursDatum As Date + + Private _abzugHinzurechnungen As List(Of AbzugHinzurechnungenVBTyp) + + Private _zollwert As Decimal + + Private _warenMenge As List(Of WarenMengeVBTyp) + + Private _besondereWertangabe As List(Of PreisWertangabeVBTyp) + + Private _gehaltsangaben As List(Of GehaltsangabenVBTyp) + + Private _veredelungWertsteigerung As Decimal + + Private _kostenEUSt As Decimal + + Private _verbrauchsteuer As List(Of VerbrauchsteuerVBTyp) + + Private _beguenstigungBeantragtCode As String + + Private _beguenstigungMenge As String + + Private _beguenstigungMengeMasseinheit As String + + Private _beguenstigungMengeQualifikator As String + + Private _minderung As List(Of MinderungVBTyp) + + Private _sonderabgaben As List(Of SonderabgabenVBTyp) + + Private _kontingentNrAngewandt As List(Of String) +#End Region + + Public Sub New() + MyBase.New + Me._kontingentNrAngewandt = New List(Of String)() + Me._sonderabgaben = New List(Of SonderabgabenVBTyp)() + Me._minderung = New List(Of MinderungVBTyp)() + Me._verbrauchsteuer = New List(Of VerbrauchsteuerVBTyp)() + Me._gehaltsangaben = New List(Of GehaltsangabenVBTyp)() + Me._besondereWertangabe = New List(Of PreisWertangabeVBTyp)() + Me._warenMenge = New List(Of WarenMengeVBTyp)() + Me._abzugHinzurechnungen = New List(Of AbzugHinzurechnungenVBTyp)() + Me._warenNummerZusatzCode = New List(Of String)() + Me._abweichung = New List(Of AbweichungVBTyp)() + Me._unterlage = New List(Of UnterlageVBTyp)() + End Sub + + + Public Property PositionsNrvZAAZ() As String + Get + Return Me._positionsNrvZAAZ + End Get + Set + Me._positionsNrvZAAZ = Value + End Set + End Property + + + Public Property MitteilungAnTeilnehmerBeschau() As String + Get + Return Me._mitteilungAnTeilnehmerBeschau + End Get + Set + Me._mitteilungAnTeilnehmerBeschau = Value + End Set + End Property + + + Public Property WeitererNachweis() As String + Get + Return Me._weitererNachweis + End Get + Set + Me._weitererNachweis = Value + End Set + End Property + + + Public Property MitteilungAnTeilnehmerErledigung() As String + Get + Return Me._mitteilungAnTeilnehmerErledigung + End Get + Set + Me._mitteilungAnTeilnehmerErledigung = Value + End Set + End Property + + + Public Property Positionsbefund() As String + Get + Return Me._positionsbefund + End Get + Set + Me._positionsbefund = Value + End Set + End Property + + + Public Property Unterlage() As List(Of UnterlageVBTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set + Me._ueberlassungDatum = Value + End Set + End Property + + + Public Property WeitererNachweisFrist() As Date + Get + Return Me._weitererNachweisFrist + End Get + Set + Me._weitererNachweisFrist = Value + End Set + End Property + + + Public Property PositionKzErledigung() As String + Get + Return Me._positionKzErledigung + End Get + Set + Me._positionKzErledigung = Value + End Set + End Property + + + Public Property Abweichung() As List(Of AbweichungVBTyp) + Get + Return Me._abweichung + End Get + Set + Me._abweichung = Value + End Set + End Property + + + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set + Me._warenNummerEZT = Value + End Set + End Property + + + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set + Me._warenNummerZusatzCode = Value + End Set + End Property + + + Public Property AbgabensteuerungKz() As String + Get + Return Me._abgabensteuerungKz + End Get + Set + Me._abgabensteuerungKz = Value + End Set + End Property + + + Public Property EUCode() As String + Get + Return Me._eUCode + End Get + Set + Me._eUCode = Value + End Set + End Property + + + Public Property Sachbereich() As String + Get + Return Me._sachbereich + End Get + Set + Me._sachbereich = Value + End Set + End Property + + + Public Property ArtikelNummer() As String + Get + Return Me._artikelNummer + End Get + Set + Me._artikelNummer = Value + End Set + End Property + + + Public Property Artikelpreis() As Decimal + Get + Return Me._artikelpreis + End Get + Set + Me._artikelpreis = Value + End Set + End Property + + + Public Property PositionsZusatz() As String + Get + Return Me._positionsZusatz + End Get + Set + Me._positionsZusatz = Value + End Set + End Property + + + Public Property Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = Value + End Set + End Property + + + Public Property UrsprungslandCode() As String + Get + Return Me._ursprungslandCode + End Get + Set + Me._ursprungslandCode = Value + End Set + End Property + + + Public Property TabakSteuerzeichenID() As String + Get + Return Me._tabakSteuerzeichenID + End Get + Set + Me._tabakSteuerzeichenID = Value + End Set + End Property + + + Public Property StatistikStatus() As String + Get + Return Me._statistikStatus + End Get + Set + Me._statistikStatus = Value + End Set + End Property + + + Public Property ArtGeschaeftCode() As String + Get + Return Me._artGeschaeftCode + End Get + Set + Me._artGeschaeftCode = Value + End Set + End Property + + + Public Property Bestimmungsbundesland() As String + Get + Return Me._bestimmungsbundesland + End Get + Set + Me._bestimmungsbundesland = Value + End Set + End Property + + + Public Property AHStatWert() As String + Get + Return Me._aHStatWert + End Get + Set + Me._aHStatWert = Value + End Set + End Property + + + Public Property AHStatMenge() As Decimal + Get + Return Me._aHStatMenge + End Get + Set + Me._aHStatMenge = Value + End Set + End Property + + + Public Property AHStatMengeMasseinheit() As String + Get + Return Me._aHStatMengeMasseinheit + End Get + Set + Me._aHStatMengeMasseinheit = Value + End Set + End Property + + + Public Property AHStatMengeQualifier() As String + Get + Return Me._aHStatMengeQualifier + End Get + Set + Me._aHStatMengeQualifier = Value + End Set + End Property + + + Public Property Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property DV1Nettopreis() As Decimal + Get + Return Me._dV1Nettopreis + End Get + Set + Me._dV1Nettopreis = Value + End Set + End Property + + + Public Property DV1Waehrung() As String + Get + Return Me._dV1Waehrung + End Get + Set + Me._dV1Waehrung = Value + End Set + End Property + + + Public Property DV1KzKursNettoVereinbart() As String + Get + Return Me._dV1KzKursNettoVereinbart + End Get + Set + Me._dV1KzKursNettoVereinbart = Value + End Set + End Property + + + Public Property DV1Kurs() As Decimal + Get + Return Me._dV1Kurs + End Get + Set + Me._dV1Kurs = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungen() As Decimal + Get + Return Me._dV1MittelbareZahlungen + End Get + Set + Me._dV1MittelbareZahlungen = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungenWaehrung() As String + Get + Return Me._dV1MittelbareZahlungenWaehrung + End Get + Set + Me._dV1MittelbareZahlungenWaehrung = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungenKursKz() As String + Get + Return Me._dV1MittelbareZahlungenKursKz + End Get + Set + Me._dV1MittelbareZahlungenKursKz = Value + End Set + End Property + + + Public Property DV1MittelbareZahlungenKurs() As Decimal + Get + Return Me._dV1MittelbareZahlungenKurs + End Get + Set + Me._dV1MittelbareZahlungenKurs = Value + End Set + End Property + + + Public Property OrtVerbringens() As String + Get + Return Me._ortVerbringens + End Get + Set + Me._ortVerbringens = Value + End Set + End Property + + + Public Property AbflughafenIATACode() As String + Get + Return Me._abflughafenIATACode + End Get + Set + Me._abflughafenIATACode = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamt() As Decimal + Get + Return Me._luftfrachtkostenGesamt + End Get + Set + Me._luftfrachtkostenGesamt = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamtWaehrung() As String + Get + Return Me._luftfrachtkostenGesamtWaehrung + End Get + Set + Me._luftfrachtkostenGesamtWaehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursBetragVereinbart() As Decimal + Get + Return Me._kursBetragVereinbart + End Get + Set + Me._kursBetragVereinbart = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property AbzugHinzurechnungen() As List(Of AbzugHinzurechnungenVBTyp) + Get + Return Me._abzugHinzurechnungen + End Get + Set + Me._abzugHinzurechnungen = Value + End Set + End Property + + + Public Property Zollwert() As Decimal + Get + Return Me._zollwert + End Get + Set + Me._zollwert = Value + End Set + End Property + + + Public Property WarenMenge() As List(Of WarenMengeVBTyp) + Get + Return Me._warenMenge + End Get + Set + Me._warenMenge = Value + End Set + End Property + + + Public Property BesondereWertangabe() As List(Of PreisWertangabeVBTyp) + Get + Return Me._besondereWertangabe + End Get + Set + Me._besondereWertangabe = Value + End Set + End Property + + + Public Property Gehaltsangaben() As List(Of GehaltsangabenVBTyp) + Get + Return Me._gehaltsangaben + End Get + Set + Me._gehaltsangaben = Value + End Set + End Property + + + Public Property VeredelungWertsteigerung() As Decimal + Get + Return Me._veredelungWertsteigerung + End Get + Set + Me._veredelungWertsteigerung = Value + End Set + End Property + + + Public Property KostenEUSt() As Decimal + Get + Return Me._kostenEUSt + End Get + Set + Me._kostenEUSt = Value + End Set + End Property + + + Public Property Verbrauchsteuer() As List(Of VerbrauchsteuerVBTyp) + Get + Return Me._verbrauchsteuer + End Get + Set + Me._verbrauchsteuer = Value + End Set + End Property + + + Public Property BeguenstigungBeantragtCode() As String + Get + Return Me._beguenstigungBeantragtCode + End Get + Set + Me._beguenstigungBeantragtCode = Value + End Set + End Property + + + Public Property BeguenstigungMenge() As String + Get + Return Me._beguenstigungMenge + End Get + Set + Me._beguenstigungMenge = Value + End Set + End Property + + + Public Property BeguenstigungMengeMasseinheit() As String + Get + Return Me._beguenstigungMengeMasseinheit + End Get + Set + Me._beguenstigungMengeMasseinheit = Value + End Set + End Property + + + Public Property BeguenstigungMengeQualifikator() As String + Get + Return Me._beguenstigungMengeQualifikator + End Get + Set + Me._beguenstigungMengeQualifikator = Value + End Set + End Property + + + Public Property Minderung() As List(Of MinderungVBTyp) + Get + Return Me._minderung + End Get + Set + Me._minderung = Value + End Set + End Property + + + Public Property Sonderabgaben() As List(Of SonderabgabenVBTyp) + Get + Return Me._sonderabgaben + End Get + Set + Me._sonderabgaben = Value + End Set + End Property + + + Public Property KontingentNrAngewandt() As List(Of String) + Get + Return Me._kontingentNrAngewandt + End Get + Set + Me._kontingentNrAngewandt = Value + End Set + End Property + End Class + + + Partial Public Class AnmeldungVBTyp + +#Region "Private fields" + Private _bereich As String + + Private _art As String + + Private _nummer As String + + Private _datumAusstellung As Date +#End Region + + + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set + Me._bereich = Value + End Set + End Property + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + End Class + + + Partial Public Class KopfdatenBefundVereinfachteZollanmeldungTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _telefonnummerBearbeiter As String + + Private _kopfKzErledigung As String + + Private _registriernummer As String + + Private _registrierdatum As Date + + Private _artAnmeldung As String + + Private _datumErstellungBefund As Date + + Private _befund As String + + Private _kzVertretungsverhaeltnis As String + + Private _wKZ As String + + Private _kzRechtsbehelf As String + + Private _kzGesamtschuldnerschaft As String + + Private _eingangszollstelleGeaendertKz As String + + Private _anmelderEORI As String + + Private _anmelderNLNR As String + + Private _anmelderFirmenbezeichung As String + + Private _anmelderStrasseHausNr As String + + Private _anmelderOrtsteil As String + + Private _anmelderOrtS As String + + Private _anmelderPLZS As String + + Private _anmelderNationalitaet As String + + Private _dienststellenschluessel As String + + Private _dienststelleBezeichung As String + + Private _dienststelleStrasseHausNr As String + + Private _dienststelleOrtS As String + + Private _dienststellePLZS As String + + Private _bearbeiter As String + + Private _dienststelleVorwahlTelefonNr As String + + Private _vertreterEORI As String + + Private _vertreterNLNR As String + + Private _vertreterFirmenbezeichnung As String + + Private _vertreterStrasseHausNr As String + + Private _vertreterOrtsteil As String + + Private _vertreterOrtS As String + + Private _vertreterPLZS As String + + Private _vertreterNationalitaet As String + + Private _hZABezeichnung As String + + Private _hZAEmailAdresse As String + + Private _hZAPostfach As String + + Private _hZAOrtP As String + + Private _hZAPLZP As String + + Private _hZAStrasseHausNr As String + + Private _hZAOrtsteil As String + + Private _hZAOrtS As String + + Private _hZAPLZS As String + + Private _fRechnungEORI As String + + Private _fRechnungNLNR As String + + Private _fRechnungNationalitaet As String + + Private _fRechnungName As String + + Private _fRechnungStrasseHausNr As String + + Private _fRechnungPLZS As String + + Private _fRechnungOrtS As String + + Private _fRechnungOrtsteil As String + + Private _anmelderEmpfaengerKz As String + + Private _bewilligungsnummer As String + + Private _versendungslandCode As String + + Private _lieferbedingung As String + + Private _lieferbedingungText As String + + Private _lieferbedingungOrt As String + + Private _lieferbedingungSchluessel As String + + Private _rechnungspreis As Decimal + + Private _rechnungswaehrung As String + + Private _ustIdNummer As String + + Private _finanzamt As String + + Private _eingangszollstelle As String + + Private _dV1Kz As String + + Private _verkaeuferEORI As String + + Private _verkaeuferFirmenbezeichnung As String + + Private _verkaeuferNationalitaet As String + + Private _verkaeuferStrasseHausNr As String + + Private _verkaeuferPLZS As String + + Private _verkaeuferOrtS As String + + Private _verkaeuferOrtsteil As String + + Private _kaeuferEORI As String + + Private _kaeuferFirmenbezeichnung As String + + Private _kaeuferNationalitaet As String + + Private _kaeuferStrasseHausNr As String + + Private _kaeuferPLZS As String + + Private _kaeuferOrtS As String + + Private _kaeuferOrtsteil As String + + Private _zollwertanmelderEORI As String + + Private _zollwertanmelderFirmenbezeichnung As String + + Private _zollwertanmelderNationalitaet As String + + Private _zollwertanmelderStrasseHausNr As String + + Private _zollwertanmelderPLZS As String + + Private _zollwertanmelderOrtS As String + + Private _zollwertanmelderOrtsteil As String + + Private _vertreterZollwertanmelderEORI As String + + Private _vertreterZollwertanmelderFirmenbezeichnung As String + + Private _vertreterZollwertanmelderNationalitaet As String + + Private _vertreterZollwertanmelderStrasseHausNr As String + + Private _vertreterZollwertanmelderPLZS As String + + Private _vertreterZollwertanmelderOrtS As String + + Private _vertreterZollwertanmelderOrtsteil As String + + Private _vertretungsverhaeltnis As String + + Private _fruehereEntscheidungen As String + + Private _verbundenheit As String + + Private _verbundenheitEinzelheiten As String + + Private _einschraenkungenKz As String + + Private _bedingungenLeistungenKz As String + + Private _bedingungenLeistungenArt As String + + Private _lizenzgebuehrenKz As String + + Private _lizenzgebuehrenUmstand As String + + Private _spezielleVereinbarungKz As String + + Private _spezielleVereinbarungUmstand As String + + Private _empfaengerEORI As String + + Private _empfaengerNLNR As String + + Private _empfaengerFirmenbezeichnung As String + + Private _empfaengerNationalitaet As String + + Private _empfaengerStrasseHausNr As String + + Private _empfaengerPLZS As String + + Private _empfaengerOrtS As String + + Private _empfaengerOrtsteil As String + + Private _datenuebermittlungEORI As String + + Private _erwerberAndererMitgliedstaatEORI As String + + Private _erwerberAndererMitgliedstaatNLNR As String + + Private _erwerberFirmenbezeichnung As String + + Private _erwerberNationalitaet As String + + Private _erwerberStrasseHausNr As String + + Private _erwerberPLZS As String + + Private _erwerberOrtS As String + + Private _erwerberOrtsteil As String + + Private _erwerberUStIdNrAndererMitgliedstaat As String + + Private _versenderAusfuehrerEORI As String + + Private _versenderAusfuehrerFirmenbezeichnung As String + + Private _versenderAusfuehrerNationalitaet As String + + Private _versenderAusfuehrerStrasseHausNr As String + + Private _versenderAusfuehrerPLZS As String + + Private _versenderAusfuehrerOrtS As String + + Private _versenderAusfuehrerOrtsteil As String + + Private _unterlage As List(Of AnmeldungVBTyp) +#End Region + + Public Sub New() + MyBase.New + Me._unterlage = New List(Of AnmeldungVBTyp)() + End Sub + + + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set + Me._sachbearbeiter = Value + End Set + End Property + + + Public Property TelefonnummerBearbeiter() As String + Get + Return Me._telefonnummerBearbeiter + End Get + Set + Me._telefonnummerBearbeiter = Value + End Set + End Property + + + Public Property KopfKzErledigung() As String + Get + Return Me._kopfKzErledigung + End Get + Set + Me._kopfKzErledigung = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set + Me._registrierdatum = Value + End Set + End Property + + + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set + Me._artAnmeldung = Value + End Set + End Property + + + Public Property DatumErstellungBefund() As Date + Get + Return Me._datumErstellungBefund + End Get + Set + Me._datumErstellungBefund = Value + End Set + End Property + + + Public Property Befund() As String + Get + Return Me._befund + End Get + Set + Me._befund = Value + End Set + End Property + + + Public Property KzVertretungsverhaeltnis() As String + Get + Return Me._kzVertretungsverhaeltnis + End Get + Set + Me._kzVertretungsverhaeltnis = Value + End Set + End Property + + + Public Property WKZ() As String + Get + Return Me._wKZ + End Get + Set + Me._wKZ = Value + End Set + End Property + + + Public Property KzRechtsbehelf() As String + Get + Return Me._kzRechtsbehelf + End Get + Set + Me._kzRechtsbehelf = Value + End Set + End Property + + + Public Property KzGesamtschuldnerschaft() As String + Get + Return Me._kzGesamtschuldnerschaft + End Get + Set + Me._kzGesamtschuldnerschaft = Value + End Set + End Property + + + Public Property EingangszollstelleGeaendertKz() As String + Get + Return Me._eingangszollstelleGeaendertKz + End Get + Set + Me._eingangszollstelleGeaendertKz = Value + End Set + End Property + + + Public Property AnmelderEORI() As String + Get + Return Me._anmelderEORI + End Get + Set + Me._anmelderEORI = Value + End Set + End Property + + + Public Property AnmelderNLNR() As String + Get + Return Me._anmelderNLNR + End Get + Set + Me._anmelderNLNR = Value + End Set + End Property + + + Public Property AnmelderFirmenbezeichung() As String + Get + Return Me._anmelderFirmenbezeichung + End Get + Set + Me._anmelderFirmenbezeichung = Value + End Set + End Property + + + Public Property AnmelderStrasseHausNr() As String + Get + Return Me._anmelderStrasseHausNr + End Get + Set + Me._anmelderStrasseHausNr = Value + End Set + End Property + + + Public Property AnmelderOrtsteil() As String + Get + Return Me._anmelderOrtsteil + End Get + Set + Me._anmelderOrtsteil = Value + End Set + End Property + + + Public Property AnmelderOrtS() As String + Get + Return Me._anmelderOrtS + End Get + Set + Me._anmelderOrtS = Value + End Set + End Property + + + Public Property AnmelderPLZS() As String + Get + Return Me._anmelderPLZS + End Get + Set + Me._anmelderPLZS = Value + End Set + End Property + + + Public Property AnmelderNationalitaet() As String + Get + Return Me._anmelderNationalitaet + End Get + Set + Me._anmelderNationalitaet = Value + End Set + End Property + + + Public Property Dienststellenschluessel() As String + Get + Return Me._dienststellenschluessel + End Get + Set + Me._dienststellenschluessel = Value + End Set + End Property + + + Public Property DienststelleBezeichung() As String + Get + Return Me._dienststelleBezeichung + End Get + Set + Me._dienststelleBezeichung = Value + End Set + End Property + + + Public Property DienststelleStrasseHausNr() As String + Get + Return Me._dienststelleStrasseHausNr + End Get + Set + Me._dienststelleStrasseHausNr = Value + End Set + End Property + + + Public Property DienststelleOrtS() As String + Get + Return Me._dienststelleOrtS + End Get + Set + Me._dienststelleOrtS = Value + End Set + End Property + + + Public Property DienststellePLZS() As String + Get + Return Me._dienststellePLZS + End Get + Set + Me._dienststellePLZS = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property DienststelleVorwahlTelefonNr() As String + Get + Return Me._dienststelleVorwahlTelefonNr + End Get + Set + Me._dienststelleVorwahlTelefonNr = Value + End Set + End Property + + + Public Property VertreterEORI() As String + Get + Return Me._vertreterEORI + End Get + Set + Me._vertreterEORI = Value + End Set + End Property + + + Public Property VertreterNLNR() As String + Get + Return Me._vertreterNLNR + End Get + Set + Me._vertreterNLNR = Value + End Set + End Property + + + Public Property VertreterFirmenbezeichnung() As String + Get + Return Me._vertreterFirmenbezeichnung + End Get + Set + Me._vertreterFirmenbezeichnung = Value + End Set + End Property + + + Public Property VertreterStrasseHausNr() As String + Get + Return Me._vertreterStrasseHausNr + End Get + Set + Me._vertreterStrasseHausNr = Value + End Set + End Property + + + Public Property VertreterOrtsteil() As String + Get + Return Me._vertreterOrtsteil + End Get + Set + Me._vertreterOrtsteil = Value + End Set + End Property + + + Public Property VertreterOrtS() As String + Get + Return Me._vertreterOrtS + End Get + Set + Me._vertreterOrtS = Value + End Set + End Property + + + Public Property VertreterPLZS() As String + Get + Return Me._vertreterPLZS + End Get + Set + Me._vertreterPLZS = Value + End Set + End Property + + + Public Property VertreterNationalitaet() As String + Get + Return Me._vertreterNationalitaet + End Get + Set + Me._vertreterNationalitaet = Value + End Set + End Property + + + Public Property HZABezeichnung() As String + Get + Return Me._hZABezeichnung + End Get + Set + Me._hZABezeichnung = Value + End Set + End Property + + + Public Property HZAEmailAdresse() As String + Get + Return Me._hZAEmailAdresse + End Get + Set + Me._hZAEmailAdresse = Value + End Set + End Property + + + Public Property HZAPostfach() As String + Get + Return Me._hZAPostfach + End Get + Set + Me._hZAPostfach = Value + End Set + End Property + + + Public Property HZAOrtP() As String + Get + Return Me._hZAOrtP + End Get + Set + Me._hZAOrtP = Value + End Set + End Property + + + Public Property HZAPLZP() As String + Get + Return Me._hZAPLZP + End Get + Set + Me._hZAPLZP = Value + End Set + End Property + + + Public Property HZAStrasseHausNr() As String + Get + Return Me._hZAStrasseHausNr + End Get + Set + Me._hZAStrasseHausNr = Value + End Set + End Property + + + Public Property HZAOrtsteil() As String + Get + Return Me._hZAOrtsteil + End Get + Set + Me._hZAOrtsteil = Value + End Set + End Property + + + Public Property HZAOrtS() As String + Get + Return Me._hZAOrtS + End Get + Set + Me._hZAOrtS = Value + End Set + End Property + + + Public Property HZAPLZS() As String + Get + Return Me._hZAPLZS + End Get + Set + Me._hZAPLZS = Value + End Set + End Property + + + Public Property FRechnungEORI() As String + Get + Return Me._fRechnungEORI + End Get + Set + Me._fRechnungEORI = Value + End Set + End Property + + + Public Property FRechnungNLNR() As String + Get + Return Me._fRechnungNLNR + End Get + Set + Me._fRechnungNLNR = Value + End Set + End Property + + + Public Property FRechnungNationalitaet() As String + Get + Return Me._fRechnungNationalitaet + End Get + Set + Me._fRechnungNationalitaet = Value + End Set + End Property + + + Public Property FRechnungName() As String + Get + Return Me._fRechnungName + End Get + Set + Me._fRechnungName = Value + End Set + End Property + + + Public Property FRechnungStrasseHausNr() As String + Get + Return Me._fRechnungStrasseHausNr + End Get + Set + Me._fRechnungStrasseHausNr = Value + End Set + End Property + + + Public Property FRechnungPLZS() As String + Get + Return Me._fRechnungPLZS + End Get + Set + Me._fRechnungPLZS = Value + End Set + End Property + + + Public Property FRechnungOrtS() As String + Get + Return Me._fRechnungOrtS + End Get + Set + Me._fRechnungOrtS = Value + End Set + End Property + + + Public Property FRechnungOrtsteil() As String + Get + Return Me._fRechnungOrtsteil + End Get + Set + Me._fRechnungOrtsteil = Value + End Set + End Property + + + Public Property AnmelderEmpfaengerKz() As String + Get + Return Me._anmelderEmpfaengerKz + End Get + Set + Me._anmelderEmpfaengerKz = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property VersendungslandCode() As String + Get + Return Me._versendungslandCode + End Get + Set + Me._versendungslandCode = Value + End Set + End Property + + + Public Property Lieferbedingung() As String + Get + Return Me._lieferbedingung + End Get + Set + Me._lieferbedingung = Value + End Set + End Property + + + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set + Me._lieferbedingungText = Value + End Set + End Property + + + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set + Me._lieferbedingungOrt = Value + End Set + End Property + + + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set + Me._lieferbedingungSchluessel = Value + End Set + End Property + + + Public Property Rechnungspreis() As Decimal + Get + Return Me._rechnungspreis + End Get + Set + Me._rechnungspreis = Value + End Set + End Property + + + Public Property Rechnungswaehrung() As String + Get + Return Me._rechnungswaehrung + End Get + Set + Me._rechnungswaehrung = Value + End Set + End Property + + + Public Property UstIdNummer() As String + Get + Return Me._ustIdNummer + End Get + Set + Me._ustIdNummer = Value + End Set + End Property + + + Public Property Finanzamt() As String + Get + Return Me._finanzamt + End Get + Set + Me._finanzamt = Value + End Set + End Property + + + Public Property Eingangszollstelle() As String + Get + Return Me._eingangszollstelle + End Get + Set + Me._eingangszollstelle = Value + End Set + End Property + + + Public Property DV1Kz() As String + Get + Return Me._dV1Kz + End Get + Set + Me._dV1Kz = Value + End Set + End Property + + + Public Property VerkaeuferEORI() As String + Get + Return Me._verkaeuferEORI + End Get + Set + Me._verkaeuferEORI = Value + End Set + End Property + + + Public Property VerkaeuferFirmenbezeichnung() As String + Get + Return Me._verkaeuferFirmenbezeichnung + End Get + Set + Me._verkaeuferFirmenbezeichnung = Value + End Set + End Property + + + Public Property VerkaeuferNationalitaet() As String + Get + Return Me._verkaeuferNationalitaet + End Get + Set + Me._verkaeuferNationalitaet = Value + End Set + End Property + + + Public Property VerkaeuferStrasseHausNr() As String + Get + Return Me._verkaeuferStrasseHausNr + End Get + Set + Me._verkaeuferStrasseHausNr = Value + End Set + End Property + + + Public Property VerkaeuferPLZS() As String + Get + Return Me._verkaeuferPLZS + End Get + Set + Me._verkaeuferPLZS = Value + End Set + End Property + + + Public Property VerkaeuferOrtS() As String + Get + Return Me._verkaeuferOrtS + End Get + Set + Me._verkaeuferOrtS = Value + End Set + End Property + + + Public Property VerkaeuferOrtsteil() As String + Get + Return Me._verkaeuferOrtsteil + End Get + Set + Me._verkaeuferOrtsteil = Value + End Set + End Property + + + Public Property KaeuferEORI() As String + Get + Return Me._kaeuferEORI + End Get + Set + Me._kaeuferEORI = Value + End Set + End Property + + + Public Property KaeuferFirmenbezeichnung() As String + Get + Return Me._kaeuferFirmenbezeichnung + End Get + Set + Me._kaeuferFirmenbezeichnung = Value + End Set + End Property + + + Public Property KaeuferNationalitaet() As String + Get + Return Me._kaeuferNationalitaet + End Get + Set + Me._kaeuferNationalitaet = Value + End Set + End Property + + + Public Property KaeuferStrasseHausNr() As String + Get + Return Me._kaeuferStrasseHausNr + End Get + Set + Me._kaeuferStrasseHausNr = Value + End Set + End Property + + + Public Property KaeuferPLZS() As String + Get + Return Me._kaeuferPLZS + End Get + Set + Me._kaeuferPLZS = Value + End Set + End Property + + + Public Property KaeuferOrtS() As String + Get + Return Me._kaeuferOrtS + End Get + Set + Me._kaeuferOrtS = Value + End Set + End Property + + + Public Property KaeuferOrtsteil() As String + Get + Return Me._kaeuferOrtsteil + End Get + Set + Me._kaeuferOrtsteil = Value + End Set + End Property + + + Public Property ZollwertanmelderEORI() As String + Get + Return Me._zollwertanmelderEORI + End Get + Set + Me._zollwertanmelderEORI = Value + End Set + End Property + + + Public Property ZollwertanmelderFirmenbezeichnung() As String + Get + Return Me._zollwertanmelderFirmenbezeichnung + End Get + Set + Me._zollwertanmelderFirmenbezeichnung = Value + End Set + End Property + + + Public Property ZollwertanmelderNationalitaet() As String + Get + Return Me._zollwertanmelderNationalitaet + End Get + Set + Me._zollwertanmelderNationalitaet = Value + End Set + End Property + + + Public Property ZollwertanmelderStrasseHausNr() As String + Get + Return Me._zollwertanmelderStrasseHausNr + End Get + Set + Me._zollwertanmelderStrasseHausNr = Value + End Set + End Property + + + Public Property ZollwertanmelderPLZS() As String + Get + Return Me._zollwertanmelderPLZS + End Get + Set + Me._zollwertanmelderPLZS = Value + End Set + End Property + + + Public Property ZollwertanmelderOrtS() As String + Get + Return Me._zollwertanmelderOrtS + End Get + Set + Me._zollwertanmelderOrtS = Value + End Set + End Property + + + Public Property ZollwertanmelderOrtsteil() As String + Get + Return Me._zollwertanmelderOrtsteil + End Get + Set + Me._zollwertanmelderOrtsteil = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderEORI() As String + Get + Return Me._vertreterZollwertanmelderEORI + End Get + Set + Me._vertreterZollwertanmelderEORI = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderFirmenbezeichnung() As String + Get + Return Me._vertreterZollwertanmelderFirmenbezeichnung + End Get + Set + Me._vertreterZollwertanmelderFirmenbezeichnung = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderNationalitaet() As String + Get + Return Me._vertreterZollwertanmelderNationalitaet + End Get + Set + Me._vertreterZollwertanmelderNationalitaet = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderStrasseHausNr() As String + Get + Return Me._vertreterZollwertanmelderStrasseHausNr + End Get + Set + Me._vertreterZollwertanmelderStrasseHausNr = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderPLZS() As String + Get + Return Me._vertreterZollwertanmelderPLZS + End Get + Set + Me._vertreterZollwertanmelderPLZS = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderOrtS() As String + Get + Return Me._vertreterZollwertanmelderOrtS + End Get + Set + Me._vertreterZollwertanmelderOrtS = Value + End Set + End Property + + + Public Property VertreterZollwertanmelderOrtsteil() As String + Get + Return Me._vertreterZollwertanmelderOrtsteil + End Get + Set + Me._vertreterZollwertanmelderOrtsteil = Value + End Set + End Property + + + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set + Me._vertretungsverhaeltnis = Value + End Set + End Property + + + Public Property FruehereEntscheidungen() As String + Get + Return Me._fruehereEntscheidungen + End Get + Set + Me._fruehereEntscheidungen = Value + End Set + End Property + + + Public Property Verbundenheit() As String + Get + Return Me._verbundenheit + End Get + Set + Me._verbundenheit = Value + End Set + End Property + + + Public Property VerbundenheitEinzelheiten() As String + Get + Return Me._verbundenheitEinzelheiten + End Get + Set + Me._verbundenheitEinzelheiten = Value + End Set + End Property + + + Public Property EinschraenkungenKz() As String + Get + Return Me._einschraenkungenKz + End Get + Set + Me._einschraenkungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenKz() As String + Get + Return Me._bedingungenLeistungenKz + End Get + Set + Me._bedingungenLeistungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenArt() As String + Get + Return Me._bedingungenLeistungenArt + End Get + Set + Me._bedingungenLeistungenArt = Value + End Set + End Property + + + Public Property LizenzgebuehrenKz() As String + Get + Return Me._lizenzgebuehrenKz + End Get + Set + Me._lizenzgebuehrenKz = Value + End Set + End Property + + + Public Property LizenzgebuehrenUmstand() As String + Get + Return Me._lizenzgebuehrenUmstand + End Get + Set + Me._lizenzgebuehrenUmstand = Value + End Set + End Property + + + Public Property SpezielleVereinbarungKz() As String + Get + Return Me._spezielleVereinbarungKz + End Get + Set + Me._spezielleVereinbarungKz = Value + End Set + End Property + + + Public Property SpezielleVereinbarungUmstand() As String + Get + Return Me._spezielleVereinbarungUmstand + End Get + Set + Me._spezielleVereinbarungUmstand = Value + End Set + End Property + + + Public Property EmpfaengerEORI() As String + Get + Return Me._empfaengerEORI + End Get + Set + Me._empfaengerEORI = Value + End Set + End Property + + + Public Property EmpfaengerNLNR() As String + Get + Return Me._empfaengerNLNR + End Get + Set + Me._empfaengerNLNR = Value + End Set + End Property + + + Public Property EmpfaengerFirmenbezeichnung() As String + Get + Return Me._empfaengerFirmenbezeichnung + End Get + Set + Me._empfaengerFirmenbezeichnung = Value + End Set + End Property + + + Public Property EmpfaengerNationalitaet() As String + Get + Return Me._empfaengerNationalitaet + End Get + Set + Me._empfaengerNationalitaet = Value + End Set + End Property + + + Public Property EmpfaengerStrasseHausNr() As String + Get + Return Me._empfaengerStrasseHausNr + End Get + Set + Me._empfaengerStrasseHausNr = Value + End Set + End Property + + + Public Property EmpfaengerPLZS() As String + Get + Return Me._empfaengerPLZS + End Get + Set + Me._empfaengerPLZS = Value + End Set + End Property + + + Public Property EmpfaengerOrtS() As String + Get + Return Me._empfaengerOrtS + End Get + Set + Me._empfaengerOrtS = Value + End Set + End Property + + + Public Property EmpfaengerOrtsteil() As String + Get + Return Me._empfaengerOrtsteil + End Get + Set + Me._empfaengerOrtsteil = Value + End Set + End Property + + + Public Property DatenuebermittlungEORI() As String + Get + Return Me._datenuebermittlungEORI + End Get + Set + Me._datenuebermittlungEORI = Value + End Set + End Property + + + Public Property ErwerberAndererMitgliedstaatEORI() As String + Get + Return Me._erwerberAndererMitgliedstaatEORI + End Get + Set + Me._erwerberAndererMitgliedstaatEORI = Value + End Set + End Property + + + Public Property ErwerberAndererMitgliedstaatNLNR() As String + Get + Return Me._erwerberAndererMitgliedstaatNLNR + End Get + Set + Me._erwerberAndererMitgliedstaatNLNR = Value + End Set + End Property + + + Public Property ErwerberFirmenbezeichnung() As String + Get + Return Me._erwerberFirmenbezeichnung + End Get + Set + Me._erwerberFirmenbezeichnung = Value + End Set + End Property + + + Public Property ErwerberNationalitaet() As String + Get + Return Me._erwerberNationalitaet + End Get + Set + Me._erwerberNationalitaet = Value + End Set + End Property + + + Public Property ErwerberStrasseHausNr() As String + Get + Return Me._erwerberStrasseHausNr + End Get + Set + Me._erwerberStrasseHausNr = Value + End Set + End Property + + + Public Property ErwerberPLZS() As String + Get + Return Me._erwerberPLZS + End Get + Set + Me._erwerberPLZS = Value + End Set + End Property + + + Public Property ErwerberOrtS() As String + Get + Return Me._erwerberOrtS + End Get + Set + Me._erwerberOrtS = Value + End Set + End Property + + + Public Property ErwerberOrtsteil() As String + Get + Return Me._erwerberOrtsteil + End Get + Set + Me._erwerberOrtsteil = Value + End Set + End Property + + + Public Property ErwerberUStIdNrAndererMitgliedstaat() As String + Get + Return Me._erwerberUStIdNrAndererMitgliedstaat + End Get + Set + Me._erwerberUStIdNrAndererMitgliedstaat = Value + End Set + End Property + + + Public Property VersenderAusfuehrerEORI() As String + Get + Return Me._versenderAusfuehrerEORI + End Get + Set + Me._versenderAusfuehrerEORI = Value + End Set + End Property + + + Public Property VersenderAusfuehrerFirmenbezeichnung() As String + Get + Return Me._versenderAusfuehrerFirmenbezeichnung + End Get + Set + Me._versenderAusfuehrerFirmenbezeichnung = Value + End Set + End Property + + + Public Property VersenderAusfuehrerNationalitaet() As String + Get + Return Me._versenderAusfuehrerNationalitaet + End Get + Set + Me._versenderAusfuehrerNationalitaet = Value + End Set + End Property + + + Public Property VersenderAusfuehrerStrasseHausNr() As String + Get + Return Me._versenderAusfuehrerStrasseHausNr + End Get + Set + Me._versenderAusfuehrerStrasseHausNr = Value + End Set + End Property + + + Public Property VersenderAusfuehrerPLZS() As String + Get + Return Me._versenderAusfuehrerPLZS + End Get + Set + Me._versenderAusfuehrerPLZS = Value + End Set + End Property + + + Public Property VersenderAusfuehrerOrtS() As String + Get + Return Me._versenderAusfuehrerOrtS + End Get + Set + Me._versenderAusfuehrerOrtS = Value + End Set + End Property + + + Public Property VersenderAusfuehrerOrtsteil() As String + Get + Return Me._versenderAusfuehrerOrtsteil + End Get + Set + Me._versenderAusfuehrerOrtsteil = Value + End Set + End Property + + + Public Property Unterlage() As List(Of AnmeldungVBTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + End Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + End Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + End Class +End Namespace +#Enable Warning diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_006.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_006.xsd new file mode 100644 index 0000000..373b536 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/BefundVereinfachteZollanmeldung/BefundVereinfachteZollanmeldung_006.xsd @@ -0,0 +1,539 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_003.Designer.vb new file mode 100644 index 0000000..4c81329 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_003.Designer.vb @@ -0,0 +1,1571 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' EntscheidungAnmeldungListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace EntscheidungAnmeldung + + _ + Partial Public Class EntscheidungAnmeldungRLTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelEntscheidungAnmeldung As EinzelEntscheidungAnmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelEntscheidungAnmeldung = New EinzelEntscheidungAnmeldungTyp() + End Sub + + _ + Public Property EinzelEntscheidungAnmeldung() As EinzelEntscheidungAnmeldungTyp + Get + Return Me._einzelEntscheidungAnmeldung + End Get + Set(value As EinzelEntscheidungAnmeldungTyp) + Me._einzelEntscheidungAnmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EntscheidungAnmeldungRLTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EntscheidungAnmeldungRLTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EntscheidungAnmeldungRLTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EntscheidungAnmeldungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EntscheidungAnmeldungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EntscheidungAnmeldungRLTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EntscheidungAnmeldungRLTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EntscheidungAnmeldungRLTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EntscheidungAnmeldungRLTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EntscheidungAnmeldungRLTyp + Return CType(Serializer.Deserialize(s), EntscheidungAnmeldungRLTyp) + End Function +#End Region + + ''' + ''' Serializes current EntscheidungAnmeldungRLTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EntscheidungAnmeldungRLTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EntscheidungAnmeldungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EntscheidungAnmeldungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EntscheidungAnmeldungRLTyp) + 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 EntscheidungAnmeldungRLTyp) 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 EntscheidungAnmeldungRLTyp + 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 Class + + _ + Partial Public Class EinzelEntscheidungAnmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungRLTyp + + Private _kopfDaten As KopfDatenEntscheidungAnmeldungTyp + + Private _position As List(Of PositionEntscheidungAnmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._position = New List(Of PositionEntscheidungAnmeldungTyp)() + Me._kopfDaten = New KopfDatenEntscheidungAnmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungRLTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungRLTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungRLTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenEntscheidungAnmeldungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenEntscheidungAnmeldungTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property Position() As List(Of PositionEntscheidungAnmeldungTyp) + Get + Return Me._position + End Get + Set(value As List(Of PositionEntscheidungAnmeldungTyp)) + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEntscheidungAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelEntscheidungAnmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelEntscheidungAnmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEntscheidungAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEntscheidungAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelEntscheidungAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelEntscheidungAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelEntscheidungAnmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelEntscheidungAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelEntscheidungAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelEntscheidungAnmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEntscheidungAnmeldungTyp) + 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 EinzelEntscheidungAnmeldungTyp) 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 EinzelEntscheidungAnmeldungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungRLTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungRLTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungRLTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungRLTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungRLTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungRLTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungRLTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungRLTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungRLTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungRLTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungRLTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungRLTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungRLTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungRLTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungRLTyp) + 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 ObjektIdentifizierungRLTyp) 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 ObjektIdentifizierungRLTyp + 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 Class + + _ + Partial Public Class PositionEntscheidungAnmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _annahmeKz As String + + Private _annahmeDatum As Date + + Private _ueberlassungKz As String + + Private _ueberlassungDatum As Date + + Private _ueberlassungUhrzeit As Date + + Private _mitteilungTeilnehmerBeschau As String + + Private _rueckgabeKz As String + + Private _anordnungKz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property AnnahmeKz() As String + Get + Return Me._annahmeKz + End Get + Set(value As String) + Me._annahmeKz = Value + End Set + End Property + + _ + Public Property AnnahmeDatum() As Date + Get + Return Me._annahmeDatum + End Get + Set(value As Date) + Me._annahmeDatum = Value + End Set + End Property + + _ + Public Property UeberlassungKz() As String + Get + Return Me._ueberlassungKz + End Get + Set(value As String) + Me._ueberlassungKz = Value + End Set + End Property + + _ + Public Property UeberlassungDatum() As Date + Get + Return Me._ueberlassungDatum + End Get + Set(value As Date) + Me._ueberlassungDatum = Value + End Set + End Property + + _ + Public Property UeberlassungUhrzeit() As Date + Get + Return Me._ueberlassungUhrzeit + End Get + Set(value As Date) + Me._ueberlassungUhrzeit = Value + End Set + End Property + + _ + Public Property MitteilungTeilnehmerBeschau() As String + Get + Return Me._mitteilungTeilnehmerBeschau + End Get + Set(value As String) + Me._mitteilungTeilnehmerBeschau = Value + End Set + End Property + + _ + Public Property RueckgabeKz() As String + Get + Return Me._rueckgabeKz + End Get + Set(value As String) + Me._rueckgabeKz = Value + End Set + End Property + + _ + Public Property AnordnungKz() As String + Get + Return Me._anordnungKz + End Get + Set(value As String) + Me._anordnungKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionEntscheidungAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionEntscheidungAnmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionEntscheidungAnmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEntscheidungAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEntscheidungAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionEntscheidungAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionEntscheidungAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionEntscheidungAnmeldungTyp + Return CType(Serializer.Deserialize(s), PositionEntscheidungAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionEntscheidungAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionEntscheidungAnmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEntscheidungAnmeldungTyp) + 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 PositionEntscheidungAnmeldungTyp) 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 PositionEntscheidungAnmeldungTyp + 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 Class + + _ + Partial Public Class KopfDatenEntscheidungAnmeldungTyp + +#Region "Private fields" + Private _registriernummer As String + + Private _mitteilungTeilnehmerGestellungsmodalitaeten As String + + Private _bearbeiterZoll As String + + Private _arbeitsnummerVorzeitigeAnmeldung As String + + Private _containernummer As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._containernummer = New List(Of String)() + End Sub + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property MitteilungTeilnehmerGestellungsmodalitaeten() As String + Get + Return Me._mitteilungTeilnehmerGestellungsmodalitaeten + End Get + Set(value As String) + Me._mitteilungTeilnehmerGestellungsmodalitaeten = Value + End Set + End Property + + _ + Public Property BearbeiterZoll() As String + Get + Return Me._bearbeiterZoll + End Get + Set(value As String) + Me._bearbeiterZoll = Value + End Set + End Property + + _ + Public Property ArbeitsnummerVorzeitigeAnmeldung() As String + Get + Return Me._arbeitsnummerVorzeitigeAnmeldung + End Get + Set(value As String) + Me._arbeitsnummerVorzeitigeAnmeldung = Value + End Set + End Property + + _ + Public Property Containernummer() As List(Of String) + Get + Return Me._containernummer + End Get + Set(value As List(Of String)) + Me._containernummer = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEntscheidungAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenEntscheidungAnmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenEntscheidungAnmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEntscheidungAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEntscheidungAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenEntscheidungAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEntscheidungAnmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenEntscheidungAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEntscheidungAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenEntscheidungAnmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenEntscheidungAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEntscheidungAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEntscheidungAnmeldungTyp) + 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 KopfDatenEntscheidungAnmeldungTyp) 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 KopfDatenEntscheidungAnmeldungTyp + 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 Class + + _ + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionFreierVerkehrTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_003.xsd new file mode 100644 index 0000000..bac7761 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/EntscheidungAnmeldung/EntscheidungAnmeldung_003.xsd @@ -0,0 +1,108 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb new file mode 100644 index 0000000..bba7f8f --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.Designer.vb @@ -0,0 +1,7601 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' FreierVerkehrAktVeredelUmwandlung_004ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace FreierVerkehrAktVeredelUmwandlung_004 + + + Partial Public Class FreierVerkehrAktVeredelUmwandlungAVUVTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelAnmeldung As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelAnmeldung = New List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp)() + End Sub + + + Public Property EinzelAnmeldung() As List(Of EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Get + Return Me._einzelAnmeldung + End Get + Set + Me._einzelAnmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FreierVerkehrAktVeredelUmwandlungAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FreierVerkehrAktVeredelUmwandlungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + Return CType(Serializer.Deserialize(s), FreierVerkehrAktVeredelUmwandlungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current FreierVerkehrAktVeredelUmwandlungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output FreierVerkehrAktVeredelUmwandlungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FreierVerkehrAktVeredelUmwandlungAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FreierVerkehrAktVeredelUmwandlungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FreierVerkehrAktVeredelUmwandlungAVUVTyp + Dim file As 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 Class + + + Partial Public Class EinzelEinfuhrUnvollstaendigeAnmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungAVUVTyp + + Private _kopfDaten As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + + Private _warenPosition As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenPosition = New List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp)() + Me._kopfDaten = New KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungAVUVTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungAVUVTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property WarenPosition() As List(Of PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Get + Return Me._warenPosition + End Get + Set + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEinfuhrUnvollstaendigeAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As EinzelEinfuhrUnvollstaendigeAnmeldungTyp + Dim file As 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 Class + + + Partial Public Class ObjektIdentifizierungAVUVTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _anmeldungArt As String + + Private _objektQuittung As String + + Private _bezugsnummerVorblendung As String + + Private _userVorblendung As String + + Private _kopieVon As String + + Private _objektAktion As List(Of String) + + Private _compliancePruefung As String + + Private _bearbeiter As String + + Private _anfBemerkungStatusanzeige As String + + Private _absenderSystemName As String + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._objektAktion = New List(Of String)() + End Sub + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property AnmeldungArt() As String + Get + Return Me._anmeldungArt + End Get + Set + Me._anmeldungArt = Value + End Set + End Property + + + Public Property ObjektQuittung() As String + Get + Return Me._objektQuittung + End Get + Set + Me._objektQuittung = Value + End Set + End Property + + + Public Property BezugsnummerVorblendung() As String + Get + Return Me._bezugsnummerVorblendung + End Get + Set + Me._bezugsnummerVorblendung = Value + End Set + End Property + + + Public Property UserVorblendung() As String + Get + Return Me._userVorblendung + End Get + Set + Me._userVorblendung = Value + End Set + End Property + + + Public Property KopieVon() As String + Get + Return Me._kopieVon + End Get + Set + Me._kopieVon = Value + End Set + End Property + + + Public Property ObjektAktion() As List(Of String) + Get + Return Me._objektAktion + End Get + Set + Me._objektAktion = Value + End Set + End Property + + + Public Property CompliancePruefung() As String + Get + Return Me._compliancePruefung + End Get + Set + Me._compliancePruefung = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property AnfBemerkungStatusanzeige() As String + Get + Return Me._anfBemerkungStatusanzeige + End Get + Set + Me._anfBemerkungStatusanzeige = Value + End Set + End Property + + + Public Property AbsenderSystemName() As String + Get + Return Me._absenderSystemName + End Get + Set + Me._absenderSystemName = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungAVUVTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ObjektIdentifizierungAVUVTyp + Dim file As 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 Class + + + Partial Public Class AussenhandelsstatistikAVUVTyp + +#Region "Private fields" + Private _verkehrszweigInland As String + + Private _verkehrszweigGrenze As String + + Private _versendungsland As String + + Private _bestimmungsbundesland As String + + Private _bestimmungsland As String + + Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String + + Private _befoerderungsmittelGrenzeArt As String + + Private _befoerderungsmittelBeschreibung As String + + Private _artGeschaeft As String + + Private _statistikstatus As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property VerkehrszweigInland() As String + Get + Return Me._verkehrszweigInland + End Get + Set + Me._verkehrszweigInland = Value + End Set + End Property + + + Public Property VerkehrszweigGrenze() As String + Get + Return Me._verkehrszweigGrenze + End Get + Set + Me._verkehrszweigGrenze = Value + End Set + End Property + + + Public Property Versendungsland() As String + Get + Return Me._versendungsland + End Get + Set + Me._versendungsland = Value + End Set + End Property + + + Public Property Bestimmungsbundesland() As String + Get + Return Me._bestimmungsbundesland + End Get + Set + Me._bestimmungsbundesland = Value + End Set + End Property + + + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set + Me._bestimmungsland = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String + Get + Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode + End Get + Set + Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenzeArt() As String + Get + Return Me._befoerderungsmittelGrenzeArt + End Get + Set + Me._befoerderungsmittelGrenzeArt = Value + End Set + End Property + + + Public Property BefoerderungsmittelBeschreibung() As String + Get + Return Me._befoerderungsmittelBeschreibung + End Get + Set + Me._befoerderungsmittelBeschreibung = Value + End Set + End Property + + + Public Property ArtGeschaeft() As String + Get + Return Me._artGeschaeft + End Get + Set + Me._artGeschaeft = Value + End Set + End Property + + + Public Property Statistikstatus() As String + Get + Return Me._statistikstatus + End Get + Set + Me._statistikstatus = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AussenhandelsstatistikAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AussenhandelsstatistikAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AussenhandelsstatistikAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AussenhandelsstatistikAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AussenhandelsstatistikAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AussenhandelsstatistikAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AussenhandelsstatistikAVUVTyp + Return CType(Serializer.Deserialize(s), AussenhandelsstatistikAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AussenhandelsstatistikAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AussenhandelsstatistikAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AussenhandelsstatistikAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AussenhandelsstatistikAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AussenhandelsstatistikAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AussenhandelsstatistikAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AussenhandelsstatistikAVUVTyp + Dim file As 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 Class + + + Partial Public Class AbzugHinzurechnungAVUVTyp + +#Region "Private fields" + Private _artCode As String + + Private _beschreibungAndereZahlungen As String + + Private _betrag As String + + Private _waehrung As String + + Private _kursVereinbartKz As String + + Private _kursDatum As Date + + Private _prozentsatz As String + + Private _betragInEUR As String + + Private _iATAKursKz As String + + Private _frachtkostenBerechnungsgrundlage As String + + Private _kursAuslandswaehrung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property BeschreibungAndereZahlungen() As String + Get + Return Me._beschreibungAndereZahlungen + End Get + Set + Me._beschreibungAndereZahlungen = Value + End Set + End Property + + + Public Property Betrag() As String + Get + Return Me._betrag + End Get + Set + Me._betrag = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property Prozentsatz() As String + Get + Return Me._prozentsatz + End Get + Set + Me._prozentsatz = Value + End Set + End Property + + + Public Property BetragInEUR() As String + Get + Return Me._betragInEUR + End Get + Set + Me._betragInEUR = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property FrachtkostenBerechnungsgrundlage() As String + Get + Return Me._frachtkostenBerechnungsgrundlage + End Get + Set + Me._frachtkostenBerechnungsgrundlage = Value + End Set + End Property + + + Public Property KursAuslandswaehrung() As String + Get + Return Me._kursAuslandswaehrung + End Get + Set + Me._kursAuslandswaehrung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbzugHinzurechnungAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbzugHinzurechnungAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbzugHinzurechnungAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbzugHinzurechnungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbzugHinzurechnungAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbzugHinzurechnungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbzugHinzurechnungAVUVTyp + Return CType(Serializer.Deserialize(s), AbzugHinzurechnungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AbzugHinzurechnungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbzugHinzurechnungAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbzugHinzurechnungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbzugHinzurechnungAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbzugHinzurechnungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbzugHinzurechnungAVUVTyp + Dim file As 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 Class + + + Partial Public Class BesondereWertangabeAVUVTyp + +#Region "Private fields" + Private _wert As String + + Private _preisartCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Wert() As String + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property PreisartCode() As String + Get + Return Me._preisartCode + End Get + Set + Me._preisartCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BesondereWertangabeAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BesondereWertangabeAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BesondereWertangabeAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BesondereWertangabeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereWertangabeAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BesondereWertangabeAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BesondereWertangabeAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BesondereWertangabeAVUVTyp + Return CType(Serializer.Deserialize(s), BesondereWertangabeAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current BesondereWertangabeAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BesondereWertangabeAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BesondereWertangabeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereWertangabeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereWertangabeAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereWertangabeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BesondereWertangabeAVUVTyp + Dim file As 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 Class + + + Partial Public Class UnterlageVZPositionAVUVTyp + +#Region "Private fields" + Private _bereich As String + + Private _art As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private _vorlageKz As String + + Private _abschreibungsMenge As String + + Private _abschreibungsMengeMasseinheit As String + + Private _abschreibungsMengeMasseinheitQualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set + Me._bereich = Value + End Set + End Property + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + + + Public Property VorlageKz() As String + Get + Return Me._vorlageKz + End Get + Set + Me._vorlageKz = Value + End Set + End Property + + + Public Property AbschreibungsMenge() As String + Get + Return Me._abschreibungsMenge + End Get + Set + Me._abschreibungsMenge = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheit() As String + Get + Return Me._abschreibungsMengeMasseinheit + End Get + Set + Me._abschreibungsMengeMasseinheit = Value + End Set + End Property + + + Public Property AbschreibungsMengeMasseinheitQualifier() As String + Get + Return Me._abschreibungsMengeMasseinheitQualifier + End Get + Set + Me._abschreibungsMengeMasseinheitQualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVZPositionAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UnterlageVZPositionAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UnterlageVZPositionAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UnterlageVZPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVZPositionAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVZPositionAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UnterlageVZPositionAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageVZPositionAVUVTyp + Return CType(Serializer.Deserialize(s), UnterlageVZPositionAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageVZPositionAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UnterlageVZPositionAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UnterlageVZPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVZPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVZPositionAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVZPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVZPositionAVUVTyp + Dim file As 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 Class + + + Partial Public Class SonderfalldatenAVUVTyp + +#Region "Private fields" + Private _sonderabgabenGruppeCode As String + + Private _anwendungArt As String + + Private _satzBetragFaktor As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property SonderabgabenGruppeCode() As String + Get + Return Me._sonderabgabenGruppeCode + End Get + Set + Me._sonderabgabenGruppeCode = Value + End Set + End Property + + + Public Property AnwendungArt() As String + Get + Return Me._anwendungArt + End Get + Set + Me._anwendungArt = Value + End Set + End Property + + + Public Property SatzBetragFaktor() As String + Get + Return Me._satzBetragFaktor + End Get + Set + Me._satzBetragFaktor = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SonderfalldatenAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SonderfalldatenAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SonderfalldatenAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SonderfalldatenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalldatenAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SonderfalldatenAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SonderfalldatenAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SonderfalldatenAVUVTyp + Return CType(Serializer.Deserialize(s), SonderfalldatenAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current SonderfalldatenAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SonderfalldatenAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SonderfalldatenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalldatenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SonderfalldatenAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SonderfalldatenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SonderfalldatenAVUVTyp + Dim file As 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 Class + + + Partial Public Class AbgabenminderungAVUVTyp + +#Region "Private fields" + Private _abgabengruppeCode As String + + Private _minderungsbetrag As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property AbgabengruppeCode() As String + Get + Return Me._abgabengruppeCode + End Get + Set + Me._abgabengruppeCode = Value + End Set + End Property + + + Public Property Minderungsbetrag() As String + Get + Return Me._minderungsbetrag + End Get + Set + Me._minderungsbetrag = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabenminderungAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabenminderungAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgabenminderungAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabenminderungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenminderungAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabenminderungAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabenminderungAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabenminderungAVUVTyp + Return CType(Serializer.Deserialize(s), AbgabenminderungAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabenminderungAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgabenminderungAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabenminderungAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenminderungAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabenminderungAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabenminderungAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AbgabenminderungAVUVTyp + Dim file As 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 Class + + + Partial Public Class VerbrauchssteuerAVUVTyp + +#Region "Private fields" + Private _verbrauchsteuerCode As String + + Private _verbrauchssteuerMenge As String + + Private _verbrauchssteuerMasseinheitCode As String + + Private _verbrauchssteuerMasseinheitQualifier As String + + Private _gradProzent As String + + Private _verbrauchssteuerWertBasis As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property VerbrauchsteuerCode() As String + Get + Return Me._verbrauchsteuerCode + End Get + Set + Me._verbrauchsteuerCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMenge() As String + Get + Return Me._verbrauchssteuerMenge + End Get + Set + Me._verbrauchssteuerMenge = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitCode() As String + Get + Return Me._verbrauchssteuerMasseinheitCode + End Get + Set + Me._verbrauchssteuerMasseinheitCode = Value + End Set + End Property + + + Public Property VerbrauchssteuerMasseinheitQualifier() As String + Get + Return Me._verbrauchssteuerMasseinheitQualifier + End Get + Set + Me._verbrauchssteuerMasseinheitQualifier = Value + End Set + End Property + + + Public Property GradProzent() As String + Get + Return Me._gradProzent + End Get + Set + Me._gradProzent = Value + End Set + End Property + + + Public Property VerbrauchssteuerWertBasis() As String + Get + Return Me._verbrauchssteuerWertBasis + End Get + Set + Me._verbrauchssteuerWertBasis = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerbrauchssteuerAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerbrauchssteuerAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerbrauchssteuerAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerbrauchssteuerAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchssteuerAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbrauchssteuerAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerbrauchssteuerAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbrauchssteuerAVUVTyp + Return CType(Serializer.Deserialize(s), VerbrauchssteuerAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbrauchssteuerAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerbrauchssteuerAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerbrauchssteuerAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchssteuerAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbrauchssteuerAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbrauchssteuerAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VerbrauchssteuerAVUVTyp + Dim file As 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 Class + + + Partial Public Class BeguenstigungsMengeAVUVTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheitCode As String + + Private _masseinheitQualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Menge() As String + Get + Return Me._menge + End Get + Set + Me._menge = Value + End Set + End Property + + + Public Property MasseinheitCode() As String + Get + Return Me._masseinheitCode + End Get + Set + Me._masseinheitCode = Value + End Set + End Property + + + Public Property MasseinheitQualifier() As String + Get + Return Me._masseinheitQualifier + End Get + Set + Me._masseinheitQualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeguenstigungsMengeAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeguenstigungsMengeAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeguenstigungsMengeAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeguenstigungsMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeguenstigungsMengeAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeguenstigungsMengeAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeguenstigungsMengeAVUVTyp + Return CType(Serializer.Deserialize(s), BeguenstigungsMengeAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current BeguenstigungsMengeAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeguenstigungsMengeAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeguenstigungsMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeguenstigungsMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeguenstigungsMengeAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeguenstigungsMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BeguenstigungsMengeAVUVTyp + Dim file As 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 Class + + + Partial Public Class GehaltsangabenAVUVTyp + +#Region "Private fields" + Private _artCode As String + + Private _gradProzent As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property GradProzent() As String + Get + Return Me._gradProzent + End Get + Set + Me._gradProzent = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GehaltsangabenAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GehaltsangabenAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an GehaltsangabenAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output GehaltsangabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GehaltsangabenAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GehaltsangabenAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GehaltsangabenAVUVTyp + Return CType(Serializer.Deserialize(s), GehaltsangabenAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current GehaltsangabenAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an GehaltsangabenAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output GehaltsangabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GehaltsangabenAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GehaltsangabenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GehaltsangabenAVUVTyp + Dim file As 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 Class + + + Partial Public Class AVVeredelungserzeugnisTyp + +#Region "Private fields" + Private _warenbezeichnung As String + + Private _ausbeuteart As String + + Private _ausbeutesatz As String + + Private _kNCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set + Me._warenbezeichnung = Value + End Set + End Property + + + Public Property Ausbeuteart() As String + Get + Return Me._ausbeuteart + End Get + Set + Me._ausbeuteart = Value + End Set + End Property + + + Public Property Ausbeutesatz() As String + Get + Return Me._ausbeutesatz + End Get + Set + Me._ausbeutesatz = Value + End Set + End Property + + + Public Property KNCode() As String + Get + Return Me._kNCode + End Get + Set + Me._kNCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AVVeredelungserzeugnisTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AVVeredelungserzeugnisTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AVVeredelungserzeugnisTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVVeredelungserzeugnisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AVVeredelungserzeugnisTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AVVeredelungserzeugnisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AVVeredelungserzeugnisTyp + Return CType(Serializer.Deserialize(s), AVVeredelungserzeugnisTyp) + End Function +#End Region + + ''' + ''' Serializes current AVVeredelungserzeugnisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AVVeredelungserzeugnisTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AVVeredelungserzeugnisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVVeredelungserzeugnisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVVeredelungserzeugnisTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVVeredelungserzeugnisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVVeredelungserzeugnisTyp + Dim file As 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 Class + + + Partial Public Class WarenMengeAVUVTyp + +#Region "Private fields" + Private _menge As String + + Private _masseinheit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Menge() As String + Get + Return Me._menge + End Get + Set + Me._menge = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarenMengeAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WarenMengeAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an WarenMengeAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output WarenMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenMengeAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarenMengeAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenMengeAVUVTyp + Return CType(Serializer.Deserialize(s), WarenMengeAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenMengeAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an WarenMengeAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output WarenMengeAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenMengeAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenMengeAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As WarenMengeAVUVTyp + Dim file As 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 Class + + + Partial Public Class PositionEinfuhrUnvollstaendigeAnmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _artikelNummer As String + + Private _warenNummerEZT As String + + Private _warenNummerZusatzCode As List(Of String) + + Private _warenNummerZusatz1 As String + + Private _warenNummerZusatz2 As String + + Private _warenBezeichnung As String + + Private _verfahrenscodeVorangegangenesVerfahren As String + + Private _abgabensteuerungKz As String + + Private _eUCode As String + + Private _ursprungslandCode As String + + Private _rohmasse As String + + Private _eigenmasse As String + + Private _aHStatMenge As String + + Private _aHStatMengeMasseinheit As String + + Private _aHStatMengeQualifier As String + + Private _kostenEUSt As String + + Private _aHStatWert As String + + Private _packstueckAnzahl As String + + Private _packstueckArt As String + + Private _packstueckZeichen As String + + Private _warenMenge As List(Of WarenMengeAVUVTyp) + + Private _warenMengeZoll As String + + Private _warenMengeZollMasseinheit As String + + Private _warenMengeZollMasseinheitQualifier As String + + Private _beguenstigungBeantragtCode As String + + Private _kontingentnummer As List(Of String) + + Private _positionsZusatz As String + + Private _aHStatWertManuellKZ As String + + Private _artikelpreis As String + + Private _ortVerbringens As String + + Private _abflughafenIATACode As String + + Private _warenmengeAVUVZugang As String + + Private _warenmengeAVUVZugangMasseinheit As String + + Private _warenmengeAVUVZugangMasseinheitQualifier As String + + Private _warenmengeAgrarzoll As String + + Private _warenmengeAgrarzollMasseinheit As String + + Private _warenmengeAgrarzollMasseinheitQualifier As String + + Private _sachbereich As String + + Private _bedingungCode As String + + Private _veredelungWertsteigerung As String + + Private _tabakSteuerzeichenID As String + + Private _aVWirtschaftlicheVoraussetzungen As String + + Private _aVNaemlichkeitsmittel As String + + Private _aVErlaeuterungNaemlichkeit As String + + Private _aVVeredelungserzeugnis As List(Of AVVeredelungserzeugnisTyp) + + Private _gehaltsangaben As List(Of GehaltsangabenAVUVTyp) + + Private _beguenstigungsmenge As BeguenstigungsMengeAVUVTyp + + Private _verbrauchssteuer As List(Of VerbrauchssteuerAVUVTyp) + + Private _abgabenminderung As List(Of AbgabenminderungAVUVTyp) + + Private _sonderfalldaten As List(Of SonderfalldatenAVUVTyp) + + Private _unterlage As List(Of UnterlageVZPositionAVUVTyp) + + Private _besondereWertangabe As List(Of BesondereWertangabeAVUVTyp) + + Private _vZAStatus As String + + Private _eGZStatus As String + + Private _dV1Status As String + + Private _anmeldeArt As String + + Private _befundDatum As Date + + Private _anmelderAdressCodeEORI As String + + Private _anmelderAdressCodeZollnummer As String + + Private _zollverfahren As String + + Private _abrechnungszollstelleCode As String + + Private _sachbereichCode As String + + Private _registriernummervZA As String + + Private _anmeldeVerfahren As String + + Private _bewilligungsnummer As String + + Private _bewilligungsnummerEndverwenderEGZDurchDritte As String + + Private _zollwert As String + + Private _luftfrachtkostenGesamt As String + + Private _iATAKursKz As String + + Private _luftfrachtkostenGesamtWaehrung As String + + Private _kursVereinbartKz As String + + Private _kursBetragVereinbart As String + + Private _kursDatum As Date + + Private _abzugHinzurechnung As List(Of AbzugHinzurechnungAVUVTyp) + + Private _aussenhandelsstatistik As AussenhandelsstatistikAVUVTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._aussenhandelsstatistik = New AussenhandelsstatistikAVUVTyp() + Me._abzugHinzurechnung = New List(Of AbzugHinzurechnungAVUVTyp)() + Me._besondereWertangabe = New List(Of BesondereWertangabeAVUVTyp)() + Me._unterlage = New List(Of UnterlageVZPositionAVUVTyp)() + Me._sonderfalldaten = New List(Of SonderfalldatenAVUVTyp)() + Me._abgabenminderung = New List(Of AbgabenminderungAVUVTyp)() + Me._verbrauchssteuer = New List(Of VerbrauchssteuerAVUVTyp)() + Me._beguenstigungsmenge = New BeguenstigungsMengeAVUVTyp() + Me._gehaltsangaben = New List(Of GehaltsangabenAVUVTyp)() + Me._aVVeredelungserzeugnis = New List(Of AVVeredelungserzeugnisTyp)() + Me._kontingentnummer = New List(Of String)() + Me._warenMenge = New List(Of WarenMengeAVUVTyp)() + Me._warenNummerZusatzCode = New List(Of String)() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property ArtikelNummer() As String + Get + Return Me._artikelNummer + End Get + Set + Me._artikelNummer = Value + End Set + End Property + + + Public Property WarenNummerEZT() As String + Get + Return Me._warenNummerEZT + End Get + Set + Me._warenNummerEZT = Value + End Set + End Property + + + Public Property WarenNummerZusatzCode() As List(Of String) + Get + Return Me._warenNummerZusatzCode + End Get + Set + Me._warenNummerZusatzCode = Value + End Set + End Property + + + Public Property WarenNummerZusatz1() As String + Get + Return Me._warenNummerZusatz1 + End Get + Set + Me._warenNummerZusatz1 = Value + End Set + End Property + + + Public Property WarenNummerZusatz2() As String + Get + Return Me._warenNummerZusatz2 + End Get + Set + Me._warenNummerZusatz2 = Value + End Set + End Property + + + Public Property WarenBezeichnung() As String + Get + Return Me._warenBezeichnung + End Get + Set + Me._warenBezeichnung = Value + End Set + End Property + + + Public Property VerfahrenscodeVorangegangenesVerfahren() As String + Get + Return Me._verfahrenscodeVorangegangenesVerfahren + End Get + Set + Me._verfahrenscodeVorangegangenesVerfahren = Value + End Set + End Property + + + Public Property AbgabensteuerungKz() As String + Get + Return Me._abgabensteuerungKz + End Get + Set + Me._abgabensteuerungKz = Value + End Set + End Property + + + Public Property EUCode() As String + Get + Return Me._eUCode + End Get + Set + Me._eUCode = Value + End Set + End Property + + + Public Property UrsprungslandCode() As String + Get + Return Me._ursprungslandCode + End Get + Set + Me._ursprungslandCode = Value + End Set + End Property + + + Public Property Rohmasse() As String + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property Eigenmasse() As String + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = Value + End Set + End Property + + + Public Property AHStatMenge() As String + Get + Return Me._aHStatMenge + End Get + Set + Me._aHStatMenge = Value + End Set + End Property + + + Public Property AHStatMengeMasseinheit() As String + Get + Return Me._aHStatMengeMasseinheit + End Get + Set + Me._aHStatMengeMasseinheit = Value + End Set + End Property + + + Public Property AHStatMengeQualifier() As String + Get + Return Me._aHStatMengeQualifier + End Get + Set + Me._aHStatMengeQualifier = Value + End Set + End Property + + + Public Property KostenEUSt() As String + Get + Return Me._kostenEUSt + End Get + Set + Me._kostenEUSt = Value + End Set + End Property + + + Public Property AHStatWert() As String + Get + Return Me._aHStatWert + End Get + Set + Me._aHStatWert = Value + End Set + End Property + + + Public Property PackstueckAnzahl() As String + Get + Return Me._packstueckAnzahl + End Get + Set + Me._packstueckAnzahl = Value + End Set + End Property + + + Public Property PackstueckArt() As String + Get + Return Me._packstueckArt + End Get + Set + Me._packstueckArt = Value + End Set + End Property + + + Public Property PackstueckZeichen() As String + Get + Return Me._packstueckZeichen + End Get + Set + Me._packstueckZeichen = Value + End Set + End Property + + + Public Property WarenMenge() As List(Of WarenMengeAVUVTyp) + Get + Return Me._warenMenge + End Get + Set + Me._warenMenge = Value + End Set + End Property + + + Public Property WarenMengeZoll() As String + Get + Return Me._warenMengeZoll + End Get + Set + Me._warenMengeZoll = Value + End Set + End Property + + + Public Property WarenMengeZollMasseinheit() As String + Get + Return Me._warenMengeZollMasseinheit + End Get + Set + Me._warenMengeZollMasseinheit = Value + End Set + End Property + + + Public Property WarenMengeZollMasseinheitQualifier() As String + Get + Return Me._warenMengeZollMasseinheitQualifier + End Get + Set + Me._warenMengeZollMasseinheitQualifier = Value + End Set + End Property + + + Public Property BeguenstigungBeantragtCode() As String + Get + Return Me._beguenstigungBeantragtCode + End Get + Set + Me._beguenstigungBeantragtCode = Value + End Set + End Property + + + Public Property Kontingentnummer() As List(Of String) + Get + Return Me._kontingentnummer + End Get + Set + Me._kontingentnummer = Value + End Set + End Property + + + Public Property PositionsZusatz() As String + Get + Return Me._positionsZusatz + End Get + Set + Me._positionsZusatz = Value + End Set + End Property + + + Public Property AHStatWertManuellKZ() As String + Get + Return Me._aHStatWertManuellKZ + End Get + Set + Me._aHStatWertManuellKZ = Value + End Set + End Property + + + Public Property Artikelpreis() As String + Get + Return Me._artikelpreis + End Get + Set + Me._artikelpreis = Value + End Set + End Property + + + Public Property OrtVerbringens() As String + Get + Return Me._ortVerbringens + End Get + Set + Me._ortVerbringens = Value + End Set + End Property + + + Public Property AbflughafenIATACode() As String + Get + Return Me._abflughafenIATACode + End Get + Set + Me._abflughafenIATACode = Value + End Set + End Property + + + Public Property WarenmengeAVUVZugang() As String + Get + Return Me._warenmengeAVUVZugang + End Get + Set + Me._warenmengeAVUVZugang = Value + End Set + End Property + + + Public Property WarenmengeAVUVZugangMasseinheit() As String + Get + Return Me._warenmengeAVUVZugangMasseinheit + End Get + Set + Me._warenmengeAVUVZugangMasseinheit = Value + End Set + End Property + + + Public Property WarenmengeAVUVZugangMasseinheitQualifier() As String + Get + Return Me._warenmengeAVUVZugangMasseinheitQualifier + End Get + Set + Me._warenmengeAVUVZugangMasseinheitQualifier = Value + End Set + End Property + + + Public Property WarenmengeAgrarzoll() As String + Get + Return Me._warenmengeAgrarzoll + End Get + Set + Me._warenmengeAgrarzoll = Value + End Set + End Property + + + Public Property WarenmengeAgrarzollMasseinheit() As String + Get + Return Me._warenmengeAgrarzollMasseinheit + End Get + Set + Me._warenmengeAgrarzollMasseinheit = Value + End Set + End Property + + + Public Property WarenmengeAgrarzollMasseinheitQualifier() As String + Get + Return Me._warenmengeAgrarzollMasseinheitQualifier + End Get + Set + Me._warenmengeAgrarzollMasseinheitQualifier = Value + End Set + End Property + + + Public Property Sachbereich() As String + Get + Return Me._sachbereich + End Get + Set + Me._sachbereich = Value + End Set + End Property + + + Public Property BedingungCode() As String + Get + Return Me._bedingungCode + End Get + Set + Me._bedingungCode = Value + End Set + End Property + + + Public Property VeredelungWertsteigerung() As String + Get + Return Me._veredelungWertsteigerung + End Get + Set + Me._veredelungWertsteigerung = Value + End Set + End Property + + + Public Property TabakSteuerzeichenID() As String + Get + Return Me._tabakSteuerzeichenID + End Get + Set + Me._tabakSteuerzeichenID = Value + End Set + End Property + + + Public Property AVWirtschaftlicheVoraussetzungen() As String + Get + Return Me._aVWirtschaftlicheVoraussetzungen + End Get + Set + Me._aVWirtschaftlicheVoraussetzungen = Value + End Set + End Property + + + Public Property AVNaemlichkeitsmittel() As String + Get + Return Me._aVNaemlichkeitsmittel + End Get + Set + Me._aVNaemlichkeitsmittel = Value + End Set + End Property + + + Public Property AVErlaeuterungNaemlichkeit() As String + Get + Return Me._aVErlaeuterungNaemlichkeit + End Get + Set + Me._aVErlaeuterungNaemlichkeit = Value + End Set + End Property + + + Public Property AVVeredelungserzeugnis() As List(Of AVVeredelungserzeugnisTyp) + Get + Return Me._aVVeredelungserzeugnis + End Get + Set + Me._aVVeredelungserzeugnis = Value + End Set + End Property + + + Public Property Gehaltsangaben() As List(Of GehaltsangabenAVUVTyp) + Get + Return Me._gehaltsangaben + End Get + Set + Me._gehaltsangaben = Value + End Set + End Property + + + Public Property Beguenstigungsmenge() As BeguenstigungsMengeAVUVTyp + Get + Return Me._beguenstigungsmenge + End Get + Set + Me._beguenstigungsmenge = Value + End Set + End Property + + + Public Property Verbrauchssteuer() As List(Of VerbrauchssteuerAVUVTyp) + Get + Return Me._verbrauchssteuer + End Get + Set + Me._verbrauchssteuer = Value + End Set + End Property + + + Public Property Abgabenminderung() As List(Of AbgabenminderungAVUVTyp) + Get + Return Me._abgabenminderung + End Get + Set + Me._abgabenminderung = Value + End Set + End Property + + + Public Property Sonderfalldaten() As List(Of SonderfalldatenAVUVTyp) + Get + Return Me._sonderfalldaten + End Get + Set + Me._sonderfalldaten = Value + End Set + End Property + + + Public Property Unterlage() As List(Of UnterlageVZPositionAVUVTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property BesondereWertangabe() As List(Of BesondereWertangabeAVUVTyp) + Get + Return Me._besondereWertangabe + End Get + Set + Me._besondereWertangabe = Value + End Set + End Property + + + Public Property VZAStatus() As String + Get + Return Me._vZAStatus + End Get + Set + Me._vZAStatus = Value + End Set + End Property + + + Public Property EGZStatus() As String + Get + Return Me._eGZStatus + End Get + Set + Me._eGZStatus = Value + End Set + End Property + + + Public Property DV1Status() As String + Get + Return Me._dV1Status + End Get + Set + Me._dV1Status = Value + End Set + End Property + + + Public Property AnmeldeArt() As String + Get + Return Me._anmeldeArt + End Get + Set + Me._anmeldeArt = Value + End Set + End Property + + + Public Property BefundDatum() As Date + Get + Return Me._befundDatum + End Get + Set + Me._befundDatum = Value + End Set + End Property + + + Public Property AnmelderAdressCodeEORI() As String + Get + Return Me._anmelderAdressCodeEORI + End Get + Set + Me._anmelderAdressCodeEORI = Value + End Set + End Property + + + Public Property AnmelderAdressCodeZollnummer() As String + Get + Return Me._anmelderAdressCodeZollnummer + End Get + Set + Me._anmelderAdressCodeZollnummer = Value + End Set + End Property + + + Public Property Zollverfahren() As String + Get + Return Me._zollverfahren + End Get + Set + Me._zollverfahren = Value + End Set + End Property + + + Public Property AbrechnungszollstelleCode() As String + Get + Return Me._abrechnungszollstelleCode + End Get + Set + Me._abrechnungszollstelleCode = Value + End Set + End Property + + + Public Property SachbereichCode() As String + Get + Return Me._sachbereichCode + End Get + Set + Me._sachbereichCode = Value + End Set + End Property + + + Public Property RegistriernummervZA() As String + Get + Return Me._registriernummervZA + End Get + Set + Me._registriernummervZA = Value + End Set + End Property + + + Public Property AnmeldeVerfahren() As String + Get + Return Me._anmeldeVerfahren + End Get + Set + Me._anmeldeVerfahren = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property BewilligungsnummerEndverwenderEGZDurchDritte() As String + Get + Return Me._bewilligungsnummerEndverwenderEGZDurchDritte + End Get + Set + Me._bewilligungsnummerEndverwenderEGZDurchDritte = Value + End Set + End Property + + + Public Property Zollwert() As String + Get + Return Me._zollwert + End Get + Set + Me._zollwert = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamt() As String + Get + Return Me._luftfrachtkostenGesamt + End Get + Set + Me._luftfrachtkostenGesamt = Value + End Set + End Property + + + Public Property IATAKursKz() As String + Get + Return Me._iATAKursKz + End Get + Set + Me._iATAKursKz = Value + End Set + End Property + + + Public Property LuftfrachtkostenGesamtWaehrung() As String + Get + Return Me._luftfrachtkostenGesamtWaehrung + End Get + Set + Me._luftfrachtkostenGesamtWaehrung = Value + End Set + End Property + + + Public Property KursVereinbartKz() As String + Get + Return Me._kursVereinbartKz + End Get + Set + Me._kursVereinbartKz = Value + End Set + End Property + + + Public Property KursBetragVereinbart() As String + Get + Return Me._kursBetragVereinbart + End Get + Set + Me._kursBetragVereinbart = Value + End Set + End Property + + + Public Property KursDatum() As Date + Get + Return Me._kursDatum + End Get + Set + Me._kursDatum = Value + End Set + End Property + + + Public Property AbzugHinzurechnung() As List(Of AbzugHinzurechnungAVUVTyp) + Get + Return Me._abzugHinzurechnung + End Get + Set + Me._abzugHinzurechnung = Value + End Set + End Property + + + Public Property Aussenhandelsstatistik() As AussenhandelsstatistikAVUVTyp + Get + Return Me._aussenhandelsstatistik + End Get + Set + Me._aussenhandelsstatistik = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionEinfuhrUnvollstaendigeAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + Return CType(Serializer.Deserialize(s), PositionEinfuhrUnvollstaendigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PositionEinfuhrUnvollstaendigeAnmeldungTyp + Dim file As 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 Class + + + Partial Public Class AdressenVzImportAVUVTyp + +#Region "Private fields" + Private _adressTyp As String + + Private _adressCode As String + + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private _zollNr As String + + Private _nameFirma As List(Of String) + + Private _strasseHausNr As List(Of String) + + Private _ortsteil As String + + Private _landCode As String + + Private _pLZS As String + + Private _ortS As String + + Private _uStIDAnmelder As String + + Private _finanzamtIDAnmelder As String + + Private _sitzEinfuehrer As String + + Private _bewilligungsnummer As String + + Private _bewilligungFachVerfahren As String + + Private _bewilligungsnummerEndverwender As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._strasseHausNr = New List(Of String)() + Me._nameFirma = New List(Of String)() + End Sub + + + Public Property AdressTyp() As String + Get + Return Me._adressTyp + End Get + Set + Me._adressTyp = Value + End Set + End Property + + + Public Property AdressCode() As String + Get + Return Me._adressCode + End Get + Set + Me._adressCode = Value + End Set + End Property + + + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set + Me._teilnehmerEORI = Value + End Set + End Property + + + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set + Me._teilnehmerNLNR = Value + End Set + End Property + + + Public Property ZollNr() As String + Get + Return Me._zollNr + End Get + Set + Me._zollNr = Value + End Set + End Property + + + Public Property NameFirma() As List(Of String) + Get + Return Me._nameFirma + End Get + Set + Me._nameFirma = Value + End Set + End Property + + + Public Property StrasseHausNr() As List(Of String) + Get + Return Me._strasseHausNr + End Get + Set + Me._strasseHausNr = Value + End Set + End Property + + + Public Property Ortsteil() As String + Get + Return Me._ortsteil + End Get + Set + Me._ortsteil = Value + End Set + End Property + + + Public Property LandCode() As String + Get + Return Me._landCode + End Get + Set + Me._landCode = Value + End Set + End Property + + + Public Property PLZS() As String + Get + Return Me._pLZS + End Get + Set + Me._pLZS = Value + End Set + End Property + + + Public Property OrtS() As String + Get + Return Me._ortS + End Get + Set + Me._ortS = Value + End Set + End Property + + + Public Property UStIDAnmelder() As String + Get + Return Me._uStIDAnmelder + End Get + Set + Me._uStIDAnmelder = Value + End Set + End Property + + + Public Property FinanzamtIDAnmelder() As String + Get + Return Me._finanzamtIDAnmelder + End Get + Set + Me._finanzamtIDAnmelder = Value + End Set + End Property + + + Public Property SitzEinfuehrer() As String + Get + Return Me._sitzEinfuehrer + End Get + Set + Me._sitzEinfuehrer = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property BewilligungFachVerfahren() As String + Get + Return Me._bewilligungFachVerfahren + End Get + Set + Me._bewilligungFachVerfahren = Value + End Set + End Property + + + Public Property BewilligungsnummerEndverwender() As String + Get + Return Me._bewilligungsnummerEndverwender + End Get + Set + Me._bewilligungsnummerEndverwender = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdressenVzImportAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdressenVzImportAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdressenVzImportAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdressenVzImportAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenVzImportAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdressenVzImportAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdressenVzImportAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdressenVzImportAVUVTyp + Return CType(Serializer.Deserialize(s), AdressenVzImportAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AdressenVzImportAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdressenVzImportAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdressenVzImportAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVzImportAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenVzImportAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVzImportAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AdressenVzImportAVUVTyp + Dim file As 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 Class + + + Partial Public Class AVBuchhaltVeredelungTyp + +#Region "Private fields" + Private _strasse As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ortsteil As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Strasse() As String + Get + Return Me._strasse + End Get + Set + Me._strasse = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ortsteil() As String + Get + Return Me._ortsteil + End Get + Set + Me._ortsteil = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AVBuchhaltVeredelungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AVBuchhaltVeredelungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AVBuchhaltVeredelungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AVBuchhaltVeredelungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVBuchhaltVeredelungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AVBuchhaltVeredelungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AVBuchhaltVeredelungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AVBuchhaltVeredelungTyp + Return CType(Serializer.Deserialize(s), AVBuchhaltVeredelungTyp) + End Function +#End Region + + ''' + ''' Serializes current AVBuchhaltVeredelungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AVBuchhaltVeredelungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AVBuchhaltVeredelungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVBuchhaltVeredelungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AVBuchhaltVeredelungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AVBuchhaltVeredelungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AVBuchhaltVeredelungTyp + Dim file As 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 Class + + + Partial Public Class BEAnteilZLAVUVPositionAVUVTyp + +#Region "Private fields" + Private _registriernummerZugang As String + + Private _positionZugang As String + + Private _artikelcodeATZL As String + + Private _eigentuemerATZL As String + + Private _chargennummerATZL As String + + Private _ursprungslandATZL As String + + Private _atlasKz As String + + Private _warennummer As String + + Private _ueblicheBehandlungKz As String + + Private _handelsmenge As String + + Private _masseinheitHandelsmenge As String + + Private _qualifikatorHandelsmenge As String + + Private _abgangsmenge As String + + Private _masseinheitAbgangsmenge As String + + Private _qualifikatorAbgangsmenge As String + + Private _positionszusatz As String + + Private _warenbezogeneAngaben As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property RegistriernummerZugang() As String + Get + Return Me._registriernummerZugang + End Get + Set + Me._registriernummerZugang = Value + End Set + End Property + + + Public Property PositionZugang() As String + Get + Return Me._positionZugang + End Get + Set + Me._positionZugang = Value + End Set + End Property + + + Public Property ArtikelcodeATZL() As String + Get + Return Me._artikelcodeATZL + End Get + Set + Me._artikelcodeATZL = Value + End Set + End Property + + + Public Property EigentuemerATZL() As String + Get + Return Me._eigentuemerATZL + End Get + Set + Me._eigentuemerATZL = Value + End Set + End Property + + + Public Property ChargennummerATZL() As String + Get + Return Me._chargennummerATZL + End Get + Set + Me._chargennummerATZL = Value + End Set + End Property + + + Public Property UrsprungslandATZL() As String + Get + Return Me._ursprungslandATZL + End Get + Set + Me._ursprungslandATZL = Value + End Set + End Property + + + Public Property AtlasKz() As String + Get + Return Me._atlasKz + End Get + Set + Me._atlasKz = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property UeblicheBehandlungKz() As String + Get + Return Me._ueblicheBehandlungKz + End Get + Set + Me._ueblicheBehandlungKz = Value + End Set + End Property + + + Public Property Handelsmenge() As String + Get + Return Me._handelsmenge + End Get + Set + Me._handelsmenge = Value + End Set + End Property + + + Public Property MasseinheitHandelsmenge() As String + Get + Return Me._masseinheitHandelsmenge + End Get + Set + Me._masseinheitHandelsmenge = Value + End Set + End Property + + + Public Property QualifikatorHandelsmenge() As String + Get + Return Me._qualifikatorHandelsmenge + End Get + Set + Me._qualifikatorHandelsmenge = Value + End Set + End Property + + + Public Property Abgangsmenge() As String + Get + Return Me._abgangsmenge + End Get + Set + Me._abgangsmenge = Value + End Set + End Property + + + Public Property MasseinheitAbgangsmenge() As String + Get + Return Me._masseinheitAbgangsmenge + End Get + Set + Me._masseinheitAbgangsmenge = Value + End Set + End Property + + + Public Property QualifikatorAbgangsmenge() As String + Get + Return Me._qualifikatorAbgangsmenge + End Get + Set + Me._qualifikatorAbgangsmenge = Value + End Set + End Property + + + Public Property Positionszusatz() As String + Get + Return Me._positionszusatz + End Get + Set + Me._positionszusatz = Value + End Set + End Property + + + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BEAnteilZLAVUVPositionAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BEAnteilZLAVUVPositionAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BEAnteilZLAVUVPositionAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BEAnteilZLAVUVPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BEAnteilZLAVUVPositionAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BEAnteilZLAVUVPositionAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BEAnteilZLAVUVPositionAVUVTyp + Return CType(Serializer.Deserialize(s), BEAnteilZLAVUVPositionAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current BEAnteilZLAVUVPositionAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BEAnteilZLAVUVPositionAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BEAnteilZLAVUVPositionAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BEAnteilZLAVUVPositionAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BEAnteilZLAVUVPositionAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As BEAnteilZLAVUVPositionAVUVTyp + Dim file As 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 Class + + + Partial Public Class SumABeendigungsAnteilAVUVTyp + +#Region "Private fields" + Private _sumARegistriernummer As String + + Private _sumAPosNr As String + + Private _beendigungsPackstueckzahl As String + + Private _artIdentifikation As String + + Private _verwahrerEORI As String + + Private _zollNummerVerwahrer As String + + Private _spezifOrdnungsbegriffArt As String + + Private _spezifOrdnungsbegriff As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property SumARegistriernummer() As String + Get + Return Me._sumARegistriernummer + End Get + Set + Me._sumARegistriernummer = Value + End Set + End Property + + + Public Property SumAPosNr() As String + Get + Return Me._sumAPosNr + End Get + Set + Me._sumAPosNr = Value + End Set + End Property + + + Public Property BeendigungsPackstueckzahl() As String + Get + Return Me._beendigungsPackstueckzahl + End Get + Set + Me._beendigungsPackstueckzahl = Value + End Set + End Property + + + Public Property ArtIdentifikation() As String + Get + Return Me._artIdentifikation + End Get + Set + Me._artIdentifikation = Value + End Set + End Property + + + Public Property VerwahrerEORI() As String + Get + Return Me._verwahrerEORI + End Get + Set + Me._verwahrerEORI = Value + End Set + End Property + + + Public Property ZollNummerVerwahrer() As String + Get + Return Me._zollNummerVerwahrer + End Get + Set + Me._zollNummerVerwahrer = Value + End Set + End Property + + + Public Property SpezifOrdnungsbegriffArt() As String + Get + Return Me._spezifOrdnungsbegriffArt + End Get + Set + Me._spezifOrdnungsbegriffArt = Value + End Set + End Property + + + Public Property SpezifOrdnungsbegriff() As String + Get + Return Me._spezifOrdnungsbegriff + End Get + Set + Me._spezifOrdnungsbegriff = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SumABeendigungsAnteilAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SumABeendigungsAnteilAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SumABeendigungsAnteilAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SumABeendigungsAnteilAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SumABeendigungsAnteilAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SumABeendigungsAnteilAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SumABeendigungsAnteilAVUVTyp + Return CType(Serializer.Deserialize(s), SumABeendigungsAnteilAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current SumABeendigungsAnteilAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SumABeendigungsAnteilAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SumABeendigungsAnteilAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumABeendigungsAnteilAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumABeendigungsAnteilAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumABeendigungsAnteilAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SumABeendigungsAnteilAVUVTyp + Dim file As 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 Class + + + Partial Public Class AufschubAVUVTyp + +#Region "Private fields" + Private _aufschubart As String + + Private _artAufschubantrag As String + + Private _aufschubnehmerEORI As String + + Private _kennbuchstabenAufschub As String + + Private _zollnummerAufschubnehmer As String + + Private _kontoBewHZA As String + + Private _kontoNr As String + + Private _aufschubBIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Aufschubart() As String + Get + Return Me._aufschubart + End Get + Set + Me._aufschubart = Value + End Set + End Property + + + Public Property ArtAufschubantrag() As String + Get + Return Me._artAufschubantrag + End Get + Set + Me._artAufschubantrag = Value + End Set + End Property + + + Public Property AufschubnehmerEORI() As String + Get + Return Me._aufschubnehmerEORI + End Get + Set + Me._aufschubnehmerEORI = Value + End Set + End Property + + + Public Property KennbuchstabenAufschub() As String + Get + Return Me._kennbuchstabenAufschub + End Get + Set + Me._kennbuchstabenAufschub = Value + End Set + End Property + + + Public Property ZollnummerAufschubnehmer() As String + Get + Return Me._zollnummerAufschubnehmer + End Get + Set + Me._zollnummerAufschubnehmer = Value + End Set + End Property + + + Public Property KontoBewHZA() As String + Get + Return Me._kontoBewHZA + End Get + Set + Me._kontoBewHZA = Value + End Set + End Property + + + Public Property KontoNr() As String + Get + Return Me._kontoNr + End Get + Set + Me._kontoNr = Value + End Set + End Property + + + Public Property AufschubBIN() As String + Get + Return Me._aufschubBIN + End Get + Set + Me._aufschubBIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AufschubAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AufschubAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AufschubAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AufschubAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AufschubAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AufschubAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AufschubAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AufschubAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AufschubAVUVTyp + Return CType(Serializer.Deserialize(s), AufschubAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current AufschubAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AufschubAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AufschubAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AufschubAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AufschubAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AufschubAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AufschubAVUVTyp + Dim file As 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 Class + + + Partial Public Class UnterlageVzKopfAVUVTyp + +#Region "Private fields" + Private _bereich As String + + Private _art As String + + Private _nummer As String + + Private _datumAusstellung As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Bereich() As String + Get + Return Me._bereich + End Get + Set + Me._bereich = Value + End Set + End Property + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Nummer() As String + Get + Return Me._nummer + End Get + Set + Me._nummer = Value + End Set + End Property + + + Public Property DatumAusstellung() As Date + Get + Return Me._datumAusstellung + End Get + Set + Me._datumAusstellung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageVzKopfAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UnterlageVzKopfAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UnterlageVzKopfAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UnterlageVzKopfAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVzKopfAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageVzKopfAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UnterlageVzKopfAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageVzKopfAVUVTyp + Return CType(Serializer.Deserialize(s), UnterlageVzKopfAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageVzKopfAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UnterlageVzKopfAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UnterlageVzKopfAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVzKopfAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageVzKopfAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageVzKopfAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As UnterlageVzKopfAVUVTyp + Dim file As 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 Class + + + Partial Public Class DV1AngabenAVUVTyp + +#Region "Private fields" + Private _dV1Kz As String + + Private _vertretungsverhaeltnis As String + + Private _fruehereEntscheidungen As String + + Private _verbundenheit As String + + Private _verbundenheitEinzelheiten As String + + Private _einschraenkungenKz As String + + Private _bedingungenLeistungenKz As String + + Private _bedingungenLeistungenArt As String + + Private _lizenzgebuehrenKz As String + + Private _lizenzgebuehrenUmstand As String + + Private _spezielleVereinbarungKz As String + + Private _spezielleVereinbarungUmstand As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property DV1Kz() As String + Get + Return Me._dV1Kz + End Get + Set + Me._dV1Kz = Value + End Set + End Property + + + Public Property Vertretungsverhaeltnis() As String + Get + Return Me._vertretungsverhaeltnis + End Get + Set + Me._vertretungsverhaeltnis = Value + End Set + End Property + + + Public Property FruehereEntscheidungen() As String + Get + Return Me._fruehereEntscheidungen + End Get + Set + Me._fruehereEntscheidungen = Value + End Set + End Property + + + Public Property Verbundenheit() As String + Get + Return Me._verbundenheit + End Get + Set + Me._verbundenheit = Value + End Set + End Property + + + Public Property VerbundenheitEinzelheiten() As String + Get + Return Me._verbundenheitEinzelheiten + End Get + Set + Me._verbundenheitEinzelheiten = Value + End Set + End Property + + + Public Property EinschraenkungenKz() As String + Get + Return Me._einschraenkungenKz + End Get + Set + Me._einschraenkungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenKz() As String + Get + Return Me._bedingungenLeistungenKz + End Get + Set + Me._bedingungenLeistungenKz = Value + End Set + End Property + + + Public Property BedingungenLeistungenArt() As String + Get + Return Me._bedingungenLeistungenArt + End Get + Set + Me._bedingungenLeistungenArt = Value + End Set + End Property + + + Public Property LizenzgebuehrenKz() As String + Get + Return Me._lizenzgebuehrenKz + End Get + Set + Me._lizenzgebuehrenKz = Value + End Set + End Property + + + Public Property LizenzgebuehrenUmstand() As String + Get + Return Me._lizenzgebuehrenUmstand + End Get + Set + Me._lizenzgebuehrenUmstand = Value + End Set + End Property + + + Public Property SpezielleVereinbarungKz() As String + Get + Return Me._spezielleVereinbarungKz + End Get + Set + Me._spezielleVereinbarungKz = Value + End Set + End Property + + + Public Property SpezielleVereinbarungUmstand() As String + Get + Return Me._spezielleVereinbarungUmstand + End Get + Set + Me._spezielleVereinbarungUmstand = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DV1AngabenAVUVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DV1AngabenAVUVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DV1AngabenAVUVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DV1AngabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1AngabenAVUVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DV1AngabenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DV1AngabenAVUVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DV1AngabenAVUVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DV1AngabenAVUVTyp + Return CType(Serializer.Deserialize(s), DV1AngabenAVUVTyp) + End Function +#End Region + + ''' + ''' Serializes current DV1AngabenAVUVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DV1AngabenAVUVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DV1AngabenAVUVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1AngabenAVUVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DV1AngabenAVUVTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DV1AngabenAVUVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DV1AngabenAVUVTyp + Dim file As 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 Class + + + Partial Public Class KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + +#Region "Private fields" + Private _adressierteZollstelle As String + + Private _anmelderIstEmpfaenger As String + + Private _vertretungsverhaeltnisCode As String + + Private _vorsteuerabzug As String + + Private _nameAnmeldenderBearbeiter As String + + Private _telefonnummerAnmeldenderBearbeiter As String + + Private _stellungAnmeldenderBearbeiter As String + + Private _emailAdresseAnmeldenderBearbeiter As String + + Private _fiskalvertretungKz As String + + Private _ausstellungsort As String + + Private _zollrechtlicherStatus As String + + Private _gesamtRohMasse As String + + Private _verfahrenBeantragtCode As String + + Private _verkehrszweigInland As String + + Private _verkehrszweigGrenze As String + + Private _versendungslandCode As String + + Private _bestimmungsbundesland As String + + Private _bestimmungsland As String + + Private _kennzeichenNameBefoerderungsmittelAnkunft As String + + Private _befoerderungsmittelGrenzeStaatszugehoerigkeitCode As String + + Private _befoerderungsmittelGrenzeArt As String + + Private _befoerderungsmittelGrenze As String + + Private _lieferbedingungCode As String + + Private _lieferbedingungText As String + + Private _lieferbedingungSchluessel As String + + Private _lieferbedingungOrt As String + + Private _vorpapierArtCode As String + + Private _vorpapierNr As String + + Private _artGeschaeftCode As String + + Private _statistikStatus As String + + Private _warenort As String + + Private _rechnungspreis As String + + Private _rechnungswaehrung As String + + Private _dV1Angaben As DV1AngabenAVUVTyp + + Private _unterlage As List(Of UnterlageVzKopfAVUVTyp) + + Private _zusatzAngabenAnmeldung As String + + Private _kzAutoBestaetigung As String + + Private _anschreibungDatum As Date + + Private _vereinfachterBewilligungsantragKzAV As String + + Private _eingangszollstelle As String + + Private _zahlungsart As String + + Private _aufschub As List(Of AufschubAVUVTyp) + + Private _sumABeendigungsAnteil As List(Of SumABeendigungsAnteilAVUVTyp) + + Private _containerNr As List(Of String) + + Private _beendigungsAnteilArtCode As String + + Private _bewilligungsIDZLAVUV As String + + Private _bezugsnummerBEAnteilZL As String + + Private _bEAnteilZLAVUV As List(Of BEAnteilZLAVUVPositionAVUVTyp) + + Private _kzVereinfBewillAntrgBEAnteilAV As String + + Private _deutschesUeHZAbeiAV As String + + Private _erledigungsfristAV As String + + Private _bemEinfuhrabgKz As String + + Private _zusatzAngabenAV As String + + Private _einzelheitenVeredelung As String + + Private _aVBuchhaltVeredelung As List(Of AVBuchhaltVeredelungTyp) + + Private _aVErledZollstelle As List(Of String) + + Private _adressen As List(Of AdressenVzImportAVUVTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._adressen = New List(Of AdressenVzImportAVUVTyp)() + Me._aVErledZollstelle = New List(Of String)() + Me._aVBuchhaltVeredelung = New List(Of AVBuchhaltVeredelungTyp)() + Me._bEAnteilZLAVUV = New List(Of BEAnteilZLAVUVPositionAVUVTyp)() + Me._containerNr = New List(Of String)() + Me._sumABeendigungsAnteil = New List(Of SumABeendigungsAnteilAVUVTyp)() + Me._aufschub = New List(Of AufschubAVUVTyp)() + Me._unterlage = New List(Of UnterlageVzKopfAVUVTyp)() + Me._dV1Angaben = New DV1AngabenAVUVTyp() + End Sub + + + Public Property AdressierteZollstelle() As String + Get + Return Me._adressierteZollstelle + End Get + Set + Me._adressierteZollstelle = Value + End Set + End Property + + + Public Property AnmelderIstEmpfaenger() As String + Get + Return Me._anmelderIstEmpfaenger + End Get + Set + Me._anmelderIstEmpfaenger = Value + End Set + End Property + + + Public Property VertretungsverhaeltnisCode() As String + Get + Return Me._vertretungsverhaeltnisCode + End Get + Set + Me._vertretungsverhaeltnisCode = Value + End Set + End Property + + + Public Property Vorsteuerabzug() As String + Get + Return Me._vorsteuerabzug + End Get + Set + Me._vorsteuerabzug = Value + End Set + End Property + + + Public Property NameAnmeldenderBearbeiter() As String + Get + Return Me._nameAnmeldenderBearbeiter + End Get + Set + Me._nameAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property TelefonnummerAnmeldenderBearbeiter() As String + Get + Return Me._telefonnummerAnmeldenderBearbeiter + End Get + Set + Me._telefonnummerAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property StellungAnmeldenderBearbeiter() As String + Get + Return Me._stellungAnmeldenderBearbeiter + End Get + Set + Me._stellungAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property EmailAdresseAnmeldenderBearbeiter() As String + Get + Return Me._emailAdresseAnmeldenderBearbeiter + End Get + Set + Me._emailAdresseAnmeldenderBearbeiter = Value + End Set + End Property + + + Public Property FiskalvertretungKz() As String + Get + Return Me._fiskalvertretungKz + End Get + Set + Me._fiskalvertretungKz = Value + End Set + End Property + + + Public Property Ausstellungsort() As String + Get + Return Me._ausstellungsort + End Get + Set + Me._ausstellungsort = Value + End Set + End Property + + + Public Property ZollrechtlicherStatus() As String + Get + Return Me._zollrechtlicherStatus + End Get + Set + Me._zollrechtlicherStatus = Value + End Set + End Property + + + Public Property GesamtRohMasse() As String + Get + Return Me._gesamtRohMasse + End Get + Set + Me._gesamtRohMasse = Value + End Set + End Property + + + Public Property VerfahrenBeantragtCode() As String + Get + Return Me._verfahrenBeantragtCode + End Get + Set + Me._verfahrenBeantragtCode = Value + End Set + End Property + + + Public Property VerkehrszweigInland() As String + Get + Return Me._verkehrszweigInland + End Get + Set + Me._verkehrszweigInland = Value + End Set + End Property + + + Public Property VerkehrszweigGrenze() As String + Get + Return Me._verkehrszweigGrenze + End Get + Set + Me._verkehrszweigGrenze = Value + End Set + End Property + + + Public Property VersendungslandCode() As String + Get + Return Me._versendungslandCode + End Get + Set + Me._versendungslandCode = Value + End Set + End Property + + + Public Property Bestimmungsbundesland() As String + Get + Return Me._bestimmungsbundesland + End Get + Set + Me._bestimmungsbundesland = Value + End Set + End Property + + + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set + Me._bestimmungsland = Value + End Set + End Property + + + Public Property KennzeichenNameBefoerderungsmittelAnkunft() As String + Get + Return Me._kennzeichenNameBefoerderungsmittelAnkunft + End Get + Set + Me._kennzeichenNameBefoerderungsmittelAnkunft = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenzeStaatszugehoerigkeitCode() As String + Get + Return Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode + End Get + Set + Me._befoerderungsmittelGrenzeStaatszugehoerigkeitCode = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenzeArt() As String + Get + Return Me._befoerderungsmittelGrenzeArt + End Get + Set + Me._befoerderungsmittelGrenzeArt = Value + End Set + End Property + + + Public Property BefoerderungsmittelGrenze() As String + Get + Return Me._befoerderungsmittelGrenze + End Get + Set + Me._befoerderungsmittelGrenze = Value + End Set + End Property + + + Public Property LieferbedingungCode() As String + Get + Return Me._lieferbedingungCode + End Get + Set + Me._lieferbedingungCode = Value + End Set + End Property + + + Public Property LieferbedingungText() As String + Get + Return Me._lieferbedingungText + End Get + Set + Me._lieferbedingungText = Value + End Set + End Property + + + Public Property LieferbedingungSchluessel() As String + Get + Return Me._lieferbedingungSchluessel + End Get + Set + Me._lieferbedingungSchluessel = Value + End Set + End Property + + + Public Property LieferbedingungOrt() As String + Get + Return Me._lieferbedingungOrt + End Get + Set + Me._lieferbedingungOrt = Value + End Set + End Property + + + Public Property VorpapierArtCode() As String + Get + Return Me._vorpapierArtCode + End Get + Set + Me._vorpapierArtCode = Value + End Set + End Property + + + Public Property VorpapierNr() As String + Get + Return Me._vorpapierNr + End Get + Set + Me._vorpapierNr = Value + End Set + End Property + + + Public Property ArtGeschaeftCode() As String + Get + Return Me._artGeschaeftCode + End Get + Set + Me._artGeschaeftCode = Value + End Set + End Property + + + Public Property StatistikStatus() As String + Get + Return Me._statistikStatus + End Get + Set + Me._statistikStatus = Value + End Set + End Property + + + Public Property Warenort() As String + Get + Return Me._warenort + End Get + Set + Me._warenort = Value + End Set + End Property + + + Public Property Rechnungspreis() As String + Get + Return Me._rechnungspreis + End Get + Set + Me._rechnungspreis = Value + End Set + End Property + + + Public Property Rechnungswaehrung() As String + Get + Return Me._rechnungswaehrung + End Get + Set + Me._rechnungswaehrung = Value + End Set + End Property + + + Public Property DV1Angaben() As DV1AngabenAVUVTyp + Get + Return Me._dV1Angaben + End Get + Set + Me._dV1Angaben = Value + End Set + End Property + + + Public Property Unterlage() As List(Of UnterlageVzKopfAVUVTyp) + Get + Return Me._unterlage + End Get + Set + Me._unterlage = Value + End Set + End Property + + + Public Property ZusatzAngabenAnmeldung() As String + Get + Return Me._zusatzAngabenAnmeldung + End Get + Set + Me._zusatzAngabenAnmeldung = Value + End Set + End Property + + + Public Property KzAutoBestaetigung() As String + Get + Return Me._kzAutoBestaetigung + End Get + Set + Me._kzAutoBestaetigung = Value + End Set + End Property + + + Public Property AnschreibungDatum() As Date + Get + Return Me._anschreibungDatum + End Get + Set + Me._anschreibungDatum = Value + End Set + End Property + + + Public Property VereinfachterBewilligungsantragKzAV() As String + Get + Return Me._vereinfachterBewilligungsantragKzAV + End Get + Set + Me._vereinfachterBewilligungsantragKzAV = Value + End Set + End Property + + + Public Property Eingangszollstelle() As String + Get + Return Me._eingangszollstelle + End Get + Set + Me._eingangszollstelle = Value + End Set + End Property + + + Public Property Zahlungsart() As String + Get + Return Me._zahlungsart + End Get + Set + Me._zahlungsart = Value + End Set + End Property + + + Public Property Aufschub() As List(Of AufschubAVUVTyp) + Get + Return Me._aufschub + End Get + Set + Me._aufschub = Value + End Set + End Property + + + Public Property SumABeendigungsAnteil() As List(Of SumABeendigungsAnteilAVUVTyp) + Get + Return Me._sumABeendigungsAnteil + End Get + Set + Me._sumABeendigungsAnteil = Value + End Set + End Property + + + Public Property ContainerNr() As List(Of String) + Get + Return Me._containerNr + End Get + Set + Me._containerNr = Value + End Set + End Property + + + Public Property BeendigungsAnteilArtCode() As String + Get + Return Me._beendigungsAnteilArtCode + End Get + Set + Me._beendigungsAnteilArtCode = Value + End Set + End Property + + + Public Property BewilligungsIDZLAVUV() As String + Get + Return Me._bewilligungsIDZLAVUV + End Get + Set + Me._bewilligungsIDZLAVUV = Value + End Set + End Property + + + Public Property BezugsnummerBEAnteilZL() As String + Get + Return Me._bezugsnummerBEAnteilZL + End Get + Set + Me._bezugsnummerBEAnteilZL = Value + End Set + End Property + + + Public Property BEAnteilZLAVUV() As List(Of BEAnteilZLAVUVPositionAVUVTyp) + Get + Return Me._bEAnteilZLAVUV + End Get + Set + Me._bEAnteilZLAVUV = Value + End Set + End Property + + + Public Property KzVereinfBewillAntrgBEAnteilAV() As String + Get + Return Me._kzVereinfBewillAntrgBEAnteilAV + End Get + Set + Me._kzVereinfBewillAntrgBEAnteilAV = Value + End Set + End Property + + + Public Property DeutschesUeHZAbeiAV() As String + Get + Return Me._deutschesUeHZAbeiAV + End Get + Set + Me._deutschesUeHZAbeiAV = Value + End Set + End Property + + + Public Property ErledigungsfristAV() As String + Get + Return Me._erledigungsfristAV + End Get + Set + Me._erledigungsfristAV = Value + End Set + End Property + + + Public Property BemEinfuhrabgKz() As String + Get + Return Me._bemEinfuhrabgKz + End Get + Set + Me._bemEinfuhrabgKz = Value + End Set + End Property + + + Public Property ZusatzAngabenAV() As String + Get + Return Me._zusatzAngabenAV + End Get + Set + Me._zusatzAngabenAV = Value + End Set + End Property + + + Public Property EinzelheitenVeredelung() As String + Get + Return Me._einzelheitenVeredelung + End Get + Set + Me._einzelheitenVeredelung = Value + End Set + End Property + + + Public Property AVBuchhaltVeredelung() As List(Of AVBuchhaltVeredelungTyp) + Get + Return Me._aVBuchhaltVeredelung + End Get + Set + Me._aVBuchhaltVeredelung = Value + End Set + End Property + + + Public Property AVErledZollstelle() As List(Of String) + Get + Return Me._aVErledZollstelle + End Get + Set + Me._aVErledZollstelle = Value + End Set + End Property + + + Public Property Adressen() As List(Of AdressenVzImportAVUVTyp) + Get + Return Me._adressen + End Get + Set + Me._adressen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + Dim file As 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 Class + + + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd new file mode 100644 index 0000000..61656d7 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004.xsd @@ -0,0 +1,609 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_old.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_old.xsd new file mode 100644 index 0000000..d1e3d62 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehr/FreierVerkehrAktVeredelUmwandlung_004_old.xsd @@ -0,0 +1,568 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.Designer.vb new file mode 100644 index 0000000..7075e83 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.Designer.vb @@ -0,0 +1,20942 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' FCFCDCListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace FCFCDC + + + Partial Public Class FCFCDC + +#Region "Private fields" + Private _metaData As FCFCDCMetaData + + Private _header As FCFCDCHeader + + Private _declarant As FCFCDCDeclarant + + Private _representative As FCFCDCRepresentative + + Private _principal As FCFCDCPrincipal + + Private _contactPerson As FCFCDCContactPerson + + Private _dutyDefermentApproval As List(Of FCFCDCDutyDefermentApproval) + + Private _borderTransportMeans As FCFCDCBorderTransportMeans + + Private _arrivalTransportMeans As FCFCDCArrivalTransportMeans + + Private _previousAdministrativeReferences As FCFCDCPreviousAdministrativeReferences + + Private _summaryDeclaration As FCFCDCSummaryDeclaration + + Private _customsWarehouse As FCFCDCCustomsWarehouse + + Private _inwardProcessing As FCFCDCInwardProcessing + + Private _body As FCFCDCBody + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._body = New FCFCDCBody() + Me._inwardProcessing = New FCFCDCInwardProcessing() + Me._customsWarehouse = New FCFCDCCustomsWarehouse() + Me._summaryDeclaration = New FCFCDCSummaryDeclaration() + Me._previousAdministrativeReferences = New FCFCDCPreviousAdministrativeReferences() + Me._arrivalTransportMeans = New FCFCDCArrivalTransportMeans() + Me._borderTransportMeans = New FCFCDCBorderTransportMeans() + Me._dutyDefermentApproval = New List(Of FCFCDCDutyDefermentApproval)() + Me._contactPerson = New FCFCDCContactPerson() + Me._principal = New FCFCDCPrincipal() + Me._representative = New FCFCDCRepresentative() + Me._declarant = New FCFCDCDeclarant() + Me._header = New FCFCDCHeader() + Me._metaData = New FCFCDCMetaData() + End Sub + + Public Property MetaData() As FCFCDCMetaData + Get + Return Me._metaData + End Get + Set + Me._metaData = Value + End Set + End Property + + Public Property Header() As FCFCDCHeader + Get + Return Me._header + End Get + Set + Me._header = Value + End Set + End Property + + Public Property Declarant() As FCFCDCDeclarant + Get + Return Me._declarant + End Get + Set + Me._declarant = Value + End Set + End Property + + Public Property Representative() As FCFCDCRepresentative + Get + Return Me._representative + End Get + Set + Me._representative = Value + End Set + End Property + + Public Property Principal() As FCFCDCPrincipal + Get + Return Me._principal + End Get + Set + Me._principal = Value + End Set + End Property + + Public Property ContactPerson() As FCFCDCContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + + Public Property DutyDefermentApproval() As List(Of FCFCDCDutyDefermentApproval) + Get + Return Me._dutyDefermentApproval + End Get + Set + Me._dutyDefermentApproval = Value + End Set + End Property + + Public Property BorderTransportMeans() As FCFCDCBorderTransportMeans + Get + Return Me._borderTransportMeans + End Get + Set + Me._borderTransportMeans = Value + End Set + End Property + + Public Property ArrivalTransportMeans() As FCFCDCArrivalTransportMeans + Get + Return Me._arrivalTransportMeans + End Get + Set + Me._arrivalTransportMeans = Value + End Set + End Property + + Public Property PreviousAdministrativeReferences() As FCFCDCPreviousAdministrativeReferences + Get + Return Me._previousAdministrativeReferences + End Get + Set + Me._previousAdministrativeReferences = Value + End Set + End Property + + Public Property SummaryDeclaration() As FCFCDCSummaryDeclaration + Get + Return Me._summaryDeclaration + End Get + Set + Me._summaryDeclaration = Value + End Set + End Property + + Public Property CustomsWarehouse() As FCFCDCCustomsWarehouse + Get + Return Me._customsWarehouse + End Get + Set + Me._customsWarehouse = Value + End Set + End Property + + Public Property InwardProcessing() As FCFCDCInwardProcessing + Get + Return Me._inwardProcessing + End Get + Set + Me._inwardProcessing = Value + End Set + End Property + + Public Property Body() As FCFCDCBody + Get + Return Me._body + End Get + Set + Me._body = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDC)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDC object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDC object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDC, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDC) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDC) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDC + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDC) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDC + Return CType(Serializer.Deserialize(s), FCFCDC) + End Function +#End Region + + ''' + ''' Serializes current FCFCDC object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDC object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDC, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDC) + 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 FCFCDC) 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 FCFCDC + 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 Class + + + Partial Public Class FCFCDCMetaData + +#Region "Private fields" + Private _preparation As FCFCDCMetaDataPreparation + + Private _interchangeControlReference As String + + Private _messageReferenceNumber As String + + Private _messageIdentifier As String + + Private _messageGroup As FCFCDCMetaDataMessageGroup + + Private _testIndicator As FCFCDCMetaDataTestIndicator + + Private _messageType As FCFCDCMetaDataMessageType + + Private _interchangeSender As FCFCDCMetaDataInterchangeSender + + Private _interchangeRecipient As FCFCDCMetaDataInterchangeRecipient + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._interchangeRecipient = New FCFCDCMetaDataInterchangeRecipient() + Me._interchangeSender = New FCFCDCMetaDataInterchangeSender() + Me._preparation = New FCFCDCMetaDataPreparation() + End Sub + + Public Property Preparation() As FCFCDCMetaDataPreparation + Get + Return Me._preparation + End Get + Set + Me._preparation = Value + End Set + End Property + + + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set + Me._interchangeControlReference = Value + End Set + End Property + + + Public Property MessageReferenceNumber() As String + Get + Return Me._messageReferenceNumber + End Get + Set + Me._messageReferenceNumber = Value + End Set + End Property + + + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set + Me._messageIdentifier = Value + End Set + End Property + + Public Property MessageGroup() As FCFCDCMetaDataMessageGroup + Get + Return Me._messageGroup + End Get + Set + Me._messageGroup = Value + End Set + End Property + + Public Property TestIndicator() As FCFCDCMetaDataTestIndicator + Get + Return Me._testIndicator + End Get + Set + Me._testIndicator = Value + End Set + End Property + + Public Property MessageType() As FCFCDCMetaDataMessageType + Get + Return Me._messageType + End Get + Set + Me._messageType = Value + End Set + End Property + + Public Property InterchangeSender() As FCFCDCMetaDataInterchangeSender + Get + Return Me._interchangeSender + End Get + Set + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As FCFCDCMetaDataInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set + Me._interchangeRecipient = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaData object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaData object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaData) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaData) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaData + Return CType(Serializer.Deserialize(s), FCFCDCMetaData) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaData object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaData object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaData) + 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 FCFCDCMetaData) 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 FCFCDCMetaData + 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 Class + + + Partial Public Class FCFCDCMetaDataPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set + Me._date = Value + End Set + End Property + + + Public Property Time() As Date + Get + Return Me._time + End Get + Set + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataPreparation + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataPreparation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataPreparation) + 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 FCFCDCMetaDataPreparation) 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 FCFCDCMetaDataPreparation + 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 Class + + + Public Enum FCFCDCMetaDataMessageGroup + + ''' + ZBE + + ''' + ZBV + End Enum + + + Public Enum FCFCDCMetaDataTestIndicator + + ''' + + Item1 + End Enum + + + Public Enum FCFCDCMetaDataMessageType + + ''' + FCFCDC + End Enum + + + Partial Public Class FCFCDCMetaDataInterchangeSender + +#Region "Private fields" + Private _identification As FCFCDCMetaDataInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCMetaDataInterchangeSenderIdentification() + End Sub + + Public Property Identification() As FCFCDCMetaDataInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeSender + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeSender) + 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 FCFCDCMetaDataInterchangeSender) 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 FCFCDCMetaDataInterchangeSender + 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 Class + + + Partial Public Class FCFCDCMetaDataInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeSenderIdentification) + 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 FCFCDCMetaDataInterchangeSenderIdentification) 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 FCFCDCMetaDataInterchangeSenderIdentification + 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 Class + + + Partial Public Class FCFCDCMetaDataInterchangeRecipient + +#Region "Private fields" + Private _identification As FCFCDCMetaDataInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCMetaDataInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As FCFCDCMetaDataInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeRecipient + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipient) + 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 FCFCDCMetaDataInterchangeRecipient) 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 FCFCDCMetaDataInterchangeRecipient + 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 Class + + + Partial Public Class FCFCDCMetaDataInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCMetaDataInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCMetaDataInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCMetaDataInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCMetaDataInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCMetaDataInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCMetaDataInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), FCFCDCMetaDataInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCMetaDataInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCMetaDataInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCMetaDataInterchangeRecipientIdentification) + 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 FCFCDCMetaDataInterchangeRecipientIdentification) 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 FCFCDCMetaDataInterchangeRecipientIdentification + 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 Class + + + Partial Public Class FCFCDCHeader + +#Region "Private fields" + Private _messageVersion As String + + Private _messageCreationDate As Date + + Private _declaration As FCFCDCHeaderDeclaration + + Private _localReferenceNumber As String + + Private _prematureInputFlag As String + + Private _goodsItemQuantity As String + + Private _customsGoodsStatus As String + + Private _declarantIsConsigneeFlag As String + + Private _customsAuthorisation As FCFCDCHeaderCustomsAuthorisation + + Private _inputTaxDeductionFlag As String + + Private _goodsLocation As String + + Private _departureCountry As String + + Private _paymentMethod As FCFCDCHeaderPaymentMethod + + Private _currencyCode As FCFCDCHeaderCurrencyCode + + Private _additionalInformation As String + + Private _taxNumber As String + + Private _taxOffice As String + + Private _representativeRelationshipFlag As String + + Private _declarationPlace As String + + Private _authorisationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._customsAuthorisation = New FCFCDCHeaderCustomsAuthorisation() + Me._declaration = New FCFCDCHeaderDeclaration() + End Sub + + + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set + Me._messageVersion = Value + End Set + End Property + + + Public Property MessageCreationDate() As Date + Get + Return Me._messageCreationDate + End Get + Set + Me._messageCreationDate = Value + End Set + End Property + + Public Property Declaration() As FCFCDCHeaderDeclaration + Get + Return Me._declaration + End Get + Set + Me._declaration = Value + End Set + End Property + + + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set + Me._localReferenceNumber = Value + End Set + End Property + + + Public Property PrematureInputFlag() As String + Get + Return Me._prematureInputFlag + End Get + Set + Me._prematureInputFlag = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + + Public Property CustomsGoodsStatus() As String + Get + Return Me._customsGoodsStatus + End Get + Set + Me._customsGoodsStatus = Value + End Set + End Property + + + Public Property DeclarantIsConsigneeFlag() As String + Get + Return Me._declarantIsConsigneeFlag + End Get + Set + Me._declarantIsConsigneeFlag = Value + End Set + End Property + + Public Property CustomsAuthorisation() As FCFCDCHeaderCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property InputTaxDeductionFlag() As String + Get + Return Me._inputTaxDeductionFlag + End Get + Set + Me._inputTaxDeductionFlag = Value + End Set + End Property + + + Public Property GoodsLocation() As String + Get + Return Me._goodsLocation + End Get + Set + Me._goodsLocation = Value + End Set + End Property + + + Public Property DepartureCountry() As String + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + Public Property PaymentMethod() As FCFCDCHeaderPaymentMethod + Get + Return Me._paymentMethod + End Get + Set + Me._paymentMethod = Value + End Set + End Property + + Public Property CurrencyCode() As FCFCDCHeaderCurrencyCode + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property AdditionalInformation() As String + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property TaxNumber() As String + Get + Return Me._taxNumber + End Get + Set + Me._taxNumber = Value + End Set + End Property + + + Public Property TaxOffice() As String + Get + Return Me._taxOffice + End Get + Set + Me._taxOffice = Value + End Set + End Property + + + Public Property RepresentativeRelationshipFlag() As String + Get + Return Me._representativeRelationshipFlag + End Get + Set + Me._representativeRelationshipFlag = Value + End Set + End Property + + + Public Property DeclarationPlace() As String + Get + Return Me._declarationPlace + End Get + Set + Me._declarationPlace = Value + End Set + End Property + + + Public Property AuthorisationNumber() As String + Get + Return Me._authorisationNumber + End Get + Set + Me._authorisationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCHeader object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCHeader + Return CType(Serializer.Deserialize(s), FCFCDCHeader) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCHeader object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeader) + 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 FCFCDCHeader) 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 FCFCDCHeader + 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 Class + + + Partial Public Class FCFCDCHeaderDeclaration + +#Region "Private fields" + Private _kind As FCFCDCHeaderDeclarationKind + + Private _type As FCFCDCHeaderDeclarationType + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Kind() As FCFCDCHeaderDeclarationKind + Get + Return Me._kind + End Get + Set + Me._kind = Value + End Set + End Property + + Public Property Type() As FCFCDCHeaderDeclarationType + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCHeaderDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCHeaderDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCHeaderDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeaderDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCHeaderDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCHeaderDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCHeaderDeclaration + Return CType(Serializer.Deserialize(s), FCFCDCHeaderDeclaration) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCHeaderDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCHeaderDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeaderDeclaration) + 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 FCFCDCHeaderDeclaration) 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 FCFCDCHeaderDeclaration + 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 Class + + + Public Enum FCFCDCHeaderDeclarationKind + + ''' + A + + ''' + B + + ''' + D + + ''' + E + End Enum + + + Public Enum FCFCDCHeaderDeclarationType + + ''' + EZA + End Enum + + + Partial Public Class FCFCDCHeaderCustomsAuthorisation + +#Region "Private fields" + Private _endUse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property EndUse() As String + Get + Return Me._endUse + End Get + Set + Me._endUse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCHeaderCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCHeaderCustomsAuthorisation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCHeaderCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeaderCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCHeaderCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCHeaderCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCHeaderCustomsAuthorisation + Return CType(Serializer.Deserialize(s), FCFCDCHeaderCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCHeaderCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCHeaderCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCHeaderCustomsAuthorisation) + 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 FCFCDCHeaderCustomsAuthorisation) 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 FCFCDCHeaderCustomsAuthorisation + 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 Class + + + Public Enum FCFCDCHeaderPaymentMethod + + ''' + A + + ''' + C + + ''' + D + + ''' + E + + ''' + F + + ''' + G + + ''' + Y + + ''' + Z + End Enum + + + Public Enum FCFCDCHeaderCurrencyCode + + ''' + EUR + End Enum + + + Partial Public Class FCFCDCDeclarant + +#Region "Private fields" + Private _identification As FCFCDCDeclarantIdentification + + Private _name As String + + Private _address As FCFCDCDeclarantAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCDeclarantAddress() + Me._identification = New FCFCDCDeclarantIdentification() + End Sub + + Public Property Identification() As FCFCDCDeclarantIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCDeclarantAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDeclarant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDeclarant object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCDeclarant object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDeclarant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDeclarant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDeclarant + Return CType(Serializer.Deserialize(s), FCFCDCDeclarant) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDeclarant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCDeclarant object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDeclarant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarant) + 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 FCFCDCDeclarant) 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 FCFCDCDeclarant + 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 Class + + + Partial Public Class FCFCDCDeclarantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDeclarantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDeclarantIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCDeclarantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDeclarantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDeclarantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDeclarantIdentification + Return CType(Serializer.Deserialize(s), FCFCDCDeclarantIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDeclarantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCDeclarantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDeclarantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarantIdentification) + 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 FCFCDCDeclarantIdentification) 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 FCFCDCDeclarantIdentification + 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 Class + + + Partial Public Class FCFCDCDeclarantAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDeclarantAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDeclarantAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCDeclarantAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarantAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDeclarantAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDeclarantAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDeclarantAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDeclarantAddress + Return CType(Serializer.Deserialize(s), FCFCDCDeclarantAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDeclarantAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCDeclarantAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDeclarantAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDeclarantAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDeclarantAddress) + 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 FCFCDCDeclarantAddress) 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 FCFCDCDeclarantAddress + 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 Class + + + Partial Public Class FCFCDCRepresentative + +#Region "Private fields" + Private _identification As FCFCDCRepresentativeIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCRepresentativeIdentification() + End Sub + + Public Property Identification() As FCFCDCRepresentativeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCRepresentative)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCRepresentative object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCRepresentative object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCRepresentative) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentative) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCRepresentative + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCRepresentative) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCRepresentative + Return CType(Serializer.Deserialize(s), FCFCDCRepresentative) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCRepresentative object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCRepresentative object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCRepresentative object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentative, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCRepresentative) + 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 FCFCDCRepresentative) 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 FCFCDCRepresentative + 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 Class + + + Partial Public Class FCFCDCRepresentativeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCRepresentativeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCRepresentativeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCRepresentativeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCRepresentativeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCRepresentativeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCRepresentativeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCRepresentativeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCRepresentativeIdentification + Return CType(Serializer.Deserialize(s), FCFCDCRepresentativeIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCRepresentativeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCRepresentativeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCRepresentativeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCRepresentativeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCRepresentativeIdentification) + 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 FCFCDCRepresentativeIdentification) 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 FCFCDCRepresentativeIdentification + 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 Class + + + Partial Public Class FCFCDCPrincipal + +#Region "Private fields" + Private _identification As FCFCDCPrincipalIdentification + + Private _name As String + + Private _address As FCFCDCPrincipalAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCPrincipalAddress() + Me._identification = New FCFCDCPrincipalIdentification() + End Sub + + Public Property Identification() As FCFCDCPrincipalIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCPrincipalAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPrincipal)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPrincipal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCPrincipal object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPrincipal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipal) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipal) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPrincipal + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPrincipal) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPrincipal + Return CType(Serializer.Deserialize(s), FCFCDCPrincipal) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPrincipal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCPrincipal object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPrincipal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipal) + 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 FCFCDCPrincipal) 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 FCFCDCPrincipal + 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 Class + + + Partial Public Class FCFCDCPrincipalIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPrincipalIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPrincipalIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCPrincipalIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPrincipalIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipalIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPrincipalIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPrincipalIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPrincipalIdentification + Return CType(Serializer.Deserialize(s), FCFCDCPrincipalIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPrincipalIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCPrincipalIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPrincipalIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipalIdentification) + 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 FCFCDCPrincipalIdentification) 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 FCFCDCPrincipalIdentification + 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 Class + + + Partial Public Class FCFCDCPrincipalAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPrincipalAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPrincipalAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCPrincipalAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPrincipalAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipalAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPrincipalAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPrincipalAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPrincipalAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPrincipalAddress + Return CType(Serializer.Deserialize(s), FCFCDCPrincipalAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPrincipalAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCPrincipalAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPrincipalAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPrincipalAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPrincipalAddress) + 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 FCFCDCPrincipalAddress) 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 FCFCDCPrincipalAddress + 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 Class + + + Partial Public Class FCFCDCContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCContactPerson + Return CType(Serializer.Deserialize(s), FCFCDCContactPerson) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCContactPerson) + 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 FCFCDCContactPerson) 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 FCFCDCContactPerson + 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 Class + + + Partial Public Class FCFCDCDutyDefermentApproval + +#Region "Private fields" + Private _type As String + + Private _applicationType As String + + Private _accountPrefix As String + + Private _accountNumber As String + + Private _authorisationNumber As String + + Private _dutyDefermentApplicant As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._dutyDefermentApplicant = New FCFCDCDutyDefermentApprovalDutyDefermentApplicant() + End Sub + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ApplicationType() As String + Get + Return Me._applicationType + End Get + Set + Me._applicationType = Value + End Set + End Property + + + Public Property AccountPrefix() As String + Get + Return Me._accountPrefix + End Get + Set + Me._accountPrefix = Value + End Set + End Property + + + Public Property AccountNumber() As String + Get + Return Me._accountNumber + End Get + Set + Me._accountNumber = Value + End Set + End Property + + + Public Property AuthorisationNumber() As String + Get + Return Me._authorisationNumber + End Get + Set + Me._authorisationNumber = Value + End Set + End Property + + Public Property DutyDefermentApplicant() As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Get + Return Me._dutyDefermentApplicant + End Get + Set + Me._dutyDefermentApplicant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDutyDefermentApproval)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDutyDefermentApproval object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCDutyDefermentApproval object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDutyDefermentApproval object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApproval, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApproval) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApproval) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDutyDefermentApproval + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDutyDefermentApproval) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDutyDefermentApproval + Return CType(Serializer.Deserialize(s), FCFCDCDutyDefermentApproval) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDutyDefermentApproval object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCDutyDefermentApproval object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDutyDefermentApproval object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApproval, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApproval) + 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 FCFCDCDutyDefermentApproval) 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 FCFCDCDutyDefermentApproval + 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 Class + + + Partial Public Class FCFCDCDutyDefermentApprovalDutyDefermentApplicant + +#Region "Private fields" + Private _identification As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification() + End Sub + + Public Property Identification() As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDutyDefermentApprovalDutyDefermentApplicant)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicant object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDutyDefermentApprovalDutyDefermentApplicant + Return CType(Serializer.Deserialize(s), FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicant object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicant object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicant, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicant) + 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 FCFCDCDutyDefermentApprovalDutyDefermentApplicant) 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 FCFCDCDutyDefermentApprovalDutyDefermentApplicant + 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 Class + + + Partial Public Class FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + Return CType(Serializer.Deserialize(s), FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) + 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 FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification) 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 FCFCDCDutyDefermentApprovalDutyDefermentApplicantIdentification + 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 Class + + + Partial Public Class FCFCDCBorderTransportMeans + +#Region "Private fields" + Private _mode As String + + Private _type As String + + Private _information As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Mode() As String + Get + Return Me._mode + End Get + Set + Me._mode = Value + End Set + End Property + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property Information() As String + Get + Return Me._information + End Get + Set + Me._information = Value + End Set + End Property + + + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBorderTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBorderTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBorderTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBorderTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBorderTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBorderTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBorderTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBorderTransportMeans + Return CType(Serializer.Deserialize(s), FCFCDCBorderTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBorderTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBorderTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBorderTransportMeans) + 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 FCFCDCBorderTransportMeans) 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 FCFCDCBorderTransportMeans + 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 Class + + + Partial Public Class FCFCDCArrivalTransportMeans + +#Region "Private fields" + Private _identity As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Identity() As String + Get + Return Me._identity + End Get + Set + Me._identity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCArrivalTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCArrivalTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCArrivalTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCArrivalTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCArrivalTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCArrivalTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCArrivalTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCArrivalTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCArrivalTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCArrivalTransportMeans + Return CType(Serializer.Deserialize(s), FCFCDCArrivalTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCArrivalTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCArrivalTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCArrivalTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCArrivalTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCArrivalTransportMeans) + 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 FCFCDCArrivalTransportMeans) 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 FCFCDCArrivalTransportMeans + 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 Class + + + Partial Public Class FCFCDCPreviousAdministrativeReferences + +#Region "Private fields" + Private _type As String + + Private _previousAdministrativeReference As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._previousAdministrativeReference = New FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference() + End Sub + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property PreviousAdministrativeReference() As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Get + Return Me._previousAdministrativeReference + End Get + Set + Me._previousAdministrativeReference = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPreviousAdministrativeReferences)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPreviousAdministrativeReferences object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCPreviousAdministrativeReferences object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPreviousAdministrativeReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPreviousAdministrativeReferences) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferences) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPreviousAdministrativeReferences + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPreviousAdministrativeReferences) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPreviousAdministrativeReferences + Return CType(Serializer.Deserialize(s), FCFCDCPreviousAdministrativeReferences) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPreviousAdministrativeReferences object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCPreviousAdministrativeReferences object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPreviousAdministrativeReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPreviousAdministrativeReferences) + 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 FCFCDCPreviousAdministrativeReferences) 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 FCFCDCPreviousAdministrativeReferences + 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 Class + + + Partial Public Class FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + Return CType(Serializer.Deserialize(s), FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) + 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 FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference) 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 FCFCDCPreviousAdministrativeReferencesPreviousAdministrativeReference + 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 Class + + + Partial Public Class FCFCDCSummaryDeclaration + +#Region "Private fields" + Private _identificationIndicator As FCFCDCSummaryDeclarationIdentificationIndicator + + Private _goodsItem As List(Of FCFCDCSummaryDeclarationGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of FCFCDCSummaryDeclarationGoodsItem)() + End Sub + + Public Property IdentificationIndicator() As FCFCDCSummaryDeclarationIdentificationIndicator + Get + Return Me._identificationIndicator + End Get + Set + Me._identificationIndicator = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of FCFCDCSummaryDeclarationGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclaration + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclaration) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclaration) + 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 FCFCDCSummaryDeclaration) 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 FCFCDCSummaryDeclaration + 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 Class + + + Public Enum FCFCDCSummaryDeclarationIdentificationIndicator + + ''' + AWB + + ''' + REG + End Enum + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItem + +#Region "Private fields" + Private _quantity As String + + Private _identificationByKey As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + + Private _identificationByRegistration As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identificationByRegistration = New FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration() + Me._identificationByKey = New FCFCDCSummaryDeclarationGoodsItemIdentificationByKey() + End Sub + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property IdentificationByKey() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Get + Return Me._identificationByKey + End Get + Set + Me._identificationByKey = Value + End Set + End Property + + Public Property IdentificationByRegistration() As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Get + Return Me._identificationByRegistration + End Get + Set + Me._identificationByRegistration = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItem) + 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 FCFCDCSummaryDeclarationGoodsItem) 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 FCFCDCSummaryDeclarationGoodsItem + 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 Class + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + +#Region "Private fields" + Private _kind As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyKind + + Private _number As String + + Private _custodian As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._custodian = New FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian() + End Sub + + Public Property Kind() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyKind + Get + Return Me._kind + End Get + Set + Me._kind = Value + End Set + End Property + + + Public Property Number() As String + Get + Return Me._number + End Get + Set + Me._number = Value + End Set + End Property + + Public Property Custodian() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Get + Return Me._custodian + End Get + Set + Me._custodian = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByKey)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) + 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 FCFCDCSummaryDeclarationGoodsItemIdentificationByKey) 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 FCFCDCSummaryDeclarationGoodsItemIdentificationByKey + 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 Class + + + Public Enum FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyKind + + ''' + AWB + + ''' + ULD + End Enum + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + +#Region "Private fields" + Private _identification As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification() + End Sub + + Public Property Identification() As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + 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 FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) 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 FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + 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 Class + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + 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 FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) 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 FCFCDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + 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 Class + + + Partial Public Class FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + +#Region "Private fields" + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me._referencedRegistrationNumber + End Get + Set + Me._referencedRegistrationNumber = Value + End Set + End Property + + + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set + Me._referencedSequenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + Return CType(Serializer.Deserialize(s), FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) + 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 FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration) 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 FCFCDCSummaryDeclarationGoodsItemIdentificationByRegistration + 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 Class + + + Partial Public Class FCFCDCCustomsWarehouse + +#Region "Private fields" + Private _sequenceNumber As FCFCDCCustomsWarehouseSequenceNumber + + Private _goodsItemQuantity As String + + Private _customsAuthorisation As FCFCDCCustomsWarehouseCustomsAuthorisation + + Private _localReferenceNumber As String + + Private _goodsItem As List(Of FCFCDCCustomsWarehouseGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of FCFCDCCustomsWarehouseGoodsItem)() + Me._customsAuthorisation = New FCFCDCCustomsWarehouseCustomsAuthorisation() + End Sub + + Public Property SequenceNumber() As FCFCDCCustomsWarehouseSequenceNumber + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorisation() As FCFCDCCustomsWarehouseCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set + Me._localReferenceNumber = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of FCFCDCCustomsWarehouseGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouse object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouse object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouse) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouse) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouse + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouse) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouse object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouse object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouse) + 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 FCFCDCCustomsWarehouse) 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 FCFCDCCustomsWarehouse + 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 Class + + + Public Enum FCFCDCCustomsWarehouseSequenceNumber + + ''' + + Item1 + End Enum + + + Partial Public Class FCFCDCCustomsWarehouseCustomsAuthorisation + +#Region "Private fields" + Private _warehouseOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property WarehouseOwner() As String + Get + Return Me._warehouseOwner + End Get + Set + Me._warehouseOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouseCustomsAuthorisation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseCustomsAuthorisation + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouseCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouseCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseCustomsAuthorisation) + 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 FCFCDCCustomsWarehouseCustomsAuthorisation) 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 FCFCDCCustomsWarehouseCustomsAuthorisation + 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 Class + + + Partial Public Class FCFCDCCustomsWarehouseGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private _accessViaAtlasFlag As String + + Private _commodityCode As String + + Private _usualProcessingFlag As String + + Private _complement As String + + Private _commercialAmount As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + + Private _debitAmount As FCFCDCCustomsWarehouseGoodsItemDebitAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._debitAmount = New FCFCDCCustomsWarehouseGoodsItemDebitAmount() + Me._commercialAmount = New FCFCDCCustomsWarehouseGoodsItemCommercialAmount() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me._referencedRegistrationNumber + End Get + Set + Me._referencedRegistrationNumber = Value + End Set + End Property + + + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set + Me._referencedSequenceNumber = Value + End Set + End Property + + + Public Property AccessViaAtlasFlag() As String + Get + Return Me._accessViaAtlasFlag + End Get + Set + Me._accessViaAtlasFlag = Value + End Set + End Property + + + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + + Public Property UsualProcessingFlag() As String + Get + Return Me._usualProcessingFlag + End Get + Set + Me._usualProcessingFlag = Value + End Set + End Property + + + Public Property Complement() As String + Get + Return Me._complement + End Get + Set + Me._complement = Value + End Set + End Property + + Public Property CommercialAmount() As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Get + Return Me._commercialAmount + End Get + Set + Me._commercialAmount = Value + End Set + End Property + + Public Property DebitAmount() As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Get + Return Me._debitAmount + End Get + Set + Me._debitAmount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItem) + 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 FCFCDCCustomsWarehouseGoodsItem) 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 FCFCDCCustomsWarehouseGoodsItem + 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 Class + + + Partial Public Class FCFCDCCustomsWarehouseGoodsItemCommercialAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseGoodsItemCommercialAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItemCommercialAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseGoodsItemCommercialAmount + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItemCommercialAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemCommercialAmount) + 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 FCFCDCCustomsWarehouseGoodsItemCommercialAmount) 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 FCFCDCCustomsWarehouseGoodsItemCommercialAmount + 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 Class + + + Partial Public Class FCFCDCCustomsWarehouseGoodsItemDebitAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCCustomsWarehouseGoodsItemDebitAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItemDebitAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemDebitAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCCustomsWarehouseGoodsItemDebitAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCCustomsWarehouseGoodsItemDebitAmount + Return CType(Serializer.Deserialize(s), FCFCDCCustomsWarehouseGoodsItemDebitAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCCustomsWarehouseGoodsItemDebitAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCCustomsWarehouseGoodsItemDebitAmount) + 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 FCFCDCCustomsWarehouseGoodsItemDebitAmount) 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 FCFCDCCustomsWarehouseGoodsItemDebitAmount + 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 Class + + + Partial Public Class FCFCDCInwardProcessing + +#Region "Private fields" + Private _sequenceNumber As FCFCDCInwardProcessingSequenceNumber + + Private _goodsItemQuantity As String + + Private _customsAuthorisation As FCFCDCInwardProcessingCustomsAuthorisation + + Private _simplifiedGrantAuthorisationFlag As String + + Private _monitoringCustomsOffice As FCFCDCInwardProcessingMonitoringCustomsOffice + + Private _goodsItem As List(Of FCFCDCInwardProcessingGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of FCFCDCInwardProcessingGoodsItem)() + Me._monitoringCustomsOffice = New FCFCDCInwardProcessingMonitoringCustomsOffice() + Me._customsAuthorisation = New FCFCDCInwardProcessingCustomsAuthorisation() + End Sub + + Public Property SequenceNumber() As FCFCDCInwardProcessingSequenceNumber + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorisation() As FCFCDCInwardProcessingCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property SimplifiedGrantAuthorisationFlag() As String + Get + Return Me._simplifiedGrantAuthorisationFlag + End Get + Set + Me._simplifiedGrantAuthorisationFlag = Value + End Set + End Property + + Public Property MonitoringCustomsOffice() As FCFCDCInwardProcessingMonitoringCustomsOffice + Get + Return Me._monitoringCustomsOffice + End Get + Set + Me._monitoringCustomsOffice = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of FCFCDCInwardProcessingGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessing)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessing object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessing object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessing) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessing) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessing + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessing) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessing + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessing) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessing object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessing object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessing) + 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 FCFCDCInwardProcessing) 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 FCFCDCInwardProcessing + 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 Class + + + Public Enum FCFCDCInwardProcessingSequenceNumber + + ''' + + Item1 + End Enum + + + Partial Public Class FCFCDCInwardProcessingCustomsAuthorisation + +#Region "Private fields" + Private _processingOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ProcessingOwner() As String + Get + Return Me._processingOwner + End Get + Set + Me._processingOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessingCustomsAuthorisation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessingCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessingCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingCustomsAuthorisation + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessingCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessingCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessingCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingCustomsAuthorisation) + 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 FCFCDCInwardProcessingCustomsAuthorisation) 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 FCFCDCInwardProcessingCustomsAuthorisation + 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 Class + + + Partial Public Class FCFCDCInwardProcessingMonitoringCustomsOffice + +#Region "Private fields" + Private _identification As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification() + End Sub + + Public Property Identification() As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingMonitoringCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingMonitoringCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingMonitoringCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingMonitoringCustomsOffice + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingMonitoringCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessingMonitoringCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOffice) + 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 FCFCDCInwardProcessingMonitoringCustomsOffice) 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 FCFCDCInwardProcessingMonitoringCustomsOffice + 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 Class + + + Partial Public Class FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) + 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 FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification) 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 FCFCDCInwardProcessingMonitoringCustomsOfficeIdentification + 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 Class + + + Partial Public Class FCFCDCInwardProcessingGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private _accessViaAtlasFlag As String + + Private _goodsRelatedInformation As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me._referencedRegistrationNumber + End Get + Set + Me._referencedRegistrationNumber = Value + End Set + End Property + + + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set + Me._referencedSequenceNumber = Value + End Set + End Property + + + Public Property AccessViaAtlasFlag() As String + Get + Return Me._accessViaAtlasFlag + End Get + Set + Me._accessViaAtlasFlag = Value + End Set + End Property + + + Public Property GoodsRelatedInformation() As String + Get + Return Me._goodsRelatedInformation + End Get + Set + Me._goodsRelatedInformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCInwardProcessingGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCInwardProcessingGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCInwardProcessingGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCInwardProcessingGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCInwardProcessingGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCInwardProcessingGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCInwardProcessingGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCInwardProcessingGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDCInwardProcessingGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCInwardProcessingGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCInwardProcessingGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCInwardProcessingGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCInwardProcessingGoodsItem) + 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 FCFCDCInwardProcessingGoodsItem) 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 FCFCDCInwardProcessingGoodsItem + 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 Class + + + Partial Public Class FCFCDCBody + +#Region "Private fields" + Private _customsValueFlag As String + + Private _consignor As FCFCDCBodyConsignor + + Private _consignee As FCFCDCBodyConsignee + + Private _acquirer As FCFCDCBodyAcquirer + + Private _containers As FCFCDCBodyContainers + + Private _deliveryTerms As FCFCDCBodyDeliveryTerms + + Private _paymentTransaction As FCFCDCBodyPaymentTransaction + + Private _foreignTradeStatistics As FCFCDCBodyForeignTradeStatistics + + Private _customsValue As FCFCDCBodyCustomsValue + + Private _document As List(Of FCFCDCBodyDocument) + + Private _goodsItem As List(Of FCFCDCBodyGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of FCFCDCBodyGoodsItem)() + Me._document = New List(Of FCFCDCBodyDocument)() + Me._customsValue = New FCFCDCBodyCustomsValue() + Me._foreignTradeStatistics = New FCFCDCBodyForeignTradeStatistics() + Me._paymentTransaction = New FCFCDCBodyPaymentTransaction() + Me._deliveryTerms = New FCFCDCBodyDeliveryTerms() + Me._containers = New FCFCDCBodyContainers() + Me._acquirer = New FCFCDCBodyAcquirer() + Me._consignee = New FCFCDCBodyConsignee() + Me._consignor = New FCFCDCBodyConsignor() + End Sub + + + Public Property CustomsValueFlag() As String + Get + Return Me._customsValueFlag + End Get + Set + Me._customsValueFlag = Value + End Set + End Property + + Public Property Consignor() As FCFCDCBodyConsignor + Get + Return Me._consignor + End Get + Set + Me._consignor = Value + End Set + End Property + + Public Property Consignee() As FCFCDCBodyConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property Acquirer() As FCFCDCBodyAcquirer + Get + Return Me._acquirer + End Get + Set + Me._acquirer = Value + End Set + End Property + + Public Property Containers() As FCFCDCBodyContainers + Get + Return Me._containers + End Get + Set + Me._containers = Value + End Set + End Property + + Public Property DeliveryTerms() As FCFCDCBodyDeliveryTerms + Get + Return Me._deliveryTerms + End Get + Set + Me._deliveryTerms = Value + End Set + End Property + + Public Property PaymentTransaction() As FCFCDCBodyPaymentTransaction + Get + Return Me._paymentTransaction + End Get + Set + Me._paymentTransaction = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As FCFCDCBodyForeignTradeStatistics + Get + Return Me._foreignTradeStatistics + End Get + Set + Me._foreignTradeStatistics = Value + End Set + End Property + + Public Property CustomsValue() As FCFCDCBodyCustomsValue + Get + Return Me._customsValue + End Get + Set + Me._customsValue = Value + End Set + End Property + + + Public Property Document() As List(Of FCFCDCBodyDocument) + Get + Return Me._document + End Get + Set + Me._document = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of FCFCDCBodyGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBody)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBody object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBody object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBody object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBody, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBody) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBody) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBody + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBody) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBody + Return CType(Serializer.Deserialize(s), FCFCDCBody) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBody object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBody object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBody object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBody, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBody) + 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 FCFCDCBody) 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 FCFCDCBody + 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 Class + + + Partial Public Class FCFCDCBodyConsignor + +#Region "Private fields" + Private _identification As FCFCDCBodyConsignorIdentification + + Private _name As String + + Private _address As FCFCDCBodyConsignorAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyConsignorAddress() + Me._identification = New FCFCDCBodyConsignorIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyConsignorIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyConsignorAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsignor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsignor object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignor + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignor) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsignor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsignor object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignor) + 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 FCFCDCBodyConsignor) 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 FCFCDCBodyConsignor + 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 Class + + + Partial Public Class FCFCDCBodyConsignorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsignorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsignorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignorIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignorIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsignorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsignorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignorIdentification) + 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 FCFCDCBodyConsignorIdentification) 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 FCFCDCBodyConsignorIdentification + 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 Class + + + Partial Public Class FCFCDCBodyConsignorAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsignorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsignorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignorAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignorAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsignorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsignorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignorAddress) + 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 FCFCDCBodyConsignorAddress) 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 FCFCDCBodyConsignorAddress + 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 Class + + + Partial Public Class FCFCDCBodyConsignee + +#Region "Private fields" + Private _identification As FCFCDCBodyConsigneeIdentification + + Private _name As String + + Private _address As FCFCDCBodyConsigneeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyConsigneeAddress() + Me._identification = New FCFCDCBodyConsigneeIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyConsigneeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyConsigneeAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsignee + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsignee) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsignee) + 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 FCFCDCBodyConsignee) 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 FCFCDCBodyConsignee + 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 Class + + + Partial Public Class FCFCDCBodyConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsigneeIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsigneeIdentification) + 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 FCFCDCBodyConsigneeIdentification) 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 FCFCDCBodyConsigneeIdentification + 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 Class + + + Partial Public Class FCFCDCBodyConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyConsigneeAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyConsigneeAddress) + 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 FCFCDCBodyConsigneeAddress) 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 FCFCDCBodyConsigneeAddress + 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 Class + + + Partial Public Class FCFCDCBodyAcquirer + +#Region "Private fields" + Private _identification As FCFCDCBodyAcquirerIdentification + + Private _name As String + + Private _taxNumber As String + + Private _address As FCFCDCBodyAcquirerAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyAcquirerAddress() + Me._identification = New FCFCDCBodyAcquirerIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyAcquirerIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property TaxNumber() As String + Get + Return Me._taxNumber + End Get + Set + Me._taxNumber = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyAcquirerAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyAcquirer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyAcquirer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyAcquirer object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyAcquirer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirer) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyAcquirer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyAcquirer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyAcquirer + Return CType(Serializer.Deserialize(s), FCFCDCBodyAcquirer) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyAcquirer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyAcquirer object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyAcquirer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirer) + 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 FCFCDCBodyAcquirer) 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 FCFCDCBodyAcquirer + 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 Class + + + Partial Public Class FCFCDCBodyAcquirerIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyAcquirerIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyAcquirerIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyAcquirerIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyAcquirerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirerIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyAcquirerIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyAcquirerIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyAcquirerIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyAcquirerIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyAcquirerIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyAcquirerIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyAcquirerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirerIdentification) + 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 FCFCDCBodyAcquirerIdentification) 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 FCFCDCBodyAcquirerIdentification + 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 Class + + + Partial Public Class FCFCDCBodyAcquirerAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyAcquirerAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyAcquirerAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyAcquirerAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyAcquirerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirerAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyAcquirerAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyAcquirerAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyAcquirerAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyAcquirerAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyAcquirerAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyAcquirerAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyAcquirerAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyAcquirerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyAcquirerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyAcquirerAddress) + 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 FCFCDCBodyAcquirerAddress) 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 FCFCDCBodyAcquirerAddress + 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 Class + + + Partial Public Class FCFCDCBodyContainers + +#Region "Private fields" + Private _containerFlag As String + + Private _container As List(Of FCFCDCBodyContainersContainer) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._container = New List(Of FCFCDCBodyContainersContainer)() + End Sub + + + Public Property ContainerFlag() As String + Get + Return Me._containerFlag + End Get + Set + Me._containerFlag = Value + End Set + End Property + + + Public Property Container() As List(Of FCFCDCBodyContainersContainer) + Get + Return Me._container + End Get + Set + Me._container = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyContainers)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyContainers object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyContainers object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyContainers object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyContainers) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainers) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyContainers + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyContainers) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyContainers + Return CType(Serializer.Deserialize(s), FCFCDCBodyContainers) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyContainers object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyContainers object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyContainers object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyContainers) + 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 FCFCDCBodyContainers) 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 FCFCDCBodyContainers + 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 Class + + + Partial Public Class FCFCDCBodyContainersContainer + +#Region "Private fields" + Private _identificationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyContainersContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyContainersContainer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyContainersContainer object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyContainersContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainersContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyContainersContainer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyContainersContainer) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyContainersContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyContainersContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyContainersContainer + Return CType(Serializer.Deserialize(s), FCFCDCBodyContainersContainer) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyContainersContainer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyContainersContainer object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyContainersContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyContainersContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyContainersContainer) + 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 FCFCDCBodyContainersContainer) 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 FCFCDCBodyContainersContainer + 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 Class + + + Partial Public Class FCFCDCBodyDeliveryTerms + +#Region "Private fields" + Private _code As String + + Private _description As String + + Private _place As String + + Private _key As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + + Public Property Place() As String + Get + Return Me._place + End Get + Set + Me._place = Value + End Set + End Property + + + Public Property Key() As String + Get + Return Me._key + End Get + Set + Me._key = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyDeliveryTerms)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyDeliveryTerms object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyDeliveryTerms object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyDeliveryTerms) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDeliveryTerms) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyDeliveryTerms + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyDeliveryTerms) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyDeliveryTerms + Return CType(Serializer.Deserialize(s), FCFCDCBodyDeliveryTerms) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyDeliveryTerms object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyDeliveryTerms object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyDeliveryTerms object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDeliveryTerms, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyDeliveryTerms) + 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 FCFCDCBodyDeliveryTerms) 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 FCFCDCBodyDeliveryTerms + 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 Class + + + Partial Public Class FCFCDCBodyPaymentTransaction + +#Region "Private fields" + Private _amount As Decimal + + Private _currencyCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyPaymentTransaction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyPaymentTransaction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyPaymentTransaction object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyPaymentTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyPaymentTransaction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyPaymentTransaction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyPaymentTransaction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyPaymentTransaction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyPaymentTransaction + Return CType(Serializer.Deserialize(s), FCFCDCBodyPaymentTransaction) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyPaymentTransaction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyPaymentTransaction object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyPaymentTransaction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyPaymentTransaction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyPaymentTransaction) + 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 FCFCDCBodyPaymentTransaction) 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 FCFCDCBodyPaymentTransaction + 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 Class + + + Partial Public Class FCFCDCBodyForeignTradeStatistics + +#Region "Private fields" + Private _goodsStatus As String + + Private _transactionType As String + + Private _destinationCountry As String + + Private _destinationFederalState As String + + Private _inlandTransportMode As String + + Private _totalGrossMassMeasure As Decimal + + Private _entryCustomsOffice As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._entryCustomsOffice = New FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice() + End Sub + + + Public Property GoodsStatus() As String + Get + Return Me._goodsStatus + End Get + Set + Me._goodsStatus = Value + End Set + End Property + + + Public Property TransactionType() As String + Get + Return Me._transactionType + End Get + Set + Me._transactionType = Value + End Set + End Property + + + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + + Public Property DestinationFederalState() As String + Get + Return Me._destinationFederalState + End Get + Set + Me._destinationFederalState = Value + End Set + End Property + + + Public Property InlandTransportMode() As String + Get + Return Me._inlandTransportMode + End Get + Set + Me._inlandTransportMode = Value + End Set + End Property + + Public Property TotalGrossMassMeasure() As Decimal + Get + Return Me._totalGrossMassMeasure + End Get + Set + Me._totalGrossMassMeasure = Value + End Set + End Property + + Public Property EntryCustomsOffice() As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Get + Return Me._entryCustomsOffice + End Get + Set + Me._entryCustomsOffice = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyForeignTradeStatistics object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyForeignTradeStatistics object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyForeignTradeStatistics) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyForeignTradeStatistics + Return CType(Serializer.Deserialize(s), FCFCDCBodyForeignTradeStatistics) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyForeignTradeStatistics object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyForeignTradeStatistics object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyForeignTradeStatistics) + 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 FCFCDCBodyForeignTradeStatistics) 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 FCFCDCBodyForeignTradeStatistics + 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 Class + + + Partial Public Class FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + Return CType(Serializer.Deserialize(s), FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) + 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 FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice) 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 FCFCDCBodyForeignTradeStatisticsEntryCustomsOffice + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValue + +#Region "Private fields" + Private _formerDecisions As String + + Private _vendor As FCFCDCBodyCustomsValueVendor + + Private _vendee As FCFCDCBodyCustomsValueVendee + + Private _affiliation As FCFCDCBodyCustomsValueAffiliation + + Private _restrictionOrCondition As FCFCDCBodyCustomsValueRestrictionOrCondition + + Private _licenseFee As FCFCDCBodyCustomsValueLicenseFee + + Private _resale As FCFCDCBodyCustomsValueResale + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._resale = New FCFCDCBodyCustomsValueResale() + Me._licenseFee = New FCFCDCBodyCustomsValueLicenseFee() + Me._restrictionOrCondition = New FCFCDCBodyCustomsValueRestrictionOrCondition() + Me._affiliation = New FCFCDCBodyCustomsValueAffiliation() + Me._vendee = New FCFCDCBodyCustomsValueVendee() + Me._vendor = New FCFCDCBodyCustomsValueVendor() + End Sub + + + Public Property FormerDecisions() As String + Get + Return Me._formerDecisions + End Get + Set + Me._formerDecisions = Value + End Set + End Property + + Public Property Vendor() As FCFCDCBodyCustomsValueVendor + Get + Return Me._vendor + End Get + Set + Me._vendor = Value + End Set + End Property + + Public Property Vendee() As FCFCDCBodyCustomsValueVendee + Get + Return Me._vendee + End Get + Set + Me._vendee = Value + End Set + End Property + + Public Property Affiliation() As FCFCDCBodyCustomsValueAffiliation + Get + Return Me._affiliation + End Get + Set + Me._affiliation = Value + End Set + End Property + + Public Property RestrictionOrCondition() As FCFCDCBodyCustomsValueRestrictionOrCondition + Get + Return Me._restrictionOrCondition + End Get + Set + Me._restrictionOrCondition = Value + End Set + End Property + + Public Property LicenseFee() As FCFCDCBodyCustomsValueLicenseFee + Get + Return Me._licenseFee + End Get + Set + Me._licenseFee = Value + End Set + End Property + + Public Property Resale() As FCFCDCBodyCustomsValueResale + Get + Return Me._resale + End Get + Set + Me._resale = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValue)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValue object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValue object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValue) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValue) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValue + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValue) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValue + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValue) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValue object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValue object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValue) + 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 FCFCDCBodyCustomsValue) 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 FCFCDCBodyCustomsValue + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueVendor + +#Region "Private fields" + Private _identification As FCFCDCBodyCustomsValueVendorIdentification + + Private _name As String + + Private _address As FCFCDCBodyCustomsValueVendorAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyCustomsValueVendorAddress() + Me._identification = New FCFCDCBodyCustomsValueVendorIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyCustomsValueVendorIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyCustomsValueVendorAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendor object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendor + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendor) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendor object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendor) + 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 FCFCDCBodyCustomsValueVendor) 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 FCFCDCBodyCustomsValueVendor + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueVendorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendorIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendorIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendorIdentification) + 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 FCFCDCBodyCustomsValueVendorIdentification) 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 FCFCDCBodyCustomsValueVendorIdentification + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueVendorAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendorAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendorAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendorAddress) + 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 FCFCDCBodyCustomsValueVendorAddress) 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 FCFCDCBodyCustomsValueVendorAddress + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueVendee + +#Region "Private fields" + Private _identification As FCFCDCBodyCustomsValueVendeeIdentification + + Private _name As String + + Private _address As FCFCDCBodyCustomsValueVendeeAddress + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New FCFCDCBodyCustomsValueVendeeAddress() + Me._identification = New FCFCDCBodyCustomsValueVendeeIdentification() + End Sub + + Public Property Identification() As FCFCDCBodyCustomsValueVendeeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As FCFCDCBodyCustomsValueVendeeAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendee object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendee + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendee) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendee object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendee) + 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 FCFCDCBodyCustomsValueVendee) 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 FCFCDCBodyCustomsValueVendee + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueVendeeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendeeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendeeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendeeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendeeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendeeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendeeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendeeIdentification + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendeeIdentification) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendeeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendeeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendeeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeIdentification) + 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 FCFCDCBodyCustomsValueVendeeIdentification) 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 FCFCDCBodyCustomsValueVendeeIdentification + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueVendeeAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private _district As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + + Public Property District() As String + Get + Return Me._district + End Get + Set + Me._district = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueVendeeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendeeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueVendeeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueVendeeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueVendeeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueVendeeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueVendeeAddress + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueVendeeAddress) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueVendeeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueVendeeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueVendeeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueVendeeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueVendeeAddress) + 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 FCFCDCBodyCustomsValueVendeeAddress) 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 FCFCDCBodyCustomsValueVendeeAddress + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueAffiliation + +#Region "Private fields" + Private _type As String + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueAffiliation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueAffiliation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueAffiliation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueAffiliation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueAffiliation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueAffiliation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueAffiliation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueAffiliation + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueAffiliation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueAffiliation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueAffiliation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueAffiliation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueAffiliation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueAffiliation) + 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 FCFCDCBodyCustomsValueAffiliation) 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 FCFCDCBodyCustomsValueAffiliation + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueRestrictionOrCondition + +#Region "Private fields" + Private _restrictionFlag As String + + Private _conditionFlag As String + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property RestrictionFlag() As String + Get + Return Me._restrictionFlag + End Get + Set + Me._restrictionFlag = Value + End Set + End Property + + + Public Property ConditionFlag() As String + Get + Return Me._conditionFlag + End Get + Set + Me._conditionFlag = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueRestrictionOrCondition)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueRestrictionOrCondition object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueRestrictionOrCondition) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueRestrictionOrCondition + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueRestrictionOrCondition) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueRestrictionOrCondition + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueRestrictionOrCondition) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueRestrictionOrCondition object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueRestrictionOrCondition object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueRestrictionOrCondition, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueRestrictionOrCondition) + 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 FCFCDCBodyCustomsValueRestrictionOrCondition) 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 FCFCDCBodyCustomsValueRestrictionOrCondition + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueLicenseFee + +#Region "Private fields" + Private _licenseFeeFlag As String + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property LicenseFeeFlag() As String + Get + Return Me._licenseFeeFlag + End Get + Set + Me._licenseFeeFlag = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueLicenseFee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueLicenseFee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueLicenseFee object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueLicenseFee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueLicenseFee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueLicenseFee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueLicenseFee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueLicenseFee + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueLicenseFee) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueLicenseFee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueLicenseFee object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueLicenseFee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueLicenseFee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueLicenseFee) + 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 FCFCDCBodyCustomsValueLicenseFee) 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 FCFCDCBodyCustomsValueLicenseFee + 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 Class + + + Partial Public Class FCFCDCBodyCustomsValueResale + +#Region "Private fields" + Private _resaleFlag As String + + Private _description As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ResaleFlag() As String + Get + Return Me._resaleFlag + End Get + Set + Me._resaleFlag = Value + End Set + End Property + + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyCustomsValueResale)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyCustomsValueResale object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyCustomsValueResale object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyCustomsValueResale object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueResale) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyCustomsValueResale) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyCustomsValueResale + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyCustomsValueResale) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyCustomsValueResale + Return CType(Serializer.Deserialize(s), FCFCDCBodyCustomsValueResale) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyCustomsValueResale object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyCustomsValueResale object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyCustomsValueResale object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyCustomsValueResale, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyCustomsValueResale) + 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 FCFCDCBodyCustomsValueResale) 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 FCFCDCBodyCustomsValueResale + 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 Class + + + Partial Public Class FCFCDCBodyDocument + +#Region "Private fields" + Private _division As FCFCDCBodyDocumentDivision + + Private _type As String + + Private _referenceNumber As String + + Private _issuingDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Division() As FCFCDCBodyDocumentDivision + Get + Return Me._division + End Get + Set + Me._division = Value + End Set + End Property + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property IssuingDate() As Date + Get + Return Me._issuingDate + End Get + Set + Me._issuingDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyDocument object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyDocument object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyDocument) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyDocument) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyDocument + Return CType(Serializer.Deserialize(s), FCFCDCBodyDocument) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyDocument object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyDocument object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyDocument) + 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 FCFCDCBodyDocument) 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 FCFCDCBodyDocument + 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 Class + + + Public Enum FCFCDCBodyDocumentDivision + + ''' + + Item4 + End Enum + + + Partial Public Class FCFCDCBodyGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _procedure As FCFCDCBodyGoodsItemProcedure + + Private _eUCode As String + + Private _cessionManagementFlag As String + + Private _goodsDescription As String + + Private _invoiceAmount As Decimal + + Private _netMassMeasure As Decimal + + Private _originCountry As String + + Private _supplementaryInformation As String + + Private _condition As String + + Private _tobaccoRevenueStampNumber As String + + Private _commodityCode As FCFCDCBodyGoodsItemCommodityCode + + Private _supplementaryCodes As List(Of FCFCDCBodyGoodsItemSupplementaryCodes) + + Private _package As FCFCDCBodyGoodsItemPackage + + Private _foreignTradeStatistics As FCFCDCBodyGoodsItemForeignTradeStatistics + + Private _customsValue As FCFCDCBodyGoodsItemCustomsValue + + Private _assessment As FCFCDCBodyGoodsItemAssessment + + Private _exciseDuty As List(Of FCFCDCBodyGoodsItemExciseDuty) + + Private _preferentialTreatment As FCFCDCBodyGoodsItemPreferentialTreatment + + Private _outwardProcessingReduction As List(Of FCFCDCBodyGoodsItemOutwardProcessingReduction) + + Private _specialCase As List(Of FCFCDCBodyGoodsItemSpecialCase) + + Private _document As List(Of FCFCDCBodyGoodsItemDocument) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._document = New List(Of FCFCDCBodyGoodsItemDocument)() + Me._specialCase = New List(Of FCFCDCBodyGoodsItemSpecialCase)() + Me._outwardProcessingReduction = New List(Of FCFCDCBodyGoodsItemOutwardProcessingReduction)() + Me._preferentialTreatment = New FCFCDCBodyGoodsItemPreferentialTreatment() + Me._exciseDuty = New List(Of FCFCDCBodyGoodsItemExciseDuty)() + Me._assessment = New FCFCDCBodyGoodsItemAssessment() + Me._customsValue = New FCFCDCBodyGoodsItemCustomsValue() + Me._foreignTradeStatistics = New FCFCDCBodyGoodsItemForeignTradeStatistics() + Me._package = New FCFCDCBodyGoodsItemPackage() + Me._supplementaryCodes = New List(Of FCFCDCBodyGoodsItemSupplementaryCodes)() + Me._commodityCode = New FCFCDCBodyGoodsItemCommodityCode() + Me._procedure = New FCFCDCBodyGoodsItemProcedure() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property Procedure() As FCFCDCBodyGoodsItemProcedure + Get + Return Me._procedure + End Get + Set + Me._procedure = Value + End Set + End Property + + + Public Property EUCode() As String + Get + Return Me._eUCode + End Get + Set + Me._eUCode = Value + End Set + End Property + + + Public Property CessionManagementFlag() As String + Get + Return Me._cessionManagementFlag + End Get + Set + Me._cessionManagementFlag = Value + End Set + End Property + + + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set + Me._goodsDescription = Value + End Set + End Property + + Public Property InvoiceAmount() As Decimal + Get + Return Me._invoiceAmount + End Get + Set + Me._invoiceAmount = Value + End Set + End Property + + Public Property NetMassMeasure() As Decimal + Get + Return Me._netMassMeasure + End Get + Set + Me._netMassMeasure = Value + End Set + End Property + + + Public Property OriginCountry() As String + Get + Return Me._originCountry + End Get + Set + Me._originCountry = Value + End Set + End Property + + + Public Property SupplementaryInformation() As String + Get + Return Me._supplementaryInformation + End Get + Set + Me._supplementaryInformation = Value + End Set + End Property + + + Public Property Condition() As String + Get + Return Me._condition + End Get + Set + Me._condition = Value + End Set + End Property + + + Public Property TobaccoRevenueStampNumber() As String + Get + Return Me._tobaccoRevenueStampNumber + End Get + Set + Me._tobaccoRevenueStampNumber = Value + End Set + End Property + + Public Property CommodityCode() As FCFCDCBodyGoodsItemCommodityCode + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + + Public Property SupplementaryCodes() As List(Of FCFCDCBodyGoodsItemSupplementaryCodes) + Get + Return Me._supplementaryCodes + End Get + Set + Me._supplementaryCodes = Value + End Set + End Property + + Public Property Package() As FCFCDCBodyGoodsItemPackage + Get + Return Me._package + End Get + Set + Me._package = Value + End Set + End Property + + Public Property ForeignTradeStatistics() As FCFCDCBodyGoodsItemForeignTradeStatistics + Get + Return Me._foreignTradeStatistics + End Get + Set + Me._foreignTradeStatistics = Value + End Set + End Property + + Public Property CustomsValue() As FCFCDCBodyGoodsItemCustomsValue + Get + Return Me._customsValue + End Get + Set + Me._customsValue = Value + End Set + End Property + + Public Property Assessment() As FCFCDCBodyGoodsItemAssessment + Get + Return Me._assessment + End Get + Set + Me._assessment = Value + End Set + End Property + + + Public Property ExciseDuty() As List(Of FCFCDCBodyGoodsItemExciseDuty) + Get + Return Me._exciseDuty + End Get + Set + Me._exciseDuty = Value + End Set + End Property + + Public Property PreferentialTreatment() As FCFCDCBodyGoodsItemPreferentialTreatment + Get + Return Me._preferentialTreatment + End Get + Set + Me._preferentialTreatment = Value + End Set + End Property + + + Public Property OutwardProcessingReduction() As List(Of FCFCDCBodyGoodsItemOutwardProcessingReduction) + Get + Return Me._outwardProcessingReduction + End Get + Set + Me._outwardProcessingReduction = Value + End Set + End Property + + + Public Property SpecialCase() As List(Of FCFCDCBodyGoodsItemSpecialCase) + Get + Return Me._specialCase + End Get + Set + Me._specialCase = Value + End Set + End Property + + + Public Property Document() As List(Of FCFCDCBodyGoodsItemDocument) + Get + Return Me._document + End Get + Set + Me._document = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItem + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItem) + 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 FCFCDCBodyGoodsItem) 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 FCFCDCBodyGoodsItem + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemProcedure + +#Region "Private fields" + Private _requestedPreviousProcedure As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property RequestedPreviousProcedure() As String + Get + Return Me._requestedPreviousProcedure + End Get + Set + Me._requestedPreviousProcedure = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemProcedure)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemProcedure object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemProcedure object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemProcedure) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemProcedure) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemProcedure + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemProcedure) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemProcedure + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemProcedure) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemProcedure object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemProcedure object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemProcedure object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemProcedure, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemProcedure) + 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 FCFCDCBodyGoodsItemProcedure) 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 FCFCDCBodyGoodsItemProcedure + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemCommodityCode + +#Region "Private fields" + Private _commodityCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCommodityCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCommodityCode object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCommodityCode object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCommodityCode) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCommodityCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCommodityCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCommodityCode + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCommodityCode) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCommodityCode object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCommodityCode object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCommodityCode) + 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 FCFCDCBodyGoodsItemCommodityCode) 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 FCFCDCBodyGoodsItemCommodityCode + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemSupplementaryCodes + +#Region "Private fields" + Private _code As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemSupplementaryCodes)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemSupplementaryCodes object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemSupplementaryCodes object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemSupplementaryCodes object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemSupplementaryCodes) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemSupplementaryCodes + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemSupplementaryCodes) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemSupplementaryCodes + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemSupplementaryCodes) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemSupplementaryCodes object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemSupplementaryCodes object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemSupplementaryCodes object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSupplementaryCodes, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemSupplementaryCodes) + 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 FCFCDCBodyGoodsItemSupplementaryCodes) 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 FCFCDCBodyGoodsItemSupplementaryCodes + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemPackage + +#Region "Private fields" + Private _kind As String + + Private _quantity As String + + Private _marksNumbers As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Kind() As String + Get + Return Me._kind + End Get + Set + Me._kind = Value + End Set + End Property + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MarksNumbers() As String + Get + Return Me._marksNumbers + End Get + Set + Me._marksNumbers = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPackage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPackage object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPackage object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPackage) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPackage) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPackage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPackage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPackage + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPackage) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPackage object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPackage object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPackage) + 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 FCFCDCBodyGoodsItemPackage) 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 FCFCDCBodyGoodsItemPackage + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemForeignTradeStatistics + +#Region "Private fields" + Private _quantity As String + + Private _grossMassMeasure As Decimal + + Private _amount As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._amount = New FCFCDCBodyGoodsItemForeignTradeStatisticsAmount() + End Sub + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property GrossMassMeasure() As Decimal + Get + Return Me._grossMassMeasure + End Get + Set + Me._grossMassMeasure = Value + End Set + End Property + + Public Property Amount() As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemForeignTradeStatistics)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatistics object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatistics) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemForeignTradeStatistics + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemForeignTradeStatistics) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemForeignTradeStatistics + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemForeignTradeStatistics) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatistics object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemForeignTradeStatistics object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatistics, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatistics) + 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 FCFCDCBodyGoodsItemForeignTradeStatistics) 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 FCFCDCBodyGoodsItemForeignTradeStatistics + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemForeignTradeStatisticsAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemForeignTradeStatisticsAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemForeignTradeStatisticsAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) + 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 FCFCDCBodyGoodsItemForeignTradeStatisticsAmount) 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 FCFCDCBodyGoodsItemForeignTradeStatisticsAmount + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValue + +#Region "Private fields" + Private _departureAirport As String + + Private _destinationPlace As String + + Private _additionDeductionDescription As String + + Private _netPrice As FCFCDCBodyGoodsItemCustomsValueNetPrice + + Private _indirectPayment As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + + Private _airFreightCosts As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + + Private _additionDeduction As List(Of FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._additionDeduction = New List(Of FCFCDCBodyGoodsItemCustomsValueAdditionDeduction)() + Me._airFreightCosts = New FCFCDCBodyGoodsItemCustomsValueAirFreightCosts() + Me._indirectPayment = New FCFCDCBodyGoodsItemCustomsValueIndirectPayment() + Me._netPrice = New FCFCDCBodyGoodsItemCustomsValueNetPrice() + End Sub + + + Public Property DepartureAirport() As String + Get + Return Me._departureAirport + End Get + Set + Me._departureAirport = Value + End Set + End Property + + + Public Property DestinationPlace() As String + Get + Return Me._destinationPlace + End Get + Set + Me._destinationPlace = Value + End Set + End Property + + + Public Property AdditionDeductionDescription() As String + Get + Return Me._additionDeductionDescription + End Get + Set + Me._additionDeductionDescription = Value + End Set + End Property + + Public Property NetPrice() As FCFCDCBodyGoodsItemCustomsValueNetPrice + Get + Return Me._netPrice + End Get + Set + Me._netPrice = Value + End Set + End Property + + Public Property IndirectPayment() As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Get + Return Me._indirectPayment + End Get + Set + Me._indirectPayment = Value + End Set + End Property + + Public Property AirFreightCosts() As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Get + Return Me._airFreightCosts + End Get + Set + Me._airFreightCosts = Value + End Set + End Property + + + Public Property AdditionDeduction() As List(Of FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Get + Return Me._additionDeduction + End Get + Set + Me._additionDeduction = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValue)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValue object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValue object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValue) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValue + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValue) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValue + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValue) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValue object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValue object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValue object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValue, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValue) + 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 FCFCDCBodyGoodsItemCustomsValue) 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 FCFCDCBodyGoodsItemCustomsValue + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValueNetPrice + +#Region "Private fields" + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me._currencyRateAgreedFlag + End Get + Set + Me._currencyRateAgreedFlag = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me._currencyRate + End Get + Set + Me._currencyRate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueNetPrice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueNetPrice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueNetPrice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueNetPrice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueNetPrice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueNetPrice + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueNetPrice) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueNetPrice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueNetPrice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueNetPrice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueNetPrice) + 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 FCFCDCBodyGoodsItemCustomsValueNetPrice) 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 FCFCDCBodyGoodsItemCustomsValueNetPrice + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValueIndirectPayment + +#Region "Private fields" + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me._currencyRateAgreedFlag + End Get + Set + Me._currencyRateAgreedFlag = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me._currencyRate + End Get + Set + Me._currencyRate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueIndirectPayment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueIndirectPayment object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueIndirectPayment + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueIndirectPayment object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueIndirectPayment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueIndirectPayment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueIndirectPayment) + 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 FCFCDCBodyGoodsItemCustomsValueIndirectPayment) 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 FCFCDCBodyGoodsItemCustomsValueIndirectPayment + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + +#Region "Private fields" + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateIATA As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private _currencyRateDate As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property CurrencyRateIATA() As String + Get + Return Me._currencyRateIATA + End Get + Set + Me._currencyRateIATA = Value + End Set + End Property + + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me._currencyRateAgreedFlag + End Get + Set + Me._currencyRateAgreedFlag = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me._currencyRate + End Get + Set + Me._currencyRate = Value + End Set + End Property + + + Public Property CurrencyRateDate() As Date + Get + Return Me._currencyRateDate + End Get + Set + Me._currencyRateDate = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueAirFreightCosts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueAirFreightCosts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAirFreightCosts, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) + 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 FCFCDCBodyGoodsItemCustomsValueAirFreightCosts) 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 FCFCDCBodyGoodsItemCustomsValueAirFreightCosts + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + +#Region "Private fields" + Private _type As String + + Private _value As Decimal + + Private _currencyCode As String + + Private _currencyRateIATA As String + + Private _currencyRateAgreedFlag As String + + Private _currencyRate As Decimal + + Private _currencyRateDate As Date + + Private _percentage As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + + Public Property CurrencyCode() As String + Get + Return Me._currencyCode + End Get + Set + Me._currencyCode = Value + End Set + End Property + + + Public Property CurrencyRateIATA() As String + Get + Return Me._currencyRateIATA + End Get + Set + Me._currencyRateIATA = Value + End Set + End Property + + + Public Property CurrencyRateAgreedFlag() As String + Get + Return Me._currencyRateAgreedFlag + End Get + Set + Me._currencyRateAgreedFlag = Value + End Set + End Property + + Public Property CurrencyRate() As Decimal + Get + Return Me._currencyRate + End Get + Set + Me._currencyRate = Value + End Set + End Property + + + Public Property CurrencyRateDate() As Date + Get + Return Me._currencyRateDate + End Get + Set + Me._currencyRateDate = Value + End Set + End Property + + Public Property Percentage() As Decimal + Get + Return Me._percentage + End Get + Set + Me._percentage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemCustomsValueAdditionDeduction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemCustomsValueAdditionDeduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemCustomsValueAdditionDeduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) + 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 FCFCDCBodyGoodsItemCustomsValueAdditionDeduction) 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 FCFCDCBodyGoodsItemCustomsValueAdditionDeduction + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemAssessment + +#Region "Private fields" + Private _customsValue As Decimal + + Private _outwardProcessingFee As Decimal + + Private _taxCosts As Decimal + + Private _amount As List(Of FCFCDCBodyGoodsItemAssessmentAmount) + + Private _specificRate As List(Of FCFCDCBodyGoodsItemAssessmentSpecificRate) + + Private _contentInformation As List(Of FCFCDCBodyGoodsItemAssessmentContentInformation) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contentInformation = New List(Of FCFCDCBodyGoodsItemAssessmentContentInformation)() + Me._specificRate = New List(Of FCFCDCBodyGoodsItemAssessmentSpecificRate)() + Me._amount = New List(Of FCFCDCBodyGoodsItemAssessmentAmount)() + End Sub + + Public Property CustomsValue() As Decimal + Get + Return Me._customsValue + End Get + Set + Me._customsValue = Value + End Set + End Property + + Public Property OutwardProcessingFee() As Decimal + Get + Return Me._outwardProcessingFee + End Get + Set + Me._outwardProcessingFee = Value + End Set + End Property + + Public Property TaxCosts() As Decimal + Get + Return Me._taxCosts + End Get + Set + Me._taxCosts = Value + End Set + End Property + + + Public Property Amount() As List(Of FCFCDCBodyGoodsItemAssessmentAmount) + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + + Public Property SpecificRate() As List(Of FCFCDCBodyGoodsItemAssessmentSpecificRate) + Get + Return Me._specificRate + End Get + Set + Me._specificRate = Value + End Set + End Property + + + Public Property ContentInformation() As List(Of FCFCDCBodyGoodsItemAssessmentContentInformation) + Get + Return Me._contentInformation + End Get + Set + Me._contentInformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessment object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessment object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemAssessment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessment) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessment) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessment + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessment) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessment object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessment object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemAssessment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessment) + 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 FCFCDCBodyGoodsItemAssessment) 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 FCFCDCBodyGoodsItemAssessment + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemAssessmentAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessmentAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessmentAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessmentAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessmentAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessmentAmount + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessmentAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessmentAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentAmount) + 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 FCFCDCBodyGoodsItemAssessmentAmount) 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 FCFCDCBodyGoodsItemAssessmentAmount + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemAssessmentSpecificRate + +#Region "Private fields" + Private _type As String + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessmentSpecificRate)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentSpecificRate object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentSpecificRate) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessmentSpecificRate + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessmentSpecificRate) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessmentSpecificRate + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessmentSpecificRate) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentSpecificRate object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentSpecificRate object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentSpecificRate, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentSpecificRate) + 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 FCFCDCBodyGoodsItemAssessmentSpecificRate) 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 FCFCDCBodyGoodsItemAssessmentSpecificRate + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemAssessmentContentInformation + +#Region "Private fields" + Private _type As String + + Private _degreePercentage As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property DegreePercentage() As Decimal + Get + Return Me._degreePercentage + End Get + Set + Me._degreePercentage = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemAssessmentContentInformation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentContentInformation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentContentInformation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemAssessmentContentInformation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemAssessmentContentInformation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemAssessmentContentInformation + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemAssessmentContentInformation) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemAssessmentContentInformation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemAssessmentContentInformation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemAssessmentContentInformation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemAssessmentContentInformation) + 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 FCFCDCBodyGoodsItemAssessmentContentInformation) 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 FCFCDCBodyGoodsItemAssessmentContentInformation + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemExciseDuty + +#Region "Private fields" + Private _code As String + + Private _degreePercentage As Decimal + + Private _value As Decimal + + Private _amount As FCFCDCBodyGoodsItemExciseDutyAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._amount = New FCFCDCBodyGoodsItemExciseDutyAmount() + End Sub + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + + Public Property DegreePercentage() As Decimal + Get + Return Me._degreePercentage + End Get + Set + Me._degreePercentage = Value + End Set + End Property + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Public Property Amount() As FCFCDCBodyGoodsItemExciseDutyAmount + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemExciseDuty)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemExciseDuty object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemExciseDuty object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemExciseDuty object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDuty) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemExciseDuty + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemExciseDuty) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemExciseDuty + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemExciseDuty) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemExciseDuty object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemExciseDuty object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemExciseDuty object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDuty, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDuty) + 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 FCFCDCBodyGoodsItemExciseDuty) 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 FCFCDCBodyGoodsItemExciseDuty + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemExciseDutyAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemExciseDutyAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemExciseDutyAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemExciseDutyAmount object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemExciseDutyAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDutyAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemExciseDutyAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemExciseDutyAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemExciseDutyAmount + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemExciseDutyAmount) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemExciseDutyAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemExciseDutyAmount object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemExciseDutyAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemExciseDutyAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemExciseDutyAmount) + 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 FCFCDCBodyGoodsItemExciseDutyAmount) 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 FCFCDCBodyGoodsItemExciseDutyAmount + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatment + +#Region "Private fields" + Private _requestedPreferentialTreatment As String + + Private _declaration As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._declaration = New FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration() + End Sub + + + Public Property RequestedPreferentialTreatment() As String + Get + Return Me._requestedPreferentialTreatment + End Get + Set + Me._requestedPreferentialTreatment = Value + End Set + End Property + + Public Property Declaration() As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Get + Return Me._declaration + End Get + Set + Me._declaration = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatment)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatment object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatment object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatment) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatment + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatment) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatment + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatment) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatment object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatment object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatment object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatment, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatment) + 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 FCFCDCBodyGoodsItemPreferentialTreatment) 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 FCFCDCBodyGoodsItemPreferentialTreatment + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + +#Region "Private fields" + Private _contingent As List(Of FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + + Private _preferentialTreatmentQuantity As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._preferentialTreatmentQuantity = New FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity() + Me._contingent = New List(Of FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent)() + End Sub + + + Public Property Contingent() As List(Of FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Get + Return Me._contingent + End Get + Set + Me._contingent = Value + End Set + End Property + + Public Property PreferentialTreatmentQuantity() As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Get + Return Me._preferentialTreatmentQuantity + End Get + Set + Me._preferentialTreatmentQuantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) + 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 FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration) 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 FCFCDCBodyGoodsItemPreferentialTreatmentDeclaration + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + +#Region "Private fields" + Private _contingentNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ContingentNumber() As String + Get + Return Me._contingentNumber + End Get + Set + Me._contingentNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) + 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 FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent) 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 FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationContingent + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + +#Region "Private fields" + Private _quantity As String + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) + 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 FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity) 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 FCFCDCBodyGoodsItemPreferentialTreatmentDeclarationPreferentialTreatmentQuantity + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemOutwardProcessingReduction + +#Region "Private fields" + Private _group As String + + Private _amount As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Group() As String + Get + Return Me._group + End Get + Set + Me._group = Value + End Set + End Property + + Public Property Amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemOutwardProcessingReduction)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemOutwardProcessingReduction object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemOutwardProcessingReduction) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemOutwardProcessingReduction + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemOutwardProcessingReduction) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemOutwardProcessingReduction + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemOutwardProcessingReduction) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemOutwardProcessingReduction object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemOutwardProcessingReduction object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemOutwardProcessingReduction, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemOutwardProcessingReduction) + 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 FCFCDCBodyGoodsItemOutwardProcessingReduction) 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 FCFCDCBodyGoodsItemOutwardProcessingReduction + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemSpecialCase + +#Region "Private fields" + Private _group As String + + Private _applicationType As String + + Private _rateOrAmountOrFactor As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Group() As String + Get + Return Me._group + End Get + Set + Me._group = Value + End Set + End Property + + + Public Property ApplicationType() As String + Get + Return Me._applicationType + End Get + Set + Me._applicationType = Value + End Set + End Property + + Public Property RateOrAmountOrFactor() As Decimal + Get + Return Me._rateOrAmountOrFactor + End Get + Set + Me._rateOrAmountOrFactor = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemSpecialCase)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemSpecialCase object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemSpecialCase object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemSpecialCase object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemSpecialCase) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemSpecialCase + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemSpecialCase) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemSpecialCase + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemSpecialCase) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemSpecialCase object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemSpecialCase object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemSpecialCase object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemSpecialCase, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemSpecialCase) + 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 FCFCDCBodyGoodsItemSpecialCase) 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 FCFCDCBodyGoodsItemSpecialCase + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemDocument + +#Region "Private fields" + Private _division As String + + Private _type As String + + Private _referenceNumber As String + + Private _issuingDate As Date + + Private _atHandFlag As String + + Private _writeOff As FCFCDCBodyGoodsItemDocumentWriteOff + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._writeOff = New FCFCDCBodyGoodsItemDocumentWriteOff() + End Sub + + + Public Property Division() As String + Get + Return Me._division + End Get + Set + Me._division = Value + End Set + End Property + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property IssuingDate() As Date + Get + Return Me._issuingDate + End Get + Set + Me._issuingDate = Value + End Set + End Property + + + Public Property AtHandFlag() As String + Get + Return Me._atHandFlag + End Get + Set + Me._atHandFlag = Value + End Set + End Property + + Public Property WriteOff() As FCFCDCBodyGoodsItemDocumentWriteOff + Get + Return Me._writeOff + End Get + Set + Me._writeOff = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemDocument object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemDocument object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemDocument) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocument) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemDocument + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemDocument) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemDocument object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemDocument object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemDocument) + 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 FCFCDCBodyGoodsItemDocument) 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 FCFCDCBodyGoodsItemDocument + 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 Class + + + Partial Public Class FCFCDCBodyGoodsItemDocumentWriteOff + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FCFCDCBodyGoodsItemDocumentWriteOff)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FCFCDCBodyGoodsItemDocumentWriteOff object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FCFCDCBodyGoodsItemDocumentWriteOff object + ''' + ''' string workflow markup to deserialize + ''' Output FCFCDCBodyGoodsItemDocumentWriteOff object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemDocumentWriteOff) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FCFCDCBodyGoodsItemDocumentWriteOff + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FCFCDCBodyGoodsItemDocumentWriteOff) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FCFCDCBodyGoodsItemDocumentWriteOff + Return CType(Serializer.Deserialize(s), FCFCDCBodyGoodsItemDocumentWriteOff) + End Function +#End Region + + ''' + ''' Serializes current FCFCDCBodyGoodsItemDocumentWriteOff object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FCFCDCBodyGoodsItemDocumentWriteOff object + ''' + ''' string xml file to load and deserialize + ''' Output FCFCDCBodyGoodsItemDocumentWriteOff object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FCFCDCBodyGoodsItemDocumentWriteOff, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FCFCDCBodyGoodsItemDocumentWriteOff) + 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 FCFCDCBodyGoodsItemDocumentWriteOff) 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 FCFCDCBodyGoodsItemDocumentWriteOff + 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 Class + + + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.xsd new file mode 100644 index 0000000..c262b62 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/FreierVerkehrAktVeredelUmwandlung/cfcdec.xsd @@ -0,0 +1,5609 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_002.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_002.Designer.vb new file mode 100644 index 0000000..5fbf1e5 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_002.Designer.vb @@ -0,0 +1,1554 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' MitteilungAbschreibungListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace MitteilungAbschreibung + + _ + Partial Public Class MitteilungAbschreibungNOATyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelMitteilungAbschreibung As EinzelMitteilungAbschreibungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelMitteilungAbschreibung = New EinzelMitteilungAbschreibungTyp() + End Sub + + _ + Public Property EinzelMitteilungAbschreibung() As EinzelMitteilungAbschreibungTyp + Get + Return Me._einzelMitteilungAbschreibung + End Get + Set(value As EinzelMitteilungAbschreibungTyp) + Me._einzelMitteilungAbschreibung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MitteilungAbschreibungNOATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MitteilungAbschreibungNOATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MitteilungAbschreibungNOATyp object + ''' + ''' string workflow markup to deserialize + ''' Output MitteilungAbschreibungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MitteilungAbschreibungNOATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MitteilungAbschreibungNOATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MitteilungAbschreibungNOATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MitteilungAbschreibungNOATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MitteilungAbschreibungNOATyp + Return CType(Serializer.Deserialize(s), MitteilungAbschreibungNOATyp) + End Function +#End Region + + ''' + ''' Serializes current MitteilungAbschreibungNOATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MitteilungAbschreibungNOATyp object + ''' + ''' string xml file to load and deserialize + ''' Output MitteilungAbschreibungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MitteilungAbschreibungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MitteilungAbschreibungNOATyp) + 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 MitteilungAbschreibungNOATyp) 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 MitteilungAbschreibungNOATyp + 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 Class + + _ + Partial Public Class EinzelMitteilungAbschreibungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungNOATyp + + Private _kopfDaten As KopfDatenMitteilungAbschreibungTyp + + Private _position As List(Of PositionMitteilungAbschreibungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._position = New List(Of PositionMitteilungAbschreibungTyp)() + Me._kopfDaten = New KopfDatenMitteilungAbschreibungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungNOATyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungNOATyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungNOATyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenMitteilungAbschreibungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenMitteilungAbschreibungTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property Position() As List(Of PositionMitteilungAbschreibungTyp) + Get + Return Me._position + End Get + Set(value As List(Of PositionMitteilungAbschreibungTyp)) + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelMitteilungAbschreibungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelMitteilungAbschreibungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelMitteilungAbschreibungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelMitteilungAbschreibungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelMitteilungAbschreibungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelMitteilungAbschreibungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelMitteilungAbschreibungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelMitteilungAbschreibungTyp + Return CType(Serializer.Deserialize(s), EinzelMitteilungAbschreibungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelMitteilungAbschreibungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelMitteilungAbschreibungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelMitteilungAbschreibungTyp) + 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 EinzelMitteilungAbschreibungTyp) 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 EinzelMitteilungAbschreibungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungNOATyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungNOATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungNOATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungNOATyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungNOATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungNOATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungNOATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungNOATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungNOATyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungNOATyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungNOATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungNOATyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungNOATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungNOATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungNOATyp) + 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 ObjektIdentifizierungNOATyp) 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 ObjektIdentifizierungNOATyp + 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 Class + + _ + Partial Public Class PositionMitteilungAbschreibungTyp + +#Region "Private fields" + Private _positionsNr As String + + Private _unterlageArt As String + + Private _unterlageNr As String + + Private _abschreibungDatum As Date + + Private _abschreibungUhrzeit As Date + + Private _abschreibungStornierungKz As String + + Private _abschreibungMengeWert As String + + Private _restMengeWert As String + + Private _abschreibungRestMasseinheit As String + + Private _abschreibungRestQualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property PositionsNr() As String + Get + Return Me._positionsNr + End Get + Set(value As String) + Me._positionsNr = Value + End Set + End Property + + _ + Public Property UnterlageArt() As String + Get + Return Me._unterlageArt + End Get + Set(value As String) + Me._unterlageArt = Value + End Set + End Property + + _ + Public Property UnterlageNr() As String + Get + Return Me._unterlageNr + End Get + Set(value As String) + Me._unterlageNr = Value + End Set + End Property + + _ + Public Property AbschreibungDatum() As Date + Get + Return Me._abschreibungDatum + End Get + Set(value As Date) + Me._abschreibungDatum = Value + End Set + End Property + + _ + Public Property AbschreibungUhrzeit() As Date + Get + Return Me._abschreibungUhrzeit + End Get + Set(value As Date) + Me._abschreibungUhrzeit = Value + End Set + End Property + + _ + Public Property AbschreibungStornierungKz() As String + Get + Return Me._abschreibungStornierungKz + End Get + Set(value As String) + Me._abschreibungStornierungKz = Value + End Set + End Property + + _ + Public Property AbschreibungMengeWert() As String + Get + Return Me._abschreibungMengeWert + End Get + Set(value As String) + Me._abschreibungMengeWert = Value + End Set + End Property + + _ + Public Property RestMengeWert() As String + Get + Return Me._restMengeWert + End Get + Set(value As String) + Me._restMengeWert = Value + End Set + End Property + + _ + Public Property AbschreibungRestMasseinheit() As String + Get + Return Me._abschreibungRestMasseinheit + End Get + Set(value As String) + Me._abschreibungRestMasseinheit = Value + End Set + End Property + + _ + Public Property AbschreibungRestQualifikator() As String + Get + Return Me._abschreibungRestQualifikator + End Get + Set(value As String) + Me._abschreibungRestQualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionMitteilungAbschreibungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionMitteilungAbschreibungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionMitteilungAbschreibungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionMitteilungAbschreibungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionMitteilungAbschreibungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionMitteilungAbschreibungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionMitteilungAbschreibungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionMitteilungAbschreibungTyp + Return CType(Serializer.Deserialize(s), PositionMitteilungAbschreibungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionMitteilungAbschreibungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionMitteilungAbschreibungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionMitteilungAbschreibungTyp) + 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 PositionMitteilungAbschreibungTyp) 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 PositionMitteilungAbschreibungTyp + 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 Class + + _ + Partial Public Class KopfDatenMitteilungAbschreibungTyp + +#Region "Private fields" + Private _registrierNr As String + + Private _uebermittlerEORI As String + + Private _uebermittlerNLNR As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property RegistrierNr() As String + Get + Return Me._registrierNr + End Get + Set(value As String) + Me._registrierNr = Value + End Set + End Property + + _ + Public Property UebermittlerEORI() As String + Get + Return Me._uebermittlerEORI + End Get + Set(value As String) + Me._uebermittlerEORI = Value + End Set + End Property + + _ + Public Property UebermittlerNLNR() As String + Get + Return Me._uebermittlerNLNR + End Get + Set(value As String) + Me._uebermittlerNLNR = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenMitteilungAbschreibungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenMitteilungAbschreibungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenMitteilungAbschreibungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenMitteilungAbschreibungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenMitteilungAbschreibungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenMitteilungAbschreibungTyp + Return CType(Serializer.Deserialize(s), KopfDatenMitteilungAbschreibungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenMitteilungAbschreibungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenMitteilungAbschreibungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenMitteilungAbschreibungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenMitteilungAbschreibungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenMitteilungAbschreibungTyp) + 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 KopfDatenMitteilungAbschreibungTyp) 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 KopfDatenMitteilungAbschreibungTyp + 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 Class + + _ + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionFreierVerkehrTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_002.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_002.xsd new file mode 100644 index 0000000..11b5d48 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/MitteilungAbschreibung/MitteilungAbschreibung_002.xsd @@ -0,0 +1,125 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_002.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_002.Designer.vb new file mode 100644 index 0000000..5d9275c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_002.Designer.vb @@ -0,0 +1,1808 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' NichtAbschliessendeFestsetzungListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace NichtAbschliessendeFestsetzung + + _ + Partial Public Class NichtAbschliessendeFestsetzungTAXNTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelNichtAbschliessendeFestsetzung As EinzelNichtAbschliessendeFestsetzungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelNichtAbschliessendeFestsetzung = New EinzelNichtAbschliessendeFestsetzungTyp() + End Sub + + _ + Public Property EinzelNichtAbschliessendeFestsetzung() As EinzelNichtAbschliessendeFestsetzungTyp + Get + Return Me._einzelNichtAbschliessendeFestsetzung + End Get + Set(value As EinzelNichtAbschliessendeFestsetzungTyp) + Me._einzelNichtAbschliessendeFestsetzung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(NichtAbschliessendeFestsetzungTAXNTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current NichtAbschliessendeFestsetzungTAXNTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' string workflow markup to deserialize + ''' Output NichtAbschliessendeFestsetzungTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As NichtAbschliessendeFestsetzungTAXNTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), NichtAbschliessendeFestsetzungTAXNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As NichtAbschliessendeFestsetzungTAXNTyp + Return CType(Serializer.Deserialize(s), NichtAbschliessendeFestsetzungTAXNTyp) + End Function +#End Region + + ''' + ''' Serializes current NichtAbschliessendeFestsetzungTAXNTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an NichtAbschliessendeFestsetzungTAXNTyp object + ''' + ''' string xml file to load and deserialize + ''' Output NichtAbschliessendeFestsetzungTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NichtAbschliessendeFestsetzungTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NichtAbschliessendeFestsetzungTAXNTyp) + 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 NichtAbschliessendeFestsetzungTAXNTyp) 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 NichtAbschliessendeFestsetzungTAXNTyp + 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 Class + + _ + Partial Public Class EinzelNichtAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTAXNyp + + Private _kopfDaten As KopfDatenNichtAbschliessendeFestsetzungTyp + + Private _position As List(Of PositionNichtAbschliessendeFestsetzungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._position = New List(Of PositionNichtAbschliessendeFestsetzungTyp)() + Me._kopfDaten = New KopfDatenNichtAbschliessendeFestsetzungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTAXNyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTAXNyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungTAXNyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenNichtAbschliessendeFestsetzungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenNichtAbschliessendeFestsetzungTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property Position() As List(Of PositionNichtAbschliessendeFestsetzungTyp) + Get + Return Me._position + End Get + Set(value As List(Of PositionNichtAbschliessendeFestsetzungTyp)) + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelNichtAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelNichtAbschliessendeFestsetzungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelNichtAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelNichtAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), EinzelNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelNichtAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelNichtAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelNichtAbschliessendeFestsetzungTyp) + 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 EinzelNichtAbschliessendeFestsetzungTyp) 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 EinzelNichtAbschliessendeFestsetzungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungTAXNyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTAXNyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungTAXNyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungTAXNyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungTAXNyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXNyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTAXNyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTAXNyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTAXNyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTAXNyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTAXNyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTAXNyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTAXNyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungTAXNyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTAXNyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTAXNyp) + 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 ObjektIdentifizierungTAXNyp) 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 ObjektIdentifizierungTAXNyp + 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 Class + + _ + Partial Public Class UnterlageTAXNTyp + +#Region "Private fields" + Private _unterlageArt As String + + Private _vorlagefristDatum As Date + + Private _nachzureichenKz As String + + Private _vorzulegenKz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property UnterlageArt() As String + Get + Return Me._unterlageArt + End Get + Set(value As String) + Me._unterlageArt = Value + End Set + End Property + + _ + Public Property VorlagefristDatum() As Date + Get + Return Me._vorlagefristDatum + End Get + Set(value As Date) + Me._vorlagefristDatum = Value + End Set + End Property + + _ + Public Property NachzureichenKz() As String + Get + Return Me._nachzureichenKz + End Get + Set(value As String) + Me._nachzureichenKz = Value + End Set + End Property + + _ + Public Property VorzulegenKz() As String + Get + Return Me._vorzulegenKz + End Get + Set(value As String) + Me._vorzulegenKz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UnterlageTAXNTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UnterlageTAXNTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UnterlageTAXNTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UnterlageTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageTAXNTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UnterlageTAXNTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UnterlageTAXNTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UnterlageTAXNTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UnterlageTAXNTyp + Return CType(Serializer.Deserialize(s), UnterlageTAXNTyp) + End Function +#End Region + + ''' + ''' Serializes current UnterlageTAXNTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UnterlageTAXNTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UnterlageTAXNTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UnterlageTAXNTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UnterlageTAXNTyp) + 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 UnterlageTAXNTyp) 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 UnterlageTAXNTyp + 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 Class + + _ + Partial Public Class PositionNichtAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _positionsNr As String + + Private _unterlage As List(Of UnterlageTAXNTyp) + + Private _ermittlungenEinfuhrfaehigkeitKz As String + + Private _ermittlungenZollwertKz As String + + Private _ermittlungenWarenbeschaffenheitKz As String + + Private _ermittlungenAbgabensatzKz As String + + Private _pruefungVorbehalten As String + + Private _ermittlungenSonstigeKz As String + + Private _kontingentsmeldungKz As String + + Private _vorlaeufigerAntidumpingzollKz As String + + Private _positionVollstaendigKz As String + + Private _berichtigungspflichtigKz As String + + Private _zugangNochNichtAbschliessend As String + + Private _begruendung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._unterlage = New List(Of UnterlageTAXNTyp)() + End Sub + + _ + Public Property PositionsNr() As String + Get + Return Me._positionsNr + End Get + Set(value As String) + Me._positionsNr = Value + End Set + End Property + + _ + Public Property Unterlage() As List(Of UnterlageTAXNTyp) + Get + Return Me._unterlage + End Get + Set(value As List(Of UnterlageTAXNTyp)) + Me._unterlage = Value + End Set + End Property + + _ + Public Property ErmittlungenEinfuhrfaehigkeitKz() As String + Get + Return Me._ermittlungenEinfuhrfaehigkeitKz + End Get + Set(value As String) + Me._ermittlungenEinfuhrfaehigkeitKz = Value + End Set + End Property + + _ + Public Property ErmittlungenZollwertKz() As String + Get + Return Me._ermittlungenZollwertKz + End Get + Set(value As String) + Me._ermittlungenZollwertKz = Value + End Set + End Property + + _ + Public Property ErmittlungenWarenbeschaffenheitKz() As String + Get + Return Me._ermittlungenWarenbeschaffenheitKz + End Get + Set(value As String) + Me._ermittlungenWarenbeschaffenheitKz = Value + End Set + End Property + + _ + Public Property ErmittlungenAbgabensatzKz() As String + Get + Return Me._ermittlungenAbgabensatzKz + End Get + Set(value As String) + Me._ermittlungenAbgabensatzKz = Value + End Set + End Property + + _ + Public Property PruefungVorbehalten() As String + Get + Return Me._pruefungVorbehalten + End Get + Set(value As String) + Me._pruefungVorbehalten = Value + End Set + End Property + + _ + Public Property ErmittlungenSonstigeKz() As String + Get + Return Me._ermittlungenSonstigeKz + End Get + Set(value As String) + Me._ermittlungenSonstigeKz = Value + End Set + End Property + + _ + Public Property KontingentsmeldungKz() As String + Get + Return Me._kontingentsmeldungKz + End Get + Set(value As String) + Me._kontingentsmeldungKz = Value + End Set + End Property + + _ + Public Property VorlaeufigerAntidumpingzollKz() As String + Get + Return Me._vorlaeufigerAntidumpingzollKz + End Get + Set(value As String) + Me._vorlaeufigerAntidumpingzollKz = Value + End Set + End Property + + _ + Public Property PositionVollstaendigKz() As String + Get + Return Me._positionVollstaendigKz + End Get + Set(value As String) + Me._positionVollstaendigKz = Value + End Set + End Property + + _ + Public Property BerichtigungspflichtigKz() As String + Get + Return Me._berichtigungspflichtigKz + End Get + Set(value As String) + Me._berichtigungspflichtigKz = Value + End Set + End Property + + _ + Public Property ZugangNochNichtAbschliessend() As String + Get + Return Me._zugangNochNichtAbschliessend + End Get + Set(value As String) + Me._zugangNochNichtAbschliessend = Value + End Set + End Property + + _ + Public Property Begruendung() As String + Get + Return Me._begruendung + End Get + Set(value As String) + Me._begruendung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionNichtAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionNichtAbschliessendeFestsetzungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionNichtAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionNichtAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), PositionNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionNichtAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionNichtAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionNichtAbschliessendeFestsetzungTyp) + 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 PositionNichtAbschliessendeFestsetzungTyp) 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 PositionNichtAbschliessendeFestsetzungTyp + 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 Class + + _ + Partial Public Class KopfDatenNichtAbschliessendeFestsetzungTyp + +#Region "Private fields" + Private _umsatzSteuerIDNr As String + + Private _registrierNr As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property UmsatzSteuerIDNr() As String + Get + Return Me._umsatzSteuerIDNr + End Get + Set(value As String) + Me._umsatzSteuerIDNr = Value + End Set + End Property + + _ + Public Property RegistrierNr() As String + Get + Return Me._registrierNr + End Get + Set(value As String) + Me._registrierNr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenNichtAbschliessendeFestsetzungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenNichtAbschliessendeFestsetzungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenNichtAbschliessendeFestsetzungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenNichtAbschliessendeFestsetzungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenNichtAbschliessendeFestsetzungTyp + Return CType(Serializer.Deserialize(s), KopfDatenNichtAbschliessendeFestsetzungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenNichtAbschliessendeFestsetzungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenNichtAbschliessendeFestsetzungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenNichtAbschliessendeFestsetzungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenNichtAbschliessendeFestsetzungTyp) + 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 KopfDatenNichtAbschliessendeFestsetzungTyp) 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 KopfDatenNichtAbschliessendeFestsetzungTyp + 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 Class + + _ + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionFreierVerkehrTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_002.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_002.xsd new file mode 100644 index 0000000..dc77b9e --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/NichtAbschliessendeFestsetzung/NichtAbschliessendeFestsetzung_002.xsd @@ -0,0 +1,124 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_001.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_001.Designer.vb new file mode 100644 index 0000000..58ac78d --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_001.Designer.vb @@ -0,0 +1,1762 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' StornierungBescheidListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace StornierungBescheid + + _ + Partial Public Class StornierungBescheidREVTyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelStornierungBescheid As EinzelStornierungBescheidTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelStornierungBescheid = New EinzelStornierungBescheidTyp() + End Sub + + _ + Public Property EinzelStornierungBescheid() As EinzelStornierungBescheidTyp + Get + Return Me._einzelStornierungBescheid + End Get + Set(value As EinzelStornierungBescheidTyp) + Me._einzelStornierungBescheid = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(StornierungBescheidREVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current StornierungBescheidREVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an StornierungBescheidREVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output StornierungBescheidREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As StornierungBescheidREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StornierungBescheidREVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As StornierungBescheidREVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As StornierungBescheidREVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), StornierungBescheidREVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As StornierungBescheidREVTyp + Return CType(Serializer.Deserialize(s), StornierungBescheidREVTyp) + End Function +#End Region + + ''' + ''' Serializes current StornierungBescheidREVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an StornierungBescheidREVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output StornierungBescheidREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As StornierungBescheidREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StornierungBescheidREVTyp) + 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 StornierungBescheidREVTyp) 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 StornierungBescheidREVTyp + 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 Class + + _ + Partial Public Class EinzelStornierungBescheidTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungREVTyp + + Private _kopfDaten As KopfDatenStornierungBescheidTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kopfDaten = New KopfDatenStornierungBescheidTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungREVTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungREVTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungREVTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenStornierungBescheidTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenStornierungBescheidTyp) + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelStornierungBescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelStornierungBescheidTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelStornierungBescheidTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelStornierungBescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelStornierungBescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelStornierungBescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelStornierungBescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelStornierungBescheidTyp + Return CType(Serializer.Deserialize(s), EinzelStornierungBescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelStornierungBescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelStornierungBescheidTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelStornierungBescheidTyp) + 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 EinzelStornierungBescheidTyp) 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 EinzelStornierungBescheidTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungREVTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungREVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungREVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungREVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungREVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungREVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungREVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungREVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungREVTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungREVTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungREVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungREVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungREVTyp) + 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 ObjektIdentifizierungREVTyp) 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 ObjektIdentifizierungREVTyp + 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 Class + + _ + Partial Public Class AbgabeREVTyp + +#Region "Private fields" + Private _abgabeArt As String + + Private _abgabeArtAbgabenbetrag As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property AbgabeArt() As String + Get + Return Me._abgabeArt + End Get + Set(value As String) + Me._abgabeArt = Value + End Set + End Property + + _ + Public Property AbgabeArtAbgabenbetrag() As Decimal + Get + Return Me._abgabeArtAbgabenbetrag + End Get + Set(value As Decimal) + Me._abgabeArtAbgabenbetrag = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgabeREVTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgabeREVTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgabeREVTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgabeREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabeREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabeREVTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgabeREVTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgabeREVTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgabeREVTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgabeREVTyp + Return CType(Serializer.Deserialize(s), AbgabeREVTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgabeREVTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgabeREVTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgabeREVTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgabeREVTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgabeREVTyp) + 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 AbgabeREVTyp) 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 AbgabeREVTyp + 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 Class + + _ + Partial Public Class KopfDatenStornierungBescheidTyp + +#Region "Private fields" + Private _zollBearbeiter As String + + Private _stornierteRegistrierNr As String + + Private _waehrungKz As String + + Private _registrierNrNeu As String + + Private _stornierungstexte As String + + Private _stornierungGrund As String + + Private _dienststelleBezeichnung As String + + Private _dienststelleTelefonNr As String + + Private _dienststelleStrasseHausNr As String + + Private _dienststellePLZS As String + + Private _dienststelleOrtS As String + + Private _dienststelleOrtsteil As String + + Private _dienststellePostfach As String + + Private _dienststellePLZP As String + + Private _dienststelleOrtP As String + + Private _registrierKz As String + + Private _gesamtbetrag As Decimal + + Private _abgabe As List(Of AbgabeREVTyp) + + Private _sicherheitsregistrierKz As String + + Private _zuLeistendeBarsicherheitBetrag As Decimal + + Private _zollzahlstelleBezeichnung As String + + Private _zollzahlstelleTelefonNr As String + + Private _zollzahlstelleStrasseHausNr As String + + Private _zollzahlstellePLZS As String + + Private _zollzahlstelleOrtS As String + + Private _zollzahlstelleOrtsteil As String + + Private _zollzahlstellePostfach As String + + Private _zollzahlstellePLZP As String + + Private _zollzahlstelleOrtP As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._abgabe = New List(Of AbgabeREVTyp)() + End Sub + + _ + Public Property ZollBearbeiter() As String + Get + Return Me._zollBearbeiter + End Get + Set(value As String) + Me._zollBearbeiter = Value + End Set + End Property + + _ + Public Property StornierteRegistrierNr() As String + Get + Return Me._stornierteRegistrierNr + End Get + Set(value As String) + Me._stornierteRegistrierNr = Value + End Set + End Property + + _ + Public Property WaehrungKz() As String + Get + Return Me._waehrungKz + End Get + Set(value As String) + Me._waehrungKz = Value + End Set + End Property + + _ + Public Property RegistrierNrNeu() As String + Get + Return Me._registrierNrNeu + End Get + Set(value As String) + Me._registrierNrNeu = Value + End Set + End Property + + _ + Public Property Stornierungstexte() As String + Get + Return Me._stornierungstexte + End Get + Set(value As String) + Me._stornierungstexte = Value + End Set + End Property + + _ + Public Property StornierungGrund() As String + Get + Return Me._stornierungGrund + End Get + Set(value As String) + Me._stornierungGrund = Value + End Set + End Property + + _ + Public Property DienststelleBezeichnung() As String + Get + Return Me._dienststelleBezeichnung + End Get + Set(value As String) + Me._dienststelleBezeichnung = Value + End Set + End Property + + _ + Public Property DienststelleTelefonNr() As String + Get + Return Me._dienststelleTelefonNr + End Get + Set(value As String) + Me._dienststelleTelefonNr = Value + End Set + End Property + + _ + Public Property DienststelleStrasseHausNr() As String + Get + Return Me._dienststelleStrasseHausNr + End Get + Set(value As String) + Me._dienststelleStrasseHausNr = Value + End Set + End Property + + _ + Public Property DienststellePLZS() As String + Get + Return Me._dienststellePLZS + End Get + Set(value As String) + Me._dienststellePLZS = Value + End Set + End Property + + _ + Public Property DienststelleOrtS() As String + Get + Return Me._dienststelleOrtS + End Get + Set(value As String) + Me._dienststelleOrtS = Value + End Set + End Property + + _ + Public Property DienststelleOrtsteil() As String + Get + Return Me._dienststelleOrtsteil + End Get + Set(value As String) + Me._dienststelleOrtsteil = Value + End Set + End Property + + _ + Public Property DienststellePostfach() As String + Get + Return Me._dienststellePostfach + End Get + Set(value As String) + Me._dienststellePostfach = Value + End Set + End Property + + _ + Public Property DienststellePLZP() As String + Get + Return Me._dienststellePLZP + End Get + Set(value As String) + Me._dienststellePLZP = Value + End Set + End Property + + _ + Public Property DienststelleOrtP() As String + Get + Return Me._dienststelleOrtP + End Get + Set(value As String) + Me._dienststelleOrtP = Value + End Set + End Property + + _ + Public Property RegistrierKz() As String + Get + Return Me._registrierKz + End Get + Set(value As String) + Me._registrierKz = Value + End Set + End Property + + _ + Public Property Gesamtbetrag() As Decimal + Get + Return Me._gesamtbetrag + End Get + Set(value As Decimal) + Me._gesamtbetrag = Value + End Set + End Property + + _ + Public Property Abgabe() As List(Of AbgabeREVTyp) + Get + Return Me._abgabe + End Get + Set(value As List(Of AbgabeREVTyp)) + Me._abgabe = Value + End Set + End Property + + _ + Public Property SicherheitsregistrierKz() As String + Get + Return Me._sicherheitsregistrierKz + End Get + Set(value As String) + Me._sicherheitsregistrierKz = Value + End Set + End Property + + _ + Public Property ZuLeistendeBarsicherheitBetrag() As Decimal + Get + Return Me._zuLeistendeBarsicherheitBetrag + End Get + Set(value As Decimal) + Me._zuLeistendeBarsicherheitBetrag = Value + End Set + End Property + + _ + Public Property ZollzahlstelleBezeichnung() As String + Get + Return Me._zollzahlstelleBezeichnung + End Get + Set(value As String) + Me._zollzahlstelleBezeichnung = Value + End Set + End Property + + _ + Public Property ZollzahlstelleTelefonNr() As String + Get + Return Me._zollzahlstelleTelefonNr + End Get + Set(value As String) + Me._zollzahlstelleTelefonNr = Value + End Set + End Property + + _ + Public Property ZollzahlstelleStrasseHausNr() As String + Get + Return Me._zollzahlstelleStrasseHausNr + End Get + Set(value As String) + Me._zollzahlstelleStrasseHausNr = Value + End Set + End Property + + _ + Public Property ZollzahlstellePLZS() As String + Get + Return Me._zollzahlstellePLZS + End Get + Set(value As String) + Me._zollzahlstellePLZS = Value + End Set + End Property + + _ + Public Property ZollzahlstelleOrtS() As String + Get + Return Me._zollzahlstelleOrtS + End Get + Set(value As String) + Me._zollzahlstelleOrtS = Value + End Set + End Property + + _ + Public Property ZollzahlstelleOrtsteil() As String + Get + Return Me._zollzahlstelleOrtsteil + End Get + Set(value As String) + Me._zollzahlstelleOrtsteil = Value + End Set + End Property + + _ + Public Property ZollzahlstellePostfach() As String + Get + Return Me._zollzahlstellePostfach + End Get + Set(value As String) + Me._zollzahlstellePostfach = Value + End Set + End Property + + _ + Public Property ZollzahlstellePLZP() As String + Get + Return Me._zollzahlstellePLZP + End Get + Set(value As String) + Me._zollzahlstellePLZP = Value + End Set + End Property + + _ + Public Property ZollzahlstelleOrtP() As String + Get + Return Me._zollzahlstelleOrtP + End Get + Set(value As String) + Me._zollzahlstelleOrtP = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenStornierungBescheidTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenStornierungBescheidTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenStornierungBescheidTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenStornierungBescheidTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenStornierungBescheidTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenStornierungBescheidTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenStornierungBescheidTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenStornierungBescheidTyp + Return CType(Serializer.Deserialize(s), KopfDatenStornierungBescheidTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenStornierungBescheidTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenStornierungBescheidTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenStornierungBescheidTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenStornierungBescheidTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenStornierungBescheidTyp) + 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 KopfDatenStornierungBescheidTyp) 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 KopfDatenStornierungBescheidTyp + 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 Class + + _ + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionFreierVerkehrTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_001.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_001.xsd new file mode 100644 index 0000000..c5a0a30 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/StornierungBescheid/StornierungBescheid_001.xsd @@ -0,0 +1,159 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_003.Designer.vb new file mode 100644 index 0000000..6af3145 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_003.Designer.vb @@ -0,0 +1,1737 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' SumAErledigungsinformationVorpapierListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace SumAErledigungsinformationVorpapier + + _ + Partial Public Class SumAErledigungsinformationVorpapierSIVRPTyp + Inherits DatenaustauschSumAOutTyp + +#Region "Private fields" + Private _einzelSumAErledigungsinformation As EinzelSumAErledigungsinformationVorpapierTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelSumAErledigungsinformation = New EinzelSumAErledigungsinformationVorpapierTyp() + End Sub + + _ + Public Property EinzelSumAErledigungsinformation() As EinzelSumAErledigungsinformationVorpapierTyp + Get + Return Me._einzelSumAErledigungsinformation + End Get + Set(value As EinzelSumAErledigungsinformationVorpapierTyp) + Me._einzelSumAErledigungsinformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SumAErledigungsinformationVorpapierSIVRPTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SumAErledigungsinformationVorpapierSIVRPTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SumAErledigungsinformationVorpapierSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumAErledigungsinformationVorpapierSIVRPTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SumAErledigungsinformationVorpapierSIVRPTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SumAErledigungsinformationVorpapierSIVRPTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SumAErledigungsinformationVorpapierSIVRPTyp + Return CType(Serializer.Deserialize(s), SumAErledigungsinformationVorpapierSIVRPTyp) + End Function +#End Region + + ''' + ''' Serializes current SumAErledigungsinformationVorpapierSIVRPTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SumAErledigungsinformationVorpapierSIVRPTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SumAErledigungsinformationVorpapierSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumAErledigungsinformationVorpapierSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumAErledigungsinformationVorpapierSIVRPTyp) + 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 SumAErledigungsinformationVorpapierSIVRPTyp) 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 SumAErledigungsinformationVorpapierSIVRPTyp + 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 Class + + _ + Partial Public Class EinzelSumAErledigungsinformationVorpapierTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungSIVRPTyp + + Private _kopfDaten As KopfDatenSumAErledigungsinformationVorpapierTyp + + Private _position As List(Of PositionSumAErledigungsinformationVorpapierTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._position = New List(Of PositionSumAErledigungsinformationVorpapierTyp)() + Me._kopfDaten = New KopfDatenSumAErledigungsinformationVorpapierTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungSIVRPTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungSIVRPTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungSIVRPTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenSumAErledigungsinformationVorpapierTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenSumAErledigungsinformationVorpapierTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property Position() As List(Of PositionSumAErledigungsinformationVorpapierTyp) + Get + Return Me._position + End Get + Set(value As List(Of PositionSumAErledigungsinformationVorpapierTyp)) + Me._position = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelSumAErledigungsinformationVorpapierTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelSumAErledigungsinformationVorpapierTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelSumAErledigungsinformationVorpapierTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelSumAErledigungsinformationVorpapierTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelSumAErledigungsinformationVorpapierTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelSumAErledigungsinformationVorpapierTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelSumAErledigungsinformationVorpapierTyp + Return CType(Serializer.Deserialize(s), EinzelSumAErledigungsinformationVorpapierTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelSumAErledigungsinformationVorpapierTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelSumAErledigungsinformationVorpapierTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelSumAErledigungsinformationVorpapierTyp) + 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 EinzelSumAErledigungsinformationVorpapierTyp) 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 EinzelSumAErledigungsinformationVorpapierTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungSIVRPTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAntragArt As String + + Private _eDIFACTNachrichtennummer As String + + Private _zeitpunktNachrichteneingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAntragArt() As String + Get + Return Me._objektAntragArt + End Get + Set(value As String) + Me._objektAntragArt = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtennummer() As String + Get + Return Me._eDIFACTNachrichtennummer + End Get + Set(value As String) + Me._eDIFACTNachrichtennummer = Value + End Set + End Property + + _ + Public Property ZeitpunktNachrichteneingang() As Date + Get + Return Me._zeitpunktNachrichteneingang + End Get + Set(value As Date) + Me._zeitpunktNachrichteneingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungSIVRPTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungSIVRPTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungSIVRPTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungSIVRPTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungSIVRPTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungSIVRPTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungSIVRPTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungSIVRPTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungSIVRPTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungSIVRPTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungSIVRPTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungSIVRPTyp) + 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 ObjektIdentifizierungSIVRPTyp) 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 ObjektIdentifizierungSIVRPTyp + 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 Class + + _ + Partial Public Class PositionSumAErledigungsinformationVorpapierTyp + +#Region "Private fields" + Private _laufendeNummer As String + + Private _iDRegNrSumA As String + + Private _iDRegNrSumAPos As String + + Private _artSpO As String + + Private _spezifischerOrdnungsbegriff As String + + Private _stornierungKz As String + + Private _stueckzahlErledigte As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property LaufendeNummer() As String + Get + Return Me._laufendeNummer + End Get + Set(value As String) + Me._laufendeNummer = Value + End Set + End Property + + _ + Public Property IDRegNrSumA() As String + Get + Return Me._iDRegNrSumA + End Get + Set(value As String) + Me._iDRegNrSumA = Value + End Set + End Property + + _ + Public Property IDRegNrSumAPos() As String + Get + Return Me._iDRegNrSumAPos + End Get + Set(value As String) + Me._iDRegNrSumAPos = Value + End Set + End Property + + _ + Public Property ArtSpO() As String + Get + Return Me._artSpO + End Get + Set(value As String) + Me._artSpO = Value + End Set + End Property + + _ + Public Property SpezifischerOrdnungsbegriff() As String + Get + Return Me._spezifischerOrdnungsbegriff + End Get + Set(value As String) + Me._spezifischerOrdnungsbegriff = Value + End Set + End Property + + _ + Public Property StornierungKz() As String + Get + Return Me._stornierungKz + End Get + Set(value As String) + Me._stornierungKz = Value + End Set + End Property + + _ + Public Property StueckzahlErledigte() As String + Get + Return Me._stueckzahlErledigte + End Get + Set(value As String) + Me._stueckzahlErledigte = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionSumAErledigungsinformationVorpapierTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionSumAErledigungsinformationVorpapierTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionSumAErledigungsinformationVorpapierTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAErledigungsinformationVorpapierTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionSumAErledigungsinformationVorpapierTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionSumAErledigungsinformationVorpapierTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionSumAErledigungsinformationVorpapierTyp + Return CType(Serializer.Deserialize(s), PositionSumAErledigungsinformationVorpapierTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionSumAErledigungsinformationVorpapierTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionSumAErledigungsinformationVorpapierTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAErledigungsinformationVorpapierTyp) + 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 PositionSumAErledigungsinformationVorpapierTyp) 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 PositionSumAErledigungsinformationVorpapierTyp + 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 Class + + _ + Partial Public Class VerwahrerSIVRPTyp + +#Region "Private fields" + Private _teilnehmerEORI As String + + Private _teilnehmerNLNR As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property TeilnehmerEORI() As String + Get + Return Me._teilnehmerEORI + End Get + Set(value As String) + Me._teilnehmerEORI = Value + End Set + End Property + + _ + Public Property TeilnehmerNLNR() As String + Get + Return Me._teilnehmerNLNR + End Get + Set(value As String) + Me._teilnehmerNLNR = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerwahrerSIVRPTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerwahrerSIVRPTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerwahrerSIVRPTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerwahrerSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerwahrerSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerwahrerSIVRPTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerwahrerSIVRPTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerwahrerSIVRPTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerwahrerSIVRPTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerwahrerSIVRPTyp + Return CType(Serializer.Deserialize(s), VerwahrerSIVRPTyp) + End Function +#End Region + + ''' + ''' Serializes current VerwahrerSIVRPTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerwahrerSIVRPTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerwahrerSIVRPTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerwahrerSIVRPTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerwahrerSIVRPTyp) + 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 VerwahrerSIVRPTyp) 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 VerwahrerSIVRPTyp + 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 Class + + _ + Partial Public Class KopfDatenSumAErledigungsinformationVorpapierTyp + +#Region "Private fields" + Private _verwahrer As VerwahrerSIVRPTyp + + Private _sonstigeNummer As String + + Private _artErledigung As String + + Private _regNrATLASWeitereNachweise As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._verwahrer = New VerwahrerSIVRPTyp() + End Sub + + _ + Public Property Verwahrer() As VerwahrerSIVRPTyp + Get + Return Me._verwahrer + End Get + Set(value As VerwahrerSIVRPTyp) + Me._verwahrer = Value + End Set + End Property + + _ + Public Property SonstigeNummer() As String + Get + Return Me._sonstigeNummer + End Get + Set(value As String) + Me._sonstigeNummer = Value + End Set + End Property + + _ + Public Property ArtErledigung() As String + Get + Return Me._artErledigung + End Get + Set(value As String) + Me._artErledigung = Value + End Set + End Property + + _ + Public Property RegNrATLASWeitereNachweise() As String + Get + Return Me._regNrATLASWeitereNachweise + End Get + Set(value As String) + Me._regNrATLASWeitereNachweise = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenSumAErledigungsinformationVorpapierTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenSumAErledigungsinformationVorpapierTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenSumAErledigungsinformationVorpapierTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenSumAErledigungsinformationVorpapierTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenSumAErledigungsinformationVorpapierTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenSumAErledigungsinformationVorpapierTyp + Return CType(Serializer.Deserialize(s), KopfDatenSumAErledigungsinformationVorpapierTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenSumAErledigungsinformationVorpapierTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenSumAErledigungsinformationVorpapierTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenSumAErledigungsinformationVorpapierTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenSumAErledigungsinformationVorpapierTyp) + 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 KopfDatenSumAErledigungsinformationVorpapierTyp) 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 KopfDatenSumAErledigungsinformationVorpapierTyp + 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 Class + + _ + Partial Public Class TransaktionSumAOutTyp + +#Region "Private fields" + Private _identifikation As String + + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Identifikation() As String + Get + Return Me._identifikation + End Get + Set(value As String) + Me._identifikation = Value + End Set + End Property + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionSumAOutTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionSumAOutTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionSumAOutTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionSumAOutTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionSumAOutTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionSumAOutTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionSumAOutTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionSumAOutTyp + Return CType(Serializer.Deserialize(s), TransaktionSumAOutTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionSumAOutTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionSumAOutTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionSumAOutTyp) + 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 TransaktionSumAOutTyp) 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 TransaktionSumAOutTyp + 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 Class + + _ + Partial Public Class DatenaustauschSumAOutTyp + +#Region "Private fields" + Private _transaktion As TransaktionSumAOutTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionSumAOutTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionSumAOutTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionSumAOutTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschSumAOutTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschSumAOutTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschSumAOutTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschSumAOutTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschSumAOutTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschSumAOutTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschSumAOutTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschSumAOutTyp + Return CType(Serializer.Deserialize(s), DatenaustauschSumAOutTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschSumAOutTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschSumAOutTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschSumAOutTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschSumAOutTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschSumAOutTyp) + 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 DatenaustauschSumAOutTyp) 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 DatenaustauschSumAOutTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_003.xsd new file mode 100644 index 0000000..18f3931 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/SumAErledigungsinformationVorpapier/SumAErledigungsinformationVorpapier_003.xsd @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_001.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_001.Designer.vb new file mode 100644 index 0000000..4b6cf18 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_001.Designer.vb @@ -0,0 +1,1364 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' WeitergabeHauptzollamtListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace WeitergabeHauptzollamt + + _ + Partial Public Class WeiterleitungTRATyp + Inherits DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _einzelWeiterleitung As EinzelWeiterleitungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelWeiterleitung = New EinzelWeiterleitungTyp() + End Sub + + _ + Public Property EinzelWeiterleitung() As EinzelWeiterleitungTyp + Get + Return Me._einzelWeiterleitung + End Get + Set(value As EinzelWeiterleitungTyp) + Me._einzelWeiterleitung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WeiterleitungTRATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WeiterleitungTRATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an WeiterleitungTRATyp object + ''' + ''' string workflow markup to deserialize + ''' Output WeiterleitungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WeiterleitungTRATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WeiterleitungTRATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WeiterleitungTRATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WeiterleitungTRATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WeiterleitungTRATyp + Return CType(Serializer.Deserialize(s), WeiterleitungTRATyp) + End Function +#End Region + + ''' + ''' Serializes current WeiterleitungTRATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an WeiterleitungTRATyp object + ''' + ''' string xml file to load and deserialize + ''' Output WeiterleitungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WeiterleitungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WeiterleitungTRATyp) + 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 WeiterleitungTRATyp) 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 WeiterleitungTRATyp + 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 Class + + _ + Partial Public Class EinzelWeiterleitungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungTRATyp + + Private _kopfDaten As KopfDatenWeiterleitungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kopfDaten = New KopfDatenWeiterleitungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungTRATyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungTRATyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungTRATyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenWeiterleitungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenWeiterleitungTyp) + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelWeiterleitungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelWeiterleitungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelWeiterleitungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelWeiterleitungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelWeiterleitungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelWeiterleitungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelWeiterleitungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelWeiterleitungTyp + Return CType(Serializer.Deserialize(s), EinzelWeiterleitungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelWeiterleitungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelWeiterleitungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelWeiterleitungTyp) + 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 EinzelWeiterleitungTyp) 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 EinzelWeiterleitungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungTRATyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungTRATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungTRATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungTRATyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTRATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungTRATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungTRATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungTRATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungTRATyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungTRATyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungTRATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungTRATyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungTRATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungTRATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungTRATyp) + 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 ObjektIdentifizierungTRATyp) 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 ObjektIdentifizierungTRATyp + 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 Class + + _ + Partial Public Class KopfDatenWeiterleitungTyp + +#Region "Private fields" + Private _zollBearbeiter As String + + Private _weiterleitungBegruendung As String + + Private _weitergeleiteteZollanmeldungRegistrierNr As String + + Private _weiterleitungDatum As Date + + Private _dienststellenschluessel As String + + Private _hZABezeichnung As String + + Private _hZAOrtS As String + + Private _hZAPLZS As String + + Private _hZAStrasseHausNr As String + + Private _hZAOrtP As String + + Private _hZAPLZP As String + + Private _hZAPostfach As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ZollBearbeiter() As String + Get + Return Me._zollBearbeiter + End Get + Set(value As String) + Me._zollBearbeiter = Value + End Set + End Property + + _ + Public Property WeiterleitungBegruendung() As String + Get + Return Me._weiterleitungBegruendung + End Get + Set(value As String) + Me._weiterleitungBegruendung = Value + End Set + End Property + + _ + Public Property WeitergeleiteteZollanmeldungRegistrierNr() As String + Get + Return Me._weitergeleiteteZollanmeldungRegistrierNr + End Get + Set(value As String) + Me._weitergeleiteteZollanmeldungRegistrierNr = Value + End Set + End Property + + _ + Public Property WeiterleitungDatum() As Date + Get + Return Me._weiterleitungDatum + End Get + Set(value As Date) + Me._weiterleitungDatum = Value + End Set + End Property + + _ + Public Property Dienststellenschluessel() As String + Get + Return Me._dienststellenschluessel + End Get + Set(value As String) + Me._dienststellenschluessel = Value + End Set + End Property + + _ + Public Property HZABezeichnung() As String + Get + Return Me._hZABezeichnung + End Get + Set(value As String) + Me._hZABezeichnung = Value + End Set + End Property + + _ + Public Property HZAOrtS() As String + Get + Return Me._hZAOrtS + End Get + Set(value As String) + Me._hZAOrtS = Value + End Set + End Property + + _ + Public Property HZAPLZS() As String + Get + Return Me._hZAPLZS + End Get + Set(value As String) + Me._hZAPLZS = Value + End Set + End Property + + _ + Public Property HZAStrasseHausNr() As String + Get + Return Me._hZAStrasseHausNr + End Get + Set(value As String) + Me._hZAStrasseHausNr = Value + End Set + End Property + + _ + Public Property HZAOrtP() As String + Get + Return Me._hZAOrtP + End Get + Set(value As String) + Me._hZAOrtP = Value + End Set + End Property + + _ + Public Property HZAPLZP() As String + Get + Return Me._hZAPLZP + End Get + Set(value As String) + Me._hZAPLZP = Value + End Set + End Property + + _ + Public Property HZAPostfach() As String + Get + Return Me._hZAPostfach + End Get + Set(value As String) + Me._hZAPostfach = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenWeiterleitungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenWeiterleitungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenWeiterleitungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenWeiterleitungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenWeiterleitungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenWeiterleitungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenWeiterleitungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenWeiterleitungTyp + Return CType(Serializer.Deserialize(s), KopfDatenWeiterleitungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenWeiterleitungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenWeiterleitungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenWeiterleitungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenWeiterleitungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenWeiterleitungTyp) + 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 KopfDatenWeiterleitungTyp) 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 KopfDatenWeiterleitungTyp + 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 Class + + _ + Partial Public Class TransaktionFreierVerkehrTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), TransaktionFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class + + _ + Partial Public Class DatenaustauschFreierVerkehrTyp + +#Region "Private fields" + Private _transaktion As TransaktionFreierVerkehrTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionFreierVerkehrTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionFreierVerkehrTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionFreierVerkehrTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschFreierVerkehrTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschFreierVerkehrTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschFreierVerkehrTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschFreierVerkehrTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschFreierVerkehrTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschFreierVerkehrTyp + Return CType(Serializer.Deserialize(s), DatenaustauschFreierVerkehrTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschFreierVerkehrTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschFreierVerkehrTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschFreierVerkehrTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_001.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_001.xsd new file mode 100644 index 0000000..b9de396 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/WeitergabeHauptzollamt/WeitergabeHauptzollamt_001.xsd @@ -0,0 +1,112 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb new file mode 100644 index 0000000..6ec637c --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb @@ -0,0 +1,2204 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDakosyEZA + + Property eza_Id As Integer = -1 + Property eza_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property eza_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property eza_dyaArt As String = "" + Property eza_dyaAnmID As Integer + + Property eza_ANR As Object = Nothing + Property eza_MRN As Object = Nothing + + Property eza_Erstellung As DateTime = Now + Property eza_Erstellung_SB As Object = Nothing + Property eza_LetzteBearbeitung As DateTime = Now + Property eza_LetzteBearbeitung_SB As Object = Nothing + Property eza_firma As Object = Nothing + Property eza_niederlassung As Object = Nothing + + + Property eza_Trans_Partner As Object = Nothing + Property eza_Trans_Div1 As Object = Nothing + Property eza_Trans_Div2 As Object = Nothing + Property eza_Trans_Div3 As Object = Nothing + Property eza_Trans_Referenz As Object = Nothing + Property eza_Trans_DatumZeit As DateTime = Now + Property eza_Trans_Version As Object = Nothing + Property eza_NachrichtenSenderTIN As Object = Nothing + Property eza_NachrichtenSenderNLNR As Object = Nothing + Property eza_NachrichtenempfaengerDST As Object = Nothing + + Property eza_ObjectName As Object = Nothing + Property eza_ObjectAlias As Object = Nothing + + Property eza_BezugsnummerVorblendung As Object = Nothing + Property eza_Bearbeiter As Object = Nothing + Property eza_AnmeldungArt As Object = Nothing + Property eza_CompliancePruefung As Object = Nothing + Property eza_AnfBemerkungStatusanzeige As Object = Nothing + Property eza_AdressierteZollstelle As Object = Nothing + Property eza_AnmelderistEmpfaenger As Object = Nothing + Property eza_VertretungsVerhaeltnisCode As Object = Nothing + Property eza_Vorsteuerabzug As Object = Nothing + Property eza_AnmeldenderBearbeiterName As Object = Nothing + Property eza_AnmeldenderBearbeiterTel As Object = Nothing + Property eza_AnmeldenderBearbeiterStellung As Object = Nothing + Property eza_AnmeldenderBearbeiterEMail As Object = Nothing + Property eza_FiskalvertretungKz As Object = Nothing + Property eza_Ausstellungsort As Object = Nothing + Property eza_ZollrechtlicherStatus As Object = Nothing + Property eza_GesamtRohmasse As Object = Nothing + Property eza_VerfahrenBeantragtCode As Object = Nothing + Property eza_VerkehrszweigInland As Object = Nothing + Property eza_VerkehrszweigGrenze As Object = Nothing + Property eza_VersendungsLandCode As Object = Nothing + Property eza_Bestimmungsbundesland As Object = Nothing + Property eza_Bestimmungsland As Object = Nothing + Property eza_KennzeichenNameBefoerderungsmittelAnkunft As Object = Nothing + Property eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode As Object = Nothing + Property eza_BeförderungsmittelGrenzeArt As Object = Nothing + Property eza_BeförderungsmittelGrenze As Object = Nothing + Property eza_LieferbedingungCode As Object = Nothing + Property eza_LieferbedingungText As Object = Nothing + Property eza_LieferbedingungSchluessel As Object = Nothing + Property eza_LieferbedingungOrt As Object = Nothing + Property eza_VorpapierArtCode As Object = Nothing + Property eza_VorpapierNr As Object = Nothing + Property eza_ArtGeschaeftCode As Object = Nothing + Property eza_Statistikstatus As Object = Nothing + Property eza_Warenort As Object = Nothing + Property eza_Rechnungspreis As Object = Nothing + Property eza_Rechnungswaehrung As Object = Nothing + Property eza_DV1Kz As Object = Nothing + Property eza_DV1Vertretungsverhaeltnis As Object = Nothing + Property eza_DV1FruehereEntscheidungen As Object = Nothing + Property eza_DV1Verbundenheit As Object = Nothing + Property eza_DV1VerbungenheitEinzelheiten As Object = Nothing + Property eza_DV1EinschraenkungenKz As Object = Nothing + Property eza_DV1BedingungenLeistungenKz As Object = Nothing + Property eza_DV1BedingungenLeistungenArt As Object = Nothing + Property eza_DV1LizenzgebuehrenKz As Object = Nothing + Property eza_DV1LizenzgebuehrenUmstand As Object = Nothing + Property eza_DV1SpezielleVereinbarungKz As Object = Nothing + Property eza_DV1SpezielleVereinbarungUmstand As Object = Nothing + Property eza_ZusatzangabenAnmeldung As Object = Nothing + Property eza_KzAutoBestaetigung As Object = Nothing + Property eza_AnschreibungDatum As Object = Nothing + Property eza_Eingangszollstelle As Object = Nothing + Property eza_Zahlungsart As Object = Nothing + Property eza_ContainerNr1 As Object = Nothing + Property eza_ContainerNr2 As Object = Nothing + Property eza_ContainerNr3 As Object = Nothing + Property eza_ContainerNr4 As Object = Nothing + Property eza_ContainerNr5 As Object = Nothing + Property eza_ContainerNr6 As Object = Nothing + Property eza_ContainerNr7 As Object = Nothing + Property eza_ContainerNr8 As Object = Nothing + Property eza_ContainerNr9 As Object = Nothing + Property eza_BeendigungsanteilArtCode As Object = Nothing + Property eza_BewilligungsIDZLAVUV As Object = Nothing + Property eza_BezugsnummerBEAnteilZL As Object = Nothing + Property eza_UstIdAnmelder As Object = Nothing + Property eza_FinanzamtAnmelder As Object = Nothing + + + + Property eza_UNTERLAGEN As New List(Of cDakosy_EZA_Unterlagen) + Property eza_WARENPOS As New List(Of cDakosy_EZA_Warenposition) + + Property eza_ADRESSEN As New List(Of cDakosy_EZA_Adressen) + Property eza_AUFSCHUB As New List(Of cDakosy_EZA_Aufschub) + Property eza_SUMABA As New List(Of cDakosy_EZA_SumABeendigungsAnteil) + Property eza_BEA_ZLAvuv As New List(Of cDakosy_EZA_BEAnteilZLAVUV) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Sub New() + + End Sub + + Sub New(eza_dyaAnmID As Integer, eza_Erstellung_SB As Integer) + Me.eza_dyaAnmID = eza_dyaAnmID + Me.eza_Erstellung_SB = eza_Erstellung_SB + Me.eza_LetzteBearbeitung_SB = eza_Erstellung_SB + End Sub + + Sub New(eza_Id) + Me.eza_Id = eza_Id + LOAD() + End Sub + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Id", eza_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Status", eza_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Status_KEWILL_Equivalent", eza_Status_KEWILL_Equivalent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_dyaArt", eza_dyaArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_dyaAnmID", eza_dyaAnmID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ANR", eza_ANR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_MRN", eza_MRN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Erstellung", eza_Erstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Erstellung_SB", eza_Erstellung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LetzteBearbeitung", eza_LetzteBearbeitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LetzteBearbeitung_SB", eza_LetzteBearbeitung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_firma", eza_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_niederlassung", eza_niederlassung)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Partner", eza_Trans_Partner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Div1", eza_Trans_Div1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Div2", eza_Trans_Div2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Div3", eza_Trans_Div3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Referenz", eza_Trans_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_DatumZeit", eza_Trans_DatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Trans_Version", eza_Trans_Version)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_NachrichtenSenderTIN", eza_NachrichtenSenderTIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_NachrichtenSenderNLNR", eza_NachrichtenSenderNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_NachrichtenempfaengerDST", eza_NachrichtenempfaengerDST)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ObjectName", eza_ObjectName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ObjectAlias", eza_ObjectAlias)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerVorblendung", eza_BezugsnummerVorblendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Bearbeiter", eza_Bearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldungArt", eza_AnmeldungArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_CompliancePruefung", eza_CompliancePruefung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnfBemerkungStatusanzeige", eza_AnfBemerkungStatusanzeige)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AdressierteZollstelle", eza_AdressierteZollstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmelderistEmpfaenger", eza_AnmelderistEmpfaenger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VertretungsVerhaeltnisCode", eza_VertretungsVerhaeltnisCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Vorsteuerabzug", eza_Vorsteuerabzug)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterName", eza_AnmeldenderBearbeiterName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterTel", eza_AnmeldenderBearbeiterTel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterStellung", eza_AnmeldenderBearbeiterStellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnmeldenderBearbeiterEMail", eza_AnmeldenderBearbeiterEMail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_FiskalvertretungKz", eza_FiskalvertretungKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Ausstellungsort", eza_Ausstellungsort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ZollrechtlicherStatus", eza_ZollrechtlicherStatus)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_GesamtRohmasse", eza_GesamtRohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VerfahrenBeantragtCode", eza_VerfahrenBeantragtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VerkehrszweigInland", eza_VerkehrszweigInland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VerkehrszweigGrenze", eza_VerkehrszweigGrenze)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VersendungsLandCode", eza_VersendungsLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Bestimmungsbundesland", eza_Bestimmungsbundesland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Bestimmungsland", eza_Bestimmungsland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_KennzeichenNameBefoerderungsmittelAnkunft", eza_KennzeichenNameBefoerderungsmittelAnkunft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode", eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeförderungsmittelGrenzeArt", eza_BeförderungsmittelGrenzeArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeförderungsmittelGrenze", eza_BeförderungsmittelGrenze)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungCode", eza_LieferbedingungCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungText", eza_LieferbedingungText)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungSchluessel", eza_LieferbedingungSchluessel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_LieferbedingungOrt", eza_LieferbedingungOrt)) + + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VorpapierArtCode", eza_VorpapierArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_VorpapierNr", eza_VorpapierNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ArtGeschaeftCode", eza_ArtGeschaeftCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Statistikstatus", eza_Statistikstatus)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Warenort", eza_Warenort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Rechnungspreis", eza_Rechnungspreis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Rechnungswaehrung", eza_Rechnungswaehrung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1Kz", eza_DV1Kz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1Vertretungsverhaeltnis", eza_DV1Vertretungsverhaeltnis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1FruehereEntscheidungen", eza_DV1FruehereEntscheidungen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1Verbundenheit", eza_DV1Verbundenheit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1VerbungenheitEinzelheiten", eza_DV1VerbungenheitEinzelheiten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1EinschraenkungenKz", eza_DV1EinschraenkungenKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1BedingungenLeistungenKz", eza_DV1BedingungenLeistungenKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1BedingungenLeistungenArt", eza_DV1BedingungenLeistungenArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1LizenzgebuehrenKz", eza_DV1LizenzgebuehrenKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1LizenzgebuehrenUmstand", eza_DV1LizenzgebuehrenUmstand)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1SpezielleVereinbarungKz", eza_DV1SpezielleVereinbarungKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_DV1SpezielleVereinbarungUmstand", eza_DV1SpezielleVereinbarungUmstand)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ZusatzangabenAnmeldung", eza_ZusatzangabenAnmeldung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_KzAutoBestaetigung", eza_KzAutoBestaetigung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_AnschreibungDatum", eza_AnschreibungDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Eingangszollstelle", eza_Eingangszollstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Zahlungsart", eza_Zahlungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr1", eza_ContainerNr1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr2", eza_ContainerNr2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr3", eza_ContainerNr3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr4", eza_ContainerNr4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr5", eza_ContainerNr5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr6", eza_ContainerNr6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr8", eza_ContainerNr8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_ContainerNr9", eza_ContainerNr9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BeendigungsanteilArtCode", eza_BeendigungsanteilArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BewilligungsIDZLAVUV", eza_BewilligungsIDZLAVUV)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_BezugsnummerBEAnteilZL)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_UstIdAnmelder", eza_UstIdAnmelder)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_FinanzamtAnmelder", eza_FinanzamtAnmelder)) + + Return list + End Function + + Public Function UPDATE_STATUS(status) As Boolean + Me.eza_Status = status + Return Me.SAVE + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_eza WITH(updlock,serializable) WHERE eza_Id=@eza_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + eza_Id = SQL.doSQLVarListID(eza_Id, sqlstr, "FMZOLL", , list) + Return eza_Id > 0 + End Function + + Public Function SAVE_ALL() As Boolean + If Not SAVE() Then Return False + If Not SAVE_Warenposition() Then Return False + If Not SAVE_Unterlagen() Then Return False + + If Not SAVE_Adressen() Then Return False + If Not SAVE_Aufschub() Then Return False + If Not SAVE_BEAnteilZLAVUV() Then Return False + If Not SAVE_SumABeendigungsAnteil() Then Return False + Return True + End Function + + Public Function LOAD(Optional loadALL As Boolean = True) As Boolean + Try + LOAD = False + If loadALL Then + 'eza_Unterlagen.Clear() + eza_WARENPOS.Clear() + eza_UNTERLAGEN.Clear() + + eza_ADRESSEN.Clear() + eza_AUFSCHUB.Clear() + eza_BEA_ZLAvuv.Clear() + eza_SUMABA.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_eza WHERE eza_Id=@eza_Id ", conn) + cmd.Parameters.AddWithValue("@eza_Id", eza_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Unterlagen() + LOAD_Warenposition() + + LOAD_Adressen() + LOAD_Aufschub() + LOAD_BEAnteilZLAVUV() + LOAD_SumABeendigungsAnteil() + End If + LOAD = True + End If + dr.Close() + + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOAD + End Function + + + Shared Function LOADByAnmIDFull(eza_dyaAnmID As String, loadALL As Boolean) As cDakosyEZA + Try + Dim EZA As New cDakosyEZA + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_dyaAnmID=@eza_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@eza_dyaAnmID", eza_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In EZA.getParameterList() + Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(EZA, Nothing) + Else + propInfo.SetValue(EZA, dr.Item(l.Text)) + End If + + Next + If loadALL Then + EZA.LOAD_Unterlagen() + EZA.LOAD_Warenposition() + + EZA.LOAD_Adressen() + EZA.LOAD_Aufschub() + EZA.LOAD_BEAnteilZLAVUV() + EZA.LOAD_SumABeendigungsAnteil() + End If + + dr.Close() + Return EZA + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + + Shared Function UPDATE_StatusById(eza_id As Integer, status As Integer) As String + If eza_id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_id", eza_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Status_KEWILL_Equivalent", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Status", status, , True)) + 'dy_Status_KEWILL_Equivalent = status + 'dy_Status = status + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Return SQL.doSQLVarList(" UPDATE [tblDakosy_EZA] SET eza_Status_KEWILL_Equivalent=@eza_Status_KEWILL_Equivalent,eza_Status=@eza_Status WHERE eza_id=@eza_id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function LOADByAnmID(eza_dyaAnmID As String, loadALL As Boolean) As Boolean + Try + LOADByAnmID = False + If loadALL Then + eza_UNTERLAGEN.Clear() + eza_WARENPOS.Clear() + + eza_ADRESSEN.Clear() + eza_AUFSCHUB.Clear() + eza_BEA_ZLAvuv.Clear() + eza_SUMABA.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_dyaAnmID=@eza_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@eza_dyaAnmID", eza_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Unterlagen() + LOAD_Warenposition() + + LOAD_Adressen() + LOAD_Aufschub() + LOAD_BEAnteilZLAVUV() + LOAD_SumABeendigungsAnteil() + End If + LOADByAnmID = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOADByAnmID + End Function + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cDakosyEZA + Try + Dim EZA As New cDakosyEZA + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_ObjectName=@bezugsNr ", conn) + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In EZA.getParameterList() + Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(EZA, Nothing) + Else + propInfo.SetValue(EZA, dr.Item(l.Text)) + End If + + Next + If loadALL Then + EZA.LOAD_Unterlagen() + EZA.LOAD_Warenposition() + + EZA.LOAD_Adressen() + EZA.LOAD_Aufschub() + EZA.LOAD_BEAnteilZLAVUV() + EZA.LOAD_SumABeendigungsAnteil() + End If + + dr.Close() + Return EZA + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function UPDATE_Status(status As Integer) As String + If eza_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Id", eza_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Status", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_Status_KEWILL_Equivalent", status, , True)) + eza_Status = status + eza_Status_KEWILL_Equivalent = status + Return SQL.doSQLVarList(" UPDATE [tblDakosy_eza] SET eza_Status=@eza_Status WHERE eza_Id=@eza_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblDakosy_EZA] SET " & str & " WHERE eza_id=@eza_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Sub LOAD_Unterlagen() + Try + eza_UNTERLAGEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_Unterlagen WHERE ezaUL_ezaId=@eza_id ", conn) + cmd.Parameters.AddWithValue("@eza_id", Me.eza_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EZA_Unterlagen + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + eza_UNTERLAGEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Sub LOAD_Adressen() + Try + eza_ADRESSEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_Adressen WHERE ezaAd_ezaId=@eza_id ", conn) + cmd.Parameters.AddWithValue("@eza_id", Me.eza_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EZA_Adressen + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + eza_ADRESSEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOAD_Aufschub() + Try + eza_AUFSCHUB.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_Aufschub WHERE ezaAfb_EZAId=@eza_id ", conn) + cmd.Parameters.AddWithValue("@eza_id", Me.eza_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EZA_Aufschub + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + eza_AUFSCHUB.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOAD_BEAnteilZLAVUV() + Try + eza_BEA_ZLAvuv.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_BEAnteilZLAVUV WHERE ezaBAZ_ezaId=@eza_id ", conn) + cmd.Parameters.AddWithValue("@eza_id", Me.eza_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EZA_BEAnteilZLAVUV + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + eza_BEA_ZLAvuv.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + Public Sub LOAD_SumABeendigungsAnteil() + Try + eza_SUMABA.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_SumABeendigungsAnteil WHERE ezaBa_ezaId=@eza_id ", conn) + cmd.Parameters.AddWithValue("@eza_id", Me.eza_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EZA_SumABeendigungsAnteil + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + eza_SUMABA.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD_Warenposition() + Try + eza_WARENPOS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_Warenposition WHERE ezaWP_EzaId=@eza_id ", conn) + cmd.Parameters.AddWithValue("@eza_id", Me.eza_id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EZA_Warenposition() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_WarenpositionPackstuecke() + l.LOAD_WarenpositionUnterlagen() + eza_WARENPOS.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_Warenposition] WHERE ezaWP_EzaId=" & Me.eza_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionSonderfalldaten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_WarenpositionSonderfalldaten] WHERE ezaWpSfd_ezaId=" & Me.eza_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_WarenpositionUnterlagen] WHERE ezaWpUl_ezaId =" & Me.eza_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionVerbrauchssteuer() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_WarenpositionVerbrauchssteuer] WHERE ezaWpVs_ezaId =" & Me.eza_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Function DELETE_Adressen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_Adressen] WHERE ezaAd_ezaId =" & Me.eza_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Function DELETE_Aufschub() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_Aufschub] WHERE ezaAfb_ezaId =" & Me.eza_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Function DELETE_BEAnteilZLAVUV() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_BEAnteilZLAVUV] WHERE ezaBAZ_ezaId =" & Me.eza_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Function DELETE_SumABeendigungsAnteil() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_SumABeendigungsAnteil] WHERE ezaBa_ezaId =" & Me.eza_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Function DELETE_Unterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_Unterlagen] WHERE ezaUL_ezaId=" & Me.eza_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + + + Public Function SAVE_Warenposition() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Warenpositionen() And DELETE_WarenpositionSonderfalldaten() And DELETE_WarenpositionUnterlagen() And DELETE_WarenpositionVerbrauchssteuer() Then + 'jetzt die Standartofferten einfügen + For Each p In eza_WARENPOS + p.ezaWP_EzaId = eza_Id + If p.INSERT() Then + p.INSERT_WarenpositionSonderfalldaten(p.ezaWP_Id, Me.eza_Id) + p.INSERT_WarenpositionUnterlagen(p.ezaWP_Id, Me.eza_Id) + p.INSERT_WarenpositionVerbrauchssteuer(p.ezaWP_Id, Me.eza_Id) + Else + Return False + End If + Next + Else + Return False + End If + + Return True + End Function + + + Public Function SAVE_Unterlagen() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Unterlagen() Then + 'jetzt die Standartofferten einfügen + For Each p In eza_UNTERLAGEN + p.ezaUl_EZAId = eza_Id + If Not p.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + + + + Public Function SAVE_Adressen() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Adressen() Then + 'jetzt die Standartofferten einfügen + For Each p In eza_ADRESSEN + p.ezaAd_EZAId = eza_Id + If Not p.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + + + Public Function SAVE_Aufschub() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Aufschub() Then + 'jetzt die Standartofferten einfügen + For Each p In eza_AUFSCHUB + p.ezaAfb_EZAId = eza_Id + If Not p.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + + Public Function SAVE_BEAnteilZLAVUV() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_BEAnteilZLAVUV() Then + 'jetzt die Standartofferten einfügen + For Each p In eza_BEA_ZLAvuv + p.ezaBAZ_EZAId = eza_Id + If Not p.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + + Public Function SAVE_SumABeendigungsAnteil() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_SumABeendigungsAnteil() Then + 'jetzt die Standartofferten einfügen + For Each p In eza_SUMABA + p.ezaBa_EZAId = eza_Id + If Not p.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + + + + Function countSpedbuchEntrys(filiale, ncts) As Integer + If If(ncts, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrEZA='" & ncts & "'", "FMZOLL") + End Function + + + + Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer + If If(abfertigungsnummer, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL") + End Function + + + Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean + Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + Dim cZOLL_IMPORT As New cZOLL_IMPORT + If False Then 'If(Me.eza_firma, "") = "IMEX" Then + + 'If countSpedbuchEntrys(5501, Me.eza_ObjectName) = 0 Then + ' SPEDBUCH.FilialenNr = 5501 + ' SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) + ' SPEDBUCH.NewUNTER_NR() + + ' 'Ermittlung Abfertigungsart + ' Dim EZA As DAKOSY_Worker.cDakosyEZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(Me.eza_ObjectName, True) + ' If EZA IsNot Nothing Then + ' If EZA.eza_FiskalvertretungKz Then + ' SPEDBUCH.Abfertigungsart = 28 + ' Else + ' SPEDBUCH.Abfertigungsart = 1 + ' End If + ' End If + ' SPEDBUCH.Abfertigungsanzahl = 1 + ' SPEDBUCH.Fakturiert = 1 + + ' SPEDBUCH.Sachbearbeiter = "AUTO" + ' SPEDBUCH.AtlasBezNrEZA = Me.eza_ObjectName + ' SPEDBUCH.Zollsystem = "D" + + ' Dim notfound = False + ' Dim posAnzahl = 0 + ' ' DakosyEZADatenbereitstellung(SPEDBUCH, Me.eza_ObjectName, notfound, posAnzahl) + + ' If Not notfound Then + ' Return SPEDBUCH.SAVE + ' Else + ' Return False + ' End If + 'End If + Else + Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(If(Me.eza_firma, "") <> "", Me.eza_firma, "VERAG") + If DY.dy_SendungsId IsNot Nothing Then + 'Filiale erkennen: + Dim filialeBez = "" + Dim filiale = getFiliale(Me.eza_ObjectName, filialeBez) + Dim abfertigungsnummer = getAbfertigungsnummer(Me.eza_ObjectName) + + If filiale <> "" And abfertigungsnummer <> "" Then + If countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA ", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") + SPEDBUCH.FilialenNr = filiale + SPEDBUCH.AbfertigungsNr = abfertigungsnummer + SPEDBUCH.NewUNTER_NR() + + SPEDBUCH.Abfertigungsanzahl = 1 + SPEDBUCH.Fakturiert = 0 + SPEDBUCH.AtlasBezNrEZA = Me.eza_ObjectName + SPEDBUCH.Zollsystem = "D" + SPEDBUCH.Sachbearbeiter = "AUTO" + + SPEDBUCH.AvisoID = DY.dy_AvisoId + SPEDBUCH.SendungID = DY.dy_SendungsId + + Dim ZOLL_IMPORT As New cZOLL_IMPORT + Dim notfound = False + Dim posAnzahl = 0 + SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, DY.dy_AvisoId, DY.dy_SendungsId, "VERA", filialeBez, 2, Me.eza_ObjectName, "", notfound, True) + + If notfound Then Return False + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") + + ' MsgBox(SPEDBUCH.FilialenNr & " - " & SPEDBUCH.AbfertigungsNr) + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp + + If SPEDBUCH.SAVE Then + VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(DY.dy_SendungsId, True) + Return True + Else + Return False + End If + + + ' MsgBox(SQL.getValueTxtBySql("select count(*) FROM [VERAG].[dbo].[Speditionsbuch] where AbfertigungsNr = 18035380", "FMZOLL")) + + End If + End If + Else + Return False 'Ohne Sendungsverweis kein eintrag... + End If + End If + Return False + + End Function + + Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String + If If(bezugsNr, "").ToString.Length > 4 Then + Select Case bezugsNr.ToString.Substring(0, 4) + Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "4805" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 + 'filialeBez SUB, NKD, WAI,.-.. + End Select + End If + Return "" + End Function + + Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String + getAbfertigungsnummer = "" + If If(bezugsNr, "").ToString.Length > 5 Then + + Dim abf = "" + For Each s In bezugsNr.ToString.Substring(5) + If Not IsNumeric(s) Then Exit For + abf &= s + Next + If IsNumeric(abf) Then + If CLng(abf) < 99000000 Then + If CLng(abf) > 18000000 Then + Return abf + Else + Return Now.ToString("yy") & CInt(abf).ToString("000000") + End If + End If + End If + End If + Return "" + End Function + Public Shared Sub DakosyEZADatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, EZA_Nr As String, ByRef notFound As Boolean, ByRef PosAnzahl As Integer) + Dim DY As DAKOSY_Worker.cDakosyEZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(EZA_Nr, True) + If DY Is Nothing Then + notFound = True + Exit Sub + End If + DakosyEZADatenbereitstellung(SPEDITIONSBUCH, DY, notFound, PosAnzahl) + End Sub + + + + + + Public Shared Sub DakosyEZADatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyEZA, ByRef notFound As Boolean, ByRef PosAnzahl As Integer) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + notFound = False + + + Try + + If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now 'CDate(DY.eza_Trans_DatumZeit).ToShortDateString + + Try + + Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.eza_dyaAnmID) + SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId + SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId + + Catch ex As Exception + MsgBox("ERR: " & ex.Message & ex.StackTrace) + + End Try + + + SPEDITIONSBUCH.Versendungsland = DY.eza_VersendungsLandCode + SPEDITIONSBUCH.Bestimmungsland = DY.eza_Bestimmungsland + SPEDITIONSBUCH.LKW_Kennzeichen = DY.eza_KennzeichenNameBefoerderungsmittelAnkunft + SPEDITIONSBUCH.BelegNr = If(DY.eza_MRN, DY.eza_ANR) + If DY.eza_Rechnungswaehrung IsNot Nothing Then + SPEDITIONSBUCH.Währungsschlüssel = If(DY.eza_Rechnungswaehrung = "EUR", "900", getWaehr(DY.eza_Rechnungswaehrung, SQL)) + End If + + + For Each ADR In DY.eza_ADRESSEN + 'Verkäufer + If ADR.ezaAd_AdressTyp = "CZ" Then + Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL) + If AD IsNot Nothing Then + SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr + SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff + End If + If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then + SPEDITIONSBUCH.Absender = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim + SPEDITIONSBUCH.Absender &= ", " & If(ADR.ezaAd_LandCode, "") + SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_PLZ, "") + SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_Ort, "") + SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Trim + If SPEDITIONSBUCH.Absender.Length > 50 Then + SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Substring(0, 50) + End If + End If + If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_TeilnehmerEORI, "") + + End If + + + 'Empfänger + If ADR.ezaAd_AdressTyp = "CN" Then + Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL) + If AD IsNot Nothing Then + SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr + SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff + End If + If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then + SPEDITIONSBUCH.Empfänger = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim + SPEDITIONSBUCH.Empfänger &= ", " & If(ADR.ezaAd_LandCode, "") + SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_PLZ, "") + SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_Ort, "") + SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Trim + If SPEDITIONSBUCH.Empfänger.Length > 50 Then + SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50) + End If + End If + If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_TeilnehmerEORI, "") + + + End If + + Next + + + If If(SPEDITIONSBUCH.Abfertigungsart, 0) < 1 Then + If DY.eza_FiskalvertretungKz Then + SPEDITIONSBUCH.Abfertigungsart = 28 + Else + SPEDITIONSBUCH.Abfertigungsart = 1 + End If + End If + + + SPEDITIONSBUCH.Rechnungsbetrag = DY.eza_Rechnungspreis + ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung + SPEDITIONSBUCH.Rohmasse = DY.eza_GesamtRohmasse + + + 'Personal Abfertigung: + Try + If DY.eza_Bearbeiter IsNot Nothing Then + Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.eza_Bearbeiter & "'", "ADMIN") + SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) + End If + Catch ex As Exception + MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + End Try + + + Dim PackstAnz As Integer = 0 + Dim cnt = 0 + Dim rohmasseTmp As Double = 0 + Dim rechnungspreisTmp As Double = 0 + Dim packst As String = "" + For Each p In DY.eza_WARENPOS + If p.ezaWP_PackstueckAnzahl IsNot Nothing AndAlso IsNumeric(p.ezaWP_PackstueckAnzahl) Then + PackstAnz += p.ezaWP_PackstueckAnzahl + packst &= p.ezaWP_PackstueckAnzahl & " " + End If + If p.ezaWP_PackstueckArt IsNot Nothing Then + packst &= p.ezaWP_PackstueckArt & " " + End If + packst &= If(p.ezaWP_Warenbezeichnung, "") & vbNewLine + rohmasseTmp += If(p.ezaWP_Rohmasse, 0) + rechnungspreisTmp += If(p.ezaWP_Artikelpreis, 0) + If cnt = 0 Then + + End If + cnt += 1 + Next + packst = packst.Trim + PosAnzahl = DY.eza_WARENPOS.Count + SPEDITIONSBUCH.Packstücke = packst + + If If(SPEDITIONSBUCH.Rohmasse, 0) = 0 AndAlso rohmasseTmp > 0 Then SPEDITIONSBUCH.Rohmasse = CInt(rohmasseTmp) + If If(SPEDITIONSBUCH.Rechnungsbetrag, 0) = 0 AndAlso rechnungspreisTmp > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = (rechnungspreisTmp) + + + Catch ex As Exception + MsgBox("ERR: " & ex.Message & ex.StackTrace) + End Try + End Sub + + Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String + 'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL") + s = s.replace("TRY", "TRL") ' Türkische Lira + Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL") + + End Function + + Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) + If EORI Is Nothing Then Return Nothing + If If(EORI, "") <> "" Then + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI) + If IsNumeric(kdNrTmp) Then + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) + Return ADRESSE + End If + End If + Return Nothing + End Function + + + + + + + +End Class + + + + + + +Public Class cDakosy_EZA_Adressen + + + + Property ezaAd_Id As Integer ' INT IDENTITY (1, 1) NOT NULL, + Property ezaAd_EZAId As Integer ' INT NOT NULL, + Property ezaAd_AdressTyp As Object = Nothing ' VARCHAR (10) NULL, + Property ezaAd_AdressCode As Object = Nothing ' VARCHAR (10) NULL, + Property ezaAd_TeilnehmerEORI As Object = Nothing ' VARCHAR (17) NULL, + Property ezaAd_TeilnehmerNLNR As Object = Nothing ' DECIMAL (4) NULL, + Property ezaAd_NameFirma1 As Object = Nothing ' VARCHAR (120) NULL, + Property ezaAd_NameFirma2 As Object = Nothing ' VARCHAR (120) NULL, + Property ezaAd_NameFirma3 As Object = Nothing ' VARCHAR (120) NULL, + Property ezaAd_StrasseHausNr1 As Object = Nothing ' VARCHAR (35) NULL, + Property ezaAd_StrasseHausNr2 As Object = Nothing ' VARCHAR (35) NULL, + Property ezaAd_Ortsteil As Object = Nothing ' VARCHAR (35) NULL, + Property ezaAd_LandCode As Object = Nothing ' VARCHAR (3) NULL, + Property ezaAd_PLZ As Object = Nothing ' VARCHAR (9) NULL, + Property ezaAd_Ort As Object = Nothing ' VARCHAR (35) NULL, + Property ezaAd_UStIDAnmelder As Object = Nothing ' VARCHAR (14) NULL, + Property ezaAd_FinanzamtIDAnmelder As Object = Nothing ' VARCHAR (4) NULL, + Property ezaAd_Bewilligungsnummer As Object = Nothing ' VARCHAR (35) NULL, + Property ezaAd_BewilligungsFachVerfahren As Object = Nothing ' VARCHAR (35) NULL, + Property ezaAd_BewilligungsnummerEndverwender As Object = Nothing ' VARCHAR (35) NULL, + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_Id", ezaAd_Id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_EZAId", ezaAd_EZAId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_AdressTyp", ezaAd_AdressTyp)) ' VARCHAR (10) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_AdressCode", ezaAd_AdressCode)) ' VARCHAR (10) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_TeilnehmerEORI", ezaAd_TeilnehmerEORI)) ' VARCHAR (17) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_TeilnehmerNLNR", ezaAd_TeilnehmerNLNR)) ' DECIMAL (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_NameFirma1", ezaAd_NameFirma1)) ' VARCHAR (120) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_NameFirma2", ezaAd_NameFirma2)) ' VARCHAR (120) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_NameFirma3", ezaAd_NameFirma3)) ' VARCHAR (120) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_StrasseHausNr1", ezaAd_StrasseHausNr1)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_StrasseHausNr2", ezaAd_StrasseHausNr2)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_Ortsteil", ezaAd_Ortsteil)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_LandCode", ezaAd_LandCode)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_PLZ", ezaAd_PLZ)) ' VARCHAR (9) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_Ort", ezaAd_Ort)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_UStIDAnmelder", ezaAd_UStIDAnmelder)) ' VARCHAR (14) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_FinanzamtIDAnmelder", ezaAd_FinanzamtIDAnmelder)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_Bewilligungsnummer", ezaAd_Bewilligungsnummer)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_BewilligungsFachVerfahren", ezaAd_BewilligungsFachVerfahren)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_BewilligungsnummerEndverwender", ezaAd_BewilligungsnummerEndverwender)) ' VARCHAR (35) NULL, + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + ezaAd_Id = SQL.doSQLVarListID(ezaAd_Id, getInsertCmd, "FMZOLL", , list) + Return ezaAd_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA_Adressen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + + + +Public Class cDakosy_EZA_Aufschub + + Property ezaAfb_Id As Integer + Property ezaAfb_EZAId As Integer + Property ezaAfb_Aufschubart As Object = Nothing + Property ezaAfb_ArtAufschubantrag As Object = Nothing + Property ezaAfb_AufschubnehmerEORI As Object = Nothing + Property ezaAfb_KontoNr As Object = Nothing + Property ezaAfb_AufschuBIN As Object = Nothing + + 'Public selButton As Object = Nothing ' Für die GUI + 'Public SA_OBJECT As Object = Nothing ' Für die GUI + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + 'Sub New(ezaUl_Id) + ' Me.ezaUl_Id = ezaUl_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Id", ezaAfb_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_EZAId", ezaAfb_EZAId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Aufschubart", ezaAfb_Aufschubart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_ArtAufschubantrag", ezaAfb_ArtAufschubantrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_AufschubnehmerEORI", ezaAfb_AufschubnehmerEORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_KontoNr", ezaAfb_KontoNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_AufschuBIN", ezaAfb_AufschuBIN)) + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + ezaAfb_Id = SQL.doSQLVarListID(ezaAfb_Id, getInsertCmd, "FMZOLL", , list) + Return ezaAfb_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA_Aufschub (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + +Public Class cDakosy_EZA_Unterlagen + + Property ezaUl_Id As Integer + Property ezaUl_EZAId As Integer + Property ezaUl_Bereich As Object = Nothing + Property ezaUl_Art As Object = Nothing + Property ezaUl_Nummer As Object = Nothing + Property ezaUl_DatumAusstellung As Object = Nothing + + 'Public selButton As Object = Nothing ' Für die GUI + 'Public SA_OBJECT As Object = Nothing ' Für die GUI + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + 'Sub New(ezaUl_Id) + ' Me.ezaUl_Id = ezaUl_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaUl_Id", ezaUl_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaUl_EZAId", ezaUl_EZAId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaUl_Bereich", ezaUl_Bereich)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaUl_Art", ezaUl_Art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaUl_Nummer", ezaUl_Nummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaUl_DatumAusstellung", ezaUl_DatumAusstellung)) + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + ezaUl_Id = SQL.doSQLVarListID(ezaUl_Id, getInsertCmd, "FMZOLL", , list) + Return ezaUl_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA_Unterlagen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + + + + +Public Class cDakosy_EZA_BEAnteilZLAVUV + + Property ezaBAZ_Id As Integer + Property ezaBAZ_EZAId As Integer + Property ezaBAZ_RegistrierNummerZugang As Object = Nothing ' VARCHAR (35) NULL, + Property ezaBAZ_PositionZugang As Object = Nothing ' VARCHAR (5) NULL, + Property ezaBAZ_ArtikelCodeATZL As Object = Nothing ' VARCHAR (35) NULL, + Property ezaBAZ_EigentuemerATUL As Object = Nothing ' VARCHAR (20) NULL, + Property ezaBAZ_ChargennummerATZL As Object = Nothing ' VARCHAR (35) NULL, + Property ezaBAZ_UrsprungslandATZL As Object = Nothing ' VARCHAR (2) NULL, + Property ezaBAZ_AtlasKz As Object = Nothing ' VARCHAR (1) NULL, + Property ezaBAZ_Wartennummer As Object = Nothing ' DECIMAL (11) NULL, + Property ezaBAZ_UeblicheBehandlungKz As Object = Nothing ' VARCHAR (1) NULL, + Property ezaBAZ_Handelsmenge As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaBAZ_MasseinheitHandelsmenge As Object = Nothing ' VARCHAR (3) NULL, + Property ezaBAZ_QualifikatorHandelsmenge As Object = Nothing ' VARCHAR (1) NULL, + Property ezaBAZ_Abgangsmenge As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaBAZ_MasseinheitAbgangsmenge As Object = Nothing ' VARCHAR (3) NULL, + Property ezaBAZ_QualifikatorAbgangsmenge As Object = Nothing ' VARCHAR (1) NULL, + Property ezaBAZ_Positionszusatz As Object = Nothing ' VARCHAR (100) NULL, + Property ezaBAZ_WarenbezogeneAngaben As Object = Nothing ' VARCHAR (350) NULL, + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_Id", ezaBAZ_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_EZAId", ezaBAZ_EZAId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_RegistrierNummerZugang", ezaBAZ_RegistrierNummerZugang)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_PositionZugang", ezaBAZ_PositionZugang)) ' VARCHAR (5) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_ArtikelCodeATZL", ezaBAZ_ArtikelCodeATZL)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_EigentuemerATUL", ezaBAZ_EigentuemerATUL)) ' VARCHAR (20) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_ChargennummerATZL", ezaBAZ_ChargennummerATZL)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_UrsprungslandATZL", ezaBAZ_UrsprungslandATZL)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_AtlasKz", ezaBAZ_AtlasKz)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_Wartennummer", ezaBAZ_Wartennummer)) ' DECIMAL (11) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_UeblicheBehandlungKz", ezaBAZ_UeblicheBehandlungKz)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_Handelsmenge", ezaBAZ_Handelsmenge)) ' DECIMAL (15, 3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_MasseinheitHandelsmenge", ezaBAZ_MasseinheitHandelsmenge)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_QualifikatorHandelsmenge", ezaBAZ_QualifikatorHandelsmenge)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_Abgangsmenge", ezaBAZ_Abgangsmenge)) ' DECIMAL (15, 3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_MasseinheitAbgangsmenge", ezaBAZ_MasseinheitAbgangsmenge)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_QualifikatorAbgangsmenge", ezaBAZ_QualifikatorAbgangsmenge)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_Positionszusatz", ezaBAZ_Positionszusatz)) ' VARCHAR (100) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBAZ_WarenbezogeneAngaben", ezaBAZ_WarenbezogeneAngaben)) ' VARCHAR (350) NULL, + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + ezaBAZ_Id = SQL.doSQLVarListID(ezaBAZ_Id, getInsertCmd, "FMZOLL", , list) + Return ezaBAZ_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA_BEAnteilZLAVUV (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + + +Public Class cDakosy_EZA_SumABeendigungsAnteil + + Property ezaBa_Id As Integer + Property ezaBa_EZAId As Integer + Property ezaBa_SumARegistriernummer As Object = Nothing + Property ezaBa_SumAPosNr As Object = Nothing + Property ezaBa_BeendigungsPackstueckzahl As Object = Nothing + Property ezaBa_Artidentifikation As Object = Nothing + Property ezaBa_VerwahrerEORI As Object = Nothing + Property ezaBa_SpezifOrdnungsbegriffArt As Object = Nothing + Property ezaBa_SpezifOrdnungsbegriff As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_Id", ezaBa_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_EZAId", ezaBa_EZAId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_SumARegistriernummer", ezaBa_SumARegistriernummer)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_SumAPosNr", ezaBa_SumAPosNr)) ' VARCHAR (5) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_BeendigungsPackstueckzahl", ezaBa_BeendigungsPackstueckzahl)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_Artidentifikation", ezaBa_Artidentifikation)) ' VARCHAR (20) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_VerwahrerEORI", ezaBa_VerwahrerEORI)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_SpezifOrdnungsbegriffArt", ezaBa_SpezifOrdnungsbegriffArt)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaBa_SpezifOrdnungsbegriff", ezaBa_SpezifOrdnungsbegriff)) + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + ezaBa_Id = SQL.doSQLVarListID(ezaBa_Id, getInsertCmd, "FMZOLL", , list) + Return ezaBa_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA_SumABeendigungsAnteil (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + +Public Class cDakosy_EZA_Warenposition + 'Property ezaWP_Id As Integer + Property ezaWP_Id As Integer + Property ezaWP_EzaId As Integer + Property ezaWP_PositionsNummer As Object = Nothing ' DECIMAL (5) NULL, + Property ezaWP_Artikelnummer As Object = Nothing ' VARCHAR (35) NULL, + Property ezaWP_WarennummerEZT As Object = Nothing ' VARCHAR (11) NULL, + Property ezaWP_WarennummerZusatzCode1 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_WarennummerZusatzCode2 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_WarennummerZusatzCode3 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_WarennummerZusatzCode4 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_WarennummerZusatzCode5 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_WarennummerZusatzCode6 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_WarennummerZusatzCode7 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_WarennummerZusatzCode8 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_WarennummerZusatzCode9 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_WarennummerZusatzCode10 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_Warennummerzusatz1 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_Warennummerzusatz2 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_Warenbezeichnung As Object = Nothing ' VARCHAR (240) NULL, + Property ezaWP_VerfahrensCodeVorangegangenesVerfahren As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_AbgabensteuerungKz As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_EUCode As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_UrsprungslandCode As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Rohmasse As Object = Nothing ' DECIMAL (11, 1) NULL, + Property ezaWP_Eigenmasse As Object = Nothing ' DECIMAL (11, 1) NULL, + Property ezaWP_AHStatMenge As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaWP_AHStatMengeMasseinheit As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_AHStatMengeQualifier As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_KostenEUSt As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_AHStatWert As Object = Nothing ' DECIMAL (9) NULL, + Property ezaWP_PackstueckAnzahl As Object = Nothing ' DECIMAL (9) NULL, + Property ezaWP_PackstueckArt As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_PackstueckZeichen As Object = Nothing ' VARCHAR (70) NULL, + Property ezaWP_Warenmenge1 As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaWP_WarenMasseinheit1 As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_WarenQualifier1 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_Warenmenge2 As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaWP_WarenMasseinheit2 As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_WarenQualifier2 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_Warenmenge3 As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaWP_WarenMasseinheit3 As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_WarenQualifier3 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_Warenmenge4 As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaWP_WarenMasseinheit4 As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_WarenQualifier4 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_Warenmenge5 As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaWP_WarenMasseinheit5 As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_WarenQualifier5 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_BeguenstigungBenatragtCode As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_Kentigentnummer1 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_Kentigentnummer2 As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_PositionsZusatz As Object = Nothing ' VARCHAR (100) NULL, + Property ezaWP_AHStatWertManuellKZ As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_Artikelpreis As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_OrtVerbringens As Object = Nothing ' VARCHAR (35) NULL, + Property ezaWP_AbflughafenIATACode As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_WarenmengeAVUVZugang As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaWP_WarenmengeAVUVZugangMasseinheit As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_WarenmengeAVUVZugangMasseinheitQualifier As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_Sachbereich As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_BedingungCode As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_VeredelungWertsteigerung As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_TabakSteuerzeichenID As Object = Nothing ' VARCHAR (5) NULL, + Property ezaWP_GehaltsAngabenArtCode1 As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_GehaltsAngabenGradProzent1 As Object = Nothing ' DECIMAL (7, 2) NULL, + Property ezaWP_GehaltsAngabenArtCode2 As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_GehaltsAngabenGradProzent2 As Object = Nothing ' DECIMAL (7, 2) NULL, + Property ezaWP_GehaltsAngabenArtCode3 As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_GehaltsAngabenGradProzent3 As Object = Nothing ' DECIMAL (7, 2) NULL, + Property ezaWP_BeguenstigungsMengeMenge As Object = Nothing ' DECIMAL (9) NULL, + Property ezaWP_BeguenstigungsMengeMasseinheitCode As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_BeguenstigungsMengeQualifier As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_Abgabenminderung_AbgabengruppeCode1 As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Abgabenminderung_Minderungsbetrag1 As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_Abgabenminderung_AbgabengruppeCode2 As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Abgabenminderung_Minderungsbetrag2 As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_Abgabenminderung_AbgabengruppeCode3 As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Abgabenminderung_Minderungsbetrag3 As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_BesondereWertangabe_Wert1 As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_BesondereWertangabe_PreisartCode1 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_BesondereWertangabe_Wert2 As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_BesondereWertangabe_PreisartCode2 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_BesondereWertangabe_Wert3 As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_BesondereWertangabe_PreisartCode3 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_BesondereWertangabe_Wert4 As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_BesondereWertangabe_PreisartCode4 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_BesondereWertangabe_Wert5 As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_BesondereWertangabe_PreisartCode5 As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_VZAStatus As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_EGZStatus As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_DV1Status As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_AnmeldeArt As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_BefundDatum As Object = Nothing ' DATE NULL, + Property ezaWP_AnmelderAdressCodeEORI As Object = Nothing ' VARCHAR (17) NULL, + Property ezaWP_Zollverfahren As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_AbrechnungszollstelleCode As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWP_SachbereichCode As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_RegistriernummerZA As Object = Nothing ' VARCHAR (21) NULL, + Property ezaWP_AnmeldeVErfahren As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Bewilligungsnummer As Object = Nothing ' VARCHAR (35) NULL, + Property ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte As Object = Nothing ' VARCHAR (35) NULL, + Property ezaWP_Zollwert As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_LuftfrachtkostenGesamt As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_IATAKursKz As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_LuftfrachtkostenGesamtWaehrung As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWP_KursVereinbartKz As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_KursBetragVereinbart As Object = Nothing ' DECIMAL (27, 9) NULL, + Property ezaWP_KursDatum As Object = Nothing ' DATE NULL, + Property ezaWP_Aussenhandelsstatistik_VerkehrszweigInland As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWP_Aussenhandelsstatistik_Versendungsland As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Aussenhandelsstatistik_Bestimmungsland As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung As Object = Nothing ' VARCHAR (17) NULL, + Property ezaWP_Aussenhandelsstatistik_ArtGeschaeft As Object = Nothing ' VARCHAR (2) NULL, + Property ezaWP_Aussenhandelsstatistik_Statistikstatus As Object = Nothing ' VARCHAR (2) NULL, + + + + + Property ezaWP_SONDERFALLDATEN As New List(Of cDakosy_EZA_WarenpositionSonderfalldaten) + Property ezaWP_UNTERLAGEN As New List(Of cDakosy_EZA_WarenpositionVorgelegteUnterlagen) + Property ezaWP_VERBRAUCHSSTEUER As New List(Of cDakosy_EZA_WarenpositionVerbrauchssteuer) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.ezaWP_EzaId = ezaWP_EzaId + End Sub + + 'Sub New(ezaUl_Id) + ' Me.ezaUl_Id = ezaUl_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Id", ezaWP_Id, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_EzaId", ezaWP_EzaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_PositionsNummer", ezaWP_PositionsNummer)) ' DECIMAL (5) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Artikelnummer", ezaWP_Artikelnummer)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerEZT", ezaWP_WarennummerEZT)) ' VARCHAR (11) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode1", ezaWP_WarennummerZusatzCode1)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode2", ezaWP_WarennummerZusatzCode2)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode3", ezaWP_WarennummerZusatzCode3)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode4", ezaWP_WarennummerZusatzCode4)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode5", ezaWP_WarennummerZusatzCode5)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode6", ezaWP_WarennummerZusatzCode6)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode7", ezaWP_WarennummerZusatzCode7)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode8", ezaWP_WarennummerZusatzCode8)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode9", ezaWP_WarennummerZusatzCode9)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarennummerZusatzCode10", ezaWP_WarennummerZusatzCode10)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Warennummerzusatz1", ezaWP_Warennummerzusatz1)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Warennummerzusatz2", ezaWP_Warennummerzusatz2)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Warenbezeichnung", ezaWP_Warenbezeichnung)) ' VARCHAR (240) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_VerfahrensCodeVorangegangenesVerfahren", ezaWP_VerfahrensCodeVorangegangenesVerfahren)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AbgabensteuerungKz", ezaWP_AbgabensteuerungKz)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_EUCode", ezaWP_EUCode)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_UrsprungslandCode", ezaWP_UrsprungslandCode)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Rohmasse", ezaWP_Rohmasse)) ' DECIMAL (11, 1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Eigenmasse", ezaWP_Eigenmasse)) ' DECIMAL (11, 1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AHStatMenge", ezaWP_AHStatMenge)) ' DECIMAL (15, 3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AHStatMengeMasseinheit", ezaWP_AHStatMengeMasseinheit)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AHStatMengeQualifier", ezaWP_AHStatMengeQualifier)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_KostenEUSt", ezaWP_KostenEUSt)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AHStatWert", ezaWP_AHStatWert)) ' DECIMAL (9) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_PackstueckAnzahl", ezaWP_PackstueckAnzahl)) ' DECIMAL (9) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_PackstueckArt", ezaWP_PackstueckArt)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_PackstueckZeichen", ezaWP_PackstueckZeichen)) ' VARCHAR (70) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Warenmenge1", ezaWP_Warenmenge1)) ' DECIMAL (15, 3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenMasseinheit1", ezaWP_WarenMasseinheit1)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenQualifier1", ezaWP_WarenQualifier1)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Warenmenge2", ezaWP_Warenmenge2)) ' DECIMAL (15, 3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenMasseinheit2", ezaWP_WarenMasseinheit2)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenQualifier2", ezaWP_WarenQualifier2)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Warenmenge3", ezaWP_Warenmenge3)) ' DECIMAL (15, 3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenMasseinheit3", ezaWP_WarenMasseinheit3)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenQualifier3", ezaWP_WarenQualifier3)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Warenmenge4", ezaWP_Warenmenge4)) ' DECIMAL (15, 3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenMasseinheit4", ezaWP_WarenMasseinheit4)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenQualifier4", ezaWP_WarenQualifier4)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Warenmenge5", ezaWP_Warenmenge5)) ' DECIMAL (15, 3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenMasseinheit5", ezaWP_WarenMasseinheit5)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenQualifier5", ezaWP_WarenQualifier5)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BeguenstigungBenatragtCode", ezaWP_BeguenstigungBenatragtCode)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Kentigentnummer1", ezaWP_Kentigentnummer1)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Kentigentnummer2", ezaWP_Kentigentnummer2)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_PositionsZusatz", ezaWP_PositionsZusatz)) ' VARCHAR (100) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AHStatWertManuellKZ", ezaWP_AHStatWertManuellKZ)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Artikelpreis", ezaWP_Artikelpreis)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_OrtVerbringens", ezaWP_OrtVerbringens)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AbflughafenIATACode", ezaWP_AbflughafenIATACode)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenmengeAVUVZugang", ezaWP_WarenmengeAVUVZugang)) ' DECIMAL (15, 3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenmengeAVUVZugangMasseinheit", ezaWP_WarenmengeAVUVZugangMasseinheit)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenmengeAVUVZugangMasseinheitQualifier", ezaWP_WarenmengeAVUVZugangMasseinheitQualifier)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Sachbereich", ezaWP_Sachbereich)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BedingungCode", ezaWP_BedingungCode)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_VeredelungWertsteigerung", ezaWP_VeredelungWertsteigerung)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_TabakSteuerzeichenID", ezaWP_TabakSteuerzeichenID)) ' VARCHAR (5) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_GehaltsAngabenArtCode1", ezaWP_GehaltsAngabenArtCode1)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_GehaltsAngabenGradProzent1", ezaWP_GehaltsAngabenGradProzent1)) ' DECIMAL (7, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_GehaltsAngabenArtCode2", ezaWP_GehaltsAngabenArtCode2)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_GehaltsAngabenGradProzent2", ezaWP_GehaltsAngabenGradProzent2)) ' DECIMAL (7, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_GehaltsAngabenArtCode3", ezaWP_GehaltsAngabenArtCode3)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_GehaltsAngabenGradProzent3", ezaWP_GehaltsAngabenGradProzent3)) ' DECIMAL (7, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BeguenstigungsMengeMenge", ezaWP_BeguenstigungsMengeMenge)) ' DECIMAL (9) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BeguenstigungsMengeMasseinheitCode", ezaWP_BeguenstigungsMengeMasseinheitCode)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BeguenstigungsMengeQualifier", ezaWP_BeguenstigungsMengeQualifier)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Abgabenminderung_AbgabengruppeCode1", ezaWP_Abgabenminderung_AbgabengruppeCode1)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Abgabenminderung_Minderungsbetrag1", ezaWP_Abgabenminderung_Minderungsbetrag1)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Abgabenminderung_AbgabengruppeCode2", ezaWP_Abgabenminderung_AbgabengruppeCode2)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Abgabenminderung_Minderungsbetrag2", ezaWP_Abgabenminderung_Minderungsbetrag2)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Abgabenminderung_AbgabengruppeCode3", ezaWP_Abgabenminderung_AbgabengruppeCode3)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Abgabenminderung_Minderungsbetrag3", ezaWP_Abgabenminderung_Minderungsbetrag3)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_Wert1", ezaWP_BesondereWertangabe_Wert1)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_PreisartCode1", ezaWP_BesondereWertangabe_PreisartCode1)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_Wert2", ezaWP_BesondereWertangabe_Wert2)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_PreisartCode2", ezaWP_BesondereWertangabe_PreisartCode2)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_Wert3", ezaWP_BesondereWertangabe_Wert3)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_PreisartCode3", ezaWP_BesondereWertangabe_PreisartCode3)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_Wert4", ezaWP_BesondereWertangabe_Wert4)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_PreisartCode4", ezaWP_BesondereWertangabe_PreisartCode4)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_Wert5", ezaWP_BesondereWertangabe_Wert5)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BesondereWertangabe_PreisartCode5", ezaWP_BesondereWertangabe_PreisartCode5)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_VZAStatus", ezaWP_VZAStatus)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_EGZStatus", ezaWP_EGZStatus)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_DV1Status", ezaWP_DV1Status)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AnmeldeArt", ezaWP_AnmeldeArt)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BefundDatum", ezaWP_BefundDatum)) ' DATE NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AnmelderAdressCodeEORI", ezaWP_AnmelderAdressCodeEORI)) ' VARCHAR (17) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Zollverfahren", ezaWP_Zollverfahren)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AbrechnungszollstelleCode", ezaWP_AbrechnungszollstelleCode)) ' VARCHAR (4) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_SachbereichCode", ezaWP_SachbereichCode)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_RegistriernummerZA", ezaWP_RegistriernummerZA)) ' VARCHAR (21) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AnmeldeVErfahren", ezaWP_AnmeldeVErfahren)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Bewilligungsnummer", ezaWP_Bewilligungsnummer)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte", ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte)) ' VARCHAR (35) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Zollwert", ezaWP_Zollwert)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_LuftfrachtkostenGesamt", ezaWP_LuftfrachtkostenGesamt)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_IATAKursKz", ezaWP_IATAKursKz)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_LuftfrachtkostenGesamtWaehrung", ezaWP_LuftfrachtkostenGesamtWaehrung)) ' VARCHAR (3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_KursVereinbartKz", ezaWP_KursVereinbartKz)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_KursBetragVereinbart", ezaWP_KursBetragVereinbart)) ' DECIMAL (27, 9) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_KursDatum", ezaWP_KursDatum)) ' DATE NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_VerkehrszweigInland", ezaWP_Aussenhandelsstatistik_VerkehrszweigInland)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze", ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze)) ' VARCHAR (1) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_Versendungsland", ezaWP_Aussenhandelsstatistik_Versendungsland)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland", ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_Bestimmungsland", ezaWP_Aussenhandelsstatistik_Bestimmungsland)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode", ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt", ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung", ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung)) ' VARCHAR (17) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_ArtGeschaeft", ezaWP_Aussenhandelsstatistik_ArtGeschaeft)) ' VARCHAR (2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Aussenhandelsstatistik_Statistikstatus", ezaWP_Aussenhandelsstatistik_Statistikstatus)) ' VARCHAR (2) NULL, + + + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + ezaWP_Id = SQL.doSQLVarListID(ezaWP_Id, getInsertCmd, "FMZOLL", , list) + Return ezaWP_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA_Warenposition (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function INSERT_WarenpositionSonderfalldaten(wp_id, eza_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In ezaWP_SONDERFALLDATEN + p.ezaWpSfd_EzaWpId = wp_id + p.ezaWpSfd_EzaId = eza_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + Public Function INSERT_WarenpositionVerbrauchssteuer(wp_id, eza_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In ezaWP_VERBRAUCHSSTEUER + p.ezaWpVs_EzaWpId = wp_id + p.ezaWpVs_EzaId = eza_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + Public Function INSERT_WarenpositionUnterlagen(wp_id, eza_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In ezaWP_UNTERLAGEN + p.ezaWpUl_EzaWpId = wp_id + p.ezaWpUl_EzaId = eza_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + + Public Sub LOAD_WarenpositionPackstuecke() + Try + ezaWP_SONDERFALLDATEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_WarenpositionSonderfalldaten WHERE ezaWpSfd_ezaWPId=@ezaWP_Id ", conn) + cmd.Parameters.AddWithValue("@ezaWP_Id", Me.ezaWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EZA_WarenpositionSonderfalldaten() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + ezaWP_SONDERFALLDATEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD_WarenpositionUnterlagen() + Try + ezaWP_UNTERLAGEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_WarenpositionUnterlagen WHERE ezaWpUl_ezaWPId=@ezaWP_Id ", conn) + cmd.Parameters.AddWithValue("@ezaWP_Id", Me.ezaWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EZA_WarenpositionVorgelegteUnterlagen + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + ezaWP_UNTERLAGEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD_WarenpositionVerbrauchssteuer() + Try + ezaWP_VERBRAUCHSSTEUER.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EZA_WarenpositionVerbrauchssteuer WHERE ezaWpVs_ezaWPId=@ezaWP_Id ", conn) + cmd.Parameters.AddWithValue("@ezaWP_Id", Me.ezaWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EZA_WarenpositionVerbrauchssteuer + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + ezaWP_VERBRAUCHSSTEUER.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_WarenpositionUnterlagen] WHERE ezaWpUl_ezaWPId=" & Me.ezaWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + + + Public Function DELETE_WarenpositionSonderfalldaten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_WarenpositionSonderfalldaten] WHERE ezaWpSfd_ezaWPId=" & Me.ezaWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + + Public Function DELETE_WarenpositionVerbrauchssteuer() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EZA_WarenpositionVerbrauchssteuer] WHERE ezaWpVs_ezaWPId=" & Me.ezaWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + +End Class + + + +Public Class cDakosy_EZA_WarenpositionSonderfalldaten + + + Property ezaWpSfd_Id As Integer + Property ezaWpSfd_EzaWpId As Integer + Property ezaWpSfd_EzaId As Integer + Property ezaWpSfd_SonderabgabenGruppeCode As Object = Nothing + Property ezaWpSfd_AnwendungArt As Object = Nothing + Property ezaWpSfd_SatzBetragFaktor As Object = Nothing + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.ezaWpPk_ezaWPId = ezaWpPk_ezaWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpSfd_Id", ezaWpSfd_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpSfd_EzaWpId", ezaWpSfd_EzaWpId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpSfd_EzaId", ezaWpSfd_EzaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpSfd_SonderabgabenGruppeCode", ezaWpSfd_SonderabgabenGruppeCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpSfd_AnwendungArt", ezaWpSfd_AnwendungArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpSfd_SatzBetragFaktor", ezaWpSfd_SatzBetragFaktor)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + ezaWpSfd_Id = SQL.doSQLVarListID(ezaWpSfd_Id, getInsertCmd(), "FMZOLL", , list) + Return ezaWpSfd_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA_WarenpositionSonderfalldaten (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + +Public Class cDakosy_EZA_WarenpositionVorgelegteUnterlagen + + + Property ezaWpUl_Id As Integer + Property ezaWpUl_EzaWpId As Integer + Property ezaWpUl_EzaId As Integer + Property ezaWpUl_Bereich As Object = Nothing + Property ezaWpUl_Art As Object = Nothing + Property ezaWpUl_Nummer As Object = Nothing + Property ezaWpUl_DatumAusstellung As Object = Nothing + Property ezaWpUl_VorlageKz As Object = Nothing + Property ezaWpUl_AbschreibungsMenge As Object = Nothing + Property ezaWpUl_AbschreibungsMengeMasseinheit As Object = Nothing + Property ezaWpUl_AbschreibungsMengeMasseinheitQualifier As Object = Nothing + + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.ezaWpUl_ezaWPId = ezaWpUl_ezaWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_Id", ezaWpUl_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_EzaWpId", ezaWpUl_EzaWpId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_EzaId", ezaWpUl_EzaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_Bereich", ezaWpUl_Bereich)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_Art", ezaWpUl_Art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_Nummer", ezaWpUl_Nummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_DatumAusstellung", ezaWpUl_DatumAusstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_VorlageKz", ezaWpUl_VorlageKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_AbschreibungsMenge", ezaWpUl_AbschreibungsMenge)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_AbschreibungsMengeMasseinheit", ezaWpUl_AbschreibungsMengeMasseinheit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpUl_AbschreibungsMengeMasseinheitQualifier", ezaWpUl_AbschreibungsMengeMasseinheitQualifier)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + ezaWpUl_Id = SQL.doSQLVarListID(ezaWpUl_Id, getInsertCmd(), "FMZOLL", , list) + Return ezaWpUl_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA_WarenpositionUnterlagen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + +Public Class cDakosy_EZA_WarenpositionVerbrauchssteuer + + Property ezaWpVs_Id As Integer + Property ezaWpVs_EzaWpId As Integer + Property ezaWpVs_EzaId As Integer + Property ezaWpVs_VerbrauchsteuerCode As Object = Nothing ' VARCHAR (4) NULL, + Property ezaWpVs_VerbrauchssteuerMenge As Object = Nothing ' DECIMAL (15, 3) NULL, + Property ezaWpVs_VerbrauchssteuerMasseinheitCode As Object = Nothing ' VARCHAR (3) NULL, + Property ezaWpVs_VerbrauchssteuerMasseinheitQualifier As Object = Nothing ' VARCHAR (1) NULL, + Property ezaWpVs_GradProzent As Object = Nothing ' DECIMAL (7, 2) NULL, + Property ezaWpVs_VerbrauchssteuerWertbasis As Object = Nothing ' DECIMAL (13, 2) NULL, + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.ezaWpPk_ezaWPId = ezaWpPk_ezaWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpVs_Id", ezaWpVs_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpVs_EzaWpId", ezaWpVs_EzaWpId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpVs_EzaId", ezaWpVs_EzaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpVs_VerbrauchsteuerCode", ezaWpVs_VerbrauchsteuerCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpVs_VerbrauchssteuerMenge", ezaWpVs_VerbrauchssteuerMenge)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpVs_VerbrauchssteuerMasseinheitCode", ezaWpVs_VerbrauchssteuerMasseinheitCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpVs_VerbrauchssteuerMasseinheitQualifier", ezaWpVs_VerbrauchssteuerMasseinheitQualifier)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpVs_GradProzent", ezaWpVs_GradProzent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWpVs_VerbrauchssteuerWertbasis", ezaWpVs_VerbrauchssteuerWertbasis)) + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + ezaWpVs_Id = SQL.doSQLVarListID(ezaWpVs_Id, getInsertCmd(), "FMZOLL", , list) + Return ezaWpVs_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EZA_WarenpositionVerbrauchssteuer (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class \ No newline at end of file diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ankunftsmeldung/e_an.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ankunftsmeldung/e_an.Designer.vb new file mode 100644 index 0000000..ca7da34 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ankunftsmeldung/e_an.Designer.vb @@ -0,0 +1,3099 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' DETBAEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace DETBAE + + + Partial Public Class DETBAE + +#Region "Private fields" + Private _metaData As DETBAEMetaData + + Private _header As DETBAEHeader + + Private _authorisedConsignee As DETBAEAuthorisedConsignee + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._authorisedConsignee = New DETBAEAuthorisedConsignee() + Me._header = New DETBAEHeader() + Me._metaData = New DETBAEMetaData() + End Sub + + Public Property MetaData() As DETBAEMetaData + Get + Return Me._metaData + End Get + Set + Me._metaData = Value + End Set + End Property + + Public Property Header() As DETBAEHeader + Get + Return Me._header + End Get + Set + Me._header = Value + End Set + End Property + + Public Property AuthorisedConsignee() As DETBAEAuthorisedConsignee + Get + Return Me._authorisedConsignee + End Get + Set + Me._authorisedConsignee = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAE)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAE object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAE object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAE) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAE) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAE + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAE) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAE + Return CType(Serializer.Deserialize(s), DETBAE) + End Function +#End Region + + ''' + ''' Serializes current DETBAE object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAE object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAE) + 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 DETBAE) 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 DETBAE + 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 Class + + + Partial Public Class DETBAEMetaData + +#Region "Private fields" + Private _preparation As DETBAEMetaDataPreparation + + Private _interchangeControlReference As String + + Private _messageReferenceNumber As String + + Private _messageIdentifier As String + + Private _messageGroup As DETBAEMetaDataMessageGroup + + Private _testIndicator As DETBAEMetaDataTestIndicator + + Private _messageType As DETBAEMetaDataMessageType + + Private _interchangeSender As DETBAEMetaDataInterchangeSender + + Private _interchangeRecipient As DETBAEMetaDataInterchangeRecipient + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._interchangeRecipient = New DETBAEMetaDataInterchangeRecipient() + Me._interchangeSender = New DETBAEMetaDataInterchangeSender() + Me._preparation = New DETBAEMetaDataPreparation() + End Sub + + Public Property Preparation() As DETBAEMetaDataPreparation + Get + Return Me._preparation + End Get + Set + Me._preparation = Value + End Set + End Property + + + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set + Me._interchangeControlReference = Value + End Set + End Property + + + Public Property MessageReferenceNumber() As String + Get + Return Me._messageReferenceNumber + End Get + Set + Me._messageReferenceNumber = Value + End Set + End Property + + + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set + Me._messageIdentifier = Value + End Set + End Property + + Public Property MessageGroup() As DETBAEMetaDataMessageGroup + Get + Return Me._messageGroup + End Get + Set + Me._messageGroup = Value + End Set + End Property + + Public Property TestIndicator() As DETBAEMetaDataTestIndicator + Get + Return Me._testIndicator + End Get + Set + Me._testIndicator = Value + End Set + End Property + + Public Property MessageType() As DETBAEMetaDataMessageType + Get + Return Me._messageType + End Get + Set + Me._messageType = Value + End Set + End Property + + Public Property InterchangeSender() As DETBAEMetaDataInterchangeSender + Get + Return Me._interchangeSender + End Get + Set + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As DETBAEMetaDataInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set + Me._interchangeRecipient = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEMetaData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEMetaData object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEMetaData object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaData) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaData) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEMetaData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEMetaData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEMetaData + Return CType(Serializer.Deserialize(s), DETBAEMetaData) + End Function +#End Region + + ''' + ''' Serializes current DETBAEMetaData object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEMetaData object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaData) + 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 DETBAEMetaData) 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 DETBAEMetaData + 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 Class + + + Partial Public Class DETBAEMetaDataPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set + Me._date = Value + End Set + End Property + + + Public Property Time() As Date + Get + Return Me._time + End Get + Set + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEMetaDataPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEMetaDataPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEMetaDataPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEMetaDataPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEMetaDataPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEMetaDataPreparation + Return CType(Serializer.Deserialize(s), DETBAEMetaDataPreparation) + End Function +#End Region + + ''' + ''' Serializes current DETBAEMetaDataPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEMetaDataPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataPreparation) + 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 DETBAEMetaDataPreparation) 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 DETBAEMetaDataPreparation + 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 Class + + + Public Enum DETBAEMetaDataMessageGroup + + ''' + TBE + End Enum + + + Public Enum DETBAEMetaDataTestIndicator + + ''' + + Item1 + End Enum + + + Public Enum DETBAEMetaDataMessageType + + ''' + DETBAE + End Enum + + + Partial Public Class DETBAEMetaDataInterchangeSender + +#Region "Private fields" + Private _identification As DETBAEMetaDataInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New DETBAEMetaDataInterchangeSenderIdentification() + End Sub + + Public Property Identification() As DETBAEMetaDataInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEMetaDataInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEMetaDataInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEMetaDataInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEMetaDataInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEMetaDataInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEMetaDataInterchangeSender + Return CType(Serializer.Deserialize(s), DETBAEMetaDataInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current DETBAEMetaDataInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEMetaDataInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataInterchangeSender) + 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 DETBAEMetaDataInterchangeSender) 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 DETBAEMetaDataInterchangeSender + 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 Class + + + Partial Public Class DETBAEMetaDataInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEMetaDataInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEMetaDataInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEMetaDataInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEMetaDataInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEMetaDataInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEMetaDataInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), DETBAEMetaDataInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETBAEMetaDataInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEMetaDataInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataInterchangeSenderIdentification) + 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 DETBAEMetaDataInterchangeSenderIdentification) 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 DETBAEMetaDataInterchangeSenderIdentification + 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 Class + + + Partial Public Class DETBAEMetaDataInterchangeRecipient + +#Region "Private fields" + Private _identification As DETBAEMetaDataInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New DETBAEMetaDataInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As DETBAEMetaDataInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEMetaDataInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEMetaDataInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEMetaDataInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEMetaDataInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEMetaDataInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEMetaDataInterchangeRecipient + Return CType(Serializer.Deserialize(s), DETBAEMetaDataInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current DETBAEMetaDataInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEMetaDataInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataInterchangeRecipient) + 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 DETBAEMetaDataInterchangeRecipient) 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 DETBAEMetaDataInterchangeRecipient + 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 Class + + + Partial Public Class DETBAEMetaDataInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEMetaDataInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEMetaDataInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEMetaDataInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEMetaDataInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEMetaDataInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEMetaDataInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEMetaDataInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), DETBAEMetaDataInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETBAEMetaDataInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEMetaDataInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEMetaDataInterchangeRecipientIdentification) + 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 DETBAEMetaDataInterchangeRecipientIdentification) 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 DETBAEMetaDataInterchangeRecipientIdentification + 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 Class + + + Partial Public Class DETBAEHeader + +#Region "Private fields" + Private _messageVersion As String + + Private _referenceNumber As String + + Private _presentationDate As Date + + Private _eventFlag As String + + Private _deliveryPlace As String + + Private _customsAuthorisation As DETBAEHeaderCustomsAuthorisation + + Private _authorisationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._customsAuthorisation = New DETBAEHeaderCustomsAuthorisation() + End Sub + + + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set + Me._messageVersion = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property PresentationDate() As Date + Get + Return Me._presentationDate + End Get + Set + Me._presentationDate = Value + End Set + End Property + + + Public Property EventFlag() As String + Get + Return Me._eventFlag + End Get + Set + Me._eventFlag = Value + End Set + End Property + + + Public Property DeliveryPlace() As String + Get + Return Me._deliveryPlace + End Get + Set + Me._deliveryPlace = Value + End Set + End Property + + Public Property CustomsAuthorisation() As DETBAEHeaderCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property AuthorisationNumber() As String + Get + Return Me._authorisationNumber + End Get + Set + Me._authorisationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEHeader object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEHeader + Return CType(Serializer.Deserialize(s), DETBAEHeader) + End Function +#End Region + + ''' + ''' Serializes current DETBAEHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEHeader object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEHeader) + 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 DETBAEHeader) 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 DETBAEHeader + 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 Class + + + Partial Public Class DETBAEHeaderCustomsAuthorisation + +#Region "Private fields" + Private _currentProcedure As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property CurrentProcedure() As String + Get + Return Me._currentProcedure + End Get + Set + Me._currentProcedure = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEHeaderCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEHeaderCustomsAuthorisation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEHeaderCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEHeaderCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEHeaderCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEHeaderCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEHeaderCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEHeaderCustomsAuthorisation + Return CType(Serializer.Deserialize(s), DETBAEHeaderCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current DETBAEHeaderCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEHeaderCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEHeaderCustomsAuthorisation) + 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 DETBAEHeaderCustomsAuthorisation) 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 DETBAEHeaderCustomsAuthorisation + 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 Class + + + Partial Public Class DETBAEAuthorisedConsignee + +#Region "Private fields" + Private _class As DETBAEAuthorisedConsigneeClass + + Private _identification As DETBAEAuthorisedConsigneeIdentification + + Private _contactPerson As DETBAEAuthorisedConsigneeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETBAEAuthorisedConsigneeContactPerson() + Me._identification = New DETBAEAuthorisedConsigneeIdentification() + End Sub + + Public Property [Class]() As DETBAEAuthorisedConsigneeClass + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETBAEAuthorisedConsigneeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Public Property ContactPerson() As DETBAEAuthorisedConsigneeContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEAuthorisedConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEAuthorisedConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEAuthorisedConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEAuthorisedConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEAuthorisedConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEAuthorisedConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEAuthorisedConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEAuthorisedConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEAuthorisedConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEAuthorisedConsignee + Return CType(Serializer.Deserialize(s), DETBAEAuthorisedConsignee) + End Function +#End Region + + ''' + ''' Serializes current DETBAEAuthorisedConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEAuthorisedConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEAuthorisedConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEAuthorisedConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEAuthorisedConsignee) + 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 DETBAEAuthorisedConsignee) 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 DETBAEAuthorisedConsignee + 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 Class + + + Public Enum DETBAEAuthorisedConsigneeClass + + ''' + + Item2 + End Enum + + + Partial Public Class DETBAEAuthorisedConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEAuthorisedConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEAuthorisedConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEAuthorisedConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEAuthorisedConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEAuthorisedConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEAuthorisedConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEAuthorisedConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEAuthorisedConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEAuthorisedConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEAuthorisedConsigneeIdentification + Return CType(Serializer.Deserialize(s), DETBAEAuthorisedConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETBAEAuthorisedConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEAuthorisedConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEAuthorisedConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEAuthorisedConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEAuthorisedConsigneeIdentification) + 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 DETBAEAuthorisedConsigneeIdentification) 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 DETBAEAuthorisedConsigneeIdentification + 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 Class + + + Partial Public Class DETBAEAuthorisedConsigneeContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETBAEAuthorisedConsigneeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETBAEAuthorisedConsigneeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETBAEAuthorisedConsigneeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETBAEAuthorisedConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEAuthorisedConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEAuthorisedConsigneeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETBAEAuthorisedConsigneeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETBAEAuthorisedConsigneeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETBAEAuthorisedConsigneeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETBAEAuthorisedConsigneeContactPerson + Return CType(Serializer.Deserialize(s), DETBAEAuthorisedConsigneeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETBAEAuthorisedConsigneeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETBAEAuthorisedConsigneeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETBAEAuthorisedConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETBAEAuthorisedConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETBAEAuthorisedConsigneeContactPerson) + 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 DETBAEAuthorisedConsigneeContactPerson) 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 DETBAEAuthorisedConsigneeContactPerson + 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 Class + + + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ankunftsmeldung/e_an.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ankunftsmeldung/e_an.xsd new file mode 100644 index 0000000..94f59d0 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ankunftsmeldung/e_an.xsd @@ -0,0 +1,626 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/AnrechnungReferenzbetraege/AnrechnungReferenzbetraegeNCTSDE_001.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/AnrechnungReferenzbetraege/AnrechnungReferenzbetraegeNCTSDE_001.Designer.vb new file mode 100644 index 0000000..68c62b4 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/AnrechnungReferenzbetraege/AnrechnungReferenzbetraegeNCTSDE_001.Designer.vb @@ -0,0 +1,1232 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' AnrechnungReferenzbetraegeNCTSDEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace AnrechnungReferenzbetraegeNCTSDE + + _ + Partial Public Class AnrechnungReferenzbetraegeMATyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelAnrechnungReferenzbetraege As EinzelAnrechnungReferenzbetraegeTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelAnrechnungReferenzbetraege = New EinzelAnrechnungReferenzbetraegeTyp() + End Sub + + _ + Public Property EinzelAnrechnungReferenzbetraege() As EinzelAnrechnungReferenzbetraegeTyp + Get + Return Me._einzelAnrechnungReferenzbetraege + End Get + Set(value As EinzelAnrechnungReferenzbetraegeTyp) + Me._einzelAnrechnungReferenzbetraege = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnrechnungReferenzbetraegeMATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnrechnungReferenzbetraegeMATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AnrechnungReferenzbetraegeMATyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnrechnungReferenzbetraegeMATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnrechnungReferenzbetraegeMATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnrechnungReferenzbetraegeMATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnrechnungReferenzbetraegeMATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnrechnungReferenzbetraegeMATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnrechnungReferenzbetraegeMATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnrechnungReferenzbetraegeMATyp + Return CType(Serializer.Deserialize(s), AnrechnungReferenzbetraegeMATyp) + End Function +#End Region + + ''' + ''' Serializes current AnrechnungReferenzbetraegeMATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AnrechnungReferenzbetraegeMATyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnrechnungReferenzbetraegeMATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnrechnungReferenzbetraegeMATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnrechnungReferenzbetraegeMATyp) + 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 AnrechnungReferenzbetraegeMATyp) 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 AnrechnungReferenzbetraegeMATyp + 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 Class + + _ + Partial Public Class EinzelAnrechnungReferenzbetraegeTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMATyp + + Private _kopfDaten As KopfDatenAnrechnungReferenzbetraegeTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kopfDaten = New KopfDatenAnrechnungReferenzbetraegeTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMATyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMATyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungMATyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenAnrechnungReferenzbetraegeTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenAnrechnungReferenzbetraegeTyp) + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelAnrechnungReferenzbetraegeTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelAnrechnungReferenzbetraegeTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelAnrechnungReferenzbetraegeTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelAnrechnungReferenzbetraegeTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAnrechnungReferenzbetraegeTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAnrechnungReferenzbetraegeTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelAnrechnungReferenzbetraegeTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelAnrechnungReferenzbetraegeTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelAnrechnungReferenzbetraegeTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelAnrechnungReferenzbetraegeTyp + Return CType(Serializer.Deserialize(s), EinzelAnrechnungReferenzbetraegeTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelAnrechnungReferenzbetraegeTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelAnrechnungReferenzbetraegeTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelAnrechnungReferenzbetraegeTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelAnrechnungReferenzbetraegeTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelAnrechnungReferenzbetraegeTyp) + 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 EinzelAnrechnungReferenzbetraegeTyp) 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 EinzelAnrechnungReferenzbetraegeTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungMATyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungMATyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMATyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMATyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMATyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMATyp) + 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 ObjektIdentifizierungMATyp) 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 ObjektIdentifizierungMATyp + 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 Class + + _ + Partial Public Class KopfDatenAnrechnungReferenzbetraegeTyp + +#Region "Private fields" + Private _mRN As String + + Private _zeitpunktAnrechnungReferenzbetraege As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property MRN() As String + Get + Return Me._mRN + End Get + Set(value As String) + Me._mRN = Value + End Set + End Property + + _ + Public Property ZeitpunktAnrechnungReferenzbetraege() As Date + Get + Return Me._zeitpunktAnrechnungReferenzbetraege + End Get + Set(value As Date) + Me._zeitpunktAnrechnungReferenzbetraege = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenAnrechnungReferenzbetraegeTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenAnrechnungReferenzbetraegeTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenAnrechnungReferenzbetraegeTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenAnrechnungReferenzbetraegeTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAnrechnungReferenzbetraegeTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAnrechnungReferenzbetraegeTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenAnrechnungReferenzbetraegeTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenAnrechnungReferenzbetraegeTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenAnrechnungReferenzbetraegeTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenAnrechnungReferenzbetraegeTyp + Return CType(Serializer.Deserialize(s), KopfDatenAnrechnungReferenzbetraegeTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenAnrechnungReferenzbetraegeTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenAnrechnungReferenzbetraegeTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenAnrechnungReferenzbetraegeTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenAnrechnungReferenzbetraegeTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenAnrechnungReferenzbetraegeTyp) + 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 KopfDatenAnrechnungReferenzbetraegeTyp) 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 KopfDatenAnrechnungReferenzbetraegeTyp + 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 Class + + _ + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + _ + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionNCTSTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/AnrechnungReferenzbetraege/AnrechnungReferenzbetraegeNCTSDE_001.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/AnrechnungReferenzbetraege/AnrechnungReferenzbetraegeNCTSDE_001.xsd new file mode 100644 index 0000000..f5a5952 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/AnrechnungReferenzbetraege/AnrechnungReferenzbetraegeNCTSDE_001.xsd @@ -0,0 +1,70 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_002.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_002.Designer.vb new file mode 100644 index 0000000..6bc219b --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_002.Designer.vb @@ -0,0 +1,1232 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' ErledigungsmeldungNCTSDEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace ErledigungsmeldungNCTSDE + + _ + Partial Public Class ErledigungsmeldungMOTyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelErledigungsmeldung As EinzelErledigungsmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelErledigungsmeldung = New EinzelErledigungsmeldungTyp() + End Sub + + _ + Public Property EinzelErledigungsmeldung() As EinzelErledigungsmeldungTyp + Get + Return Me._einzelErledigungsmeldung + End Get + Set(value As EinzelErledigungsmeldungTyp) + Me._einzelErledigungsmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ErledigungsmeldungMOTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ErledigungsmeldungMOTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ErledigungsmeldungMOTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ErledigungsmeldungMOTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErledigungsmeldungMOTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ErledigungsmeldungMOTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErledigungsmeldungMOTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ErledigungsmeldungMOTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ErledigungsmeldungMOTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ErledigungsmeldungMOTyp + Return CType(Serializer.Deserialize(s), ErledigungsmeldungMOTyp) + End Function +#End Region + + ''' + ''' Serializes current ErledigungsmeldungMOTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ErledigungsmeldungMOTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ErledigungsmeldungMOTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErledigungsmeldungMOTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ErledigungsmeldungMOTyp) + 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 ErledigungsmeldungMOTyp) 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 ErledigungsmeldungMOTyp + 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 Class + + _ + Partial Public Class EinzelErledigungsmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMOTyp + + Private _kopfDaten As KopfDatenErledigungsmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kopfDaten = New KopfDatenErledigungsmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMOTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMOTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungMOTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenErledigungsmeldungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenErledigungsmeldungTyp) + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelErledigungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelErledigungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelErledigungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelErledigungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelErledigungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelErledigungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelErledigungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelErledigungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelErledigungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelErledigungsmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelErledigungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelErledigungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelErledigungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelErledigungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelErledigungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelErledigungsmeldungTyp) + 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 EinzelErledigungsmeldungTyp) 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 EinzelErledigungsmeldungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungMOTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMOTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMOTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungMOTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMOTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMOTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMOTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMOTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMOTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMOTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMOTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMOTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMOTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMOTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMOTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMOTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMOTyp) + 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 ObjektIdentifizierungMOTyp) 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 ObjektIdentifizierungMOTyp + 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 Class + + _ + Partial Public Class KopfDatenErledigungsmeldungTyp + +#Region "Private fields" + Private _mRN As String + + Private _zeitpunktErledigung As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property MRN() As String + Get + Return Me._mRN + End Get + Set(value As String) + Me._mRN = Value + End Set + End Property + + _ + Public Property ZeitpunktErledigung() As Date + Get + Return Me._zeitpunktErledigung + End Get + Set(value As Date) + Me._zeitpunktErledigung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenErledigungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenErledigungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenErledigungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenErledigungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenErledigungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenErledigungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenErledigungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenErledigungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenErledigungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenErledigungsmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenErledigungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenErledigungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenErledigungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenErledigungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenErledigungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenErledigungsmeldungTyp) + 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 KopfDatenErledigungsmeldungTyp) 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 KopfDatenErledigungsmeldungTyp + 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 Class + + _ + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + _ + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionNCTSTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_002.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_002.xsd new file mode 100644 index 0000000..c868c31 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Erledigungsmeldung/ErledigungsmeldungNCTSDE_002.xsd @@ -0,0 +1,70 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_003.Designer.vb new file mode 100644 index 0000000..035a629 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_003.Designer.vb @@ -0,0 +1,1486 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' GenerellesEreignisListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace GenerellesEreignis + + _ + Partial Public Class GenerellesEreignisGETyp + Inherits DatenaustauschAllgemeinTyp + +#Region "Private fields" + Private _einzelEreignisObjekt As List(Of EinzelEreignisTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelEreignisObjekt = New List(Of EinzelEreignisTyp)() + End Sub + + _ + Public Property EinzelEreignisObjekt() As List(Of EinzelEreignisTyp) + Get + Return Me._einzelEreignisObjekt + End Get + Set(value As List(Of EinzelEreignisTyp)) + Me._einzelEreignisObjekt = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GenerellesEreignisGETyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GenerellesEreignisGETyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an GenerellesEreignisGETyp object + ''' + ''' string workflow markup to deserialize + ''' Output GenerellesEreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GenerellesEreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GenerellesEreignisGETyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GenerellesEreignisGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GenerellesEreignisGETyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GenerellesEreignisGETyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GenerellesEreignisGETyp + Return CType(Serializer.Deserialize(s), GenerellesEreignisGETyp) + End Function +#End Region + + ''' + ''' Serializes current GenerellesEreignisGETyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an GenerellesEreignisGETyp object + ''' + ''' string xml file to load and deserialize + ''' Output GenerellesEreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GenerellesEreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GenerellesEreignisGETyp) + 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 GenerellesEreignisGETyp) 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 GenerellesEreignisGETyp + 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 Class + + _ + Partial Public Class EinzelEreignisTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungGETyp + + Private _kopfDaten As List(Of KopfDatenEreignisTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kopfDaten = New List(Of KopfDatenEreignisTyp)() + Me._objektIdentifizierung = New ObjektIdentifizierungGETyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungGETyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungGETyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As List(Of KopfDatenEreignisTyp) + Get + Return Me._kopfDaten + End Get + Set(value As List(Of KopfDatenEreignisTyp)) + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelEreignisTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelEreignisTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelEreignisTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEreignisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelEreignisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelEreignisTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelEreignisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelEreignisTyp + Return CType(Serializer.Deserialize(s), EinzelEreignisTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelEreignisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelEreignisTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelEreignisTyp) + 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 EinzelEreignisTyp) 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 EinzelEreignisTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungGETyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _objektAntragArt As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _ereignisgewichtung As String + + Private _meldestelle As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property ObjektAntragArt() As String + Get + Return Me._objektAntragArt + End Get + Set(value As String) + Me._objektAntragArt = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property Ereignisgewichtung() As String + Get + Return Me._ereignisgewichtung + End Get + Set(value As String) + Me._ereignisgewichtung = Value + End Set + End Property + + _ + Public Property Meldestelle() As String + Get + Return Me._meldestelle + End Get + Set(value As String) + Me._meldestelle = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungGETyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungGETyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungGETyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungGETyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungGETyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungGETyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungGETyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungGETyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungGETyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungGETyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungGETyp) + 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 ObjektIdentifizierungGETyp) 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 ObjektIdentifizierungGETyp + 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 Class + + _ + Partial Public Class EreignisGETyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _ereignisCode As String + + Private _ereignismitteilung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property EreignisCode() As String + Get + Return Me._ereignisCode + End Get + Set(value As String) + Me._ereignisCode = Value + End Set + End Property + + _ + Public Property Ereignismitteilung() As String + Get + Return Me._ereignismitteilung + End Get + Set(value As String) + Me._ereignismitteilung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EreignisGETyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EreignisGETyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EreignisGETyp object + ''' + ''' string workflow markup to deserialize + ''' Output EreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EreignisGETyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EreignisGETyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EreignisGETyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EreignisGETyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EreignisGETyp + Return CType(Serializer.Deserialize(s), EreignisGETyp) + End Function +#End Region + + ''' + ''' Serializes current EreignisGETyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EreignisGETyp object + ''' + ''' string xml file to load and deserialize + ''' Output EreignisGETyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EreignisGETyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EreignisGETyp) + 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 EreignisGETyp) 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 EreignisGETyp + 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 Class + + _ + Partial Public Class KopfDatenEreignisTyp + +#Region "Private fields" + Private _registrierdatum As Date + + Private _registrierNrATLAS As String + + Private _ereignis As List(Of EreignisGETyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ereignis = New List(Of EreignisGETyp)() + End Sub + + _ + Public Property Registrierdatum() As Date + Get + Return Me._registrierdatum + End Get + Set(value As Date) + Me._registrierdatum = Value + End Set + End Property + + _ + Public Property RegistrierNrATLAS() As String + Get + Return Me._registrierNrATLAS + End Get + Set(value As String) + Me._registrierNrATLAS = Value + End Set + End Property + + _ + Public Property Ereignis() As List(Of EreignisGETyp) + Get + Return Me._ereignis + End Get + Set(value As List(Of EreignisGETyp)) + Me._ereignis = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenEreignisTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenEreignisTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenEreignisTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEreignisTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenEreignisTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenEreignisTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenEreignisTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenEreignisTyp + Return CType(Serializer.Deserialize(s), KopfDatenEreignisTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenEreignisTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenEreignisTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenEreignisTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenEreignisTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenEreignisTyp) + 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 KopfDatenEreignisTyp) 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 KopfDatenEreignisTyp + 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 Class + + _ + Partial Public Class TransaktionAllgemeinTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionAllgemeinTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionAllgemeinTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionAllgemeinTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionAllgemeinTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionAllgemeinTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionAllgemeinTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionAllgemeinTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionAllgemeinTyp + Return CType(Serializer.Deserialize(s), TransaktionAllgemeinTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionAllgemeinTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionAllgemeinTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionAllgemeinTyp) + 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 TransaktionAllgemeinTyp) 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 TransaktionAllgemeinTyp + 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 Class + + _ + Partial Public Class DatenaustauschAllgemeinTyp + +#Region "Private fields" + Private _transaktion As TransaktionAllgemeinTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionAllgemeinTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionAllgemeinTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionAllgemeinTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschAllgemeinTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschAllgemeinTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschAllgemeinTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschAllgemeinTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschAllgemeinTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschAllgemeinTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschAllgemeinTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschAllgemeinTyp + Return CType(Serializer.Deserialize(s), DatenaustauschAllgemeinTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschAllgemeinTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschAllgemeinTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschAllgemeinTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschAllgemeinTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschAllgemeinTyp) + 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 DatenaustauschAllgemeinTyp) 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 DatenaustauschAllgemeinTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_003.xsd new file mode 100644 index 0000000..b414ad4 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/GenerellesErgebnis/GenerellesEreignis_003.xsd @@ -0,0 +1,107 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/QuittungEingangsverarbeitung_004.designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/QuittungEingangsverarbeitung_004.designer.vb new file mode 100644 index 0000000..8095de3 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/QuittungEingangsverarbeitung_004.designer.vb @@ -0,0 +1,629 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' QuittungEingangsverarbeitungNCTSListVisualBasicFalseTrueTrueOnlyIfDifferentFalseSilverlightNoneTrueTrueTrueTrueFalseFalseFalseTrueDefaultStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseTrueTrueFalseFalseTrueFalseTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseFalseIndent1SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseTrueTrue +'' +'' ------------------------------------------------------------------------------ + +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.Xml +Imports System.Collections.Generic +Imports System.Runtime.Serialization +Imports System.IO.IsolatedStorage + +Namespace QuittungEingangsverarbeitungNCTS + +#Region "Base entity class" + Partial Public Class EntityBase(Of T) + + Private Shared sSerializer As XmlSerializer + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(T)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EntityBase object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EntityBase object + ''' + ''' string workflow markup to deserialize + ''' Output EntityBase object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As T, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, T) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As T) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As T + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), T) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As T + Return CType(Serializer.Deserialize(s), T) + End Function +#End Region + + ''' + ''' Serializes current EntityBase object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + Dim isoFile As System.IO.IsolatedStorage.IsolatedStorageFile = Nothing + Dim isoStream As System.IO.IsolatedStorage.IsolatedStorageFileStream = Nothing + Try + isoFile = IsolatedStorageFile.GetUserStoreForApplication + isoStream = New System.IO.IsolatedStorage.IsolatedStorageFileStream(fileName, FileMode.Create, isoFile) + streamWriter = New System.IO.StreamWriter(isoStream) + Dim xmlString As String = Serialize + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + isoStream.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + If (Not (isoFile) Is Nothing) Then + isoFile.Dispose() + End If + If (Not (isoStream) Is Nothing) Then + isoStream.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an EntityBase object + ''' + ''' string xml file to load and deserialize + ''' Output EntityBase object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As T, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, T) + 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 T) 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 T + Dim isoFile As System.IO.IsolatedStorage.IsolatedStorageFile = Nothing + Dim isoStream As System.IO.IsolatedStorage.IsolatedStorageFileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + isoFile = IsolatedStorageFile.GetUserStoreForApplication + isoStream = New System.IO.IsolatedStorage.IsolatedStorageFileStream(fileName, FileMode.Open, isoFile) + sr = New System.IO.StreamReader(isoStream) + Dim xmlString As String = sr.ReadToEnd + isoStream.Close() + sr.Close() + Return Deserialize(xmlString) + Finally + If (Not (isoFile) Is Nothing) Then + isoFile.Dispose() + End If + If (Not (isoStream) Is Nothing) Then + isoStream.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + +#Region "Clone method" + ''' + ''' Create a clone of this T object + ''' + Public Overridable Function Clone() As T + Return CType(Me.MemberwiseClone, T) + End Function +#End Region + End Class +#End Region + + _ + Partial Public Class QuittungEingangsverarbeitungBQTyp + Inherits DatenaustauschAllgemeinTyp + + _ + Private _einzelQuittung As List(Of EinzelQuittungTyp) + + _ + Public Property EinzelQuittung() As List(Of EinzelQuittungTyp) + Get + Return Me._einzelQuittung + End Get + Set(value As List(Of EinzelQuittungTyp)) + Me._einzelQuittung = value + End Set + End Property + End Class + + _ + Partial Public Class EinzelQuittungTyp + Inherits EntityBase(Of EinzelQuittungTyp) + + _ + Private _transaktionsreferenz As String + + _ + Private _quittungsobjekt As QuittungsObjektBQTyp + + _ + Public Property Transaktionsreferenz() As String + Get + Return Me._transaktionsreferenz + End Get + Set(value As String) + Me._transaktionsreferenz = value + End Set + End Property + + _ + Public Property Quittungsobjekt() As QuittungsObjektBQTyp + Get + Return Me._quittungsobjekt + End Get + Set(value As QuittungsObjektBQTyp) + Me._quittungsobjekt = value + End Set + End Property + End Class + + _ + Partial Public Class QuittungsObjektBQTyp + Inherits EntityBase(Of QuittungsObjektBQTyp) + + _ + Private _quittungTech As List(Of QuittungTechBQTyp) + + _ + Private _abbruchGrund As String + + _ + Private _fehlerValidierung As List(Of String) + + _ + Private _quittungFach As List(Of QuittungFachBQTyp) + + _ + Public Property QuittungTech() As List(Of QuittungTechBQTyp) + Get + Return Me._quittungTech + End Get + Set(value As List(Of QuittungTechBQTyp)) + Me._quittungTech = value + End Set + End Property + + _ + Public Property AbbruchGrund() As String + Get + Return Me._abbruchGrund + End Get + Set(value As String) + Me._abbruchGrund = value + End Set + End Property + + _ + Public Property FehlerValidierung() As List(Of String) + Get + Return Me._fehlerValidierung + End Get + Set(value As List(Of String)) + Me._fehlerValidierung = value + End Set + End Property + + _ + Public Property QuittungFach() As List(Of QuittungFachBQTyp) + Get + Return Me._quittungFach + End Get + Set(value As List(Of QuittungFachBQTyp)) + Me._quittungFach = value + End Set + End Property + End Class + + _ + Partial Public Class QuittungTechBQTyp + Inherits EntityBase(Of QuittungTechBQTyp) + + _ + Private _objektWdhTech As String + + _ + Private _bezugsObjekt As String + + _ + Private _ergebnisTech As String + + _ + Private _fehlerTech As List(Of String) + + _ + Private _korrekturen As List(Of String) + + _ + Public Property ObjektWdhTech() As String + Get + Return Me._objektWdhTech + End Get + Set(value As String) + Me._objektWdhTech = value + End Set + End Property + + _ + Public Property BezugsObjekt() As String + Get + Return Me._bezugsObjekt + End Get + Set(value As String) + Me._bezugsObjekt = value + End Set + End Property + + _ + Public Property ErgebnisTech() As String + Get + Return Me._ergebnisTech + End Get + Set(value As String) + Me._ergebnisTech = value + End Set + End Property + + _ + Public Property FehlerTech() As List(Of String) + Get + Return Me._fehlerTech + End Get + Set(value As List(Of String)) + Me._fehlerTech = value + End Set + End Property + + _ + Public Property Korrekturen() As List(Of String) + Get + Return Me._korrekturen + End Get + Set(value As List(Of String)) + Me._korrekturen = value + End Set + End Property + End Class + + _ + Partial Public Class QuittungFachBQTyp + Inherits EntityBase(Of QuittungFachBQTyp) + + _ + Private _objektWdhFach As String + + _ + Private _bezugsObjektFach As String + + _ + Private _gesamtErgebnis As String + + _ + Private _ergebnisGrund As String + + _ + Private _aktionErfolg As List(Of String) + + _ + Private _aktionNdf As List(Of String) + + _ + Private _fehlerAnwendung As List(Of String) + + _ + Public Property ObjektWdhFach() As String + Get + Return Me._objektWdhFach + End Get + Set(value As String) + Me._objektWdhFach = value + End Set + End Property + + _ + Public Property BezugsObjektFach() As String + Get + Return Me._bezugsObjektFach + End Get + Set(value As String) + Me._bezugsObjektFach = value + End Set + End Property + + _ + Public Property GesamtErgebnis() As String + Get + Return Me._gesamtErgebnis + End Get + Set(value As String) + Me._gesamtErgebnis = value + End Set + End Property + + _ + Public Property ErgebnisGrund() As String + Get + Return Me._ergebnisGrund + End Get + Set(value As String) + Me._ergebnisGrund = value + End Set + End Property + + _ + Public Property AktionErfolg() As List(Of String) + Get + Return Me._aktionErfolg + End Get + Set(value As List(Of String)) + Me._aktionErfolg = value + End Set + End Property + + _ + Public Property AktionNdf() As List(Of String) + Get + Return Me._aktionNdf + End Get + Set(value As List(Of String)) + Me._aktionNdf = value + End Set + End Property + + _ + Public Property FehlerAnwendung() As List(Of String) + Get + Return Me._fehlerAnwendung + End Get + Set(value As List(Of String)) + Me._fehlerAnwendung = value + End Set + End Property + End Class + + _ + Partial Public Class TransaktionAllgemeinTyp + Inherits EntityBase(Of TransaktionAllgemeinTyp) + + _ + Private _iOPartner As String + + _ + Private _iODivision1 As String + + _ + Private _iODivision2 As String + + _ + Private _iODivision3 As String + + _ + Private _iOReferenz As String + + _ + Private _iODatumZeit As Date + + _ + Private _version As String + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = value + End Set + End Property + End Class + + _ + Partial Public Class DatenaustauschAllgemeinTyp + Inherits EntityBase(Of DatenaustauschAllgemeinTyp) + + _ + Private _transaktion As TransaktionAllgemeinTyp + + _ + Public Property Transaktion() As TransaktionAllgemeinTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionAllgemeinTyp) + Me._transaktion = value + End Set + End Property + End Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/QuittungEingangsverarbeitung_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/QuittungEingangsverarbeitung_004.xsd new file mode 100644 index 0000000..3ba2b76 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/QuittungEingangsverarbeitung_004.xsd @@ -0,0 +1,95 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_002.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_002.Designer.vb new file mode 100644 index 0000000..0bc5d06 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_002.Designer.vb @@ -0,0 +1,2074 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' StatusmeldungNCTSDEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace StatusmeldungNCTSDE + + _ + Partial Public Class StatusmeldungMSTyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelStatusmeldung As EinzelStatusmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelStatusmeldung = New EinzelStatusmeldungTyp() + End Sub + + _ + Public Property EinzelStatusmeldung() As EinzelStatusmeldungTyp + Get + Return Me._einzelStatusmeldung + End Get + Set(value As EinzelStatusmeldungTyp) + Me._einzelStatusmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(StatusmeldungMSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current StatusmeldungMSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an StatusmeldungMSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output StatusmeldungMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As StatusmeldungMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StatusmeldungMSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As StatusmeldungMSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As StatusmeldungMSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), StatusmeldungMSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As StatusmeldungMSTyp + Return CType(Serializer.Deserialize(s), StatusmeldungMSTyp) + End Function +#End Region + + ''' + ''' Serializes current StatusmeldungMSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an StatusmeldungMSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output StatusmeldungMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As StatusmeldungMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, StatusmeldungMSTyp) + 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 StatusmeldungMSTyp) 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 StatusmeldungMSTyp + 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 Class + + _ + Partial Public Class EinzelStatusmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMSTyp + + Private _kopfDaten As KopfDatenStatusmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kopfDaten = New KopfDatenStatusmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMSTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMSTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungMSTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenStatusmeldungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenStatusmeldungTyp) + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelStatusmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelStatusmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelStatusmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelStatusmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelStatusmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelStatusmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelStatusmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelStatusmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelStatusmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelStatusmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelStatusmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelStatusmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelStatusmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelStatusmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelStatusmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelStatusmeldungTyp) + 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 EinzelStatusmeldungTyp) 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 EinzelStatusmeldungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungMSTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungMSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMSTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMSTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMSTyp) + 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 ObjektIdentifizierungMSTyp) 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 ObjektIdentifizierungMSTyp + 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 Class + + _ + Partial Public Class FehlermeldungMSTyp + +#Region "Private fields" + Private _code As String + + Private _text As String + + Private _zeiger As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Code() As String + Get + Return Me._code + End Get + Set(value As String) + Me._code = Value + End Set + End Property + + _ + Public Property Text() As String + Get + Return Me._text + End Get + Set(value As String) + Me._text = Value + End Set + End Property + + _ + Public Property Zeiger() As String + Get + Return Me._zeiger + End Get + Set(value As String) + Me._zeiger = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FehlermeldungMSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FehlermeldungMSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FehlermeldungMSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output FehlermeldungMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FehlermeldungMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FehlermeldungMSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FehlermeldungMSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FehlermeldungMSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FehlermeldungMSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FehlermeldungMSTyp + Return CType(Serializer.Deserialize(s), FehlermeldungMSTyp) + End Function +#End Region + + ''' + ''' Serializes current FehlermeldungMSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FehlermeldungMSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output FehlermeldungMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FehlermeldungMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FehlermeldungMSTyp) + 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 FehlermeldungMSTyp) 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 FehlermeldungMSTyp + 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 Class + + _ + Partial Public Class AnsprechpartnerMSTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _stellung As String + + Private _telefonnummer As String + + Private _telefaxnummer As String + + Private _emailAdresse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set(value As String) + Me._sachbearbeiter = Value + End Set + End Property + + _ + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set(value As String) + Me._stellung = Value + End Set + End Property + + _ + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set(value As String) + Me._telefonnummer = Value + End Set + End Property + + _ + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set(value As String) + Me._telefaxnummer = Value + End Set + End Property + + _ + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set(value As String) + Me._emailAdresse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerMSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnsprechpartnerMSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AnsprechpartnerMSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnsprechpartnerMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerMSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerMSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnsprechpartnerMSTyp + Return CType(Serializer.Deserialize(s), AnsprechpartnerMSTyp) + End Function +#End Region + + ''' + ''' Serializes current AnsprechpartnerMSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AnsprechpartnerMSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnsprechpartnerMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMSTyp) + 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 AnsprechpartnerMSTyp) 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 AnsprechpartnerMSTyp + 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 Class + + _ + Partial Public Class AdresseTINKurzMSTyp + +#Region "Private fields" + Private _eORI As String + + Private _nLNR As String + + Private _iDCarnet As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerMSTyp() + End Sub + + _ + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set(value As String) + Me._eORI = Value + End Set + End Property + + _ + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set(value As String) + Me._nLNR = Value + End Set + End Property + + _ + Public Property IDCarnet() As String + Get + Return Me._iDCarnet + End Get + Set(value As String) + Me._iDCarnet = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set(value As String) + Me._strasseHausnummer = Value + End Set + End Property + + _ + Public Property Land() As String + Get + Return Me._land + End Get + Set(value As String) + Me._land = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerMSTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerMSTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseTINKurzMSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseTINKurzMSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdresseTINKurzMSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseTINKurzMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseTINKurzMSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseTINKurzMSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseTINKurzMSTyp + Return CType(Serializer.Deserialize(s), AdresseTINKurzMSTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseTINKurzMSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdresseTINKurzMSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseTINKurzMSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseTINKurzMSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMSTyp) + 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 AdresseTINKurzMSTyp) 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 AdresseTINKurzMSTyp + 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 Class + + _ + Partial Public Class KopfDatenStatusmeldungTyp + +#Region "Private fields" + Private _mRN As String + + Private _entgegennahmeDatumZeit As Date + + Private _entscheidungAnnahmeDatumZeit As Date + + Private _entscheidungUeberlassungDatumZeit As Date + + Private _entscheidungStornierungDatumZeit As Date + + Private _zeitpunktAnrechnungReferenzbetraege As Date + + Private _weiterverarbeitungAusserhalbATLASDatumZeit As Date + + Private _grund As String + + Private _statusUeberwachung As String + + Private _arbeitsnummer As String + + Private _abgangsstelle As String + + Private _hauptverpflichteter As AdresseTINKurzMSTyp + + Private _fehlermeldung As List(Of FehlermeldungMSTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._fehlermeldung = New List(Of FehlermeldungMSTyp)() + Me._hauptverpflichteter = New AdresseTINKurzMSTyp() + End Sub + + _ + Public Property MRN() As String + Get + Return Me._mRN + End Get + Set(value As String) + Me._mRN = Value + End Set + End Property + + _ + Public Property EntgegennahmeDatumZeit() As Date + Get + Return Me._entgegennahmeDatumZeit + End Get + Set(value As Date) + Me._entgegennahmeDatumZeit = Value + End Set + End Property + + _ + Public Property EntscheidungAnnahmeDatumZeit() As Date + Get + Return Me._entscheidungAnnahmeDatumZeit + End Get + Set(value As Date) + Me._entscheidungAnnahmeDatumZeit = Value + End Set + End Property + + _ + Public Property EntscheidungUeberlassungDatumZeit() As Date + Get + Return Me._entscheidungUeberlassungDatumZeit + End Get + Set(value As Date) + Me._entscheidungUeberlassungDatumZeit = Value + End Set + End Property + + _ + Public Property EntscheidungStornierungDatumZeit() As Date + Get + Return Me._entscheidungStornierungDatumZeit + End Get + Set(value As Date) + Me._entscheidungStornierungDatumZeit = Value + End Set + End Property + + _ + Public Property ZeitpunktAnrechnungReferenzbetraege() As Date + Get + Return Me._zeitpunktAnrechnungReferenzbetraege + End Get + Set(value As Date) + Me._zeitpunktAnrechnungReferenzbetraege = Value + End Set + End Property + + _ + Public Property WeiterverarbeitungAusserhalbATLASDatumZeit() As Date + Get + Return Me._weiterverarbeitungAusserhalbATLASDatumZeit + End Get + Set(value As Date) + Me._weiterverarbeitungAusserhalbATLASDatumZeit = Value + End Set + End Property + + _ + Public Property Grund() As String + Get + Return Me._grund + End Get + Set(value As String) + Me._grund = Value + End Set + End Property + + _ + Public Property StatusUeberwachung() As String + Get + Return Me._statusUeberwachung + End Get + Set(value As String) + Me._statusUeberwachung = Value + End Set + End Property + + _ + Public Property Arbeitsnummer() As String + Get + Return Me._arbeitsnummer + End Get + Set(value As String) + Me._arbeitsnummer = Value + End Set + End Property + + _ + Public Property Abgangsstelle() As String + Get + Return Me._abgangsstelle + End Get + Set(value As String) + Me._abgangsstelle = Value + End Set + End Property + + _ + Public Property Hauptverpflichteter() As AdresseTINKurzMSTyp + Get + Return Me._hauptverpflichteter + End Get + Set(value As AdresseTINKurzMSTyp) + Me._hauptverpflichteter = Value + End Set + End Property + + _ + Public Property Fehlermeldung() As List(Of FehlermeldungMSTyp) + Get + Return Me._fehlermeldung + End Get + Set(value As List(Of FehlermeldungMSTyp)) + Me._fehlermeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenStatusmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenStatusmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenStatusmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenStatusmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenStatusmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenStatusmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenStatusmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenStatusmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenStatusmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenStatusmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenStatusmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenStatusmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenStatusmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenStatusmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenStatusmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenStatusmeldungTyp) + 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 KopfDatenStatusmeldungTyp) 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 KopfDatenStatusmeldungTyp + 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 Class + + _ + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + _ + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionNCTSTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_002.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_002.xsd new file mode 100644 index 0000000..cd049d2 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Statusmeldung/StatusmeldungNCTSDE_002.xsd @@ -0,0 +1,146 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_004.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_004.Designer.vb new file mode 100644 index 0000000..051e37f --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_004.Designer.vb @@ -0,0 +1,6543 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' UeberlassungsmeldungNCTSDEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace UeberlassungsmeldungNCTSDE + + _ + Partial Public Class UeberlassungsmeldungMRTyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelUeberlassungsmeldung As EinzelUeberlassungsmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelUeberlassungsmeldung = New EinzelUeberlassungsmeldungTyp() + End Sub + + _ + Public Property EinzelUeberlassungsmeldung() As EinzelUeberlassungsmeldungTyp + Get + Return Me._einzelUeberlassungsmeldung + End Get + Set(value As EinzelUeberlassungsmeldungTyp) + Me._einzelUeberlassungsmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UeberlassungsmeldungMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UeberlassungsmeldungMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UeberlassungsmeldungMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UeberlassungsmeldungMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UeberlassungsmeldungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UeberlassungsmeldungMRTyp + Return CType(Serializer.Deserialize(s), UeberlassungsmeldungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current UeberlassungsmeldungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UeberlassungsmeldungMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + 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 UeberlassungsmeldungMRTyp) 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 UeberlassungsmeldungMRTyp + 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 Class + + _ + Partial Public Class EinzelUeberlassungsmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMRTyp + + Private _kopfDaten As KopfDatenUeberlassungsmeldungTyp + + Private _warenPosition As List(Of WarenPositionUeberlassungsmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._warenPosition = New List(Of WarenPositionUeberlassungsmeldungTyp)() + Me._kopfDaten = New KopfDatenUeberlassungsmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMRTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMRTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungMRTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenUeberlassungsmeldungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenUeberlassungsmeldungTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property WarenPosition() As List(Of WarenPositionUeberlassungsmeldungTyp) + Get + Return Me._warenPosition + End Get + Set(value As List(Of WarenPositionUeberlassungsmeldungTyp)) + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelUeberlassungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + 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 EinzelUeberlassungsmeldungTyp) 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 EinzelUeberlassungsmeldungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungMRTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMRTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + 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 ObjektIdentifizierungMRTyp) 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 ObjektIdentifizierungMRTyp + 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 Class + + _ + Partial Public Class PositionAVUVMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _kzZugangATLAS As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _warenbezogeneAngaben As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set(value As String) + Me._satznummer = Value + End Set + End Property + + _ + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set(value As String) + Me._kzZugangATLAS = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set(value As String) + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAVUVMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionAVUVMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionAVUVMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAVUVMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAVUVMRTyp + Return CType(Serializer.Deserialize(s), PositionAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionAVUVMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + 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 PositionAVUVMRTyp) 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 PositionAVUVMRTyp + 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 Class + + _ + Partial Public Class BeendigungAVUVMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _positionAVUV As List(Of PositionAVUVMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._positionAVUV = New List(Of PositionAVUVMRTyp)() + End Sub + + _ + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set(value As String) + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + _ + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set(value As String) + Me._bewilligungsnummer = Value + End Set + End Property + + _ + Public Property PositionAVUV() As List(Of PositionAVUVMRTyp) + Get + Return Me._positionAVUV + End Get + Set(value As List(Of PositionAVUVMRTyp)) + Me._positionAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungAVUVMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungAVUVMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungAVUVMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungAVUVMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungAVUVMRTyp + Return CType(Serializer.Deserialize(s), BeendigungAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungAVUVMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + 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 BeendigungAVUVMRTyp) 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 BeendigungAVUVMRTyp + 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 Class + + _ + Partial Public Class HandelsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set(value As Decimal) + Me._wert = Value + End Set + End Property + + _ + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set(value As String) + Me._masseinheit = Value + End Set + End Property + + _ + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set(value As String) + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HandelsmengeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HandelsmengeMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an HandelsmengeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HandelsmengeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HandelsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HandelsmengeMRTyp + Return CType(Serializer.Deserialize(s), HandelsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current HandelsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an HandelsmengeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + 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 HandelsmengeMRTyp) 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 HandelsmengeMRTyp + 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 Class + + _ + Partial Public Class AbgangsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set(value As Decimal) + Me._wert = Value + End Set + End Property + + _ + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set(value As String) + Me._masseinheit = Value + End Set + End Property + + _ + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set(value As String) + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgangsmengeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgangsmengeMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgangsmengeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgangsmengeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgangsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgangsmengeMRTyp + Return CType(Serializer.Deserialize(s), AbgangsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgangsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgangsmengeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + 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 AbgangsmengeMRTyp) 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 AbgangsmengeMRTyp + 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 Class + + _ + Partial Public Class PositionZLMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _warennummer As String + + Private _kzZugangATLAS As String + + Private _kzUeblicheBehandlung As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _zusatz As String + + Private _abgangsmenge As AbgangsmengeMRTyp + + Private _handelsmenge As HandelsmengeMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._handelsmenge = New HandelsmengeMRTyp() + Me._abgangsmenge = New AbgangsmengeMRTyp() + End Sub + + _ + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set(value As String) + Me._satznummer = Value + End Set + End Property + + _ + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set(value As String) + Me._warennummer = Value + End Set + End Property + + _ + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set(value As String) + Me._kzZugangATLAS = Value + End Set + End Property + + _ + Public Property KzUeblicheBehandlung() As String + Get + Return Me._kzUeblicheBehandlung + End Get + Set(value As String) + Me._kzUeblicheBehandlung = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + _ + Public Property Abgangsmenge() As AbgangsmengeMRTyp + Get + Return Me._abgangsmenge + End Get + Set(value As AbgangsmengeMRTyp) + Me._abgangsmenge = Value + End Set + End Property + + _ + Public Property Handelsmenge() As HandelsmengeMRTyp + Get + Return Me._handelsmenge + End Get + Set(value As HandelsmengeMRTyp) + Me._handelsmenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionZLMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionZLMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionZLMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionZLMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionZLMRTyp + Return CType(Serializer.Deserialize(s), PositionZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionZLMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + 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 PositionZLMRTyp) 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 PositionZLMRTyp + 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 Class + + _ + Partial Public Class BeendigungZLMRTyp + +#Region "Private fields" + Private _bezugsnummer As String + + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _positionZL As List(Of PositionZLMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._positionZL = New List(Of PositionZLMRTyp)() + End Sub + + _ + Public Property Bezugsnummer() As String + Get + Return Me._bezugsnummer + End Get + Set(value As String) + Me._bezugsnummer = Value + End Set + End Property + + _ + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set(value As String) + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + _ + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set(value As String) + Me._bewilligungsnummer = Value + End Set + End Property + + _ + Public Property PositionZL() As List(Of PositionZLMRTyp) + Get + Return Me._positionZL + End Get + Set(value As List(Of PositionZLMRTyp)) + Me._positionZL = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungZLMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungZLMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungZLMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungZLMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungZLMRTyp + Return CType(Serializer.Deserialize(s), BeendigungZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungZLMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + 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 BeendigungZLMRTyp) 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 BeendigungZLMRTyp + 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 Class + + _ + Partial Public Class PositionSumAMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _stueckzahl As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _verwahrerEORI As String + + Private _spOArt As String + + Private _spONummer As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set(value As String) + Me._satznummer = Value + End Set + End Property + + _ + Public Property Stueckzahl() As String + Get + Return Me._stueckzahl + End Get + Set(value As String) + Me._stueckzahl = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property VerwahrerEORI() As String + Get + Return Me._verwahrerEORI + End Get + Set(value As String) + Me._verwahrerEORI = Value + End Set + End Property + + _ + Public Property SpOArt() As String + Get + Return Me._spOArt + End Get + Set(value As String) + Me._spOArt = Value + End Set + End Property + + _ + Public Property SpONummer() As String + Get + Return Me._spONummer + End Get + Set(value As String) + Me._spONummer = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionSumAMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionSumAMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionSumAMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionSumAMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionSumAMRTyp + Return CType(Serializer.Deserialize(s), PositionSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionSumAMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + 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 PositionSumAMRTyp) 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 PositionSumAMRTyp + 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 Class + + _ + Partial Public Class BeendigungSumAMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _artIdentifikation As String + + Private _positionSumA As List(Of PositionSumAMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._positionSumA = New List(Of PositionSumAMRTyp)() + End Sub + + _ + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set(value As String) + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + _ + Public Property ArtIdentifikation() As String + Get + Return Me._artIdentifikation + End Get + Set(value As String) + Me._artIdentifikation = Value + End Set + End Property + + _ + Public Property PositionSumA() As List(Of PositionSumAMRTyp) + Get + Return Me._positionSumA + End Get + Set(value As List(Of PositionSumAMRTyp)) + Me._positionSumA = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungSumAMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungSumAMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungSumAMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungSumAMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungSumAMRTyp + Return CType(Serializer.Deserialize(s), BeendigungSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungSumAMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + 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 BeendigungSumAMRTyp) 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 BeendigungSumAMRTyp + 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 Class + + _ + Partial Public Class SGIMRTyp + +#Region "Private fields" + Private _code As String + + Private _empfindlicheMenge As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Code() As String + Get + Return Me._code + End Get + Set(value As String) + Me._code = Value + End Set + End Property + + _ + Public Property EmpfindlicheMenge() As Decimal + Get + Return Me._empfindlicheMenge + End Get + Set(value As Decimal) + Me._empfindlicheMenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SGIMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SGIMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SGIMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SGIMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SGIMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGIMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SGIMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SGIMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SGIMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SGIMRTyp + Return CType(Serializer.Deserialize(s), SGIMRTyp) + End Function +#End Region + + ''' + ''' Serializes current SGIMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SGIMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SGIMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SGIMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGIMRTyp) + 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 SGIMRTyp) 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 SGIMRTyp + 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 Class + + _ + Partial Public Class BesondereVermerkeMRTyp + +#Region "Private fields" + Private _exportBeschraenkung As String + + Private _exportAbgaben As String + + Private _export As String + + Private _exportAusEU As String + + Private _exportAusLand As String + + Private _kz10600 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ExportBeschraenkung() As String + Get + Return Me._exportBeschraenkung + End Get + Set(value As String) + Me._exportBeschraenkung = Value + End Set + End Property + + _ + Public Property ExportAbgaben() As String + Get + Return Me._exportAbgaben + End Get + Set(value As String) + Me._exportAbgaben = Value + End Set + End Property + + _ + Public Property Export() As String + Get + Return Me._export + End Get + Set(value As String) + Me._export = Value + End Set + End Property + + _ + Public Property ExportAusEU() As String + Get + Return Me._exportAusEU + End Get + Set(value As String) + Me._exportAusEU = Value + End Set + End Property + + _ + Public Property ExportAusLand() As String + Get + Return Me._exportAusLand + End Get + Set(value As String) + Me._exportAusLand = Value + End Set + End Property + + _ + Public Property Kz10600() As String + Get + Return Me._kz10600 + End Get + Set(value As String) + Me._kz10600 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BesondereVermerkeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BesondereVermerkeMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BesondereVermerkeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BesondereVermerkeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BesondereVermerkeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BesondereVermerkeMRTyp + Return CType(Serializer.Deserialize(s), BesondereVermerkeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BesondereVermerkeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BesondereVermerkeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + 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 BesondereVermerkeMRTyp) 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 BesondereVermerkeMRTyp + 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 Class + + _ + Partial Public Class VorgelegteUnterlBeschGenehmMRTyp + +#Region "Private fields" + Private _typ As String + + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Typ() As String + Get + Return Me._typ + End Get + Set(value As String) + Me._typ = Value + End Set + End Property + + _ + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set(value As String) + Me._referenz = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorgelegteUnterlBeschGenehmMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorgelegteUnterlBeschGenehmMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorgelegteUnterlBeschGenehmMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorgelegteUnterlBeschGenehmMRTyp + Return CType(Serializer.Deserialize(s), VorgelegteUnterlBeschGenehmMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + 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 VorgelegteUnterlBeschGenehmMRTyp) 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 VorgelegteUnterlBeschGenehmMRTyp + 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 Class + + _ + Partial Public Class PackstueckMRTyp + +#Region "Private fields" + Private _anzahl As String + + Private _verpackungsart As String + + Private _zeichenNummern As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set(value As String) + Me._anzahl = Value + End Set + End Property + + _ + Public Property Verpackungsart() As String + Get + Return Me._verpackungsart + End Get + Set(value As String) + Me._verpackungsart = Value + End Set + End Property + + _ + Public Property ZeichenNummern() As String + Get + Return Me._zeichenNummern + End Get + Set(value As String) + Me._zeichenNummern = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PackstueckMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PackstueckMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PackstueckMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PackstueckMRTyp + Return CType(Serializer.Deserialize(s), PackstueckMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PackstueckMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PackstueckMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + 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 PackstueckMRTyp) 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 PackstueckMRTyp + 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 Class + + _ + Partial Public Class VorpapierMRTyp + +#Region "Private fields" + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set(value As String) + Me._referenz = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorpapierMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorpapierMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorpapierMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorpapierMRTyp + Return CType(Serializer.Deserialize(s), VorpapierMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorpapierMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorpapierMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + 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 VorpapierMRTyp) 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 VorpapierMRTyp + 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 Class + + _ + Partial Public Class WarenPositionUeberlassungsmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _artAnmeldungPosition As String + + Private _versendungsAusfuhrlandPosition As String + + Private _bestimmungslandPosition As String + + Private _warennummer As String + + Private _kennnummerSendungPosition As String + + Private _befoerderungskostenZahlungsweisePosition As String + + Private _uNGefahrgutnummer As String + + Private _warenbezeichnung As String + + Private _rohmasse As Decimal + + Private _eigenmasse As Decimal + + Private _versenderPosition As AdresseMRTyp + + Private _versenderSumASicherheitPosition As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheitPosition As AdresseMRTyp + + Private _vorpapiereTyp As String + + Private _vorpapier As List(Of VorpapierMRTyp) + + Private _packstuecke As List(Of PackstueckMRTyp) + + Private _containernummer As List(Of String) + + Private _vorgelegteUnterlagenBescheinigungenGenehmigungen As List(Of VorgelegteUnterlBeschGenehmMRTyp) + + Private _besondereVermerke As BesondereVermerkeMRTyp + + Private _sGI As SGIMRTyp + + Private _beendigungSumA As BeendigungSumAMRTyp + + Private _beendigungZL As BeendigungZLMRTyp + + Private _beendigungAVUV As BeendigungAVUVMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._beendigungAVUV = New BeendigungAVUVMRTyp() + Me._beendigungZL = New BeendigungZLMRTyp() + Me._beendigungSumA = New BeendigungSumAMRTyp() + Me._sGI = New SGIMRTyp() + Me._besondereVermerke = New BesondereVermerkeMRTyp() + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = New List(Of VorgelegteUnterlBeschGenehmMRTyp)() + Me._containernummer = New List(Of String)() + Me._packstuecke = New List(Of PackstueckMRTyp)() + Me._vorpapier = New List(Of VorpapierMRTyp)() + Me._empfaengerSumASicherheitPosition = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheitPosition = New AdresseMRTyp() + Me._versenderPosition = New AdresseMRTyp() + End Sub + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property ArtAnmeldungPosition() As String + Get + Return Me._artAnmeldungPosition + End Get + Set(value As String) + Me._artAnmeldungPosition = Value + End Set + End Property + + _ + Public Property VersendungsAusfuhrlandPosition() As String + Get + Return Me._versendungsAusfuhrlandPosition + End Get + Set(value As String) + Me._versendungsAusfuhrlandPosition = Value + End Set + End Property + + _ + Public Property BestimmungslandPosition() As String + Get + Return Me._bestimmungslandPosition + End Get + Set(value As String) + Me._bestimmungslandPosition = Value + End Set + End Property + + _ + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set(value As String) + Me._warennummer = Value + End Set + End Property + + _ + Public Property KennnummerSendungPosition() As String + Get + Return Me._kennnummerSendungPosition + End Get + Set(value As String) + Me._kennnummerSendungPosition = Value + End Set + End Property + + _ + Public Property BefoerderungskostenZahlungsweisePosition() As String + Get + Return Me._befoerderungskostenZahlungsweisePosition + End Get + Set(value As String) + Me._befoerderungskostenZahlungsweisePosition = Value + End Set + End Property + + _ + Public Property UNGefahrgutnummer() As String + Get + Return Me._uNGefahrgutnummer + End Get + Set(value As String) + Me._uNGefahrgutnummer = Value + End Set + End Property + + _ + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set(value As String) + Me._warenbezeichnung = Value + End Set + End Property + + _ + Public Property Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set(value As Decimal) + Me._rohmasse = Value + End Set + End Property + + _ + Public Property Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set(value As Decimal) + Me._eigenmasse = Value + End Set + End Property + + _ + Public Property VersenderPosition() As AdresseMRTyp + Get + Return Me._versenderPosition + End Get + Set(value As AdresseMRTyp) + Me._versenderPosition = Value + End Set + End Property + + _ + Public Property VersenderSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._versenderSumASicherheitPosition + End Get + Set(value As AdresseMRTyp) + Me._versenderSumASicherheitPosition = Value + End Set + End Property + + _ + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set(value As AdresseMRTyp) + Me._empfaenger = Value + End Set + End Property + + _ + Public Property EmpfaengerSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheitPosition + End Get + Set(value As AdresseMRTyp) + Me._empfaengerSumASicherheitPosition = Value + End Set + End Property + + _ + Public Property VorpapiereTyp() As String + Get + Return Me._vorpapiereTyp + End Get + Set(value As String) + Me._vorpapiereTyp = Value + End Set + End Property + + _ + Public Property Vorpapier() As List(Of VorpapierMRTyp) + Get + Return Me._vorpapier + End Get + Set(value As List(Of VorpapierMRTyp)) + Me._vorpapier = Value + End Set + End Property + + _ + Public Property Packstuecke() As List(Of PackstueckMRTyp) + Get + Return Me._packstuecke + End Get + Set(value As List(Of PackstueckMRTyp)) + Me._packstuecke = Value + End Set + End Property + + _ + Public Property Containernummer() As List(Of String) + Get + Return Me._containernummer + End Get + Set(value As List(Of String)) + Me._containernummer = Value + End Set + End Property + + _ + Public Property VorgelegteUnterlagenBescheinigungenGenehmigungen() As List(Of VorgelegteUnterlBeschGenehmMRTyp) + Get + Return Me._vorgelegteUnterlagenBescheinigungenGenehmigungen + End Get + Set(value As List(Of VorgelegteUnterlBeschGenehmMRTyp)) + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = Value + End Set + End Property + + _ + Public Property BesondereVermerke() As BesondereVermerkeMRTyp + Get + Return Me._besondereVermerke + End Get + Set(value As BesondereVermerkeMRTyp) + Me._besondereVermerke = Value + End Set + End Property + + _ + Public Property SGI() As SGIMRTyp + Get + Return Me._sGI + End Get + Set(value As SGIMRTyp) + Me._sGI = Value + End Set + End Property + + _ + Public Property BeendigungSumA() As BeendigungSumAMRTyp + Get + Return Me._beendigungSumA + End Get + Set(value As BeendigungSumAMRTyp) + Me._beendigungSumA = Value + End Set + End Property + + _ + Public Property BeendigungZL() As BeendigungZLMRTyp + Get + Return Me._beendigungZL + End Get + Set(value As BeendigungZLMRTyp) + Me._beendigungZL = Value + End Set + End Property + + _ + Public Property BeendigungAVUV() As BeendigungAVUVMRTyp + Get + Return Me._beendigungAVUV + End Get + Set(value As BeendigungAVUVMRTyp) + Me._beendigungAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarenPositionUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WarenPositionUeberlassungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an WarenPositionUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenPositionUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarenPositionUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenPositionUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), WarenPositionUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenPositionUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an WarenPositionUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + 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 WarenPositionUeberlassungsmeldungTyp) 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 WarenPositionUeberlassungsmeldungTyp + 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 Class + + _ + Partial Public Class AdresseMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _identifikationsart As String + + Private _nLNR As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + _ + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set(value As String) + Me._eORI = Value + End Set + End Property + + _ + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set(value As String) + Me._identifikationsart = Value + End Set + End Property + + _ + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set(value As String) + Me._nLNR = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set(value As String) + Me._strasseHausnummer = Value + End Set + End Property + + _ + Public Property Land() As String + Get + Return Me._land + End Get + Set(value As String) + Me._land = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerMRTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdresseMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseMRTyp + Return CType(Serializer.Deserialize(s), AdresseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdresseMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + 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 AdresseMRTyp) 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 AdresseMRTyp + 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 Class + + _ + Partial Public Class AnsprechpartnerMRTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _stellung As String + + Private _telefonnummer As String + + Private _telefaxnummer As String + + Private _emailAdresse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set(value As String) + Me._sachbearbeiter = Value + End Set + End Property + + _ + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set(value As String) + Me._stellung = Value + End Set + End Property + + _ + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set(value As String) + Me._telefonnummer = Value + End Set + End Property + + _ + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set(value As String) + Me._telefaxnummer = Value + End Set + End Property + + _ + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set(value As String) + Me._emailAdresse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnsprechpartnerMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AnsprechpartnerMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnsprechpartnerMRTyp + Return CType(Serializer.Deserialize(s), AnsprechpartnerMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AnsprechpartnerMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AnsprechpartnerMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + 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 AnsprechpartnerMRTyp) 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 AnsprechpartnerMRTyp + 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 Class + + _ + Partial Public Class VerschluesseMRTyp + +#Region "Private fields" + Private _art As String + + Private _anzahl As String + + Private _zeichen As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._zeichen = New List(Of String)() + End Sub + + _ + Public Property Art() As String + Get + Return Me._art + End Get + Set(value As String) + Me._art = Value + End Set + End Property + + _ + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set(value As String) + Me._anzahl = Value + End Set + End Property + + _ + Public Property Zeichen() As List(Of String) + Get + Return Me._zeichen + End Get + Set(value As List(Of String)) + Me._zeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerschluesseMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerschluesseMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerschluesseMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerschluesseMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerschluesseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerschluesseMRTyp + Return CType(Serializer.Deserialize(s), VerschluesseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerschluesseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerschluesseMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + 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 VerschluesseMRTyp) 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 VerschluesseMRTyp + 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 Class + + _ + Partial Public Class AdresseTINKurzMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _nLNR As String + + Private _iDCarnet As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + _ + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set(value As String) + Me._eORI = Value + End Set + End Property + + _ + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set(value As String) + Me._nLNR = Value + End Set + End Property + + _ + Public Property IDCarnet() As String + Get + Return Me._iDCarnet + End Get + Set(value As String) + Me._iDCarnet = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set(value As String) + Me._strasseHausnummer = Value + End Set + End Property + + _ + Public Property Land() As String + Get + Return Me._land + End Get + Set(value As String) + Me._land = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerMRTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseTINKurzMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseTINKurzMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdresseTINKurzMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseTINKurzMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseTINKurzMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseTINKurzMRTyp + Return CType(Serializer.Deserialize(s), AdresseTINKurzMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseTINKurzMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdresseTINKurzMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + 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 AdresseTINKurzMRTyp) 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 AdresseTINKurzMRTyp + 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 Class + + _ + Partial Public Class BefoerderungsmittelAbgangMRTyp + +#Region "Private fields" + Private _staatszugehoerigkeit As String + + Private _kennzeichen As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Staatszugehoerigkeit() As String + Get + Return Me._staatszugehoerigkeit + End Get + Set(value As String) + Me._staatszugehoerigkeit = Value + End Set + End Property + + _ + Public Property Kennzeichen() As String + Get + Return Me._kennzeichen + End Get + Set(value As String) + Me._kennzeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelAbgangMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BefoerderungsmittelAbgangMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BefoerderungsmittelAbgangMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelAbgangMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelAbgangMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefoerderungsmittelAbgangMRTyp + Return CType(Serializer.Deserialize(s), BefoerderungsmittelAbgangMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BefoerderungsmittelAbgangMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BefoerderungsmittelAbgangMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + 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 BefoerderungsmittelAbgangMRTyp) 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 BefoerderungsmittelAbgangMRTyp + 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 Class + + _ + Partial Public Class VerbindlicheBefoerderungsrouteMRTyp + +#Region "Private fields" + Private _aussetzung As String + + Private _beschreibung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Aussetzung() As String + Get + Return Me._aussetzung + End Get + Set(value As String) + Me._aussetzung = Value + End Set + End Property + + _ + Public Property Beschreibung() As String + Get + Return Me._beschreibung + End Get + Set(value As String) + Me._beschreibung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerbindlicheBefoerderungsrouteMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerbindlicheBefoerderungsrouteMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbindlicheBefoerderungsrouteMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerbindlicheBefoerderungsrouteMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbindlicheBefoerderungsrouteMRTyp + Return CType(Serializer.Deserialize(s), VerbindlicheBefoerderungsrouteMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbindlicheBefoerderungsrouteMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + 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 VerbindlicheBefoerderungsrouteMRTyp) 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 VerbindlicheBefoerderungsrouteMRTyp + 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 Class + + _ + Partial Public Class SicherheitMRTyp + +#Region "Private fields" + Private _art As String + + Private _bezeichnung As String + + Private _betrag As Decimal + + Private _sicherheitengeberTIN As String + + Private _waehrung As String + + Private _bescheinigung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Art() As String + Get + Return Me._art + End Get + Set(value As String) + Me._art = Value + End Set + End Property + + _ + Public Property Bezeichnung() As String + Get + Return Me._bezeichnung + End Get + Set(value As String) + Me._bezeichnung = Value + End Set + End Property + + _ + Public Property Betrag() As Decimal + Get + Return Me._betrag + End Get + Set(value As Decimal) + Me._betrag = Value + End Set + End Property + + _ + Public Property SicherheitengeberTIN() As String + Get + Return Me._sicherheitengeberTIN + End Get + Set(value As String) + Me._sicherheitengeberTIN = Value + End Set + End Property + + _ + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set(value As String) + Me._waehrung = Value + End Set + End Property + + _ + Public Property Bescheinigung() As String + Get + Return Me._bescheinigung + End Get + Set(value As String) + Me._bescheinigung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SicherheitMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitMRTyp + Return CType(Serializer.Deserialize(s), SicherheitMRTyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SicherheitMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + 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 SicherheitMRTyp) 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 SicherheitMRTyp + 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 Class + + _ + Partial Public Class KopfDatenUeberlassungsmeldungTyp + +#Region "Private fields" + Private _mRN As String + + Private _abgangszollstelle As String + + Private _annahmedatum As Date + + Private _ueberlassungsdatum As Date + + Private _wiedergestellungsdatum As Date + + Private _sicherheit As List(Of SicherheitMRTyp) + + Private _bestimmungszollstelle As String + + Private _vBDName As String + + Private _arbeitsnummer As String + + Private _kzSumASicherheit As String + + Private _kennnummerSendung As String + + Private _nummerBefoerderung As String + + Private _besondereUmstaende As String + + Private _ladeort As String + + Private _entladeort As String + + Private _befoerderungskostenZahlungsweise As String + + Private _artAnmeldung As String + + Private _anzahlPositionen As String + + Private _packstueckeGesamt As String + + Private _versendungsAusfuhrland As String + + Private _bestimmungsland As String + + Private _gesamtRohmasse As Decimal + + Private _kontrollErgebnis As String + + Private _verbindlicheBefoerderungsroute As VerbindlicheBefoerderungsrouteMRTyp + + Private _befoerderungsmittelAbgang As BefoerderungsmittelAbgangMRTyp + + Private _durchgangszollstelleNCTS As List(Of String) + + Private _befoerderungsrouteSumASicherheitLand As List(Of String) + + Private _versender As AdresseMRTyp + + Private _versenderSumASicherheit As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheit As AdresseMRTyp + + Private _hauptverpflichteter As AdresseTINKurzMRTyp + + Private _befoerderer As AdresseMRTyp + + Private _zugelassenerEmpfaengerEORI As String + + Private _verschluesse As VerschluesseMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._verschluesse = New VerschluesseMRTyp() + Me._befoerderer = New AdresseMRTyp() + Me._hauptverpflichteter = New AdresseTINKurzMRTyp() + Me._empfaengerSumASicherheit = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheit = New AdresseMRTyp() + Me._versender = New AdresseMRTyp() + Me._befoerderungsrouteSumASicherheitLand = New List(Of String)() + Me._durchgangszollstelleNCTS = New List(Of String)() + Me._befoerderungsmittelAbgang = New BefoerderungsmittelAbgangMRTyp() + Me._verbindlicheBefoerderungsroute = New VerbindlicheBefoerderungsrouteMRTyp() + Me._sicherheit = New List(Of SicherheitMRTyp)() + End Sub + + _ + Public Property MRN() As String + Get + Return Me._mRN + End Get + Set(value As String) + Me._mRN = Value + End Set + End Property + + _ + Public Property Abgangszollstelle() As String + Get + Return Me._abgangszollstelle + End Get + Set(value As String) + Me._abgangszollstelle = Value + End Set + End Property + + _ + Public Property Annahmedatum() As Date + Get + Return Me._annahmedatum + End Get + Set(value As Date) + Me._annahmedatum = Value + End Set + End Property + + _ + Public Property Ueberlassungsdatum() As Date + Get + Return Me._ueberlassungsdatum + End Get + Set(value As Date) + Me._ueberlassungsdatum = Value + End Set + End Property + + _ + Public Property Wiedergestellungsdatum() As Date + Get + Return Me._wiedergestellungsdatum + End Get + Set(value As Date) + Me._wiedergestellungsdatum = Value + End Set + End Property + + _ + Public Property Sicherheit() As List(Of SicherheitMRTyp) + Get + Return Me._sicherheit + End Get + Set(value As List(Of SicherheitMRTyp)) + Me._sicherheit = Value + End Set + End Property + + _ + Public Property Bestimmungszollstelle() As String + Get + Return Me._bestimmungszollstelle + End Get + Set(value As String) + Me._bestimmungszollstelle = Value + End Set + End Property + + _ + Public Property VBDName() As String + Get + Return Me._vBDName + End Get + Set(value As String) + Me._vBDName = Value + End Set + End Property + + _ + Public Property Arbeitsnummer() As String + Get + Return Me._arbeitsnummer + End Get + Set(value As String) + Me._arbeitsnummer = Value + End Set + End Property + + _ + Public Property KzSumASicherheit() As String + Get + Return Me._kzSumASicherheit + End Get + Set(value As String) + Me._kzSumASicherheit = Value + End Set + End Property + + _ + Public Property KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set(value As String) + Me._kennnummerSendung = Value + End Set + End Property + + _ + Public Property NummerBefoerderung() As String + Get + Return Me._nummerBefoerderung + End Get + Set(value As String) + Me._nummerBefoerderung = Value + End Set + End Property + + _ + Public Property BesondereUmstaende() As String + Get + Return Me._besondereUmstaende + End Get + Set(value As String) + Me._besondereUmstaende = Value + End Set + End Property + + _ + Public Property Ladeort() As String + Get + Return Me._ladeort + End Get + Set(value As String) + Me._ladeort = Value + End Set + End Property + + _ + Public Property Entladeort() As String + Get + Return Me._entladeort + End Get + Set(value As String) + Me._entladeort = Value + End Set + End Property + + _ + Public Property BefoerderungskostenZahlungsweise() As String + Get + Return Me._befoerderungskostenZahlungsweise + End Get + Set(value As String) + Me._befoerderungskostenZahlungsweise = Value + End Set + End Property + + _ + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set(value As String) + Me._artAnmeldung = Value + End Set + End Property + + _ + Public Property AnzahlPositionen() As String + Get + Return Me._anzahlPositionen + End Get + Set(value As String) + Me._anzahlPositionen = Value + End Set + End Property + + _ + Public Property PackstueckeGesamt() As String + Get + Return Me._packstueckeGesamt + End Get + Set(value As String) + Me._packstueckeGesamt = Value + End Set + End Property + + _ + Public Property VersendungsAusfuhrland() As String + Get + Return Me._versendungsAusfuhrland + End Get + Set(value As String) + Me._versendungsAusfuhrland = Value + End Set + End Property + + _ + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set(value As String) + Me._bestimmungsland = Value + End Set + End Property + + _ + Public Property GesamtRohmasse() As Decimal + Get + Return Me._gesamtRohmasse + End Get + Set(value As Decimal) + Me._gesamtRohmasse = Value + End Set + End Property + + _ + Public Property KontrollErgebnis() As String + Get + Return Me._kontrollErgebnis + End Get + Set(value As String) + Me._kontrollErgebnis = Value + End Set + End Property + + _ + Public Property VerbindlicheBefoerderungsroute() As VerbindlicheBefoerderungsrouteMRTyp + Get + Return Me._verbindlicheBefoerderungsroute + End Get + Set(value As VerbindlicheBefoerderungsrouteMRTyp) + Me._verbindlicheBefoerderungsroute = Value + End Set + End Property + + _ + Public Property BefoerderungsmittelAbgang() As BefoerderungsmittelAbgangMRTyp + Get + Return Me._befoerderungsmittelAbgang + End Get + Set(value As BefoerderungsmittelAbgangMRTyp) + Me._befoerderungsmittelAbgang = Value + End Set + End Property + + _ + Public Property DurchgangszollstelleNCTS() As List(Of String) + Get + Return Me._durchgangszollstelleNCTS + End Get + Set(value As List(Of String)) + Me._durchgangszollstelleNCTS = Value + End Set + End Property + + _ + Public Property BefoerderungsrouteSumASicherheitLand() As List(Of String) + Get + Return Me._befoerderungsrouteSumASicherheitLand + End Get + Set(value As List(Of String)) + Me._befoerderungsrouteSumASicherheitLand = Value + End Set + End Property + + _ + Public Property Versender() As AdresseMRTyp + Get + Return Me._versender + End Get + Set(value As AdresseMRTyp) + Me._versender = Value + End Set + End Property + + _ + Public Property VersenderSumASicherheit() As AdresseMRTyp + Get + Return Me._versenderSumASicherheit + End Get + Set(value As AdresseMRTyp) + Me._versenderSumASicherheit = Value + End Set + End Property + + _ + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set(value As AdresseMRTyp) + Me._empfaenger = Value + End Set + End Property + + _ + Public Property EmpfaengerSumASicherheit() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheit + End Get + Set(value As AdresseMRTyp) + Me._empfaengerSumASicherheit = Value + End Set + End Property + + _ + Public Property Hauptverpflichteter() As AdresseTINKurzMRTyp + Get + Return Me._hauptverpflichteter + End Get + Set(value As AdresseTINKurzMRTyp) + Me._hauptverpflichteter = Value + End Set + End Property + + _ + Public Property Befoerderer() As AdresseMRTyp + Get + Return Me._befoerderer + End Get + Set(value As AdresseMRTyp) + Me._befoerderer = Value + End Set + End Property + + _ + Public Property ZugelassenerEmpfaengerEORI() As String + Get + Return Me._zugelassenerEmpfaengerEORI + End Get + Set(value As String) + Me._zugelassenerEmpfaengerEORI = Value + End Set + End Property + + _ + Public Property Verschluesse() As VerschluesseMRTyp + Get + Return Me._verschluesse + End Get + Set(value As VerschluesseMRTyp) + Me._verschluesse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenUeberlassungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + 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 KopfDatenUeberlassungsmeldungTyp) 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 KopfDatenUeberlassungsmeldungTyp + 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 Class + + _ + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + _ + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionNCTSTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_004.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_004.xsd new file mode 100644 index 0000000..f7070dd --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_004.xsd @@ -0,0 +1,481 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_005.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_005.Designer.vb new file mode 100644 index 0000000..4a89be2 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_005.Designer.vb @@ -0,0 +1,6555 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' UeberlassungsmeldungNCTSDE_005ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace UeberlassungsmeldungNCTSDE_005 + + _ + Partial Public Class UeberlassungsmeldungMRTyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelUeberlassungsmeldung As EinzelUeberlassungsmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelUeberlassungsmeldung = New EinzelUeberlassungsmeldungTyp() + End Sub + + _ + Public Property EinzelUeberlassungsmeldung() As EinzelUeberlassungsmeldungTyp + Get + Return Me._einzelUeberlassungsmeldung + End Get + Set(value As EinzelUeberlassungsmeldungTyp) + Me._einzelUeberlassungsmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UeberlassungsmeldungMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UeberlassungsmeldungMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UeberlassungsmeldungMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UeberlassungsmeldungMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UeberlassungsmeldungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UeberlassungsmeldungMRTyp + Return CType(Serializer.Deserialize(s), UeberlassungsmeldungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current UeberlassungsmeldungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UeberlassungsmeldungMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + 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 UeberlassungsmeldungMRTyp) 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 UeberlassungsmeldungMRTyp + 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 Class + + _ + Partial Public Class EinzelUeberlassungsmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMRTyp + + Private _kopfDaten As KopfDatenUeberlassungsmeldungTyp + + Private _warenPosition As List(Of WarenPositionUeberlassungsmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._warenPosition = New List(Of WarenPositionUeberlassungsmeldungTyp)() + Me._kopfDaten = New KopfDatenUeberlassungsmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMRTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMRTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungMRTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenUeberlassungsmeldungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenUeberlassungsmeldungTyp) + Me._kopfDaten = Value + End Set + End Property + + _ + Public Property WarenPosition() As List(Of WarenPositionUeberlassungsmeldungTyp) + Get + Return Me._warenPosition + End Get + Set(value As List(Of WarenPositionUeberlassungsmeldungTyp)) + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelUeberlassungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + 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 EinzelUeberlassungsmeldungTyp) 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 EinzelUeberlassungsmeldungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungMRTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + _ + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set(value As String) + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMRTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + 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 ObjektIdentifizierungMRTyp) 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 ObjektIdentifizierungMRTyp + 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 Class + + _ + Partial Public Class PositionAVUVMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _kzZugangATLAS As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _warenbezogeneAngaben As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set(value As String) + Me._satznummer = Value + End Set + End Property + + _ + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set(value As String) + Me._kzZugangATLAS = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set(value As String) + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAVUVMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionAVUVMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionAVUVMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAVUVMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAVUVMRTyp + Return CType(Serializer.Deserialize(s), PositionAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionAVUVMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + 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 PositionAVUVMRTyp) 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 PositionAVUVMRTyp + 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 Class + + _ + Partial Public Class BeendigungAVUVMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _positionAVUV As List(Of PositionAVUVMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._positionAVUV = New List(Of PositionAVUVMRTyp)() + End Sub + + _ + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set(value As String) + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + _ + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set(value As String) + Me._bewilligungsnummer = Value + End Set + End Property + + _ + Public Property PositionAVUV() As List(Of PositionAVUVMRTyp) + Get + Return Me._positionAVUV + End Get + Set(value As List(Of PositionAVUVMRTyp)) + Me._positionAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungAVUVMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungAVUVMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungAVUVMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungAVUVMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungAVUVMRTyp + Return CType(Serializer.Deserialize(s), BeendigungAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungAVUVMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + 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 BeendigungAVUVMRTyp) 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 BeendigungAVUVMRTyp + 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 Class + + _ + Partial Public Class HandelsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set(value As Decimal) + Me._wert = Value + End Set + End Property + + _ + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set(value As String) + Me._masseinheit = Value + End Set + End Property + + _ + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set(value As String) + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HandelsmengeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HandelsmengeMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an HandelsmengeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HandelsmengeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HandelsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HandelsmengeMRTyp + Return CType(Serializer.Deserialize(s), HandelsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current HandelsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an HandelsmengeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + 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 HandelsmengeMRTyp) 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 HandelsmengeMRTyp + 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 Class + + _ + Partial Public Class AbgangsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set(value As Decimal) + Me._wert = Value + End Set + End Property + + _ + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set(value As String) + Me._masseinheit = Value + End Set + End Property + + _ + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set(value As String) + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgangsmengeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgangsmengeMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgangsmengeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgangsmengeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgangsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgangsmengeMRTyp + Return CType(Serializer.Deserialize(s), AbgangsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgangsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgangsmengeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + 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 AbgangsmengeMRTyp) 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 AbgangsmengeMRTyp + 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 Class + + _ + Partial Public Class PositionZLMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _warennummer As String + + Private _kzZugangATLAS As String + + Private _kzUeblicheBehandlung As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _zusatz As String + + Private _abgangsmenge As AbgangsmengeMRTyp + + Private _handelsmenge As HandelsmengeMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._handelsmenge = New HandelsmengeMRTyp() + Me._abgangsmenge = New AbgangsmengeMRTyp() + End Sub + + _ + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set(value As String) + Me._satznummer = Value + End Set + End Property + + _ + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set(value As String) + Me._warennummer = Value + End Set + End Property + + _ + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set(value As String) + Me._kzZugangATLAS = Value + End Set + End Property + + _ + Public Property KzUeblicheBehandlung() As String + Get + Return Me._kzUeblicheBehandlung + End Get + Set(value As String) + Me._kzUeblicheBehandlung = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + _ + Public Property Abgangsmenge() As AbgangsmengeMRTyp + Get + Return Me._abgangsmenge + End Get + Set(value As AbgangsmengeMRTyp) + Me._abgangsmenge = Value + End Set + End Property + + _ + Public Property Handelsmenge() As HandelsmengeMRTyp + Get + Return Me._handelsmenge + End Get + Set(value As HandelsmengeMRTyp) + Me._handelsmenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionZLMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionZLMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionZLMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionZLMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionZLMRTyp + Return CType(Serializer.Deserialize(s), PositionZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionZLMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + 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 PositionZLMRTyp) 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 PositionZLMRTyp + 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 Class + + _ + Partial Public Class BeendigungZLMRTyp + +#Region "Private fields" + Private _bezugsnummer As String + + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _positionZL As List(Of PositionZLMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._positionZL = New List(Of PositionZLMRTyp)() + End Sub + + _ + Public Property Bezugsnummer() As String + Get + Return Me._bezugsnummer + End Get + Set(value As String) + Me._bezugsnummer = Value + End Set + End Property + + _ + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set(value As String) + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + _ + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set(value As String) + Me._bewilligungsnummer = Value + End Set + End Property + + _ + Public Property PositionZL() As List(Of PositionZLMRTyp) + Get + Return Me._positionZL + End Get + Set(value As List(Of PositionZLMRTyp)) + Me._positionZL = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungZLMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungZLMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungZLMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungZLMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungZLMRTyp + Return CType(Serializer.Deserialize(s), BeendigungZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungZLMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + 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 BeendigungZLMRTyp) 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 BeendigungZLMRTyp + 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 Class + + _ + Partial Public Class PositionSumAMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _stueckzahl As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _verwahrerEORI As String + + Private _spOArt As String + + Private _spONummer As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set(value As String) + Me._satznummer = Value + End Set + End Property + + _ + Public Property Stueckzahl() As String + Get + Return Me._stueckzahl + End Get + Set(value As String) + Me._stueckzahl = Value + End Set + End Property + + _ + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set(value As String) + Me._registriernummer = Value + End Set + End Property + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property VerwahrerEORI() As String + Get + Return Me._verwahrerEORI + End Get + Set(value As String) + Me._verwahrerEORI = Value + End Set + End Property + + _ + Public Property SpOArt() As String + Get + Return Me._spOArt + End Get + Set(value As String) + Me._spOArt = Value + End Set + End Property + + _ + Public Property SpONummer() As String + Get + Return Me._spONummer + End Get + Set(value As String) + Me._spONummer = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionSumAMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionSumAMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionSumAMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionSumAMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionSumAMRTyp + Return CType(Serializer.Deserialize(s), PositionSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionSumAMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + 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 PositionSumAMRTyp) 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 PositionSumAMRTyp + 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 Class + + _ + Partial Public Class BeendigungSumAMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _artIdentifikation As String + + Private _positionSumA As List(Of PositionSumAMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._positionSumA = New List(Of PositionSumAMRTyp)() + End Sub + + _ + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set(value As String) + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + _ + Public Property ArtIdentifikation() As String + Get + Return Me._artIdentifikation + End Get + Set(value As String) + Me._artIdentifikation = Value + End Set + End Property + + _ + Public Property PositionSumA() As List(Of PositionSumAMRTyp) + Get + Return Me._positionSumA + End Get + Set(value As List(Of PositionSumAMRTyp)) + Me._positionSumA = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungSumAMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungSumAMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungSumAMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungSumAMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungSumAMRTyp + Return CType(Serializer.Deserialize(s), BeendigungSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungSumAMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + 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 BeendigungSumAMRTyp) 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 BeendigungSumAMRTyp + 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 Class + + _ + Partial Public Class SGIMRTyp + +#Region "Private fields" + Private _code As String + + Private _empfindlicheMenge As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Code() As String + Get + Return Me._code + End Get + Set(value As String) + Me._code = Value + End Set + End Property + + _ + Public Property EmpfindlicheMenge() As Decimal + Get + Return Me._empfindlicheMenge + End Get + Set(value As Decimal) + Me._empfindlicheMenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SGIMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SGIMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SGIMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SGIMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SGIMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGIMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SGIMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SGIMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SGIMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SGIMRTyp + Return CType(Serializer.Deserialize(s), SGIMRTyp) + End Function +#End Region + + ''' + ''' Serializes current SGIMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SGIMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SGIMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SGIMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGIMRTyp) + 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 SGIMRTyp) 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 SGIMRTyp + 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 Class + + _ + Partial Public Class BesondereVermerkeMRTyp + +#Region "Private fields" + Private _exportBeschraenkung As String + + Private _exportAbgaben As String + + Private _export As String + + Private _exportAusEU As String + + Private _exportAusLand As String + + Private _kz10600 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ExportBeschraenkung() As String + Get + Return Me._exportBeschraenkung + End Get + Set(value As String) + Me._exportBeschraenkung = Value + End Set + End Property + + _ + Public Property ExportAbgaben() As String + Get + Return Me._exportAbgaben + End Get + Set(value As String) + Me._exportAbgaben = Value + End Set + End Property + + _ + Public Property Export() As String + Get + Return Me._export + End Get + Set(value As String) + Me._export = Value + End Set + End Property + + _ + Public Property ExportAusEU() As String + Get + Return Me._exportAusEU + End Get + Set(value As String) + Me._exportAusEU = Value + End Set + End Property + + _ + Public Property ExportAusLand() As String + Get + Return Me._exportAusLand + End Get + Set(value As String) + Me._exportAusLand = Value + End Set + End Property + + _ + Public Property Kz10600() As String + Get + Return Me._kz10600 + End Get + Set(value As String) + Me._kz10600 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BesondereVermerkeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BesondereVermerkeMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BesondereVermerkeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BesondereVermerkeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BesondereVermerkeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BesondereVermerkeMRTyp + Return CType(Serializer.Deserialize(s), BesondereVermerkeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BesondereVermerkeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BesondereVermerkeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + 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 BesondereVermerkeMRTyp) 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 BesondereVermerkeMRTyp + 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 Class + + _ + Partial Public Class VorgelegteUnterlBeschGenehmMRTyp + +#Region "Private fields" + Private _typ As String + + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Typ() As String + Get + Return Me._typ + End Get + Set(value As String) + Me._typ = Value + End Set + End Property + + _ + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set(value As String) + Me._referenz = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorgelegteUnterlBeschGenehmMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorgelegteUnterlBeschGenehmMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorgelegteUnterlBeschGenehmMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorgelegteUnterlBeschGenehmMRTyp + Return CType(Serializer.Deserialize(s), VorgelegteUnterlBeschGenehmMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + 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 VorgelegteUnterlBeschGenehmMRTyp) 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 VorgelegteUnterlBeschGenehmMRTyp + 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 Class + + _ + Partial Public Class PackstueckMRTyp + +#Region "Private fields" + Private _anzahl As String + + Private _verpackungsart As String + + Private _zeichenNummern As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set(value As String) + Me._anzahl = Value + End Set + End Property + + _ + Public Property Verpackungsart() As String + Get + Return Me._verpackungsart + End Get + Set(value As String) + Me._verpackungsart = Value + End Set + End Property + + _ + Public Property ZeichenNummern() As String + Get + Return Me._zeichenNummern + End Get + Set(value As String) + Me._zeichenNummern = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PackstueckMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PackstueckMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PackstueckMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PackstueckMRTyp + Return CType(Serializer.Deserialize(s), PackstueckMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PackstueckMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PackstueckMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + 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 PackstueckMRTyp) 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 PackstueckMRTyp + 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 Class + + _ + Partial Public Class VorpapierMRTyp + +#Region "Private fields" + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set(value As String) + Me._referenz = Value + End Set + End Property + + _ + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set(value As String) + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorpapierMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorpapierMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorpapierMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorpapierMRTyp + Return CType(Serializer.Deserialize(s), VorpapierMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorpapierMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorpapierMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + 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 VorpapierMRTyp) 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 VorpapierMRTyp + 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 Class + + _ + Partial Public Class WarenPositionUeberlassungsmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _artAnmeldungPosition As String + + Private _versendungsAusfuhrlandPosition As String + + Private _bestimmungslandPosition As String + + Private _warennummer As String + + Private _kennnummerSendungPosition As String + + Private _befoerderungskostenZahlungsweisePosition As String + + Private _uNGefahrgutnummer As String + + Private _warenbezeichnung As String + + Private _rohmasse As Decimal + + Private _eigenmasse As Decimal + + Private _versenderPosition As AdresseMRTyp + + Private _versenderSumASicherheitPosition As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheitPosition As AdresseMRTyp + + Private _vorpapiereTyp As String + + Private _vorpapier As List(Of VorpapierMRTyp) + + Private _packstuecke As List(Of PackstueckMRTyp) + + Private _containernummer As List(Of String) + + Private _vorgelegteUnterlagenBescheinigungenGenehmigungen As List(Of VorgelegteUnterlBeschGenehmMRTyp) + + Private _besondereVermerke As BesondereVermerkeMRTyp + + Private _sGI As SGIMRTyp + + Private _beendigungSumA As BeendigungSumAMRTyp + + Private _beendigungZL As BeendigungZLMRTyp + + Private _beendigungAVUV As BeendigungAVUVMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._beendigungAVUV = New BeendigungAVUVMRTyp() + Me._beendigungZL = New BeendigungZLMRTyp() + Me._beendigungSumA = New BeendigungSumAMRTyp() + Me._sGI = New SGIMRTyp() + Me._besondereVermerke = New BesondereVermerkeMRTyp() + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = New List(Of VorgelegteUnterlBeschGenehmMRTyp)() + Me._containernummer = New List(Of String)() + Me._packstuecke = New List(Of PackstueckMRTyp)() + Me._vorpapier = New List(Of VorpapierMRTyp)() + Me._empfaengerSumASicherheitPosition = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheitPosition = New AdresseMRTyp() + Me._versenderPosition = New AdresseMRTyp() + End Sub + + _ + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set(value As String) + Me._positionsnummer = Value + End Set + End Property + + _ + Public Property ArtAnmeldungPosition() As String + Get + Return Me._artAnmeldungPosition + End Get + Set(value As String) + Me._artAnmeldungPosition = Value + End Set + End Property + + _ + Public Property VersendungsAusfuhrlandPosition() As String + Get + Return Me._versendungsAusfuhrlandPosition + End Get + Set(value As String) + Me._versendungsAusfuhrlandPosition = Value + End Set + End Property + + _ + Public Property BestimmungslandPosition() As String + Get + Return Me._bestimmungslandPosition + End Get + Set(value As String) + Me._bestimmungslandPosition = Value + End Set + End Property + + _ + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set(value As String) + Me._warennummer = Value + End Set + End Property + + _ + Public Property KennnummerSendungPosition() As String + Get + Return Me._kennnummerSendungPosition + End Get + Set(value As String) + Me._kennnummerSendungPosition = Value + End Set + End Property + + _ + Public Property BefoerderungskostenZahlungsweisePosition() As String + Get + Return Me._befoerderungskostenZahlungsweisePosition + End Get + Set(value As String) + Me._befoerderungskostenZahlungsweisePosition = Value + End Set + End Property + + _ + Public Property UNGefahrgutnummer() As String + Get + Return Me._uNGefahrgutnummer + End Get + Set(value As String) + Me._uNGefahrgutnummer = Value + End Set + End Property + + _ + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set(value As String) + Me._warenbezeichnung = Value + End Set + End Property + + _ + Public Property Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set(value As Decimal) + Me._rohmasse = Value + End Set + End Property + + _ + Public Property Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set(value As Decimal) + Me._eigenmasse = Value + End Set + End Property + + _ + Public Property VersenderPosition() As AdresseMRTyp + Get + Return Me._versenderPosition + End Get + Set(value As AdresseMRTyp) + Me._versenderPosition = Value + End Set + End Property + + _ + Public Property VersenderSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._versenderSumASicherheitPosition + End Get + Set(value As AdresseMRTyp) + Me._versenderSumASicherheitPosition = Value + End Set + End Property + + _ + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set(value As AdresseMRTyp) + Me._empfaenger = Value + End Set + End Property + + _ + Public Property EmpfaengerSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheitPosition + End Get + Set(value As AdresseMRTyp) + Me._empfaengerSumASicherheitPosition = Value + End Set + End Property + + _ + Public Property VorpapiereTyp() As String + Get + Return Me._vorpapiereTyp + End Get + Set(value As String) + Me._vorpapiereTyp = Value + End Set + End Property + + _ + Public Property Vorpapier() As List(Of VorpapierMRTyp) + Get + Return Me._vorpapier + End Get + Set(value As List(Of VorpapierMRTyp)) + Me._vorpapier = Value + End Set + End Property + + _ + Public Property Packstuecke() As List(Of PackstueckMRTyp) + Get + Return Me._packstuecke + End Get + Set(value As List(Of PackstueckMRTyp)) + Me._packstuecke = Value + End Set + End Property + + _ + Public Property Containernummer() As List(Of String) + Get + Return Me._containernummer + End Get + Set(value As List(Of String)) + Me._containernummer = Value + End Set + End Property + + _ + Public Property VorgelegteUnterlagenBescheinigungenGenehmigungen() As List(Of VorgelegteUnterlBeschGenehmMRTyp) + Get + Return Me._vorgelegteUnterlagenBescheinigungenGenehmigungen + End Get + Set(value As List(Of VorgelegteUnterlBeschGenehmMRTyp)) + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = Value + End Set + End Property + + _ + Public Property BesondereVermerke() As BesondereVermerkeMRTyp + Get + Return Me._besondereVermerke + End Get + Set(value As BesondereVermerkeMRTyp) + Me._besondereVermerke = Value + End Set + End Property + + _ + Public Property SGI() As SGIMRTyp + Get + Return Me._sGI + End Get + Set(value As SGIMRTyp) + Me._sGI = Value + End Set + End Property + + _ + Public Property BeendigungSumA() As BeendigungSumAMRTyp + Get + Return Me._beendigungSumA + End Get + Set(value As BeendigungSumAMRTyp) + Me._beendigungSumA = Value + End Set + End Property + + _ + Public Property BeendigungZL() As BeendigungZLMRTyp + Get + Return Me._beendigungZL + End Get + Set(value As BeendigungZLMRTyp) + Me._beendigungZL = Value + End Set + End Property + + _ + Public Property BeendigungAVUV() As BeendigungAVUVMRTyp + Get + Return Me._beendigungAVUV + End Get + Set(value As BeendigungAVUVMRTyp) + Me._beendigungAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarenPositionUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WarenPositionUeberlassungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an WarenPositionUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenPositionUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarenPositionUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenPositionUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), WarenPositionUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenPositionUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an WarenPositionUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + 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 WarenPositionUeberlassungsmeldungTyp) 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 WarenPositionUeberlassungsmeldungTyp + 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 Class + + _ + Partial Public Class AdresseMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _identifikationsart As String + + Private _nLNR As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + _ + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set(value As String) + Me._eORI = Value + End Set + End Property + + _ + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set(value As String) + Me._identifikationsart = Value + End Set + End Property + + _ + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set(value As String) + Me._nLNR = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set(value As String) + Me._strasseHausnummer = Value + End Set + End Property + + _ + Public Property Land() As String + Get + Return Me._land + End Get + Set(value As String) + Me._land = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerMRTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdresseMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseMRTyp + Return CType(Serializer.Deserialize(s), AdresseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdresseMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + 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 AdresseMRTyp) 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 AdresseMRTyp + 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 Class + + _ + Partial Public Class AnsprechpartnerMRTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _stellung As String + + Private _telefonnummer As String + + Private _telefaxnummer As String + + Private _emailAdresse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set(value As String) + Me._sachbearbeiter = Value + End Set + End Property + + _ + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set(value As String) + Me._stellung = Value + End Set + End Property + + _ + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set(value As String) + Me._telefonnummer = Value + End Set + End Property + + _ + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set(value As String) + Me._telefaxnummer = Value + End Set + End Property + + _ + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set(value As String) + Me._emailAdresse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnsprechpartnerMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AnsprechpartnerMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnsprechpartnerMRTyp + Return CType(Serializer.Deserialize(s), AnsprechpartnerMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AnsprechpartnerMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AnsprechpartnerMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + 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 AnsprechpartnerMRTyp) 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 AnsprechpartnerMRTyp + 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 Class + + _ + Partial Public Class VerschluesseMRTyp + +#Region "Private fields" + Private _art As String + + Private _anzahl As String + + Private _zeichen As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._zeichen = New List(Of String)() + End Sub + + _ + Public Property Art() As String + Get + Return Me._art + End Get + Set(value As String) + Me._art = Value + End Set + End Property + + _ + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set(value As String) + Me._anzahl = Value + End Set + End Property + + _ + Public Property Zeichen() As List(Of String) + Get + Return Me._zeichen + End Get + Set(value As List(Of String)) + Me._zeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerschluesseMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerschluesseMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerschluesseMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerschluesseMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerschluesseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerschluesseMRTyp + Return CType(Serializer.Deserialize(s), VerschluesseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerschluesseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerschluesseMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + 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 VerschluesseMRTyp) 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 VerschluesseMRTyp + 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 Class + + _ + Partial Public Class AdresseTINKurzMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _nLNR As String + + Private _iDCarnet As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + _ + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set(value As String) + Me._eORI = Value + End Set + End Property + + _ + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set(value As String) + Me._nLNR = Value + End Set + End Property + + _ + Public Property IDCarnet() As String + Get + Return Me._iDCarnet + End Get + Set(value As String) + Me._iDCarnet = Value + End Set + End Property + + _ + Public Property Name() As String + Get + Return Me._name + End Get + Set(value As String) + Me._name = Value + End Set + End Property + + _ + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set(value As String) + Me._strasseHausnummer = Value + End Set + End Property + + _ + Public Property Land() As String + Get + Return Me._land + End Get + Set(value As String) + Me._land = Value + End Set + End Property + + _ + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set(value As String) + Me._pLZ = Value + End Set + End Property + + _ + Public Property Ort() As String + Get + Return Me._ort + End Get + Set(value As String) + Me._ort = Value + End Set + End Property + + _ + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set(value As AnsprechpartnerMRTyp) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseTINKurzMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseTINKurzMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdresseTINKurzMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseTINKurzMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseTINKurzMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseTINKurzMRTyp + Return CType(Serializer.Deserialize(s), AdresseTINKurzMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseTINKurzMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdresseTINKurzMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + 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 AdresseTINKurzMRTyp) 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 AdresseTINKurzMRTyp + 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 Class + + _ + Partial Public Class BefoerderungsmittelAbgangMRTyp + +#Region "Private fields" + Private _staatszugehoerigkeit As String + + Private _kennzeichen As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Staatszugehoerigkeit() As String + Get + Return Me._staatszugehoerigkeit + End Get + Set(value As String) + Me._staatszugehoerigkeit = Value + End Set + End Property + + _ + Public Property Kennzeichen() As String + Get + Return Me._kennzeichen + End Get + Set(value As String) + Me._kennzeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelAbgangMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BefoerderungsmittelAbgangMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BefoerderungsmittelAbgangMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelAbgangMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelAbgangMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefoerderungsmittelAbgangMRTyp + Return CType(Serializer.Deserialize(s), BefoerderungsmittelAbgangMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BefoerderungsmittelAbgangMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BefoerderungsmittelAbgangMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + 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 BefoerderungsmittelAbgangMRTyp) 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 BefoerderungsmittelAbgangMRTyp + 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 Class + + _ + Partial Public Class VerbindlicheBefoerderungsrouteMRTyp + +#Region "Private fields" + Private _aussetzung As String + + Private _beschreibung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Aussetzung() As String + Get + Return Me._aussetzung + End Get + Set(value As String) + Me._aussetzung = Value + End Set + End Property + + _ + Public Property Beschreibung() As String + Get + Return Me._beschreibung + End Get + Set(value As String) + Me._beschreibung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerbindlicheBefoerderungsrouteMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerbindlicheBefoerderungsrouteMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbindlicheBefoerderungsrouteMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerbindlicheBefoerderungsrouteMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbindlicheBefoerderungsrouteMRTyp + Return CType(Serializer.Deserialize(s), VerbindlicheBefoerderungsrouteMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbindlicheBefoerderungsrouteMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + 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 VerbindlicheBefoerderungsrouteMRTyp) 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 VerbindlicheBefoerderungsrouteMRTyp + 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 Class + + _ + Partial Public Class SicherheitMRTyp + +#Region "Private fields" + Private _art As String + + Private _bezeichnung As String + + Private _betrag As Decimal + + Private _sicherheitengeberTIN As String + + Private _waehrung As String + + Private _bescheinigung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Art() As String + Get + Return Me._art + End Get + Set(value As String) + Me._art = Value + End Set + End Property + + _ + Public Property Bezeichnung() As String + Get + Return Me._bezeichnung + End Get + Set(value As String) + Me._bezeichnung = Value + End Set + End Property + + _ + Public Property Betrag() As Decimal + Get + Return Me._betrag + End Get + Set(value As Decimal) + Me._betrag = Value + End Set + End Property + + _ + Public Property SicherheitengeberTIN() As String + Get + Return Me._sicherheitengeberTIN + End Get + Set(value As String) + Me._sicherheitengeberTIN = Value + End Set + End Property + + _ + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set(value As String) + Me._waehrung = Value + End Set + End Property + + _ + Public Property Bescheinigung() As String + Get + Return Me._bescheinigung + End Get + Set(value As String) + Me._bescheinigung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SicherheitMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitMRTyp + Return CType(Serializer.Deserialize(s), SicherheitMRTyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SicherheitMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + 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 SicherheitMRTyp) 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 SicherheitMRTyp + 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 Class + + _ + Partial Public Class KopfDatenUeberlassungsmeldungTyp + +#Region "Private fields" + Private _mRN As String + + Private _abgangszollstelle As String + + Private _annahmedatum As Date + + Private _ueberlassungsdatum As Date + + Private _wiedergestellungsdatum As Date + + Private _sicherheit As List(Of SicherheitMRTyp) + + Private _bestimmungszollstelle As String + + Private _vBDName As String + + Private _arbeitsnummer As String + + Private _kzSumASicherheit As String + + Private _kennnummerSendung As String + + Private _nummerBefoerderung As String + + Private _besondereUmstaende As String + + Private _ladeort As String + + Private _entladeort As String + + Private _befoerderungskostenZahlungsweise As String + + Private _artAnmeldung As String + + Private _anzahlPositionen As String + + Private _packstueckeGesamt As String + + Private _versendungsAusfuhrland As String + + Private _bestimmungsland As String + + Private _gesamtRohmasse As Decimal + + Private _kontrollErgebnis As String + + Private _verbindlicheBefoerderungsroute As VerbindlicheBefoerderungsrouteMRTyp + + Private _befoerderungsmittelAbgang As BefoerderungsmittelAbgangMRTyp + + Private _durchgangszollstelleNCTS As List(Of String) + + Private _befoerderungsrouteSumASicherheitLand As List(Of String) + + Private _versender As AdresseMRTyp + + Private _versenderSumASicherheit As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheit As AdresseMRTyp + + Private _hauptverpflichteter As AdresseTINKurzMRTyp + + Private _befoerderer As AdresseMRTyp + + Private _zugelassenerEmpfaengerEORI As String + + Private _verschluesse As VerschluesseMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._verschluesse = New VerschluesseMRTyp() + Me._befoerderer = New AdresseMRTyp() + Me._hauptverpflichteter = New AdresseTINKurzMRTyp() + Me._empfaengerSumASicherheit = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheit = New AdresseMRTyp() + Me._versender = New AdresseMRTyp() + Me._befoerderungsrouteSumASicherheitLand = New List(Of String)() + Me._durchgangszollstelleNCTS = New List(Of String)() + Me._befoerderungsmittelAbgang = New BefoerderungsmittelAbgangMRTyp() + Me._verbindlicheBefoerderungsroute = New VerbindlicheBefoerderungsrouteMRTyp() + Me._sicherheit = New List(Of SicherheitMRTyp)() + End Sub + + _ + Public Property MRN() As String + Get + Return Me._mRN + End Get + Set(value As String) + Me._mRN = Value + End Set + End Property + + _ + Public Property Abgangszollstelle() As String + Get + Return Me._abgangszollstelle + End Get + Set(value As String) + Me._abgangszollstelle = Value + End Set + End Property + + _ + Public Property Annahmedatum() As Date + Get + Return Me._annahmedatum + End Get + Set(value As Date) + Me._annahmedatum = Value + End Set + End Property + + _ + Public Property Ueberlassungsdatum() As Date + Get + Return Me._ueberlassungsdatum + End Get + Set(value As Date) + Me._ueberlassungsdatum = Value + End Set + End Property + + _ + Public Property Wiedergestellungsdatum() As Date + Get + Return Me._wiedergestellungsdatum + End Get + Set(value As Date) + Me._wiedergestellungsdatum = Value + End Set + End Property + + _ + Public Property Sicherheit() As List(Of SicherheitMRTyp) + Get + Return Me._sicherheit + End Get + Set(value As List(Of SicherheitMRTyp)) + Me._sicherheit = Value + End Set + End Property + + _ + Public Property Bestimmungszollstelle() As String + Get + Return Me._bestimmungszollstelle + End Get + Set(value As String) + Me._bestimmungszollstelle = Value + End Set + End Property + + _ + Public Property VBDName() As String + Get + Return Me._vBDName + End Get + Set(value As String) + Me._vBDName = Value + End Set + End Property + + _ + Public Property Arbeitsnummer() As String + Get + Return Me._arbeitsnummer + End Get + Set(value As String) + Me._arbeitsnummer = Value + End Set + End Property + + _ + Public Property KzSumASicherheit() As String + Get + Return Me._kzSumASicherheit + End Get + Set(value As String) + Me._kzSumASicherheit = Value + End Set + End Property + + _ + Public Property KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set(value As String) + Me._kennnummerSendung = Value + End Set + End Property + + _ + Public Property NummerBefoerderung() As String + Get + Return Me._nummerBefoerderung + End Get + Set(value As String) + Me._nummerBefoerderung = Value + End Set + End Property + + _ + Public Property BesondereUmstaende() As String + Get + Return Me._besondereUmstaende + End Get + Set(value As String) + Me._besondereUmstaende = Value + End Set + End Property + + _ + Public Property Ladeort() As String + Get + Return Me._ladeort + End Get + Set(value As String) + Me._ladeort = Value + End Set + End Property + + _ + Public Property Entladeort() As String + Get + Return Me._entladeort + End Get + Set(value As String) + Me._entladeort = Value + End Set + End Property + + _ + Public Property BefoerderungskostenZahlungsweise() As String + Get + Return Me._befoerderungskostenZahlungsweise + End Get + Set(value As String) + Me._befoerderungskostenZahlungsweise = Value + End Set + End Property + + _ + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set(value As String) + Me._artAnmeldung = Value + End Set + End Property + + _ + Public Property AnzahlPositionen() As String + Get + Return Me._anzahlPositionen + End Get + Set(value As String) + Me._anzahlPositionen = Value + End Set + End Property + + _ + Public Property PackstueckeGesamt() As String + Get + Return Me._packstueckeGesamt + End Get + Set(value As String) + Me._packstueckeGesamt = Value + End Set + End Property + + _ + Public Property VersendungsAusfuhrland() As String + Get + Return Me._versendungsAusfuhrland + End Get + Set(value As String) + Me._versendungsAusfuhrland = Value + End Set + End Property + + _ + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set(value As String) + Me._bestimmungsland = Value + End Set + End Property + + _ + Public Property GesamtRohmasse() As Decimal + Get + Return Me._gesamtRohmasse + End Get + Set(value As Decimal) + Me._gesamtRohmasse = Value + End Set + End Property + + _ + Public Property KontrollErgebnis() As String + Get + Return Me._kontrollErgebnis + End Get + Set(value As String) + Me._kontrollErgebnis = Value + End Set + End Property + + _ + Public Property VerbindlicheBefoerderungsroute() As VerbindlicheBefoerderungsrouteMRTyp + Get + Return Me._verbindlicheBefoerderungsroute + End Get + Set(value As VerbindlicheBefoerderungsrouteMRTyp) + Me._verbindlicheBefoerderungsroute = Value + End Set + End Property + + _ + Public Property BefoerderungsmittelAbgang() As BefoerderungsmittelAbgangMRTyp + Get + Return Me._befoerderungsmittelAbgang + End Get + Set(value As BefoerderungsmittelAbgangMRTyp) + Me._befoerderungsmittelAbgang = Value + End Set + End Property + + _ + Public Property DurchgangszollstelleNCTS() As List(Of String) + Get + Return Me._durchgangszollstelleNCTS + End Get + Set(value As List(Of String)) + Me._durchgangszollstelleNCTS = Value + End Set + End Property + + _ + Public Property BefoerderungsrouteSumASicherheitLand() As List(Of String) + Get + Return Me._befoerderungsrouteSumASicherheitLand + End Get + Set(value As List(Of String)) + Me._befoerderungsrouteSumASicherheitLand = Value + End Set + End Property + + _ + Public Property Versender() As AdresseMRTyp + Get + Return Me._versender + End Get + Set(value As AdresseMRTyp) + Me._versender = Value + End Set + End Property + + _ + Public Property VersenderSumASicherheit() As AdresseMRTyp + Get + Return Me._versenderSumASicherheit + End Get + Set(value As AdresseMRTyp) + Me._versenderSumASicherheit = Value + End Set + End Property + + _ + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set(value As AdresseMRTyp) + Me._empfaenger = Value + End Set + End Property + + _ + Public Property EmpfaengerSumASicherheit() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheit + End Get + Set(value As AdresseMRTyp) + Me._empfaengerSumASicherheit = Value + End Set + End Property + + _ + Public Property Hauptverpflichteter() As AdresseTINKurzMRTyp + Get + Return Me._hauptverpflichteter + End Get + Set(value As AdresseTINKurzMRTyp) + Me._hauptverpflichteter = Value + End Set + End Property + + _ + Public Property Befoerderer() As AdresseMRTyp + Get + Return Me._befoerderer + End Get + Set(value As AdresseMRTyp) + Me._befoerderer = Value + End Set + End Property + + _ + Public Property ZugelassenerEmpfaengerEORI() As String + Get + Return Me._zugelassenerEmpfaengerEORI + End Get + Set(value As String) + Me._zugelassenerEmpfaengerEORI = Value + End Set + End Property + + _ + Public Property Verschluesse() As VerschluesseMRTyp + Get + Return Me._verschluesse + End Get + Set(value As VerschluesseMRTyp) + Me._verschluesse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenUeberlassungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + 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 KopfDatenUeberlassungsmeldungTyp) 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 KopfDatenUeberlassungsmeldungTyp + 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 Class + + _ + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + _ + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionNCTSTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_005.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_005.xsd new file mode 100644 index 0000000..d305b63 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_005.xsd @@ -0,0 +1,477 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_006.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_006.Designer.vb new file mode 100644 index 0000000..550f9c5 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_006.Designer.vb @@ -0,0 +1,6365 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' UeberlassungsmeldungNCTSDE_006ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace UeberlassungsmeldungNCTSDE_006 + + + Partial Public Class UeberlassungsmeldungMRTyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelUeberlassungsmeldung As EinzelUeberlassungsmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelUeberlassungsmeldung = New EinzelUeberlassungsmeldungTyp() + End Sub + + + Public Property EinzelUeberlassungsmeldung() As EinzelUeberlassungsmeldungTyp + Get + Return Me._einzelUeberlassungsmeldung + End Get + Set + Me._einzelUeberlassungsmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UeberlassungsmeldungMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UeberlassungsmeldungMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UeberlassungsmeldungMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UeberlassungsmeldungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UeberlassungsmeldungMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UeberlassungsmeldungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UeberlassungsmeldungMRTyp + Return CType(Serializer.Deserialize(s), UeberlassungsmeldungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current UeberlassungsmeldungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UeberlassungsmeldungMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output UeberlassungsmeldungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UeberlassungsmeldungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UeberlassungsmeldungMRTyp) + 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 UeberlassungsmeldungMRTyp) 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 UeberlassungsmeldungMRTyp + 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 Class + + + Partial Public Class EinzelUeberlassungsmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMRTyp + + Private _kopfDaten As KopfDatenUeberlassungsmeldungTyp + + Private _warenPosition As List(Of WarenPositionUeberlassungsmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenPosition = New List(Of WarenPositionUeberlassungsmeldungTyp)() + Me._kopfDaten = New KopfDatenUeberlassungsmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMRTyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMRTyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenUeberlassungsmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property WarenPosition() As List(Of WarenPositionUeberlassungsmeldungTyp) + Get + Return Me._warenPosition + End Get + Set + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelUeberlassungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUeberlassungsmeldungTyp) + 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 EinzelUeberlassungsmeldungTyp) 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 EinzelUeberlassungsmeldungTyp + 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 Class + + + Partial Public Class ObjektIdentifizierungMRTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMRTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMRTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMRTyp) + 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 ObjektIdentifizierungMRTyp) 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 ObjektIdentifizierungMRTyp + 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 Class + + + Partial Public Class PositionAVUVMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _kzZugangATLAS As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _warenbezogeneAngaben As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set + Me._satznummer = Value + End Set + End Property + + + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set + Me._kzZugangATLAS = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionAVUVMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionAVUVMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionAVUVMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionAVUVMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionAVUVMRTyp + Return CType(Serializer.Deserialize(s), PositionAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionAVUVMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionAVUVMRTyp) + 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 PositionAVUVMRTyp) 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 PositionAVUVMRTyp + 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 Class + + + Partial Public Class BeendigungAVUVMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _kzVereinfBewillAntrgAV As String + + Private _deutschesUeHZAbeiAV As String + + Private _positionAVUV As List(Of PositionAVUVMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionAVUV = New List(Of PositionAVUVMRTyp)() + End Sub + + + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property KzVereinfBewillAntrgAV() As String + Get + Return Me._kzVereinfBewillAntrgAV + End Get + Set + Me._kzVereinfBewillAntrgAV = Value + End Set + End Property + + + Public Property DeutschesUeHZAbeiAV() As String + Get + Return Me._deutschesUeHZAbeiAV + End Get + Set + Me._deutschesUeHZAbeiAV = Value + End Set + End Property + + + Public Property PositionAVUV() As List(Of PositionAVUVMRTyp) + Get + Return Me._positionAVUV + End Get + Set + Me._positionAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungAVUVMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungAVUVMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungAVUVMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungAVUVMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungAVUVMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungAVUVMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungAVUVMRTyp + Return CType(Serializer.Deserialize(s), BeendigungAVUVMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungAVUVMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungAVUVMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungAVUVMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungAVUVMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungAVUVMRTyp) + 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 BeendigungAVUVMRTyp) 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 BeendigungAVUVMRTyp + 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 Class + + + Partial Public Class HandelsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HandelsmengeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HandelsmengeMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an HandelsmengeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HandelsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HandelsmengeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HandelsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HandelsmengeMRTyp + Return CType(Serializer.Deserialize(s), HandelsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current HandelsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an HandelsmengeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output HandelsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HandelsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HandelsmengeMRTyp) + 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 HandelsmengeMRTyp) 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 HandelsmengeMRTyp + 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 Class + + + Partial Public Class AbgangsmengeMRTyp + +#Region "Private fields" + Private _wert As Decimal + + Private _masseinheit As String + + Private _qualifikator As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Wert() As Decimal + Get + Return Me._wert + End Get + Set + Me._wert = Value + End Set + End Property + + + Public Property Masseinheit() As String + Get + Return Me._masseinheit + End Get + Set + Me._masseinheit = Value + End Set + End Property + + + Public Property Qualifikator() As String + Get + Return Me._qualifikator + End Get + Set + Me._qualifikator = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AbgangsmengeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AbgangsmengeMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AbgangsmengeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AbgangsmengeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AbgangsmengeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AbgangsmengeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AbgangsmengeMRTyp + Return CType(Serializer.Deserialize(s), AbgangsmengeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AbgangsmengeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AbgangsmengeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AbgangsmengeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AbgangsmengeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AbgangsmengeMRTyp) + 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 AbgangsmengeMRTyp) 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 AbgangsmengeMRTyp + 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 Class + + + Partial Public Class PositionZLMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _warennummer As String + + Private _kzZugangATLAS As String + + Private _kzUeblicheBehandlung As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _zusatz As String + + Private _abgangsmenge As AbgangsmengeMRTyp + + Private _handelsmenge As HandelsmengeMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._handelsmenge = New HandelsmengeMRTyp() + Me._abgangsmenge = New AbgangsmengeMRTyp() + End Sub + + + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set + Me._satznummer = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set + Me._kzZugangATLAS = Value + End Set + End Property + + + Public Property KzUeblicheBehandlung() As String + Get + Return Me._kzUeblicheBehandlung + End Get + Set + Me._kzUeblicheBehandlung = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + + Public Property Abgangsmenge() As AbgangsmengeMRTyp + Get + Return Me._abgangsmenge + End Get + Set + Me._abgangsmenge = Value + End Set + End Property + + + Public Property Handelsmenge() As HandelsmengeMRTyp + Get + Return Me._handelsmenge + End Get + Set + Me._handelsmenge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionZLMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionZLMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionZLMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionZLMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionZLMRTyp + Return CType(Serializer.Deserialize(s), PositionZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionZLMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionZLMRTyp) + 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 PositionZLMRTyp) 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 PositionZLMRTyp + 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 Class + + + Partial Public Class BeendigungZLMRTyp + +#Region "Private fields" + Private _bezugsnummer As String + + Private _kennzeichenAbgleichErfolgt As String + + Private _bewilligungsnummer As String + + Private _positionZL As List(Of PositionZLMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionZL = New List(Of PositionZLMRTyp)() + End Sub + + + Public Property Bezugsnummer() As String + Get + Return Me._bezugsnummer + End Get + Set + Me._bezugsnummer = Value + End Set + End Property + + + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property PositionZL() As List(Of PositionZLMRTyp) + Get + Return Me._positionZL + End Get + Set + Me._positionZL = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungZLMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungZLMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungZLMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungZLMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungZLMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungZLMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungZLMRTyp + Return CType(Serializer.Deserialize(s), BeendigungZLMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungZLMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungZLMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungZLMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungZLMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungZLMRTyp) + 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 BeendigungZLMRTyp) 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 BeendigungZLMRTyp + 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 Class + + + Partial Public Class PositionSumAMRTyp + +#Region "Private fields" + Private _satznummer As String + + Private _stueckzahl As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _verwahrerEORI As String + + Private _spOArt As String + + Private _spONummer As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Satznummer() As String + Get + Return Me._satznummer + End Get + Set + Me._satznummer = Value + End Set + End Property + + + Public Property Stueckzahl() As String + Get + Return Me._stueckzahl + End Get + Set + Me._stueckzahl = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property VerwahrerEORI() As String + Get + Return Me._verwahrerEORI + End Get + Set + Me._verwahrerEORI = Value + End Set + End Property + + + Public Property SpOArt() As String + Get + Return Me._spOArt + End Get + Set + Me._spOArt = Value + End Set + End Property + + + Public Property SpONummer() As String + Get + Return Me._spONummer + End Get + Set + Me._spONummer = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PositionSumAMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PositionSumAMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PositionSumAMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PositionSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PositionSumAMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PositionSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PositionSumAMRTyp + Return CType(Serializer.Deserialize(s), PositionSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PositionSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PositionSumAMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PositionSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PositionSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PositionSumAMRTyp) + 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 PositionSumAMRTyp) 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 PositionSumAMRTyp + 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 Class + + + Partial Public Class BeendigungSumAMRTyp + +#Region "Private fields" + Private _kennzeichenAbgleichErfolgt As String + + Private _artIdentifikation As String + + Private _positionSumA As List(Of PositionSumAMRTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._positionSumA = New List(Of PositionSumAMRTyp)() + End Sub + + + Public Property KennzeichenAbgleichErfolgt() As String + Get + Return Me._kennzeichenAbgleichErfolgt + End Get + Set + Me._kennzeichenAbgleichErfolgt = Value + End Set + End Property + + + Public Property ArtIdentifikation() As String + Get + Return Me._artIdentifikation + End Get + Set + Me._artIdentifikation = Value + End Set + End Property + + + Public Property PositionSumA() As List(Of PositionSumAMRTyp) + Get + Return Me._positionSumA + End Get + Set + Me._positionSumA = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungSumAMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungSumAMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungSumAMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungSumAMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungSumAMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungSumAMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungSumAMRTyp + Return CType(Serializer.Deserialize(s), BeendigungSumAMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungSumAMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungSumAMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungSumAMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungSumAMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungSumAMRTyp) + 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 BeendigungSumAMRTyp) 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 BeendigungSumAMRTyp + 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 Class + + + Partial Public Class BesondereVermerkeMRTyp + +#Region "Private fields" + Private _exportBeschraenkung As String + + Private _exportAbgaben As String + + Private _export As String + + Private _exportAusEU As String + + Private _exportAusLand As String + + Private _kz10600 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ExportBeschraenkung() As String + Get + Return Me._exportBeschraenkung + End Get + Set + Me._exportBeschraenkung = Value + End Set + End Property + + + Public Property ExportAbgaben() As String + Get + Return Me._exportAbgaben + End Get + Set + Me._exportAbgaben = Value + End Set + End Property + + + Public Property Export() As String + Get + Return Me._export + End Get + Set + Me._export = Value + End Set + End Property + + + Public Property ExportAusEU() As String + Get + Return Me._exportAusEU + End Get + Set + Me._exportAusEU = Value + End Set + End Property + + + Public Property ExportAusLand() As String + Get + Return Me._exportAusLand + End Get + Set + Me._exportAusLand = Value + End Set + End Property + + + Public Property Kz10600() As String + Get + Return Me._kz10600 + End Get + Set + Me._kz10600 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BesondereVermerkeMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BesondereVermerkeMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BesondereVermerkeMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BesondereVermerkeMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BesondereVermerkeMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BesondereVermerkeMRTyp + Return CType(Serializer.Deserialize(s), BesondereVermerkeMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BesondereVermerkeMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BesondereVermerkeMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BesondereVermerkeMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereVermerkeMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeMRTyp) + 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 BesondereVermerkeMRTyp) 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 BesondereVermerkeMRTyp + 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 Class + + + Partial Public Class VorgelegteUnterlBeschGenehmMRTyp + +#Region "Private fields" + Private _typ As String + + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Typ() As String + Get + Return Me._typ + End Get + Set + Me._typ = Value + End Set + End Property + + + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set + Me._referenz = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorgelegteUnterlBeschGenehmMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorgelegteUnterlBeschGenehmMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorgelegteUnterlBeschGenehmMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorgelegteUnterlBeschGenehmMRTyp + Return CType(Serializer.Deserialize(s), VorgelegteUnterlBeschGenehmMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorgelegteUnterlBeschGenehmMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorgelegteUnterlBeschGenehmMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorgelegteUnterlBeschGenehmMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmMRTyp) + 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 VorgelegteUnterlBeschGenehmMRTyp) 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 VorgelegteUnterlBeschGenehmMRTyp + 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 Class + + + Partial Public Class PackstueckMRTyp + +#Region "Private fields" + Private _anzahl As String + + Private _verpackungsart As String + + Private _zeichenNummern As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property Verpackungsart() As String + Get + Return Me._verpackungsart + End Get + Set + Me._verpackungsart = Value + End Set + End Property + + + Public Property ZeichenNummern() As String + Get + Return Me._zeichenNummern + End Get + Set + Me._zeichenNummern = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PackstueckMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PackstueckMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PackstueckMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PackstueckMRTyp + Return CType(Serializer.Deserialize(s), PackstueckMRTyp) + End Function +#End Region + + ''' + ''' Serializes current PackstueckMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PackstueckMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output PackstueckMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckMRTyp) + 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 PackstueckMRTyp) 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 PackstueckMRTyp + 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 Class + + + Partial Public Class VorpapierMRTyp + +#Region "Private fields" + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set + Me._referenz = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorpapierMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorpapierMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorpapierMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorpapierMRTyp + Return CType(Serializer.Deserialize(s), VorpapierMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VorpapierMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorpapierMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorpapierMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierMRTyp) + 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 VorpapierMRTyp) 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 VorpapierMRTyp + 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 Class + + + Partial Public Class WarenPositionUeberlassungsmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _artAnmeldungPosition As String + + Private _versendungsAusfuhrlandPosition As String + + Private _bestimmungslandPosition As String + + Private _warennummer As String + + Private _kennnummerSendungPosition As String + + Private _befoerderungskostenZahlungsweisePosition As String + + Private _uNGefahrgutnummer As String + + Private _warenbezeichnung As String + + Private _rohmasse As Decimal + + Private _eigenmasse As Decimal + + Private _versenderPosition As AdresseMRTyp + + Private _versenderSumASicherheitPosition As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheitPosition As AdresseMRTyp + + Private _vorpapiereTyp As String + + Private _vorpapier As List(Of VorpapierMRTyp) + + Private _packstuecke As List(Of PackstueckMRTyp) + + Private _containernummer As List(Of String) + + Private _vorgelegteUnterlagenBescheinigungenGenehmigungen As List(Of VorgelegteUnterlBeschGenehmMRTyp) + + Private _besondereVermerke As BesondereVermerkeMRTyp + + Private _beendigungSumA As BeendigungSumAMRTyp + + Private _beendigungZL As BeendigungZLMRTyp + + Private _beendigungAVUV As BeendigungAVUVMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._beendigungAVUV = New BeendigungAVUVMRTyp() + Me._beendigungZL = New BeendigungZLMRTyp() + Me._beendigungSumA = New BeendigungSumAMRTyp() + Me._besondereVermerke = New BesondereVermerkeMRTyp() + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = New List(Of VorgelegteUnterlBeschGenehmMRTyp)() + Me._containernummer = New List(Of String)() + Me._packstuecke = New List(Of PackstueckMRTyp)() + Me._vorpapier = New List(Of VorpapierMRTyp)() + Me._empfaengerSumASicherheitPosition = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheitPosition = New AdresseMRTyp() + Me._versenderPosition = New AdresseMRTyp() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property ArtAnmeldungPosition() As String + Get + Return Me._artAnmeldungPosition + End Get + Set + Me._artAnmeldungPosition = Value + End Set + End Property + + + Public Property VersendungsAusfuhrlandPosition() As String + Get + Return Me._versendungsAusfuhrlandPosition + End Get + Set + Me._versendungsAusfuhrlandPosition = Value + End Set + End Property + + + Public Property BestimmungslandPosition() As String + Get + Return Me._bestimmungslandPosition + End Get + Set + Me._bestimmungslandPosition = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property KennnummerSendungPosition() As String + Get + Return Me._kennnummerSendungPosition + End Get + Set + Me._kennnummerSendungPosition = Value + End Set + End Property + + + Public Property BefoerderungskostenZahlungsweisePosition() As String + Get + Return Me._befoerderungskostenZahlungsweisePosition + End Get + Set + Me._befoerderungskostenZahlungsweisePosition = Value + End Set + End Property + + + Public Property UNGefahrgutnummer() As String + Get + Return Me._uNGefahrgutnummer + End Get + Set + Me._uNGefahrgutnummer = Value + End Set + End Property + + + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set + Me._warenbezeichnung = Value + End Set + End Property + + + Public Property Rohmasse() As Decimal + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property Eigenmasse() As Decimal + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = Value + End Set + End Property + + + Public Property VersenderPosition() As AdresseMRTyp + Get + Return Me._versenderPosition + End Get + Set + Me._versenderPosition = Value + End Set + End Property + + + Public Property VersenderSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._versenderSumASicherheitPosition + End Get + Set + Me._versenderSumASicherheitPosition = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property EmpfaengerSumASicherheitPosition() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheitPosition + End Get + Set + Me._empfaengerSumASicherheitPosition = Value + End Set + End Property + + + Public Property VorpapiereTyp() As String + Get + Return Me._vorpapiereTyp + End Get + Set + Me._vorpapiereTyp = Value + End Set + End Property + + + Public Property Vorpapier() As List(Of VorpapierMRTyp) + Get + Return Me._vorpapier + End Get + Set + Me._vorpapier = Value + End Set + End Property + + + Public Property Packstuecke() As List(Of PackstueckMRTyp) + Get + Return Me._packstuecke + End Get + Set + Me._packstuecke = Value + End Set + End Property + + + Public Property Containernummer() As List(Of String) + Get + Return Me._containernummer + End Get + Set + Me._containernummer = Value + End Set + End Property + + + Public Property VorgelegteUnterlagenBescheinigungenGenehmigungen() As List(Of VorgelegteUnterlBeschGenehmMRTyp) + Get + Return Me._vorgelegteUnterlagenBescheinigungenGenehmigungen + End Get + Set + Me._vorgelegteUnterlagenBescheinigungenGenehmigungen = Value + End Set + End Property + + + Public Property BesondereVermerke() As BesondereVermerkeMRTyp + Get + Return Me._besondereVermerke + End Get + Set + Me._besondereVermerke = Value + End Set + End Property + + + Public Property BeendigungSumA() As BeendigungSumAMRTyp + Get + Return Me._beendigungSumA + End Get + Set + Me._beendigungSumA = Value + End Set + End Property + + + Public Property BeendigungZL() As BeendigungZLMRTyp + Get + Return Me._beendigungZL + End Get + Set + Me._beendigungZL = Value + End Set + End Property + + + Public Property BeendigungAVUV() As BeendigungAVUVMRTyp + Get + Return Me._beendigungAVUV + End Get + Set + Me._beendigungAVUV = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarenPositionUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WarenPositionUeberlassungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an WarenPositionUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenPositionUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarenPositionUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenPositionUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), WarenPositionUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenPositionUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an WarenPositionUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output WarenPositionUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenPositionUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionUeberlassungsmeldungTyp) + 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 WarenPositionUeberlassungsmeldungTyp) 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 WarenPositionUeberlassungsmeldungTyp + 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 Class + + + Partial Public Class AdresseMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _identifikationsart As String + + Private _nLNR As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property Identifikationsart() As String + Get + Return Me._identifikationsart + End Get + Set + Me._identifikationsart = Value + End Set + End Property + + + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set + Me._nLNR = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdresseMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseMRTyp + Return CType(Serializer.Deserialize(s), AdresseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdresseMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseMRTyp) + 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 AdresseMRTyp) 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 AdresseMRTyp + 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 Class + + + Partial Public Class AnsprechpartnerMRTyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _stellung As String + + Private _telefonnummer As String + + Private _telefaxnummer As String + + Private _emailAdresse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set + Me._sachbearbeiter = Value + End Set + End Property + + + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set + Me._stellung = Value + End Set + End Property + + + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set + Me._telefonnummer = Value + End Set + End Property + + + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set + Me._telefaxnummer = Value + End Set + End Property + + + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set + Me._emailAdresse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnsprechpartnerMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AnsprechpartnerMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnsprechpartnerMRTyp + Return CType(Serializer.Deserialize(s), AnsprechpartnerMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AnsprechpartnerMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AnsprechpartnerMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnsprechpartnerMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerMRTyp) + 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 AnsprechpartnerMRTyp) 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 AnsprechpartnerMRTyp + 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 Class + + + Partial Public Class VerschluesseMRTyp + +#Region "Private fields" + Private _art As String + + Private _anzahl As String + + Private _zeichen As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._zeichen = New List(Of String)() + End Sub + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property Zeichen() As List(Of String) + Get + Return Me._zeichen + End Get + Set + Me._zeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerschluesseMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerschluesseMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerschluesseMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschluesseMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerschluesseMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerschluesseMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerschluesseMRTyp + Return CType(Serializer.Deserialize(s), VerschluesseMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerschluesseMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerschluesseMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerschluesseMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschluesseMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschluesseMRTyp) + 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 VerschluesseMRTyp) 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 VerschluesseMRTyp + 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 Class + + + Partial Public Class AdresseTINKurzMRTyp + +#Region "Private fields" + Private _eORI As String + + Private _nLNR As String + + Private _iDCarnet As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerMRTyp() + End Sub + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set + Me._nLNR = Value + End Set + End Property + + + Public Property IDCarnet() As String + Get + Return Me._iDCarnet + End Get + Set + Me._iDCarnet = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerMRTyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseTINKurzMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseTINKurzMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdresseTINKurzMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseTINKurzMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseTINKurzMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseTINKurzMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseTINKurzMRTyp + Return CType(Serializer.Deserialize(s), AdresseTINKurzMRTyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseTINKurzMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdresseTINKurzMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseTINKurzMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseTINKurzMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseTINKurzMRTyp) + 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 AdresseTINKurzMRTyp) 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 AdresseTINKurzMRTyp + 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 Class + + + Partial Public Class BefoerderungsmittelAbgangMRTyp + +#Region "Private fields" + Private _staatszugehoerigkeit As String + + Private _kennzeichen As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Staatszugehoerigkeit() As String + Get + Return Me._staatszugehoerigkeit + End Get + Set + Me._staatszugehoerigkeit = Value + End Set + End Property + + + Public Property Kennzeichen() As String + Get + Return Me._kennzeichen + End Get + Set + Me._kennzeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelAbgangMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BefoerderungsmittelAbgangMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BefoerderungsmittelAbgangMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelAbgangMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelAbgangMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelAbgangMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefoerderungsmittelAbgangMRTyp + Return CType(Serializer.Deserialize(s), BefoerderungsmittelAbgangMRTyp) + End Function +#End Region + + ''' + ''' Serializes current BefoerderungsmittelAbgangMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BefoerderungsmittelAbgangMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output BefoerderungsmittelAbgangMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelAbgangMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelAbgangMRTyp) + 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 BefoerderungsmittelAbgangMRTyp) 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 BefoerderungsmittelAbgangMRTyp + 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 Class + + + Partial Public Class VerbindlicheBefoerderungsrouteMRTyp + +#Region "Private fields" + Private _beschreibung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Beschreibung() As String + Get + Return Me._beschreibung + End Get + Set + Me._beschreibung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerbindlicheBefoerderungsrouteMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerbindlicheBefoerderungsrouteMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerbindlicheBefoerderungsrouteMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerbindlicheBefoerderungsrouteMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerbindlicheBefoerderungsrouteMRTyp + Return CType(Serializer.Deserialize(s), VerbindlicheBefoerderungsrouteMRTyp) + End Function +#End Region + + ''' + ''' Serializes current VerbindlicheBefoerderungsrouteMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerbindlicheBefoerderungsrouteMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerbindlicheBefoerderungsrouteMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerbindlicheBefoerderungsrouteMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerbindlicheBefoerderungsrouteMRTyp) + 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 VerbindlicheBefoerderungsrouteMRTyp) 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 VerbindlicheBefoerderungsrouteMRTyp + 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 Class + + + Partial Public Class SicherheitMRTyp + +#Region "Private fields" + Private _art As String + + Private _bezeichnung As String + + Private _betrag As Decimal + + Private _sicherheitengeberTIN As String + + Private _waehrung As String + + Private _bescheinigung As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Art() As String + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + + Public Property Bezeichnung() As String + Get + Return Me._bezeichnung + End Get + Set + Me._bezeichnung = Value + End Set + End Property + + + Public Property Betrag() As Decimal + Get + Return Me._betrag + End Get + Set + Me._betrag = Value + End Set + End Property + + + Public Property SicherheitengeberTIN() As String + Get + Return Me._sicherheitengeberTIN + End Get + Set + Me._sicherheitengeberTIN = Value + End Set + End Property + + + Public Property Waehrung() As String + Get + Return Me._waehrung + End Get + Set + Me._waehrung = Value + End Set + End Property + + + Public Property Bescheinigung() As String + Get + Return Me._bescheinigung + End Get + Set + Me._bescheinigung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitMRTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitMRTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SicherheitMRTyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMRTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitMRTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitMRTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitMRTyp + Return CType(Serializer.Deserialize(s), SicherheitMRTyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitMRTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SicherheitMRTyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitMRTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMRTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMRTyp) + 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 SicherheitMRTyp) 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 SicherheitMRTyp + 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 Class + + + Partial Public Class KopfDatenUeberlassungsmeldungTyp + +#Region "Private fields" + Private _mRN As String + + Private _abgangszollstelle As String + + Private _annahmedatum As Date + + Private _ueberlassungsdatum As Date + + Private _wiedergestellungsdatum As Date + + Private _sicherheit As List(Of SicherheitMRTyp) + + Private _bestimmungszollstelle As String + + Private _vBDName As String + + Private _arbeitsnummer As String + + Private _kzSumASicherheit As String + + Private _kennnummerSendung As String + + Private _nummerBefoerderung As String + + Private _besondereUmstaende As String + + Private _ladeort As String + + Private _entladeort As String + + Private _befoerderungskostenZahlungsweise As String + + Private _artAnmeldung As String + + Private _anzahlPositionen As String + + Private _packstueckeGesamt As String + + Private _versendungsAusfuhrland As String + + Private _bestimmungsland As String + + Private _gesamtRohmasse As Decimal + + Private _kontrollErgebnis As String + + Private _verbindlicheBefoerderungsroute As VerbindlicheBefoerderungsrouteMRTyp + + Private _befoerderungsmittelAbgang As BefoerderungsmittelAbgangMRTyp + + Private _durchgangszollstelleNCTS As List(Of String) + + Private _befoerderungsrouteSumASicherheitLand As List(Of String) + + Private _versender As AdresseMRTyp + + Private _versenderSumASicherheit As AdresseMRTyp + + Private _empfaenger As AdresseMRTyp + + Private _empfaengerSumASicherheit As AdresseMRTyp + + Private _hauptverpflichteter As AdresseTINKurzMRTyp + + Private _befoerderer As AdresseMRTyp + + Private _zugelassenerEmpfaengerEORI As String + + Private _verschluesse As VerschluesseMRTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._verschluesse = New VerschluesseMRTyp() + Me._befoerderer = New AdresseMRTyp() + Me._hauptverpflichteter = New AdresseTINKurzMRTyp() + Me._empfaengerSumASicherheit = New AdresseMRTyp() + Me._empfaenger = New AdresseMRTyp() + Me._versenderSumASicherheit = New AdresseMRTyp() + Me._versender = New AdresseMRTyp() + Me._befoerderungsrouteSumASicherheitLand = New List(Of String)() + Me._durchgangszollstelleNCTS = New List(Of String)() + Me._befoerderungsmittelAbgang = New BefoerderungsmittelAbgangMRTyp() + Me._verbindlicheBefoerderungsroute = New VerbindlicheBefoerderungsrouteMRTyp() + Me._sicherheit = New List(Of SicherheitMRTyp)() + End Sub + + + Public Property MRN() As String + Get + Return Me._mRN + End Get + Set + Me._mRN = Value + End Set + End Property + + + Public Property Abgangszollstelle() As String + Get + Return Me._abgangszollstelle + End Get + Set + Me._abgangszollstelle = Value + End Set + End Property + + + Public Property Annahmedatum() As Date + Get + Return Me._annahmedatum + End Get + Set + Me._annahmedatum = Value + End Set + End Property + + + Public Property Ueberlassungsdatum() As Date + Get + Return Me._ueberlassungsdatum + End Get + Set + Me._ueberlassungsdatum = Value + End Set + End Property + + + Public Property Wiedergestellungsdatum() As Date + Get + Return Me._wiedergestellungsdatum + End Get + Set + Me._wiedergestellungsdatum = Value + End Set + End Property + + + Public Property Sicherheit() As List(Of SicherheitMRTyp) + Get + Return Me._sicherheit + End Get + Set + Me._sicherheit = Value + End Set + End Property + + + Public Property Bestimmungszollstelle() As String + Get + Return Me._bestimmungszollstelle + End Get + Set + Me._bestimmungszollstelle = Value + End Set + End Property + + + Public Property VBDName() As String + Get + Return Me._vBDName + End Get + Set + Me._vBDName = Value + End Set + End Property + + + Public Property Arbeitsnummer() As String + Get + Return Me._arbeitsnummer + End Get + Set + Me._arbeitsnummer = Value + End Set + End Property + + + Public Property KzSumASicherheit() As String + Get + Return Me._kzSumASicherheit + End Get + Set + Me._kzSumASicherheit = Value + End Set + End Property + + + Public Property KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set + Me._kennnummerSendung = Value + End Set + End Property + + + Public Property NummerBefoerderung() As String + Get + Return Me._nummerBefoerderung + End Get + Set + Me._nummerBefoerderung = Value + End Set + End Property + + + Public Property BesondereUmstaende() As String + Get + Return Me._besondereUmstaende + End Get + Set + Me._besondereUmstaende = Value + End Set + End Property + + + Public Property Ladeort() As String + Get + Return Me._ladeort + End Get + Set + Me._ladeort = Value + End Set + End Property + + + Public Property Entladeort() As String + Get + Return Me._entladeort + End Get + Set + Me._entladeort = Value + End Set + End Property + + + Public Property BefoerderungskostenZahlungsweise() As String + Get + Return Me._befoerderungskostenZahlungsweise + End Get + Set + Me._befoerderungskostenZahlungsweise = Value + End Set + End Property + + + Public Property ArtAnmeldung() As String + Get + Return Me._artAnmeldung + End Get + Set + Me._artAnmeldung = Value + End Set + End Property + + + Public Property AnzahlPositionen() As String + Get + Return Me._anzahlPositionen + End Get + Set + Me._anzahlPositionen = Value + End Set + End Property + + + Public Property PackstueckeGesamt() As String + Get + Return Me._packstueckeGesamt + End Get + Set + Me._packstueckeGesamt = Value + End Set + End Property + + + Public Property VersendungsAusfuhrland() As String + Get + Return Me._versendungsAusfuhrland + End Get + Set + Me._versendungsAusfuhrland = Value + End Set + End Property + + + Public Property Bestimmungsland() As String + Get + Return Me._bestimmungsland + End Get + Set + Me._bestimmungsland = Value + End Set + End Property + + + Public Property GesamtRohmasse() As Decimal + Get + Return Me._gesamtRohmasse + End Get + Set + Me._gesamtRohmasse = Value + End Set + End Property + + + Public Property KontrollErgebnis() As String + Get + Return Me._kontrollErgebnis + End Get + Set + Me._kontrollErgebnis = Value + End Set + End Property + + + Public Property VerbindlicheBefoerderungsroute() As VerbindlicheBefoerderungsrouteMRTyp + Get + Return Me._verbindlicheBefoerderungsroute + End Get + Set + Me._verbindlicheBefoerderungsroute = Value + End Set + End Property + + + Public Property BefoerderungsmittelAbgang() As BefoerderungsmittelAbgangMRTyp + Get + Return Me._befoerderungsmittelAbgang + End Get + Set + Me._befoerderungsmittelAbgang = Value + End Set + End Property + + + Public Property DurchgangszollstelleNCTS() As List(Of String) + Get + Return Me._durchgangszollstelleNCTS + End Get + Set + Me._durchgangszollstelleNCTS = Value + End Set + End Property + + + Public Property BefoerderungsrouteSumASicherheitLand() As List(Of String) + Get + Return Me._befoerderungsrouteSumASicherheitLand + End Get + Set + Me._befoerderungsrouteSumASicherheitLand = Value + End Set + End Property + + + Public Property Versender() As AdresseMRTyp + Get + Return Me._versender + End Get + Set + Me._versender = Value + End Set + End Property + + + Public Property VersenderSumASicherheit() As AdresseMRTyp + Get + Return Me._versenderSumASicherheit + End Get + Set + Me._versenderSumASicherheit = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseMRTyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property EmpfaengerSumASicherheit() As AdresseMRTyp + Get + Return Me._empfaengerSumASicherheit + End Get + Set + Me._empfaengerSumASicherheit = Value + End Set + End Property + + + Public Property Hauptverpflichteter() As AdresseTINKurzMRTyp + Get + Return Me._hauptverpflichteter + End Get + Set + Me._hauptverpflichteter = Value + End Set + End Property + + + Public Property Befoerderer() As AdresseMRTyp + Get + Return Me._befoerderer + End Get + Set + Me._befoerderer = Value + End Set + End Property + + + Public Property ZugelassenerEmpfaengerEORI() As String + Get + Return Me._zugelassenerEmpfaengerEORI + End Get + Set + Me._zugelassenerEmpfaengerEORI = Value + End Set + End Property + + + Public Property Verschluesse() As VerschluesseMRTyp + Get + Return Me._verschluesse + End Get + Set + Me._verschluesse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenUeberlassungsmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenUeberlassungsmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenUeberlassungsmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenUeberlassungsmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenUeberlassungsmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenUeberlassungsmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenUeberlassungsmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenUeberlassungsmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenUeberlassungsmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenUeberlassungsmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUeberlassungsmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUeberlassungsmeldungTyp) + 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 KopfDatenUeberlassungsmeldungTyp) 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 KopfDatenUeberlassungsmeldungTyp + 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 Class + + + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_006.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_006.xsd new file mode 100644 index 0000000..15a4dbe --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Ueberlassungsmeldung/UeberlassungsmeldungNCTSDE_006.xsd @@ -0,0 +1,471 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_002.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_002.Designer.vb new file mode 100644 index 0000000..e162a9a --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_002.Designer.vb @@ -0,0 +1,2010 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' UngueltigkeitSicherheitenNCTSDEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace UngueltigkeitSicherheitenNCTSDE + + _ + Partial Public Class UngueltigkeitSicherheitenMITyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelUngueltigkeitSicherheiten As EinzelUngueltigkeitSicherheitenTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelUngueltigkeitSicherheiten = New EinzelUngueltigkeitSicherheitenTyp() + End Sub + + _ + Public Property EinzelUngueltigkeitSicherheiten() As EinzelUngueltigkeitSicherheitenTyp + Get + Return Me._einzelUngueltigkeitSicherheiten + End Get + Set(value As EinzelUngueltigkeitSicherheitenTyp) + Me._einzelUngueltigkeitSicherheiten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UngueltigkeitSicherheitenMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UngueltigkeitSicherheitenMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UngueltigkeitSicherheitenMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output UngueltigkeitSicherheitenMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UngueltigkeitSicherheitenMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UngueltigkeitSicherheitenMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UngueltigkeitSicherheitenMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UngueltigkeitSicherheitenMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UngueltigkeitSicherheitenMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UngueltigkeitSicherheitenMITyp + Return CType(Serializer.Deserialize(s), UngueltigkeitSicherheitenMITyp) + End Function +#End Region + + ''' + ''' Serializes current UngueltigkeitSicherheitenMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UngueltigkeitSicherheitenMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output UngueltigkeitSicherheitenMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UngueltigkeitSicherheitenMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UngueltigkeitSicherheitenMITyp) + 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 UngueltigkeitSicherheitenMITyp) 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 UngueltigkeitSicherheitenMITyp + 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 Class + + _ + Partial Public Class EinzelUngueltigkeitSicherheitenTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMITyp + + Private _kopfDaten As KopfDatenUngueltigkeitSicherheitenTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kopfDaten = New KopfDatenUngueltigkeitSicherheitenTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMITyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMITyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungMITyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenUngueltigkeitSicherheitenTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenUngueltigkeitSicherheitenTyp) + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelUngueltigkeitSicherheitenTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelUngueltigkeitSicherheitenTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelUngueltigkeitSicherheitenTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelUngueltigkeitSicherheitenTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUngueltigkeitSicherheitenTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelUngueltigkeitSicherheitenTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelUngueltigkeitSicherheitenTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelUngueltigkeitSicherheitenTyp + Return CType(Serializer.Deserialize(s), EinzelUngueltigkeitSicherheitenTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelUngueltigkeitSicherheitenTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelUngueltigkeitSicherheitenTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelUngueltigkeitSicherheitenTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUngueltigkeitSicherheitenTyp) + 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 EinzelUngueltigkeitSicherheitenTyp) 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 EinzelUngueltigkeitSicherheitenTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungMITyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMITyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMITyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMITyp) + 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 ObjektIdentifizierungMITyp) 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 ObjektIdentifizierungMITyp + 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 Class + + _ + Partial Public Class FehlermeldungMITyp + +#Region "Private fields" + Private _code As String + + Private _text As String + + Private _zeiger As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Code() As String + Get + Return Me._code + End Get + Set(value As String) + Me._code = Value + End Set + End Property + + _ + Public Property Text() As String + Get + Return Me._text + End Get + Set(value As String) + Me._text = Value + End Set + End Property + + _ + Public Property Zeiger() As String + Get + Return Me._zeiger + End Get + Set(value As String) + Me._zeiger = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FehlermeldungMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FehlermeldungMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FehlermeldungMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output FehlermeldungMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FehlermeldungMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FehlermeldungMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FehlermeldungMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FehlermeldungMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FehlermeldungMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FehlermeldungMITyp + Return CType(Serializer.Deserialize(s), FehlermeldungMITyp) + End Function +#End Region + + ''' + ''' Serializes current FehlermeldungMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FehlermeldungMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output FehlermeldungMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FehlermeldungMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FehlermeldungMITyp) + 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 FehlermeldungMITyp) 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 FehlermeldungMITyp + 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 Class + + _ + Partial Public Class SicherheitMITyp + +#Region "Private fields" + Private _gRN As String + + Private _codeUngueltigkeit As String + + Private _textUngueltigkeit As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property GRN() As String + Get + Return Me._gRN + End Get + Set(value As String) + Me._gRN = Value + End Set + End Property + + _ + Public Property CodeUngueltigkeit() As String + Get + Return Me._codeUngueltigkeit + End Get + Set(value As String) + Me._codeUngueltigkeit = Value + End Set + End Property + + _ + Public Property TextUngueltigkeit() As String + Get + Return Me._textUngueltigkeit + End Get + Set(value As String) + Me._textUngueltigkeit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SicherheitMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitMITyp + Return CType(Serializer.Deserialize(s), SicherheitMITyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SicherheitMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMITyp) + 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 SicherheitMITyp) 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 SicherheitMITyp + 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 Class + + _ + Partial Public Class HauptverpflichteterAnsprechpartnerMITyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _stellung As String + + Private _telefonnummer As String + + Private _telefaxnummer As String + + Private _emailAdresse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set(value As String) + Me._sachbearbeiter = Value + End Set + End Property + + _ + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set(value As String) + Me._stellung = Value + End Set + End Property + + _ + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set(value As String) + Me._telefonnummer = Value + End Set + End Property + + _ + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set(value As String) + Me._telefaxnummer = Value + End Set + End Property + + _ + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set(value As String) + Me._emailAdresse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HauptverpflichteterAnsprechpartnerMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HauptverpflichteterAnsprechpartnerMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an HauptverpflichteterAnsprechpartnerMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output HauptverpflichteterAnsprechpartnerMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HauptverpflichteterAnsprechpartnerMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HauptverpflichteterAnsprechpartnerMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HauptverpflichteterAnsprechpartnerMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HauptverpflichteterAnsprechpartnerMITyp + Return CType(Serializer.Deserialize(s), HauptverpflichteterAnsprechpartnerMITyp) + End Function +#End Region + + ''' + ''' Serializes current HauptverpflichteterAnsprechpartnerMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an HauptverpflichteterAnsprechpartnerMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output HauptverpflichteterAnsprechpartnerMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HauptverpflichteterAnsprechpartnerMITyp) + 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 HauptverpflichteterAnsprechpartnerMITyp) 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 HauptverpflichteterAnsprechpartnerMITyp + 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 Class + + _ + Partial Public Class KopfDatenUngueltigkeitSicherheitenTyp + +#Region "Private fields" + Private _arbeitsnummer As String + + Private _zeitpunktUngueltigkeitUnwirksamkeit As Date + + Private _hauptverpflichteterEORI As String + + Private _hauptverpflichteterNLNR As String + + Private _hauptverpflichteterIDCarnet As String + + Private _hauptverpflichteterName As String + + Private _hauptverpflichteterStrasseHausnummer As String + + Private _hauptverpflichteterLand As String + + Private _hauptverpflichteterPLZ As String + + Private _hauptverpflichteterOrt As String + + Private _hauptverpflichteterAnsprechpartner As HauptverpflichteterAnsprechpartnerMITyp + + Private _grund As String + + Private _sicherheit As List(Of SicherheitMITyp) + + Private _fehlermeldung As List(Of FehlermeldungMITyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._fehlermeldung = New List(Of FehlermeldungMITyp)() + Me._sicherheit = New List(Of SicherheitMITyp)() + Me._hauptverpflichteterAnsprechpartner = New HauptverpflichteterAnsprechpartnerMITyp() + End Sub + + _ + Public Property Arbeitsnummer() As String + Get + Return Me._arbeitsnummer + End Get + Set(value As String) + Me._arbeitsnummer = Value + End Set + End Property + + _ + Public Property ZeitpunktUngueltigkeitUnwirksamkeit() As Date + Get + Return Me._zeitpunktUngueltigkeitUnwirksamkeit + End Get + Set(value As Date) + Me._zeitpunktUngueltigkeitUnwirksamkeit = Value + End Set + End Property + + _ + Public Property HauptverpflichteterEORI() As String + Get + Return Me._hauptverpflichteterEORI + End Get + Set(value As String) + Me._hauptverpflichteterEORI = Value + End Set + End Property + + _ + Public Property HauptverpflichteterNLNR() As String + Get + Return Me._hauptverpflichteterNLNR + End Get + Set(value As String) + Me._hauptverpflichteterNLNR = Value + End Set + End Property + + _ + Public Property HauptverpflichteterIDCarnet() As String + Get + Return Me._hauptverpflichteterIDCarnet + End Get + Set(value As String) + Me._hauptverpflichteterIDCarnet = Value + End Set + End Property + + _ + Public Property HauptverpflichteterName() As String + Get + Return Me._hauptverpflichteterName + End Get + Set(value As String) + Me._hauptverpflichteterName = Value + End Set + End Property + + _ + Public Property HauptverpflichteterStrasseHausnummer() As String + Get + Return Me._hauptverpflichteterStrasseHausnummer + End Get + Set(value As String) + Me._hauptverpflichteterStrasseHausnummer = Value + End Set + End Property + + _ + Public Property HauptverpflichteterLand() As String + Get + Return Me._hauptverpflichteterLand + End Get + Set(value As String) + Me._hauptverpflichteterLand = Value + End Set + End Property + + _ + Public Property HauptverpflichteterPLZ() As String + Get + Return Me._hauptverpflichteterPLZ + End Get + Set(value As String) + Me._hauptverpflichteterPLZ = Value + End Set + End Property + + _ + Public Property HauptverpflichteterOrt() As String + Get + Return Me._hauptverpflichteterOrt + End Get + Set(value As String) + Me._hauptverpflichteterOrt = Value + End Set + End Property + + _ + Public Property HauptverpflichteterAnsprechpartner() As HauptverpflichteterAnsprechpartnerMITyp + Get + Return Me._hauptverpflichteterAnsprechpartner + End Get + Set(value As HauptverpflichteterAnsprechpartnerMITyp) + Me._hauptverpflichteterAnsprechpartner = Value + End Set + End Property + + _ + Public Property Grund() As String + Get + Return Me._grund + End Get + Set(value As String) + Me._grund = Value + End Set + End Property + + _ + Public Property Sicherheit() As List(Of SicherheitMITyp) + Get + Return Me._sicherheit + End Get + Set(value As List(Of SicherheitMITyp)) + Me._sicherheit = Value + End Set + End Property + + _ + Public Property Fehlermeldung() As List(Of FehlermeldungMITyp) + Get + Return Me._fehlermeldung + End Get + Set(value As List(Of FehlermeldungMITyp)) + Me._fehlermeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenUngueltigkeitSicherheitenTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenUngueltigkeitSicherheitenTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenUngueltigkeitSicherheitenTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenUngueltigkeitSicherheitenTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUngueltigkeitSicherheitenTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenUngueltigkeitSicherheitenTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenUngueltigkeitSicherheitenTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenUngueltigkeitSicherheitenTyp + Return CType(Serializer.Deserialize(s), KopfDatenUngueltigkeitSicherheitenTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenUngueltigkeitSicherheitenTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenUngueltigkeitSicherheitenTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenUngueltigkeitSicherheitenTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUngueltigkeitSicherheitenTyp) + 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 KopfDatenUngueltigkeitSicherheitenTyp) 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 KopfDatenUngueltigkeitSicherheitenTyp + 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 Class + + _ + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + _ + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionNCTSTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_002.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_002.xsd new file mode 100644 index 0000000..45e509d --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_002.xsd @@ -0,0 +1,151 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_003.Designer.vb new file mode 100644 index 0000000..36623dc --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_003.Designer.vb @@ -0,0 +1,2022 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' UngueltigkeitSicherheitenNCTSDE_003ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace UngueltigkeitSicherheitenNCTSDE_003 + + + Partial Public Class UngueltigkeitSicherheitenMITyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelUngueltigkeitSicherheiten As EinzelUngueltigkeitSicherheitenTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelUngueltigkeitSicherheiten = New EinzelUngueltigkeitSicherheitenTyp() + End Sub + + + Public Property EinzelUngueltigkeitSicherheiten() As EinzelUngueltigkeitSicherheitenTyp + Get + Return Me._einzelUngueltigkeitSicherheiten + End Get + Set + Me._einzelUngueltigkeitSicherheiten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(UngueltigkeitSicherheitenMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current UngueltigkeitSicherheitenMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an UngueltigkeitSicherheitenMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output UngueltigkeitSicherheitenMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UngueltigkeitSicherheitenMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UngueltigkeitSicherheitenMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As UngueltigkeitSicherheitenMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As UngueltigkeitSicherheitenMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), UngueltigkeitSicherheitenMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As UngueltigkeitSicherheitenMITyp + Return CType(Serializer.Deserialize(s), UngueltigkeitSicherheitenMITyp) + End Function +#End Region + + ''' + ''' Serializes current UngueltigkeitSicherheitenMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an UngueltigkeitSicherheitenMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output UngueltigkeitSicherheitenMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As UngueltigkeitSicherheitenMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, UngueltigkeitSicherheitenMITyp) + 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 UngueltigkeitSicherheitenMITyp) 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 UngueltigkeitSicherheitenMITyp + 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 Class + + + Partial Public Class EinzelUngueltigkeitSicherheitenTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMITyp + + Private _kopfDaten As KopfDatenUngueltigkeitSicherheitenTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kopfDaten = New KopfDatenUngueltigkeitSicherheitenTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMITyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMITyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenUngueltigkeitSicherheitenTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelUngueltigkeitSicherheitenTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelUngueltigkeitSicherheitenTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelUngueltigkeitSicherheitenTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelUngueltigkeitSicherheitenTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUngueltigkeitSicherheitenTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelUngueltigkeitSicherheitenTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelUngueltigkeitSicherheitenTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelUngueltigkeitSicherheitenTyp + Return CType(Serializer.Deserialize(s), EinzelUngueltigkeitSicherheitenTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelUngueltigkeitSicherheitenTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelUngueltigkeitSicherheitenTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelUngueltigkeitSicherheitenTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelUngueltigkeitSicherheitenTyp) + 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 EinzelUngueltigkeitSicherheitenTyp) 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 EinzelUngueltigkeitSicherheitenTyp + 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 Class + + + Partial Public Class ObjektIdentifizierungMITyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set + Me._objektAlias = Value + End Set + End Property + + + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set + Me._zeitpunktEingang = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMITyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMITyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMITyp) + 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 ObjektIdentifizierungMITyp) 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 ObjektIdentifizierungMITyp + 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 Class + + + Partial Public Class FehlermeldungMITyp + +#Region "Private fields" + Private _code As String + + Private _text As String + + Private _zeiger As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + + Public Property Text() As String + Get + Return Me._text + End Get + Set + Me._text = Value + End Set + End Property + + + Public Property Zeiger() As String + Get + Return Me._zeiger + End Get + Set + Me._zeiger = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(FehlermeldungMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current FehlermeldungMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an FehlermeldungMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output FehlermeldungMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FehlermeldungMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FehlermeldungMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FehlermeldungMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As FehlermeldungMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), FehlermeldungMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As FehlermeldungMITyp + Return CType(Serializer.Deserialize(s), FehlermeldungMITyp) + End Function +#End Region + + ''' + ''' Serializes current FehlermeldungMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an FehlermeldungMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output FehlermeldungMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FehlermeldungMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, FehlermeldungMITyp) + 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 FehlermeldungMITyp) 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 FehlermeldungMITyp + 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 Class + + + Partial Public Class SicherheitMITyp + +#Region "Private fields" + Private _gRN As String + + Private _codeUngueltigkeit As String + + Private _textUngueltigkeit As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property GRN() As String + Get + Return Me._gRN + End Get + Set + Me._gRN = Value + End Set + End Property + + + Public Property CodeUngueltigkeit() As String + Get + Return Me._codeUngueltigkeit + End Get + Set + Me._codeUngueltigkeit = Value + End Set + End Property + + + Public Property TextUngueltigkeit() As String + Get + Return Me._textUngueltigkeit + End Get + Set + Me._textUngueltigkeit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SicherheitMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitMITyp + Return CType(Serializer.Deserialize(s), SicherheitMITyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SicherheitMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitMITyp) + 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 SicherheitMITyp) 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 SicherheitMITyp + 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 Class + + + Partial Public Class HauptverpflichteterAnsprechpartnerMITyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _stellung As String + + Private _telefonnummer As String + + Private _telefaxnummer As String + + Private _emailAdresse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set + Me._sachbearbeiter = Value + End Set + End Property + + + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set + Me._stellung = Value + End Set + End Property + + + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set + Me._telefonnummer = Value + End Set + End Property + + + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set + Me._telefaxnummer = Value + End Set + End Property + + + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set + Me._emailAdresse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HauptverpflichteterAnsprechpartnerMITyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HauptverpflichteterAnsprechpartnerMITyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an HauptverpflichteterAnsprechpartnerMITyp object + ''' + ''' string workflow markup to deserialize + ''' Output HauptverpflichteterAnsprechpartnerMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HauptverpflichteterAnsprechpartnerMITyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HauptverpflichteterAnsprechpartnerMITyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HauptverpflichteterAnsprechpartnerMITyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HauptverpflichteterAnsprechpartnerMITyp + Return CType(Serializer.Deserialize(s), HauptverpflichteterAnsprechpartnerMITyp) + End Function +#End Region + + ''' + ''' Serializes current HauptverpflichteterAnsprechpartnerMITyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an HauptverpflichteterAnsprechpartnerMITyp object + ''' + ''' string xml file to load and deserialize + ''' Output HauptverpflichteterAnsprechpartnerMITyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HauptverpflichteterAnsprechpartnerMITyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HauptverpflichteterAnsprechpartnerMITyp) + 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 HauptverpflichteterAnsprechpartnerMITyp) 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 HauptverpflichteterAnsprechpartnerMITyp + 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 Class + + + Partial Public Class KopfDatenUngueltigkeitSicherheitenTyp + +#Region "Private fields" + Private _arbeitsnummer As String + + Private _zeitpunktUngueltigkeitUnwirksamkeit As Date + + Private _hauptverpflichteterEORI As String + + Private _hauptverpflichteterNLNR As String + + Private _hauptverpflichteterIDCarnet As String + + Private _hauptverpflichteterName As String + + Private _hauptverpflichteterStrasseHausnummer As String + + Private _hauptverpflichteterLand As String + + Private _hauptverpflichteterPLZ As String + + Private _hauptverpflichteterOrt As String + + Private _hauptverpflichteterAnsprechpartner As HauptverpflichteterAnsprechpartnerMITyp + + Private _grund As String + + Private _sicherheit As List(Of SicherheitMITyp) + + Private _fehlermeldung As List(Of FehlermeldungMITyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._fehlermeldung = New List(Of FehlermeldungMITyp)() + Me._sicherheit = New List(Of SicherheitMITyp)() + Me._hauptverpflichteterAnsprechpartner = New HauptverpflichteterAnsprechpartnerMITyp() + End Sub + + + Public Property Arbeitsnummer() As String + Get + Return Me._arbeitsnummer + End Get + Set + Me._arbeitsnummer = Value + End Set + End Property + + + Public Property ZeitpunktUngueltigkeitUnwirksamkeit() As Date + Get + Return Me._zeitpunktUngueltigkeitUnwirksamkeit + End Get + Set + Me._zeitpunktUngueltigkeitUnwirksamkeit = Value + End Set + End Property + + + Public Property HauptverpflichteterEORI() As String + Get + Return Me._hauptverpflichteterEORI + End Get + Set + Me._hauptverpflichteterEORI = Value + End Set + End Property + + + Public Property HauptverpflichteterNLNR() As String + Get + Return Me._hauptverpflichteterNLNR + End Get + Set + Me._hauptverpflichteterNLNR = Value + End Set + End Property + + + Public Property HauptverpflichteterIDCarnet() As String + Get + Return Me._hauptverpflichteterIDCarnet + End Get + Set + Me._hauptverpflichteterIDCarnet = Value + End Set + End Property + + + Public Property HauptverpflichteterName() As String + Get + Return Me._hauptverpflichteterName + End Get + Set + Me._hauptverpflichteterName = Value + End Set + End Property + + + Public Property HauptverpflichteterStrasseHausnummer() As String + Get + Return Me._hauptverpflichteterStrasseHausnummer + End Get + Set + Me._hauptverpflichteterStrasseHausnummer = Value + End Set + End Property + + + Public Property HauptverpflichteterLand() As String + Get + Return Me._hauptverpflichteterLand + End Get + Set + Me._hauptverpflichteterLand = Value + End Set + End Property + + + Public Property HauptverpflichteterPLZ() As String + Get + Return Me._hauptverpflichteterPLZ + End Get + Set + Me._hauptverpflichteterPLZ = Value + End Set + End Property + + + Public Property HauptverpflichteterOrt() As String + Get + Return Me._hauptverpflichteterOrt + End Get + Set + Me._hauptverpflichteterOrt = Value + End Set + End Property + + + Public Property HauptverpflichteterAnsprechpartner() As HauptverpflichteterAnsprechpartnerMITyp + Get + Return Me._hauptverpflichteterAnsprechpartner + End Get + Set + Me._hauptverpflichteterAnsprechpartner = Value + End Set + End Property + + + Public Property Grund() As String + Get + Return Me._grund + End Get + Set + Me._grund = Value + End Set + End Property + + + Public Property Sicherheit() As List(Of SicherheitMITyp) + Get + Return Me._sicherheit + End Get + Set + Me._sicherheit = Value + End Set + End Property + + + Public Property Fehlermeldung() As List(Of FehlermeldungMITyp) + Get + Return Me._fehlermeldung + End Get + Set + Me._fehlermeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenUngueltigkeitSicherheitenTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenUngueltigkeitSicherheitenTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenUngueltigkeitSicherheitenTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenUngueltigkeitSicherheitenTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUngueltigkeitSicherheitenTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenUngueltigkeitSicherheitenTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenUngueltigkeitSicherheitenTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenUngueltigkeitSicherheitenTyp + Return CType(Serializer.Deserialize(s), KopfDatenUngueltigkeitSicherheitenTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenUngueltigkeitSicherheitenTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenUngueltigkeitSicherheitenTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenUngueltigkeitSicherheitenTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenUngueltigkeitSicherheitenTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenUngueltigkeitSicherheitenTyp) + 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 KopfDatenUngueltigkeitSicherheitenTyp) 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 KopfDatenUngueltigkeitSicherheitenTyp + 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 Class + + + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_003.xsd new file mode 100644 index 0000000..5c00ec8 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/UngueltigkeitSicherheitenNCTSDE_003.xsd @@ -0,0 +1,152 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/xsd2code.config b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/xsd2code.config new file mode 100644 index 0000000..8095f28 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/UngueltigkeitSicherheit/xsd2code.config @@ -0,0 +1,31 @@ + + + DEXPDD + xsd2code.exe <XSD File> DEXPDD <Output file> /l VisualBasic /p Net45 /warn /emt /uct /expattg /s /xml /ust /in /Indent2Space + VisualBasic + List + + + + true + true + true + true + Net45 + + + + + + + + + + true + + + true + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandanmeldung/e_dec_dat.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandanmeldung/e_dec_dat.Designer.vb new file mode 100644 index 0000000..db2f74b --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandanmeldung/e_dec_dat.Designer.vb @@ -0,0 +1,20129 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' DETUDCListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace DETUDC + + + Partial Public Class DETUDC + +#Region "Private fields" + Private _metaData As DETUDCMetaData + + Private _header As DETUDCHeader + + Private _procedureOwner As DETUDCProcedureOwner + + Private _authorisedConsignee As DETUDCAuthorisedConsignee + + Private _securityConsignor As DETUDCSecurityConsignor + + Private _securityConsignee As DETUDCSecurityConsignee + + Private _carrier As DETUDCCarrier + + Private _departureCustomsOffice As DETUDCDepartureCustomsOffice + + Private _transitCustomsOffice As List(Of DETUDCTransitCustomsOffice) + + Private _destinationCustomsOffice As DETUDCDestinationCustomsOffice + + Private _departureTransportMeans As DETUDCDepartureTransportMeans + + Private _borderTransportMeans As DETUDCBorderTransportMeans + + Private _itinerary As List(Of DETUDCItinerary) + + Private _route As DETUDCRoute + + Private _packages As DETUDCPackages + + Private _seals As DETUDCSeals + + Private _summaryDeclaration As List(Of DETUDCSummaryDeclaration) + + Private _customsWarehouse As List(Of DETUDCCustomsWarehouse) + + Private _inwardProcessing As List(Of DETUDCInwardProcessing) + + Private _guarantees As List(Of DETUDCGuarantee) + + Private _body As DETUDCBody + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._body = New DETUDCBody() + Me._guarantees = New List(Of DETUDCGuarantee)() + Me._inwardProcessing = New List(Of DETUDCInwardProcessing)() + Me._customsWarehouse = New List(Of DETUDCCustomsWarehouse)() + Me._summaryDeclaration = New List(Of DETUDCSummaryDeclaration)() + Me._seals = New DETUDCSeals() + Me._packages = New DETUDCPackages() + Me._route = New DETUDCRoute() + Me._itinerary = New List(Of DETUDCItinerary)() + Me._borderTransportMeans = New DETUDCBorderTransportMeans() + Me._departureTransportMeans = New DETUDCDepartureTransportMeans() + Me._destinationCustomsOffice = New DETUDCDestinationCustomsOffice() + Me._transitCustomsOffice = New List(Of DETUDCTransitCustomsOffice)() + Me._departureCustomsOffice = New DETUDCDepartureCustomsOffice() + Me._carrier = New DETUDCCarrier() + Me._securityConsignee = New DETUDCSecurityConsignee() + Me._securityConsignor = New DETUDCSecurityConsignor() + Me._authorisedConsignee = New DETUDCAuthorisedConsignee() + Me._procedureOwner = New DETUDCProcedureOwner() + Me._header = New DETUDCHeader() + Me._metaData = New DETUDCMetaData() + End Sub + + Public Property MetaData() As DETUDCMetaData + Get + Return Me._metaData + End Get + Set + Me._metaData = Value + End Set + End Property + + Public Property Header() As DETUDCHeader + Get + Return Me._header + End Get + Set + Me._header = Value + End Set + End Property + + Public Property ProcedureOwner() As DETUDCProcedureOwner + Get + Return Me._procedureOwner + End Get + Set + Me._procedureOwner = Value + End Set + End Property + + Public Property AuthorisedConsignee() As DETUDCAuthorisedConsignee + Get + Return Me._authorisedConsignee + End Get + Set + Me._authorisedConsignee = Value + End Set + End Property + + Public Property SecurityConsignor() As DETUDCSecurityConsignor + Get + Return Me._securityConsignor + End Get + Set + Me._securityConsignor = Value + End Set + End Property + + Public Property SecurityConsignee() As DETUDCSecurityConsignee + Get + Return Me._securityConsignee + End Get + Set + Me._securityConsignee = Value + End Set + End Property + + Public Property Carrier() As DETUDCCarrier + Get + Return Me._carrier + End Get + Set + Me._carrier = Value + End Set + End Property + + Public Property DepartureCustomsOffice() As DETUDCDepartureCustomsOffice + Get + Return Me._departureCustomsOffice + End Get + Set + Me._departureCustomsOffice = Value + End Set + End Property + + + Public Property TransitCustomsOffice() As List(Of DETUDCTransitCustomsOffice) + Get + Return Me._transitCustomsOffice + End Get + Set + Me._transitCustomsOffice = Value + End Set + End Property + + Public Property DestinationCustomsOffice() As DETUDCDestinationCustomsOffice + Get + Return Me._destinationCustomsOffice + End Get + Set + Me._destinationCustomsOffice = Value + End Set + End Property + + Public Property DepartureTransportMeans() As DETUDCDepartureTransportMeans + Get + Return Me._departureTransportMeans + End Get + Set + Me._departureTransportMeans = Value + End Set + End Property + + Public Property BorderTransportMeans() As DETUDCBorderTransportMeans + Get + Return Me._borderTransportMeans + End Get + Set + Me._borderTransportMeans = Value + End Set + End Property + + + Public Property Itinerary() As List(Of DETUDCItinerary) + Get + Return Me._itinerary + End Get + Set + Me._itinerary = Value + End Set + End Property + + Public Property Route() As DETUDCRoute + Get + Return Me._route + End Get + Set + Me._route = Value + End Set + End Property + + Public Property Packages() As DETUDCPackages + Get + Return Me._packages + End Get + Set + Me._packages = Value + End Set + End Property + + Public Property Seals() As DETUDCSeals + Get + Return Me._seals + End Get + Set + Me._seals = Value + End Set + End Property + + + Public Property SummaryDeclaration() As List(Of DETUDCSummaryDeclaration) + Get + Return Me._summaryDeclaration + End Get + Set + Me._summaryDeclaration = Value + End Set + End Property + + + Public Property CustomsWarehouse() As List(Of DETUDCCustomsWarehouse) + Get + Return Me._customsWarehouse + End Get + Set + Me._customsWarehouse = Value + End Set + End Property + + + Public Property InwardProcessing() As List(Of DETUDCInwardProcessing) + Get + Return Me._inwardProcessing + End Get + Set + Me._inwardProcessing = Value + End Set + End Property + + + Public Property Guarantees() As List(Of DETUDCGuarantee) + Get + Return Me._guarantees + End Get + Set + Me._guarantees = Value + End Set + End Property + + Public Property Body() As DETUDCBody + Get + Return Me._body + End Get + Set + Me._body = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDC)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDC object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDC object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDC, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDC) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDC) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDC + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDC) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDC + Return CType(Serializer.Deserialize(s), DETUDC) + End Function +#End Region + + ''' + ''' Serializes current DETUDC object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDC object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDC, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDC) + 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 DETUDC) 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 DETUDC + 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 Class + + + Partial Public Class DETUDCMetaData + +#Region "Private fields" + Private _preparation As DETUDCMetaDataPreparation + + Private _interchangeControlReference As String + + Private _messageReferenceNumber As String + + Private _messageIdentifier As String + + Private _messageGroup As DETUDCMetaDataMessageGroup + + Private _testIndicator As DETUDCMetaDataTestIndicator + + Private _messageType As DETUDCMetaDataMessageType + + Private _interchangeSender As DETUDCMetaDataInterchangeSender + + Private _interchangeRecipient As DETUDCMetaDataInterchangeRecipient + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._interchangeRecipient = New DETUDCMetaDataInterchangeRecipient() + Me._interchangeSender = New DETUDCMetaDataInterchangeSender() + Me._preparation = New DETUDCMetaDataPreparation() + End Sub + + Public Property Preparation() As DETUDCMetaDataPreparation + Get + Return Me._preparation + End Get + Set + Me._preparation = Value + End Set + End Property + + + Public Property InterchangeControlReference() As String + Get + Return Me._interchangeControlReference + End Get + Set + Me._interchangeControlReference = Value + End Set + End Property + + + Public Property MessageReferenceNumber() As String + Get + Return Me._messageReferenceNumber + End Get + Set + Me._messageReferenceNumber = Value + End Set + End Property + + + Public Property MessageIdentifier() As String + Get + Return Me._messageIdentifier + End Get + Set + Me._messageIdentifier = Value + End Set + End Property + + Public Property MessageGroup() As DETUDCMetaDataMessageGroup + Get + Return Me._messageGroup + End Get + Set + Me._messageGroup = Value + End Set + End Property + + Public Property TestIndicator() As DETUDCMetaDataTestIndicator + Get + Return Me._testIndicator + End Get + Set + Me._testIndicator = Value + End Set + End Property + + Public Property MessageType() As DETUDCMetaDataMessageType + Get + Return Me._messageType + End Get + Set + Me._messageType = Value + End Set + End Property + + Public Property InterchangeSender() As DETUDCMetaDataInterchangeSender + Get + Return Me._interchangeSender + End Get + Set + Me._interchangeSender = Value + End Set + End Property + + Public Property InterchangeRecipient() As DETUDCMetaDataInterchangeRecipient + Get + Return Me._interchangeRecipient + End Get + Set + Me._interchangeRecipient = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCMetaData)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCMetaData object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCMetaData object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaData) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaData) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCMetaData + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCMetaData) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCMetaData + Return CType(Serializer.Deserialize(s), DETUDCMetaData) + End Function +#End Region + + ''' + ''' Serializes current DETUDCMetaData object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCMetaData object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCMetaData object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCMetaData, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaData) + 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 DETUDCMetaData) 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 DETUDCMetaData + 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 Class + + + Partial Public Class DETUDCMetaDataPreparation + +#Region "Private fields" + Private _date As Date + + Private _time As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property [Date]() As Date + Get + Return Me._date + End Get + Set + Me._date = Value + End Set + End Property + + + Public Property Time() As Date + Get + Return Me._time + End Get + Set + Me._time = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCMetaDataPreparation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCMetaDataPreparation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCMetaDataPreparation object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataPreparation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataPreparation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCMetaDataPreparation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCMetaDataPreparation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCMetaDataPreparation + Return CType(Serializer.Deserialize(s), DETUDCMetaDataPreparation) + End Function +#End Region + + ''' + ''' Serializes current DETUDCMetaDataPreparation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCMetaDataPreparation object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCMetaDataPreparation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCMetaDataPreparation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataPreparation) + 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 DETUDCMetaDataPreparation) 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 DETUDCMetaDataPreparation + 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 Class + + + Public Enum DETUDCMetaDataMessageGroup + + ''' + TUF + End Enum + + + Public Enum DETUDCMetaDataTestIndicator + + ''' + + Item1 + End Enum + + + Public Enum DETUDCMetaDataMessageType + + ''' + DETUDC + End Enum + + + Partial Public Class DETUDCMetaDataInterchangeSender + +#Region "Private fields" + Private _identification As DETUDCMetaDataInterchangeSenderIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New DETUDCMetaDataInterchangeSenderIdentification() + End Sub + + Public Property Identification() As DETUDCMetaDataInterchangeSenderIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCMetaDataInterchangeSender)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCMetaDataInterchangeSender object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCMetaDataInterchangeSender object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataInterchangeSender) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataInterchangeSender) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCMetaDataInterchangeSender + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCMetaDataInterchangeSender) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCMetaDataInterchangeSender + Return CType(Serializer.Deserialize(s), DETUDCMetaDataInterchangeSender) + End Function +#End Region + + ''' + ''' Serializes current DETUDCMetaDataInterchangeSender object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCMetaDataInterchangeSender object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCMetaDataInterchangeSender object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCMetaDataInterchangeSender, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataInterchangeSender) + 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 DETUDCMetaDataInterchangeSender) 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 DETUDCMetaDataInterchangeSender + 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 Class + + + Partial Public Class DETUDCMetaDataInterchangeSenderIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCMetaDataInterchangeSenderIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCMetaDataInterchangeSenderIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCMetaDataInterchangeSenderIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataInterchangeSenderIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataInterchangeSenderIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCMetaDataInterchangeSenderIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCMetaDataInterchangeSenderIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCMetaDataInterchangeSenderIdentification + Return CType(Serializer.Deserialize(s), DETUDCMetaDataInterchangeSenderIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCMetaDataInterchangeSenderIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCMetaDataInterchangeSenderIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCMetaDataInterchangeSenderIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCMetaDataInterchangeSenderIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataInterchangeSenderIdentification) + 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 DETUDCMetaDataInterchangeSenderIdentification) 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 DETUDCMetaDataInterchangeSenderIdentification + 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 Class + + + Partial Public Class DETUDCMetaDataInterchangeRecipient + +#Region "Private fields" + Private _identification As DETUDCMetaDataInterchangeRecipientIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New DETUDCMetaDataInterchangeRecipientIdentification() + End Sub + + Public Property Identification() As DETUDCMetaDataInterchangeRecipientIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCMetaDataInterchangeRecipient)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCMetaDataInterchangeRecipient object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCMetaDataInterchangeRecipient object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataInterchangeRecipient) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataInterchangeRecipient) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCMetaDataInterchangeRecipient + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCMetaDataInterchangeRecipient) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCMetaDataInterchangeRecipient + Return CType(Serializer.Deserialize(s), DETUDCMetaDataInterchangeRecipient) + End Function +#End Region + + ''' + ''' Serializes current DETUDCMetaDataInterchangeRecipient object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCMetaDataInterchangeRecipient object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCMetaDataInterchangeRecipient object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCMetaDataInterchangeRecipient, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataInterchangeRecipient) + 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 DETUDCMetaDataInterchangeRecipient) 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 DETUDCMetaDataInterchangeRecipient + 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 Class + + + Partial Public Class DETUDCMetaDataInterchangeRecipientIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCMetaDataInterchangeRecipientIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCMetaDataInterchangeRecipientIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCMetaDataInterchangeRecipientIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataInterchangeRecipientIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCMetaDataInterchangeRecipientIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCMetaDataInterchangeRecipientIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCMetaDataInterchangeRecipientIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCMetaDataInterchangeRecipientIdentification + Return CType(Serializer.Deserialize(s), DETUDCMetaDataInterchangeRecipientIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCMetaDataInterchangeRecipientIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCMetaDataInterchangeRecipientIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCMetaDataInterchangeRecipientIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCMetaDataInterchangeRecipientIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCMetaDataInterchangeRecipientIdentification) + 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 DETUDCMetaDataInterchangeRecipientIdentification) 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 DETUDCMetaDataInterchangeRecipientIdentification + 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 Class + + + Partial Public Class DETUDCHeader + +#Region "Private fields" + Private _messageVersion As String + + Private _declaration As DETUDCHeaderDeclaration + + Private _localReferenceNumber As String + + Private _presentationDate As Date + + Private _conveyanceReferenceNumber As String + + Private _commercialReferenceNumber As String + + Private _simplifiedProcedureFlag As String + + Private _securityFlag As String + + Private _specificCircumstanceIndicator As String + + Private _transportChargesPaymentMethod As String + + Private _packingLoadingPlace As String + + Private _loadingPlace As String + + Private _unloadingPlace As String + + Private _goodsItemQuantity As String + + Private _customsAuthorisation As DETUDCHeaderCustomsAuthorisation + + Private _departureCountry As String + + Private _destinationCountry As String + + Private _totalGrossMassMeasure As Decimal + + Private _authorisationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._customsAuthorisation = New DETUDCHeaderCustomsAuthorisation() + Me._declaration = New DETUDCHeaderDeclaration() + End Sub + + + Public Property MessageVersion() As String + Get + Return Me._messageVersion + End Get + Set + Me._messageVersion = Value + End Set + End Property + + Public Property Declaration() As DETUDCHeaderDeclaration + Get + Return Me._declaration + End Get + Set + Me._declaration = Value + End Set + End Property + + + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set + Me._localReferenceNumber = Value + End Set + End Property + + + Public Property PresentationDate() As Date + Get + Return Me._presentationDate + End Get + Set + Me._presentationDate = Value + End Set + End Property + + + Public Property ConveyanceReferenceNumber() As String + Get + Return Me._conveyanceReferenceNumber + End Get + Set + Me._conveyanceReferenceNumber = Value + End Set + End Property + + + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set + Me._commercialReferenceNumber = Value + End Set + End Property + + + Public Property SimplifiedProcedureFlag() As String + Get + Return Me._simplifiedProcedureFlag + End Get + Set + Me._simplifiedProcedureFlag = Value + End Set + End Property + + + Public Property SecurityFlag() As String + Get + Return Me._securityFlag + End Get + Set + Me._securityFlag = Value + End Set + End Property + + + Public Property SpecificCircumstanceIndicator() As String + Get + Return Me._specificCircumstanceIndicator + End Get + Set + Me._specificCircumstanceIndicator = Value + End Set + End Property + + + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set + Me._transportChargesPaymentMethod = Value + End Set + End Property + + + Public Property PackingLoadingPlace() As String + Get + Return Me._packingLoadingPlace + End Get + Set + Me._packingLoadingPlace = Value + End Set + End Property + + + Public Property LoadingPlace() As String + Get + Return Me._loadingPlace + End Get + Set + Me._loadingPlace = Value + End Set + End Property + + + Public Property UnloadingPlace() As String + Get + Return Me._unloadingPlace + End Get + Set + Me._unloadingPlace = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorisation() As DETUDCHeaderCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property DepartureCountry() As String + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + Public Property TotalGrossMassMeasure() As Decimal + Get + Return Me._totalGrossMassMeasure + End Get + Set + Me._totalGrossMassMeasure = Value + End Set + End Property + + + Public Property AuthorisationNumber() As String + Get + Return Me._authorisationNumber + End Get + Set + Me._authorisationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCHeader)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCHeader object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCHeader object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCHeader) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCHeader) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCHeader + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCHeader) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCHeader + Return CType(Serializer.Deserialize(s), DETUDCHeader) + End Function +#End Region + + ''' + ''' Serializes current DETUDCHeader object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCHeader object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCHeader object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCHeader, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCHeader) + 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 DETUDCHeader) 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 DETUDCHeader + 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 Class + + + Partial Public Class DETUDCHeaderDeclaration + +#Region "Private fields" + Private _type As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCHeaderDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCHeaderDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCHeaderDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCHeaderDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCHeaderDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCHeaderDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCHeaderDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCHeaderDeclaration + Return CType(Serializer.Deserialize(s), DETUDCHeaderDeclaration) + End Function +#End Region + + ''' + ''' Serializes current DETUDCHeaderDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCHeaderDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCHeaderDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCHeaderDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCHeaderDeclaration) + 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 DETUDCHeaderDeclaration) 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 DETUDCHeaderDeclaration + 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 Class + + + Partial Public Class DETUDCHeaderCustomsAuthorisation + +#Region "Private fields" + Private _currentProcedure As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property CurrentProcedure() As String + Get + Return Me._currentProcedure + End Get + Set + Me._currentProcedure = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCHeaderCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCHeaderCustomsAuthorisation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCHeaderCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCHeaderCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCHeaderCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCHeaderCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCHeaderCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCHeaderCustomsAuthorisation + Return CType(Serializer.Deserialize(s), DETUDCHeaderCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current DETUDCHeaderCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCHeaderCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCHeaderCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCHeaderCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCHeaderCustomsAuthorisation) + 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 DETUDCHeaderCustomsAuthorisation) 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 DETUDCHeaderCustomsAuthorisation + 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 Class + + + Partial Public Class DETUDCProcedureOwner + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCProcedureOwnerIdentification + + Private _name As String + + Private _carnetOwnerReferenceNumber As String + + Private _address As DETUDCProcedureOwnerAddress + + Private _contactPerson As DETUDCProcedureOwnerContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCProcedureOwnerContactPerson() + Me._address = New DETUDCProcedureOwnerAddress() + Me._identification = New DETUDCProcedureOwnerIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCProcedureOwnerIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property CarnetOwnerReferenceNumber() As String + Get + Return Me._carnetOwnerReferenceNumber + End Get + Set + Me._carnetOwnerReferenceNumber = Value + End Set + End Property + + Public Property Address() As DETUDCProcedureOwnerAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCProcedureOwnerContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCProcedureOwner)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCProcedureOwner object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCProcedureOwner object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCProcedureOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCProcedureOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCProcedureOwner) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCProcedureOwner) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCProcedureOwner + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCProcedureOwner) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCProcedureOwner + Return CType(Serializer.Deserialize(s), DETUDCProcedureOwner) + End Function +#End Region + + ''' + ''' Serializes current DETUDCProcedureOwner object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCProcedureOwner object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCProcedureOwner object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCProcedureOwner, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCProcedureOwner) + 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 DETUDCProcedureOwner) 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 DETUDCProcedureOwner + 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 Class + + + Partial Public Class DETUDCProcedureOwnerIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As DETUDCProcedureOwnerIdentificationSubsidiaryNumber + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Public Property SubsidiaryNumber() As DETUDCProcedureOwnerIdentificationSubsidiaryNumber + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCProcedureOwnerIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCProcedureOwnerIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCProcedureOwnerIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCProcedureOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCProcedureOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCProcedureOwnerIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCProcedureOwnerIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCProcedureOwnerIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCProcedureOwnerIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCProcedureOwnerIdentification + Return CType(Serializer.Deserialize(s), DETUDCProcedureOwnerIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCProcedureOwnerIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCProcedureOwnerIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCProcedureOwnerIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCProcedureOwnerIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCProcedureOwnerIdentification) + 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 DETUDCProcedureOwnerIdentification) 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 DETUDCProcedureOwnerIdentification + 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 Class + + + Public Enum DETUDCProcedureOwnerIdentificationSubsidiaryNumber + + ''' + + Item0000 + End Enum + + + Partial Public Class DETUDCProcedureOwnerAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCProcedureOwnerAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCProcedureOwnerAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCProcedureOwnerAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCProcedureOwnerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCProcedureOwnerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCProcedureOwnerAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCProcedureOwnerAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCProcedureOwnerAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCProcedureOwnerAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCProcedureOwnerAddress + Return CType(Serializer.Deserialize(s), DETUDCProcedureOwnerAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCProcedureOwnerAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCProcedureOwnerAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCProcedureOwnerAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCProcedureOwnerAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCProcedureOwnerAddress) + 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 DETUDCProcedureOwnerAddress) 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 DETUDCProcedureOwnerAddress + 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 Class + + + Partial Public Class DETUDCProcedureOwnerContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCProcedureOwnerContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCProcedureOwnerContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCProcedureOwnerContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCProcedureOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCProcedureOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCProcedureOwnerContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCProcedureOwnerContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCProcedureOwnerContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCProcedureOwnerContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCProcedureOwnerContactPerson + Return CType(Serializer.Deserialize(s), DETUDCProcedureOwnerContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCProcedureOwnerContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCProcedureOwnerContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCProcedureOwnerContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCProcedureOwnerContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCProcedureOwnerContactPerson) + 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 DETUDCProcedureOwnerContactPerson) 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 DETUDCProcedureOwnerContactPerson + 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 Class + + + Partial Public Class DETUDCAuthorisedConsignee + +#Region "Private fields" + Private _identification As DETUDCAuthorisedConsigneeIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New DETUDCAuthorisedConsigneeIdentification() + End Sub + + Public Property Identification() As DETUDCAuthorisedConsigneeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCAuthorisedConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCAuthorisedConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCAuthorisedConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCAuthorisedConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCAuthorisedConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCAuthorisedConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCAuthorisedConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCAuthorisedConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCAuthorisedConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCAuthorisedConsignee + Return CType(Serializer.Deserialize(s), DETUDCAuthorisedConsignee) + End Function +#End Region + + ''' + ''' Serializes current DETUDCAuthorisedConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCAuthorisedConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCAuthorisedConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCAuthorisedConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCAuthorisedConsignee) + 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 DETUDCAuthorisedConsignee) 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 DETUDCAuthorisedConsignee + 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 Class + + + Partial Public Class DETUDCAuthorisedConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCAuthorisedConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCAuthorisedConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCAuthorisedConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCAuthorisedConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCAuthorisedConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCAuthorisedConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCAuthorisedConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCAuthorisedConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCAuthorisedConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCAuthorisedConsigneeIdentification + Return CType(Serializer.Deserialize(s), DETUDCAuthorisedConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCAuthorisedConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCAuthorisedConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCAuthorisedConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCAuthorisedConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCAuthorisedConsigneeIdentification) + 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 DETUDCAuthorisedConsigneeIdentification) 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 DETUDCAuthorisedConsigneeIdentification + 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 Class + + + Partial Public Class DETUDCSecurityConsignor + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCSecurityConsignorIdentification + + Private _name As String + + Private _address As DETUDCSecurityConsignorAddress + + Private _contactPerson As DETUDCSecurityConsignorContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCSecurityConsignorContactPerson() + Me._address = New DETUDCSecurityConsignorAddress() + Me._identification = New DETUDCSecurityConsignorIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCSecurityConsignorIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As DETUDCSecurityConsignorAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCSecurityConsignorContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSecurityConsignor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSecurityConsignor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSecurityConsignor object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSecurityConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSecurityConsignor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSecurityConsignor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSecurityConsignor + Return CType(Serializer.Deserialize(s), DETUDCSecurityConsignor) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSecurityConsignor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSecurityConsignor object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSecurityConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSecurityConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignor) + 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 DETUDCSecurityConsignor) 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 DETUDCSecurityConsignor + 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 Class + + + Partial Public Class DETUDCSecurityConsignorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSecurityConsignorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSecurityConsignorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSecurityConsignorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSecurityConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSecurityConsignorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSecurityConsignorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSecurityConsignorIdentification + Return CType(Serializer.Deserialize(s), DETUDCSecurityConsignorIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSecurityConsignorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSecurityConsignorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSecurityConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSecurityConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignorIdentification) + 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 DETUDCSecurityConsignorIdentification) 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 DETUDCSecurityConsignorIdentification + 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 Class + + + Partial Public Class DETUDCSecurityConsignorAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSecurityConsignorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSecurityConsignorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSecurityConsignorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSecurityConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSecurityConsignorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSecurityConsignorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSecurityConsignorAddress + Return CType(Serializer.Deserialize(s), DETUDCSecurityConsignorAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSecurityConsignorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSecurityConsignorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSecurityConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSecurityConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignorAddress) + 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 DETUDCSecurityConsignorAddress) 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 DETUDCSecurityConsignorAddress + 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 Class + + + Partial Public Class DETUDCSecurityConsignorContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSecurityConsignorContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSecurityConsignorContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSecurityConsignorContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSecurityConsignorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignorContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignorContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSecurityConsignorContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSecurityConsignorContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSecurityConsignorContactPerson + Return CType(Serializer.Deserialize(s), DETUDCSecurityConsignorContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSecurityConsignorContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSecurityConsignorContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSecurityConsignorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSecurityConsignorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignorContactPerson) + 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 DETUDCSecurityConsignorContactPerson) 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 DETUDCSecurityConsignorContactPerson + 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 Class + + + Partial Public Class DETUDCSecurityConsignee + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCSecurityConsigneeIdentification + + Private _name As String + + Private _address As DETUDCSecurityConsigneeAddress + + Private _contactPerson As DETUDCSecurityConsigneeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCSecurityConsigneeContactPerson() + Me._address = New DETUDCSecurityConsigneeAddress() + Me._identification = New DETUDCSecurityConsigneeIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCSecurityConsigneeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As DETUDCSecurityConsigneeAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCSecurityConsigneeContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSecurityConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSecurityConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSecurityConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSecurityConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSecurityConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSecurityConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSecurityConsignee + Return CType(Serializer.Deserialize(s), DETUDCSecurityConsignee) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSecurityConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSecurityConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSecurityConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSecurityConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsignee) + 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 DETUDCSecurityConsignee) 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 DETUDCSecurityConsignee + 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 Class + + + Partial Public Class DETUDCSecurityConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSecurityConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSecurityConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSecurityConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSecurityConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSecurityConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSecurityConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSecurityConsigneeIdentification + Return CType(Serializer.Deserialize(s), DETUDCSecurityConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSecurityConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSecurityConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSecurityConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSecurityConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsigneeIdentification) + 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 DETUDCSecurityConsigneeIdentification) 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 DETUDCSecurityConsigneeIdentification + 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 Class + + + Partial Public Class DETUDCSecurityConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSecurityConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSecurityConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSecurityConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSecurityConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSecurityConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSecurityConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSecurityConsigneeAddress + Return CType(Serializer.Deserialize(s), DETUDCSecurityConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSecurityConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSecurityConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSecurityConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSecurityConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsigneeAddress) + 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 DETUDCSecurityConsigneeAddress) 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 DETUDCSecurityConsigneeAddress + 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 Class + + + Partial Public Class DETUDCSecurityConsigneeContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSecurityConsigneeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSecurityConsigneeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSecurityConsigneeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSecurityConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsigneeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSecurityConsigneeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSecurityConsigneeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSecurityConsigneeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSecurityConsigneeContactPerson + Return CType(Serializer.Deserialize(s), DETUDCSecurityConsigneeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSecurityConsigneeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSecurityConsigneeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSecurityConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSecurityConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSecurityConsigneeContactPerson) + 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 DETUDCSecurityConsigneeContactPerson) 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 DETUDCSecurityConsigneeContactPerson + 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 Class + + + Partial Public Class DETUDCCarrier + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCCarrierIdentification + + Private _name As String + + Private _address As DETUDCCarrierAddress + + Private _contactPerson As DETUDCCarrierContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCCarrierContactPerson() + Me._address = New DETUDCCarrierAddress() + Me._identification = New DETUDCCarrierIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCCarrierIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As DETUDCCarrierAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCCarrierContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCCarrier)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCCarrier object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCCarrier object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCCarrier object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCarrier) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCarrier) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCCarrier + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCCarrier) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCCarrier + Return CType(Serializer.Deserialize(s), DETUDCCarrier) + End Function +#End Region + + ''' + ''' Serializes current DETUDCCarrier object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCCarrier object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCCarrier object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCCarrier, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCarrier) + 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 DETUDCCarrier) 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 DETUDCCarrier + 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 Class + + + Partial Public Class DETUDCCarrierIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCCarrierIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCCarrierIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCCarrierIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCCarrierIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCarrierIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCarrierIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCarrierIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCCarrierIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCCarrierIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCCarrierIdentification + Return CType(Serializer.Deserialize(s), DETUDCCarrierIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCCarrierIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCCarrierIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCCarrierIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCCarrierIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCarrierIdentification) + 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 DETUDCCarrierIdentification) 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 DETUDCCarrierIdentification + 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 Class + + + Partial Public Class DETUDCCarrierAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCCarrierAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCCarrierAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCCarrierAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCCarrierAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCarrierAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCarrierAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCarrierAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCCarrierAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCCarrierAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCCarrierAddress + Return CType(Serializer.Deserialize(s), DETUDCCarrierAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCCarrierAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCCarrierAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCCarrierAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCCarrierAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCarrierAddress) + 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 DETUDCCarrierAddress) 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 DETUDCCarrierAddress + 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 Class + + + Partial Public Class DETUDCCarrierContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCCarrierContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCCarrierContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCCarrierContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCCarrierContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCarrierContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCarrierContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCarrierContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCCarrierContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCCarrierContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCCarrierContactPerson + Return CType(Serializer.Deserialize(s), DETUDCCarrierContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCCarrierContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCCarrierContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCCarrierContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCCarrierContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCarrierContactPerson) + 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 DETUDCCarrierContactPerson) 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 DETUDCCarrierContactPerson + 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 Class + + + Partial Public Class DETUDCDepartureCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCDepartureCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCDepartureCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCDepartureCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCDepartureCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCDepartureCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCDepartureCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCDepartureCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCDepartureCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCDepartureCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCDepartureCustomsOffice + Return CType(Serializer.Deserialize(s), DETUDCDepartureCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DETUDCDepartureCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCDepartureCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCDepartureCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCDepartureCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCDepartureCustomsOffice) + 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 DETUDCDepartureCustomsOffice) 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 DETUDCDepartureCustomsOffice + 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 Class + + + Partial Public Class DETUDCTransitCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCTransitCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCTransitCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCTransitCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCTransitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCTransitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCTransitCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCTransitCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCTransitCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCTransitCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCTransitCustomsOffice + Return CType(Serializer.Deserialize(s), DETUDCTransitCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DETUDCTransitCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCTransitCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCTransitCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCTransitCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCTransitCustomsOffice) + 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 DETUDCTransitCustomsOffice) 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 DETUDCTransitCustomsOffice + 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 Class + + + Partial Public Class DETUDCDestinationCustomsOffice + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCDestinationCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCDestinationCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCDestinationCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCDestinationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCDestinationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCDestinationCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCDestinationCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCDestinationCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCDestinationCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCDestinationCustomsOffice + Return CType(Serializer.Deserialize(s), DETUDCDestinationCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DETUDCDestinationCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCDestinationCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCDestinationCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCDestinationCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCDestinationCustomsOffice) + 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 DETUDCDestinationCustomsOffice) 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 DETUDCDestinationCustomsOffice + 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 Class + + + Partial Public Class DETUDCDepartureTransportMeans + +#Region "Private fields" + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Identity() As String + Get + Return Me._identity + End Get + Set + Me._identity = Value + End Set + End Property + + + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCDepartureTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCDepartureTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCDepartureTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCDepartureTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCDepartureTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCDepartureTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCDepartureTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCDepartureTransportMeans + Return CType(Serializer.Deserialize(s), DETUDCDepartureTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DETUDCDepartureTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCDepartureTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCDepartureTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCDepartureTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCDepartureTransportMeans) + 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 DETUDCDepartureTransportMeans) 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 DETUDCDepartureTransportMeans + 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 Class + + + Partial Public Class DETUDCBorderTransportMeans + +#Region "Private fields" + Private _mode As String + + Private _type As String + + Private _identity As String + + Private _nationality As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Mode() As String + Get + Return Me._mode + End Get + Set + Me._mode = Value + End Set + End Property + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property Identity() As String + Get + Return Me._identity + End Get + Set + Me._identity = Value + End Set + End Property + + + Public Property Nationality() As String + Get + Return Me._nationality + End Get + Set + Me._nationality = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBorderTransportMeans)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBorderTransportMeans object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBorderTransportMeans object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBorderTransportMeans) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBorderTransportMeans) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBorderTransportMeans + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBorderTransportMeans) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBorderTransportMeans + Return CType(Serializer.Deserialize(s), DETUDCBorderTransportMeans) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBorderTransportMeans object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBorderTransportMeans object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBorderTransportMeans object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBorderTransportMeans, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBorderTransportMeans) + 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 DETUDCBorderTransportMeans) 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 DETUDCBorderTransportMeans + 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 Class + + + Partial Public Class DETUDCItinerary + +#Region "Private fields" + Private _country As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCItinerary)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCItinerary object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCItinerary object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCItinerary) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCItinerary) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCItinerary + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCItinerary) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCItinerary + Return CType(Serializer.Deserialize(s), DETUDCItinerary) + End Function +#End Region + + ''' + ''' Serializes current DETUDCItinerary object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCItinerary object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCItinerary object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCItinerary, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCItinerary) + 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 DETUDCItinerary) 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 DETUDCItinerary + 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 Class + + + Partial Public Class DETUDCRoute + +#Region "Private fields" + Private _information As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Information() As String + Get + Return Me._information + End Get + Set + Me._information = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCRoute)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCRoute object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCRoute object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCRoute object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCRoute, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCRoute) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCRoute) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCRoute + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCRoute) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCRoute + Return CType(Serializer.Deserialize(s), DETUDCRoute) + End Function +#End Region + + ''' + ''' Serializes current DETUDCRoute object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCRoute object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCRoute object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCRoute, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCRoute) + 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 DETUDCRoute) 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 DETUDCRoute + 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 Class + + + Partial Public Class DETUDCPackages + +#Region "Private fields" + Private _quantity As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCPackages)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCPackages object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCPackages object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCPackages object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCPackages, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCPackages) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCPackages) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCPackages + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCPackages) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCPackages + Return CType(Serializer.Deserialize(s), DETUDCPackages) + End Function +#End Region + + ''' + ''' Serializes current DETUDCPackages object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCPackages object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCPackages object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCPackages, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCPackages) + 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 DETUDCPackages) 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 DETUDCPackages + 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 Class + + + Partial Public Class DETUDCSeals + +#Region "Private fields" + Private _type As String + + Private _number As String + + Private _seal As List(Of DETUDCSealsSeal) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._seal = New List(Of DETUDCSealsSeal)() + End Sub + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property Number() As String + Get + Return Me._number + End Get + Set + Me._number = Value + End Set + End Property + + + Public Property Seal() As List(Of DETUDCSealsSeal) + Get + Return Me._seal + End Get + Set + Me._seal = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSeals)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSeals object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSeals object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSeals) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSeals) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSeals + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSeals) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSeals + Return CType(Serializer.Deserialize(s), DETUDCSeals) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSeals object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSeals object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSeals, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSeals) + 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 DETUDCSeals) 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 DETUDCSeals + 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 Class + + + Partial Public Class DETUDCSealsSeal + +#Region "Private fields" + Private _identity As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Identity() As String + Get + Return Me._identity + End Get + Set + Me._identity = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSealsSeal)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSealsSeal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSealsSeal object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSealsSeal) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSealsSeal) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSealsSeal + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSealsSeal) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSealsSeal + Return CType(Serializer.Deserialize(s), DETUDCSealsSeal) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSealsSeal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSealsSeal object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSealsSeal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSealsSeal, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSealsSeal) + 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 DETUDCSealsSeal) 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 DETUDCSealsSeal + 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 Class + + + Partial Public Class DETUDCSummaryDeclaration + +#Region "Private fields" + Private _identificationIndicator As String + + Private _sequenceNumber As String + + Private _goodsItemQuantity As String + + Private _goodsItem As List(Of DETUDCSummaryDeclarationGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of DETUDCSummaryDeclarationGoodsItem)() + End Sub + + + Public Property IdentificationIndicator() As String + Get + Return Me._identificationIndicator + End Get + Set + Me._identificationIndicator = Value + End Set + End Property + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of DETUDCSummaryDeclarationGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSummaryDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSummaryDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSummaryDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSummaryDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSummaryDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSummaryDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSummaryDeclaration + Return CType(Serializer.Deserialize(s), DETUDCSummaryDeclaration) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSummaryDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSummaryDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSummaryDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSummaryDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclaration) + 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 DETUDCSummaryDeclaration) 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 DETUDCSummaryDeclaration + 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 Class + + + Partial Public Class DETUDCSummaryDeclarationGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _quantity As String + + Private _identificationByKey As DETUDCSummaryDeclarationGoodsItemIdentificationByKey + + Private _identificationByRegistration As DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identificationByRegistration = New DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration() + Me._identificationByKey = New DETUDCSummaryDeclarationGoodsItemIdentificationByKey() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + Public Property IdentificationByKey() As DETUDCSummaryDeclarationGoodsItemIdentificationByKey + Get + Return Me._identificationByKey + End Get + Set + Me._identificationByKey = Value + End Set + End Property + + Public Property IdentificationByRegistration() As DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration + Get + Return Me._identificationByRegistration + End Get + Set + Me._identificationByRegistration = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSummaryDeclarationGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSummaryDeclarationGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSummaryDeclarationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSummaryDeclarationGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSummaryDeclarationGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSummaryDeclarationGoodsItem + Return CType(Serializer.Deserialize(s), DETUDCSummaryDeclarationGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSummaryDeclarationGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSummaryDeclarationGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSummaryDeclarationGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItem) + 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 DETUDCSummaryDeclarationGoodsItem) 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 DETUDCSummaryDeclarationGoodsItem + 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 Class + + + Partial Public Class DETUDCSummaryDeclarationGoodsItemIdentificationByKey + +#Region "Private fields" + Private _kind As String + + Private _number As String + + Private _custodian As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._custodian = New DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian() + End Sub + + + Public Property Kind() As String + Get + Return Me._kind + End Get + Set + Me._kind = Value + End Set + End Property + + + Public Property Number() As String + Get + Return Me._number + End Get + Set + Me._number = Value + End Set + End Property + + Public Property Custodian() As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Get + Return Me._custodian + End Get + Set + Me._custodian = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSummaryDeclarationGoodsItemIdentificationByKey)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItemIdentificationByKey object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItemIdentificationByKey) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByKey) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSummaryDeclarationGoodsItemIdentificationByKey + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSummaryDeclarationGoodsItemIdentificationByKey) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSummaryDeclarationGoodsItemIdentificationByKey + Return CType(Serializer.Deserialize(s), DETUDCSummaryDeclarationGoodsItemIdentificationByKey) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItemIdentificationByKey object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSummaryDeclarationGoodsItemIdentificationByKey object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByKey, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItemIdentificationByKey) + 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 DETUDCSummaryDeclarationGoodsItemIdentificationByKey) 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 DETUDCSummaryDeclarationGoodsItemIdentificationByKey + 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 Class + + + Partial Public Class DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + +#Region "Private fields" + Private _class As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianClass + + Private _identification As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification() + End Sub + + Public Property [Class]() As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianClass + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + Return CType(Serializer.Deserialize(s), DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) + 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 DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian) 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 DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodian + 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 Class + + + Public Enum DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianClass + + ''' + + Item2 + End Enum + + + Partial Public Class DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + Return CType(Serializer.Deserialize(s), DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) + 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 DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification) 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 DETUDCSummaryDeclarationGoodsItemIdentificationByKeyCustodianIdentification + 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 Class + + + Partial Public Class DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration + +#Region "Private fields" + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me._referencedRegistrationNumber + End Get + Set + Me._referencedRegistrationNumber = Value + End Set + End Property + + + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set + Me._referencedSequenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration + Return CType(Serializer.Deserialize(s), DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration) + End Function +#End Region + + ''' + ''' Serializes current DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration) + 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 DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration) 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 DETUDCSummaryDeclarationGoodsItemIdentificationByRegistration + 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 Class + + + Partial Public Class DETUDCCustomsWarehouse + +#Region "Private fields" + Private _sequenceNumber As String + + Private _goodsItemQuantity As String + + Private _customsAuthorisation As DETUDCCustomsWarehouseCustomsAuthorisation + + Private _localReferenceNumber As String + + Private _goodsItem As List(Of DETUDCCustomsWarehouseGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of DETUDCCustomsWarehouseGoodsItem)() + Me._customsAuthorisation = New DETUDCCustomsWarehouseCustomsAuthorisation() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorisation() As DETUDCCustomsWarehouseCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property LocalReferenceNumber() As String + Get + Return Me._localReferenceNumber + End Get + Set + Me._localReferenceNumber = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of DETUDCCustomsWarehouseGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCCustomsWarehouse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCCustomsWarehouse object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCCustomsWarehouse object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouse) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouse) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCCustomsWarehouse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCCustomsWarehouse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCCustomsWarehouse + Return CType(Serializer.Deserialize(s), DETUDCCustomsWarehouse) + End Function +#End Region + + ''' + ''' Serializes current DETUDCCustomsWarehouse object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCCustomsWarehouse object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCCustomsWarehouse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCCustomsWarehouse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouse) + 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 DETUDCCustomsWarehouse) 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 DETUDCCustomsWarehouse + 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 Class + + + Partial Public Class DETUDCCustomsWarehouseCustomsAuthorisation + +#Region "Private fields" + Private _warehouseOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property WarehouseOwner() As String + Get + Return Me._warehouseOwner + End Get + Set + Me._warehouseOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCCustomsWarehouseCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCCustomsWarehouseCustomsAuthorisation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCCustomsWarehouseCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCCustomsWarehouseCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouseCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouseCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCCustomsWarehouseCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCCustomsWarehouseCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCCustomsWarehouseCustomsAuthorisation + Return CType(Serializer.Deserialize(s), DETUDCCustomsWarehouseCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current DETUDCCustomsWarehouseCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCCustomsWarehouseCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCCustomsWarehouseCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCCustomsWarehouseCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouseCustomsAuthorisation) + 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 DETUDCCustomsWarehouseCustomsAuthorisation) 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 DETUDCCustomsWarehouseCustomsAuthorisation + 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 Class + + + Partial Public Class DETUDCCustomsWarehouseGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private _accessViaAtlasFlag As String + + Private _commodityCode As String + + Private _usualProcessingFlag As String + + Private _complement As String + + Private _commercialAmount As DETUDCCustomsWarehouseGoodsItemCommercialAmount + + Private _debitAmount As DETUDCCustomsWarehouseGoodsItemDebitAmount + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._debitAmount = New DETUDCCustomsWarehouseGoodsItemDebitAmount() + Me._commercialAmount = New DETUDCCustomsWarehouseGoodsItemCommercialAmount() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me._referencedRegistrationNumber + End Get + Set + Me._referencedRegistrationNumber = Value + End Set + End Property + + + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set + Me._referencedSequenceNumber = Value + End Set + End Property + + + Public Property AccessViaAtlasFlag() As String + Get + Return Me._accessViaAtlasFlag + End Get + Set + Me._accessViaAtlasFlag = Value + End Set + End Property + + + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + + Public Property UsualProcessingFlag() As String + Get + Return Me._usualProcessingFlag + End Get + Set + Me._usualProcessingFlag = Value + End Set + End Property + + + Public Property Complement() As String + Get + Return Me._complement + End Get + Set + Me._complement = Value + End Set + End Property + + Public Property CommercialAmount() As DETUDCCustomsWarehouseGoodsItemCommercialAmount + Get + Return Me._commercialAmount + End Get + Set + Me._commercialAmount = Value + End Set + End Property + + Public Property DebitAmount() As DETUDCCustomsWarehouseGoodsItemDebitAmount + Get + Return Me._debitAmount + End Get + Set + Me._debitAmount = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCCustomsWarehouseGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCCustomsWarehouseGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCCustomsWarehouseGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouseGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouseGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCCustomsWarehouseGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCCustomsWarehouseGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCCustomsWarehouseGoodsItem + Return CType(Serializer.Deserialize(s), DETUDCCustomsWarehouseGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DETUDCCustomsWarehouseGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCCustomsWarehouseGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCCustomsWarehouseGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCCustomsWarehouseGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouseGoodsItem) + 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 DETUDCCustomsWarehouseGoodsItem) 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 DETUDCCustomsWarehouseGoodsItem + 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 Class + + + Partial Public Class DETUDCCustomsWarehouseGoodsItemCommercialAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCCustomsWarehouseGoodsItemCommercialAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCCustomsWarehouseGoodsItemCommercialAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouseGoodsItemCommercialAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouseGoodsItemCommercialAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCCustomsWarehouseGoodsItemCommercialAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCCustomsWarehouseGoodsItemCommercialAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCCustomsWarehouseGoodsItemCommercialAmount + Return CType(Serializer.Deserialize(s), DETUDCCustomsWarehouseGoodsItemCommercialAmount) + End Function +#End Region + + ''' + ''' Serializes current DETUDCCustomsWarehouseGoodsItemCommercialAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCCustomsWarehouseGoodsItemCommercialAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCCustomsWarehouseGoodsItemCommercialAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCCustomsWarehouseGoodsItemCommercialAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouseGoodsItemCommercialAmount) + 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 DETUDCCustomsWarehouseGoodsItemCommercialAmount) 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 DETUDCCustomsWarehouseGoodsItemCommercialAmount + 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 Class + + + Partial Public Class DETUDCCustomsWarehouseGoodsItemDebitAmount + +#Region "Private fields" + Private _quantity As Decimal + + Private _measurementUnit As String + + Private _qualifier As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Quantity() As Decimal + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + + Public Property Qualifier() As String + Get + Return Me._qualifier + End Get + Set + Me._qualifier = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCCustomsWarehouseGoodsItemDebitAmount)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCCustomsWarehouseGoodsItemDebitAmount object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouseGoodsItemDebitAmount) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCCustomsWarehouseGoodsItemDebitAmount) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCCustomsWarehouseGoodsItemDebitAmount + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCCustomsWarehouseGoodsItemDebitAmount) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCCustomsWarehouseGoodsItemDebitAmount + Return CType(Serializer.Deserialize(s), DETUDCCustomsWarehouseGoodsItemDebitAmount) + End Function +#End Region + + ''' + ''' Serializes current DETUDCCustomsWarehouseGoodsItemDebitAmount object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCCustomsWarehouseGoodsItemDebitAmount object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCCustomsWarehouseGoodsItemDebitAmount object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCCustomsWarehouseGoodsItemDebitAmount, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCCustomsWarehouseGoodsItemDebitAmount) + 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 DETUDCCustomsWarehouseGoodsItemDebitAmount) 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 DETUDCCustomsWarehouseGoodsItemDebitAmount + 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 Class + + + Partial Public Class DETUDCInwardProcessing + +#Region "Private fields" + Private _sequenceNumber As String + + Private _goodsItemQuantity As String + + Private _customsAuthorisation As DETUDCInwardProcessingCustomsAuthorisation + + Private _simplifiedGrantAuthorisationFlag As String + + Private _monitoringCustomsOffice As DETUDCInwardProcessingMonitoringCustomsOffice + + Private _goodsItem As List(Of DETUDCInwardProcessingGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of DETUDCInwardProcessingGoodsItem)() + Me._monitoringCustomsOffice = New DETUDCInwardProcessingMonitoringCustomsOffice() + Me._customsAuthorisation = New DETUDCInwardProcessingCustomsAuthorisation() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property GoodsItemQuantity() As String + Get + Return Me._goodsItemQuantity + End Get + Set + Me._goodsItemQuantity = Value + End Set + End Property + + Public Property CustomsAuthorisation() As DETUDCInwardProcessingCustomsAuthorisation + Get + Return Me._customsAuthorisation + End Get + Set + Me._customsAuthorisation = Value + End Set + End Property + + + Public Property SimplifiedGrantAuthorisationFlag() As String + Get + Return Me._simplifiedGrantAuthorisationFlag + End Get + Set + Me._simplifiedGrantAuthorisationFlag = Value + End Set + End Property + + Public Property MonitoringCustomsOffice() As DETUDCInwardProcessingMonitoringCustomsOffice + Get + Return Me._monitoringCustomsOffice + End Get + Set + Me._monitoringCustomsOffice = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of DETUDCInwardProcessingGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCInwardProcessing)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCInwardProcessing object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCInwardProcessing object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCInwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessing) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessing) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCInwardProcessing + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCInwardProcessing) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCInwardProcessing + Return CType(Serializer.Deserialize(s), DETUDCInwardProcessing) + End Function +#End Region + + ''' + ''' Serializes current DETUDCInwardProcessing object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCInwardProcessing object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCInwardProcessing object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCInwardProcessing, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessing) + 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 DETUDCInwardProcessing) 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 DETUDCInwardProcessing + 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 Class + + + Partial Public Class DETUDCInwardProcessingCustomsAuthorisation + +#Region "Private fields" + Private _processingOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ProcessingOwner() As String + Get + Return Me._processingOwner + End Get + Set + Me._processingOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCInwardProcessingCustomsAuthorisation)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCInwardProcessingCustomsAuthorisation object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCInwardProcessingCustomsAuthorisation object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCInwardProcessingCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessingCustomsAuthorisation) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessingCustomsAuthorisation) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCInwardProcessingCustomsAuthorisation + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCInwardProcessingCustomsAuthorisation) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCInwardProcessingCustomsAuthorisation + Return CType(Serializer.Deserialize(s), DETUDCInwardProcessingCustomsAuthorisation) + End Function +#End Region + + ''' + ''' Serializes current DETUDCInwardProcessingCustomsAuthorisation object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCInwardProcessingCustomsAuthorisation object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCInwardProcessingCustomsAuthorisation object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCInwardProcessingCustomsAuthorisation, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessingCustomsAuthorisation) + 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 DETUDCInwardProcessingCustomsAuthorisation) 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 DETUDCInwardProcessingCustomsAuthorisation + 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 Class + + + Partial Public Class DETUDCInwardProcessingMonitoringCustomsOffice + +#Region "Private fields" + Private _identification As DETUDCInwardProcessingMonitoringCustomsOfficeIdentification + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._identification = New DETUDCInwardProcessingMonitoringCustomsOfficeIdentification() + End Sub + + Public Property Identification() As DETUDCInwardProcessingMonitoringCustomsOfficeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCInwardProcessingMonitoringCustomsOffice)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCInwardProcessingMonitoringCustomsOffice object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCInwardProcessingMonitoringCustomsOffice object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCInwardProcessingMonitoringCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessingMonitoringCustomsOffice) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessingMonitoringCustomsOffice) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCInwardProcessingMonitoringCustomsOffice + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCInwardProcessingMonitoringCustomsOffice) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCInwardProcessingMonitoringCustomsOffice + Return CType(Serializer.Deserialize(s), DETUDCInwardProcessingMonitoringCustomsOffice) + End Function +#End Region + + ''' + ''' Serializes current DETUDCInwardProcessingMonitoringCustomsOffice object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCInwardProcessingMonitoringCustomsOffice object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCInwardProcessingMonitoringCustomsOffice object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCInwardProcessingMonitoringCustomsOffice, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessingMonitoringCustomsOffice) + 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 DETUDCInwardProcessingMonitoringCustomsOffice) 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 DETUDCInwardProcessingMonitoringCustomsOffice + 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 Class + + + Partial Public Class DETUDCInwardProcessingMonitoringCustomsOfficeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCInwardProcessingMonitoringCustomsOfficeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCInwardProcessingMonitoringCustomsOfficeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessingMonitoringCustomsOfficeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessingMonitoringCustomsOfficeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCInwardProcessingMonitoringCustomsOfficeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCInwardProcessingMonitoringCustomsOfficeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCInwardProcessingMonitoringCustomsOfficeIdentification + Return CType(Serializer.Deserialize(s), DETUDCInwardProcessingMonitoringCustomsOfficeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCInwardProcessingMonitoringCustomsOfficeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCInwardProcessingMonitoringCustomsOfficeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCInwardProcessingMonitoringCustomsOfficeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessingMonitoringCustomsOfficeIdentification) + 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 DETUDCInwardProcessingMonitoringCustomsOfficeIdentification) 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 DETUDCInwardProcessingMonitoringCustomsOfficeIdentification + 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 Class + + + Partial Public Class DETUDCInwardProcessingGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _referencedRegistrationNumber As String + + Private _referencedSequenceNumber As String + + Private _accessViaAtlasFlag As String + + Private _goodsRelatedInformation As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + + Public Property ReferencedRegistrationNumber() As String + Get + Return Me._referencedRegistrationNumber + End Get + Set + Me._referencedRegistrationNumber = Value + End Set + End Property + + + Public Property ReferencedSequenceNumber() As String + Get + Return Me._referencedSequenceNumber + End Get + Set + Me._referencedSequenceNumber = Value + End Set + End Property + + + Public Property AccessViaAtlasFlag() As String + Get + Return Me._accessViaAtlasFlag + End Get + Set + Me._accessViaAtlasFlag = Value + End Set + End Property + + + Public Property GoodsRelatedInformation() As String + Get + Return Me._goodsRelatedInformation + End Get + Set + Me._goodsRelatedInformation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCInwardProcessingGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCInwardProcessingGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCInwardProcessingGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCInwardProcessingGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessingGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCInwardProcessingGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCInwardProcessingGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCInwardProcessingGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCInwardProcessingGoodsItem + Return CType(Serializer.Deserialize(s), DETUDCInwardProcessingGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DETUDCInwardProcessingGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCInwardProcessingGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCInwardProcessingGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCInwardProcessingGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCInwardProcessingGoodsItem) + 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 DETUDCInwardProcessingGoodsItem) 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 DETUDCInwardProcessingGoodsItem + 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 Class + + + Partial Public Class DETUDCGuarantee + +#Region "Private fields" + Private _type As String + + Private _certificate As String + + Private _amount As Decimal + + Private _nCTS As DETUDCGuaranteeNCTS + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._nCTS = New DETUDCGuaranteeNCTS() + End Sub + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property Certificate() As String + Get + Return Me._certificate + End Get + Set + Me._certificate = Value + End Set + End Property + + Public Property Amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property NCTS() As DETUDCGuaranteeNCTS + Get + Return Me._nCTS + End Get + Set + Me._nCTS = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCGuarantee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCGuarantee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCGuarantee object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCGuarantee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCGuarantee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCGuarantee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCGuarantee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCGuarantee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCGuarantee + Return CType(Serializer.Deserialize(s), DETUDCGuarantee) + End Function +#End Region + + ''' + ''' Serializes current DETUDCGuarantee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCGuarantee object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCGuarantee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCGuarantee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCGuarantee) + 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 DETUDCGuarantee) 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 DETUDCGuarantee + 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 Class + + + Partial Public Class DETUDCGuaranteeNCTS + +#Region "Private fields" + Private _guaranteeReferenceNumber As String + + Private _identification As DETUDCGuaranteeNCTSIdentification + + Private _accessCode As DETUDCGuaranteeNCTSAccessCode + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._accessCode = New DETUDCGuaranteeNCTSAccessCode() + Me._identification = New DETUDCGuaranteeNCTSIdentification() + End Sub + + + Public Property GuaranteeReferenceNumber() As String + Get + Return Me._guaranteeReferenceNumber + End Get + Set + Me._guaranteeReferenceNumber = Value + End Set + End Property + + Public Property Identification() As DETUDCGuaranteeNCTSIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + Public Property AccessCode() As DETUDCGuaranteeNCTSAccessCode + Get + Return Me._accessCode + End Get + Set + Me._accessCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCGuaranteeNCTS)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCGuaranteeNCTS object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCGuaranteeNCTS object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCGuaranteeNCTS object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCGuaranteeNCTS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCGuaranteeNCTS) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCGuaranteeNCTS) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCGuaranteeNCTS + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCGuaranteeNCTS) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCGuaranteeNCTS + Return CType(Serializer.Deserialize(s), DETUDCGuaranteeNCTS) + End Function +#End Region + + ''' + ''' Serializes current DETUDCGuaranteeNCTS object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCGuaranteeNCTS object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCGuaranteeNCTS object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCGuaranteeNCTS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCGuaranteeNCTS) + 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 DETUDCGuaranteeNCTS) 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 DETUDCGuaranteeNCTS + 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 Class + + + Partial Public Class DETUDCGuaranteeNCTSIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCGuaranteeNCTSIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCGuaranteeNCTSIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCGuaranteeNCTSIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCGuaranteeNCTSIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCGuaranteeNCTSIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCGuaranteeNCTSIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCGuaranteeNCTSIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCGuaranteeNCTSIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCGuaranteeNCTSIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCGuaranteeNCTSIdentification + Return CType(Serializer.Deserialize(s), DETUDCGuaranteeNCTSIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCGuaranteeNCTSIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCGuaranteeNCTSIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCGuaranteeNCTSIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCGuaranteeNCTSIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCGuaranteeNCTSIdentification) + 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 DETUDCGuaranteeNCTSIdentification) 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 DETUDCGuaranteeNCTSIdentification + 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 Class + + + Partial Public Class DETUDCGuaranteeNCTSAccessCode + +#Region "Private fields" + Private _code As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCGuaranteeNCTSAccessCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCGuaranteeNCTSAccessCode object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCGuaranteeNCTSAccessCode object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCGuaranteeNCTSAccessCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCGuaranteeNCTSAccessCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCGuaranteeNCTSAccessCode) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCGuaranteeNCTSAccessCode) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCGuaranteeNCTSAccessCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCGuaranteeNCTSAccessCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCGuaranteeNCTSAccessCode + Return CType(Serializer.Deserialize(s), DETUDCGuaranteeNCTSAccessCode) + End Function +#End Region + + ''' + ''' Serializes current DETUDCGuaranteeNCTSAccessCode object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCGuaranteeNCTSAccessCode object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCGuaranteeNCTSAccessCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCGuaranteeNCTSAccessCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCGuaranteeNCTSAccessCode) + 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 DETUDCGuaranteeNCTSAccessCode) 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 DETUDCGuaranteeNCTSAccessCode + 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 Class + + + Partial Public Class DETUDCBody + +#Region "Private fields" + Private _consignor As DETUDCBodyConsignor + + Private _consignee As DETUDCBodyConsignee + + Private _goodsItem As List(Of DETUDCBodyGoodsItem) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsItem = New List(Of DETUDCBodyGoodsItem)() + Me._consignee = New DETUDCBodyConsignee() + Me._consignor = New DETUDCBodyConsignor() + End Sub + + Public Property Consignor() As DETUDCBodyConsignor + Get + Return Me._consignor + End Get + Set + Me._consignor = Value + End Set + End Property + + Public Property Consignee() As DETUDCBodyConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + + Public Property GoodsItem() As List(Of DETUDCBodyGoodsItem) + Get + Return Me._goodsItem + End Get + Set + Me._goodsItem = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBody)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBody object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBody object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBody object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBody, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBody) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBody) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBody + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBody) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBody + Return CType(Serializer.Deserialize(s), DETUDCBody) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBody object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBody object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBody object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBody, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBody) + 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 DETUDCBody) 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 DETUDCBody + 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 Class + + + Partial Public Class DETUDCBodyConsignor + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCBodyConsignorIdentification + + Private _name As String + + Private _address As DETUDCBodyConsignorAddress + + Private _contactPerson As DETUDCBodyConsignorContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCBodyConsignorContactPerson() + Me._address = New DETUDCBodyConsignorAddress() + Me._identification = New DETUDCBodyConsignorIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCBodyConsignorIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As DETUDCBodyConsignorAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCBodyConsignorContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyConsignor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyConsignor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyConsignor object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyConsignor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyConsignor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyConsignor + Return CType(Serializer.Deserialize(s), DETUDCBodyConsignor) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyConsignor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyConsignor object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignor) + 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 DETUDCBodyConsignor) 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 DETUDCBodyConsignor + 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 Class + + + Partial Public Class DETUDCBodyConsignorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyConsignorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyConsignorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyConsignorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyConsignorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyConsignorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyConsignorIdentification + Return CType(Serializer.Deserialize(s), DETUDCBodyConsignorIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyConsignorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyConsignorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignorIdentification) + 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 DETUDCBodyConsignorIdentification) 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 DETUDCBodyConsignorIdentification + 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 Class + + + Partial Public Class DETUDCBodyConsignorAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyConsignorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyConsignorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyConsignorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyConsignorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyConsignorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyConsignorAddress + Return CType(Serializer.Deserialize(s), DETUDCBodyConsignorAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyConsignorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyConsignorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignorAddress) + 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 DETUDCBodyConsignorAddress) 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 DETUDCBodyConsignorAddress + 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 Class + + + Partial Public Class DETUDCBodyConsignorContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyConsignorContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyConsignorContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyConsignorContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyConsignorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignorContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignorContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyConsignorContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyConsignorContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyConsignorContactPerson + Return CType(Serializer.Deserialize(s), DETUDCBodyConsignorContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyConsignorContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyConsignorContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyConsignorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyConsignorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignorContactPerson) + 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 DETUDCBodyConsignorContactPerson) 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 DETUDCBodyConsignorContactPerson + 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 Class + + + Partial Public Class DETUDCBodyConsignee + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCBodyConsigneeIdentification + + Private _name As String + + Private _address As DETUDCBodyConsigneeAddress + + Private _contactPerson As DETUDCBodyConsigneeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCBodyConsigneeContactPerson() + Me._address = New DETUDCBodyConsigneeAddress() + Me._identification = New DETUDCBodyConsigneeIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCBodyConsigneeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As DETUDCBodyConsigneeAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCBodyConsigneeContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyConsignee + Return CType(Serializer.Deserialize(s), DETUDCBodyConsignee) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsignee) + 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 DETUDCBodyConsignee) 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 DETUDCBodyConsignee + 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 Class + + + Partial Public Class DETUDCBodyConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyConsigneeIdentification + Return CType(Serializer.Deserialize(s), DETUDCBodyConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsigneeIdentification) + 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 DETUDCBodyConsigneeIdentification) 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 DETUDCBodyConsigneeIdentification + 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 Class + + + Partial Public Class DETUDCBodyConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyConsigneeAddress + Return CType(Serializer.Deserialize(s), DETUDCBodyConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsigneeAddress) + 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 DETUDCBodyConsigneeAddress) 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 DETUDCBodyConsigneeAddress + 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 Class + + + Partial Public Class DETUDCBodyConsigneeContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyConsigneeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyConsigneeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyConsigneeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsigneeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyConsigneeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyConsigneeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyConsigneeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyConsigneeContactPerson + Return CType(Serializer.Deserialize(s), DETUDCBodyConsigneeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyConsigneeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyConsigneeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyConsigneeContactPerson) + 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 DETUDCBodyConsigneeContactPerson) 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 DETUDCBodyConsigneeContactPerson + 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 Class + + + Partial Public Class DETUDCBodyGoodsItem + +#Region "Private fields" + Private _sequenceNumber As String + + Private _declaration As DETUDCBodyGoodsItemDeclaration + + Private _goodsDescription As String + + Private _netMassMeasure As Decimal + + Private _grossMassMeasure As Decimal + + Private _dangerousGoodsCode As String + + Private _transportChargesPaymentMethod As String + + Private _commercialReferenceNumber As String + + Private _departureCountry As String + + Private _destinationCountry As String + + Private _consignor As DETUDCBodyGoodsItemConsignor + + Private _securityConsignor As DETUDCBodyGoodsItemSecurityConsignor + + Private _consignee As DETUDCBodyGoodsItemConsignee + + Private _securityConsignee As DETUDCBodyGoodsItemSecurityConsignee + + Private _commodityCode As DETUDCBodyGoodsItemCommodityCode + + Private _previousAdministrativeReferences As DETUDCBodyGoodsItemPreviousAdministrativeReferences + + Private _containers As List(Of DETUDCBodyGoodsItemContainer) + + Private _package As List(Of DETUDCBodyGoodsItemPackage) + + Private _document As List(Of DETUDCBodyGoodsItemDocument) + + Private _specialMentions As DETUDCBodyGoodsItemSpecialMentions + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._specialMentions = New DETUDCBodyGoodsItemSpecialMentions() + Me._document = New List(Of DETUDCBodyGoodsItemDocument)() + Me._package = New List(Of DETUDCBodyGoodsItemPackage)() + Me._containers = New List(Of DETUDCBodyGoodsItemContainer)() + Me._previousAdministrativeReferences = New DETUDCBodyGoodsItemPreviousAdministrativeReferences() + Me._commodityCode = New DETUDCBodyGoodsItemCommodityCode() + Me._securityConsignee = New DETUDCBodyGoodsItemSecurityConsignee() + Me._consignee = New DETUDCBodyGoodsItemConsignee() + Me._securityConsignor = New DETUDCBodyGoodsItemSecurityConsignor() + Me._consignor = New DETUDCBodyGoodsItemConsignor() + Me._declaration = New DETUDCBodyGoodsItemDeclaration() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property Declaration() As DETUDCBodyGoodsItemDeclaration + Get + Return Me._declaration + End Get + Set + Me._declaration = Value + End Set + End Property + + + Public Property GoodsDescription() As String + Get + Return Me._goodsDescription + End Get + Set + Me._goodsDescription = Value + End Set + End Property + + Public Property NetMassMeasure() As Decimal + Get + Return Me._netMassMeasure + End Get + Set + Me._netMassMeasure = Value + End Set + End Property + + Public Property GrossMassMeasure() As Decimal + Get + Return Me._grossMassMeasure + End Get + Set + Me._grossMassMeasure = Value + End Set + End Property + + + Public Property DangerousGoodsCode() As String + Get + Return Me._dangerousGoodsCode + End Get + Set + Me._dangerousGoodsCode = Value + End Set + End Property + + + Public Property TransportChargesPaymentMethod() As String + Get + Return Me._transportChargesPaymentMethod + End Get + Set + Me._transportChargesPaymentMethod = Value + End Set + End Property + + + Public Property CommercialReferenceNumber() As String + Get + Return Me._commercialReferenceNumber + End Get + Set + Me._commercialReferenceNumber = Value + End Set + End Property + + + Public Property DepartureCountry() As String + Get + Return Me._departureCountry + End Get + Set + Me._departureCountry = Value + End Set + End Property + + + Public Property DestinationCountry() As String + Get + Return Me._destinationCountry + End Get + Set + Me._destinationCountry = Value + End Set + End Property + + Public Property Consignor() As DETUDCBodyGoodsItemConsignor + Get + Return Me._consignor + End Get + Set + Me._consignor = Value + End Set + End Property + + Public Property SecurityConsignor() As DETUDCBodyGoodsItemSecurityConsignor + Get + Return Me._securityConsignor + End Get + Set + Me._securityConsignor = Value + End Set + End Property + + Public Property Consignee() As DETUDCBodyGoodsItemConsignee + Get + Return Me._consignee + End Get + Set + Me._consignee = Value + End Set + End Property + + Public Property SecurityConsignee() As DETUDCBodyGoodsItemSecurityConsignee + Get + Return Me._securityConsignee + End Get + Set + Me._securityConsignee = Value + End Set + End Property + + Public Property CommodityCode() As DETUDCBodyGoodsItemCommodityCode + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + Public Property PreviousAdministrativeReferences() As DETUDCBodyGoodsItemPreviousAdministrativeReferences + Get + Return Me._previousAdministrativeReferences + End Get + Set + Me._previousAdministrativeReferences = Value + End Set + End Property + + + Public Property Containers() As List(Of DETUDCBodyGoodsItemContainer) + Get + Return Me._containers + End Get + Set + Me._containers = Value + End Set + End Property + + + Public Property Package() As List(Of DETUDCBodyGoodsItemPackage) + Get + Return Me._package + End Get + Set + Me._package = Value + End Set + End Property + + + Public Property Document() As List(Of DETUDCBodyGoodsItemDocument) + Get + Return Me._document + End Get + Set + Me._document = Value + End Set + End Property + + Public Property SpecialMentions() As DETUDCBodyGoodsItemSpecialMentions + Get + Return Me._specialMentions + End Get + Set + Me._specialMentions = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItem object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItem) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItem + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItem) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItem object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItem, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItem) + 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 DETUDCBodyGoodsItem) 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 DETUDCBodyGoodsItem + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemDeclaration + +#Region "Private fields" + Private _type As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemDeclaration)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemDeclaration object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemDeclaration object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemDeclaration) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemDeclaration) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemDeclaration + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemDeclaration) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemDeclaration + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemDeclaration) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemDeclaration object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemDeclaration object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemDeclaration object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemDeclaration, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemDeclaration) + 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 DETUDCBodyGoodsItemDeclaration) 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 DETUDCBodyGoodsItemDeclaration + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemConsignor + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCBodyGoodsItemConsignorIdentification + + Private _name As String + + Private _address As DETUDCBodyGoodsItemConsignorAddress + + Private _contactPerson As DETUDCBodyGoodsItemConsignorContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCBodyGoodsItemConsignorContactPerson() + Me._address = New DETUDCBodyGoodsItemConsignorAddress() + Me._identification = New DETUDCBodyGoodsItemConsignorIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCBodyGoodsItemConsignorIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As DETUDCBodyGoodsItemConsignorAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCBodyGoodsItemConsignorContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemConsignor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemConsignor object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemConsignor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemConsignor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemConsignor + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemConsignor) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemConsignor object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignor) + 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 DETUDCBodyGoodsItemConsignor) 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 DETUDCBodyGoodsItemConsignor + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemConsignorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemConsignorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemConsignorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemConsignorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemConsignorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemConsignorIdentification + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemConsignorIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemConsignorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignorIdentification) + 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 DETUDCBodyGoodsItemConsignorIdentification) 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 DETUDCBodyGoodsItemConsignorIdentification + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemConsignorAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemConsignorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemConsignorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemConsignorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemConsignorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemConsignorAddress + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemConsignorAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemConsignorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignorAddress) + 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 DETUDCBodyGoodsItemConsignorAddress) 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 DETUDCBodyGoodsItemConsignorAddress + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemConsignorContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemConsignorContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignorContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemConsignorContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemConsignorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignorContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignorContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemConsignorContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemConsignorContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemConsignorContactPerson + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemConsignorContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignorContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemConsignorContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemConsignorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemConsignorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignorContactPerson) + 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 DETUDCBodyGoodsItemConsignorContactPerson) 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 DETUDCBodyGoodsItemConsignorContactPerson + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemSecurityConsignor + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCBodyGoodsItemSecurityConsignorIdentification + + Private _name As String + + Private _address As DETUDCBodyGoodsItemSecurityConsignorAddress + + Private _contactPerson As DETUDCBodyGoodsItemSecurityConsignorContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCBodyGoodsItemSecurityConsignorContactPerson() + Me._address = New DETUDCBodyGoodsItemSecurityConsignorAddress() + Me._identification = New DETUDCBodyGoodsItemSecurityConsignorIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCBodyGoodsItemSecurityConsignorIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As DETUDCBodyGoodsItemSecurityConsignorAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCBodyGoodsItemSecurityConsignorContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemSecurityConsignor)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignor object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemSecurityConsignor object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignor) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignor) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemSecurityConsignor + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemSecurityConsignor) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemSecurityConsignor + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemSecurityConsignor) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignor object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemSecurityConsignor object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignor object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignor, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignor) + 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 DETUDCBodyGoodsItemSecurityConsignor) 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 DETUDCBodyGoodsItemSecurityConsignor + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemSecurityConsignorIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemSecurityConsignorIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignorIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemSecurityConsignorIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignorIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignorIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemSecurityConsignorIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemSecurityConsignorIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemSecurityConsignorIdentification + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemSecurityConsignorIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignorIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemSecurityConsignorIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignorIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignorIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignorIdentification) + 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 DETUDCBodyGoodsItemSecurityConsignorIdentification) 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 DETUDCBodyGoodsItemSecurityConsignorIdentification + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemSecurityConsignorAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemSecurityConsignorAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignorAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemSecurityConsignorAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignorAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignorAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemSecurityConsignorAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemSecurityConsignorAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemSecurityConsignorAddress + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemSecurityConsignorAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignorAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemSecurityConsignorAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignorAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignorAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignorAddress) + 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 DETUDCBodyGoodsItemSecurityConsignorAddress) 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 DETUDCBodyGoodsItemSecurityConsignorAddress + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemSecurityConsignorContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemSecurityConsignorContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignorContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemSecurityConsignorContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignorContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignorContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemSecurityConsignorContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemSecurityConsignorContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemSecurityConsignorContactPerson + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemSecurityConsignorContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignorContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemSecurityConsignorContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignorContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignorContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignorContactPerson) + 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 DETUDCBodyGoodsItemSecurityConsignorContactPerson) 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 DETUDCBodyGoodsItemSecurityConsignorContactPerson + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemConsignee + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCBodyGoodsItemConsigneeIdentification + + Private _name As String + + Private _address As DETUDCBodyGoodsItemConsigneeAddress + + Private _contactPerson As DETUDCBodyGoodsItemConsigneeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCBodyGoodsItemConsigneeContactPerson() + Me._address = New DETUDCBodyGoodsItemConsigneeAddress() + Me._identification = New DETUDCBodyGoodsItemConsigneeIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCBodyGoodsItemConsigneeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As DETUDCBodyGoodsItemConsigneeAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCBodyGoodsItemConsigneeContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemConsignee + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemConsignee) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsignee) + 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 DETUDCBodyGoodsItemConsignee) 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 DETUDCBodyGoodsItemConsignee + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemConsigneeIdentification + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsigneeIdentification) + 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 DETUDCBodyGoodsItemConsigneeIdentification) 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 DETUDCBodyGoodsItemConsigneeIdentification + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemConsigneeAddress + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsigneeAddress) + 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 DETUDCBodyGoodsItemConsigneeAddress) 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 DETUDCBodyGoodsItemConsigneeAddress + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemConsigneeContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemConsigneeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemConsigneeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemConsigneeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsigneeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemConsigneeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemConsigneeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemConsigneeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemConsigneeContactPerson + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemConsigneeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemConsigneeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemConsigneeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemConsigneeContactPerson) + 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 DETUDCBodyGoodsItemConsigneeContactPerson) 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 DETUDCBodyGoodsItemConsigneeContactPerson + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemSecurityConsignee + +#Region "Private fields" + Private _class As String + + Private _identification As DETUDCBodyGoodsItemSecurityConsigneeIdentification + + Private _name As String + + Private _address As DETUDCBodyGoodsItemSecurityConsigneeAddress + + Private _contactPerson As DETUDCBodyGoodsItemSecurityConsigneeContactPerson + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactPerson = New DETUDCBodyGoodsItemSecurityConsigneeContactPerson() + Me._address = New DETUDCBodyGoodsItemSecurityConsigneeAddress() + Me._identification = New DETUDCBodyGoodsItemSecurityConsigneeIdentification() + End Sub + + + Public Property [Class]() As String + Get + Return Me._class + End Get + Set + Me._class = Value + End Set + End Property + + Public Property Identification() As DETUDCBodyGoodsItemSecurityConsigneeIdentification + Get + Return Me._identification + End Get + Set + Me._identification = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Address() As DETUDCBodyGoodsItemSecurityConsigneeAddress + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Public Property ContactPerson() As DETUDCBodyGoodsItemSecurityConsigneeContactPerson + Get + Return Me._contactPerson + End Get + Set + Me._contactPerson = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemSecurityConsignee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemSecurityConsignee object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignee) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemSecurityConsignee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemSecurityConsignee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemSecurityConsignee + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemSecurityConsignee) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsignee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemSecurityConsignee object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsignee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsignee, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsignee) + 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 DETUDCBodyGoodsItemSecurityConsignee) 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 DETUDCBodyGoodsItemSecurityConsignee + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemSecurityConsigneeIdentification + +#Region "Private fields" + Private _referenceNumber As String + + Private _subsidiaryNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property SubsidiaryNumber() As String + Get + Return Me._subsidiaryNumber + End Get + Set + Me._subsidiaryNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemSecurityConsigneeIdentification)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsigneeIdentification object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemSecurityConsigneeIdentification object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsigneeIdentification) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsigneeIdentification) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemSecurityConsigneeIdentification + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemSecurityConsigneeIdentification) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemSecurityConsigneeIdentification + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemSecurityConsigneeIdentification) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsigneeIdentification object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemSecurityConsigneeIdentification object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsigneeIdentification object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsigneeIdentification, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsigneeIdentification) + 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 DETUDCBodyGoodsItemSecurityConsigneeIdentification) 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 DETUDCBodyGoodsItemSecurityConsigneeIdentification + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemSecurityConsigneeAddress + +#Region "Private fields" + Private _line As String + + Private _country As String + + Private _postcode As String + + Private _city As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Line() As String + Get + Return Me._line + End Get + Set + Me._line = Value + End Set + End Property + + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemSecurityConsigneeAddress)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsigneeAddress object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemSecurityConsigneeAddress object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsigneeAddress) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsigneeAddress) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemSecurityConsigneeAddress + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemSecurityConsigneeAddress) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemSecurityConsigneeAddress + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemSecurityConsigneeAddress) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsigneeAddress object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemSecurityConsigneeAddress object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsigneeAddress object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsigneeAddress, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsigneeAddress) + 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 DETUDCBodyGoodsItemSecurityConsigneeAddress) 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 DETUDCBodyGoodsItemSecurityConsigneeAddress + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemSecurityConsigneeContactPerson + +#Region "Private fields" + Private _name As String + + Private _position As String + + Private _phoneNumber As String + + Private _facsimileNumber As String + + Private _mailAddress As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property Position() As String + Get + Return Me._position + End Get + Set + Me._position = Value + End Set + End Property + + + Public Property PhoneNumber() As String + Get + Return Me._phoneNumber + End Get + Set + Me._phoneNumber = Value + End Set + End Property + + + Public Property FacsimileNumber() As String + Get + Return Me._facsimileNumber + End Get + Set + Me._facsimileNumber = Value + End Set + End Property + + + Public Property MailAddress() As String + Get + Return Me._mailAddress + End Get + Set + Me._mailAddress = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemSecurityConsigneeContactPerson)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsigneeContactPerson object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemSecurityConsigneeContactPerson object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsigneeContactPerson) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsigneeContactPerson) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemSecurityConsigneeContactPerson + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemSecurityConsigneeContactPerson) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemSecurityConsigneeContactPerson + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemSecurityConsigneeContactPerson) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemSecurityConsigneeContactPerson object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemSecurityConsigneeContactPerson object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemSecurityConsigneeContactPerson object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemSecurityConsigneeContactPerson, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSecurityConsigneeContactPerson) + 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 DETUDCBodyGoodsItemSecurityConsigneeContactPerson) 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 DETUDCBodyGoodsItemSecurityConsigneeContactPerson + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemCommodityCode + +#Region "Private fields" + Private _commodityCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property CommodityCode() As String + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemCommodityCode)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemCommodityCode object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemCommodityCode object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemCommodityCode) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemCommodityCode) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemCommodityCode + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemCommodityCode) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemCommodityCode + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemCommodityCode) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemCommodityCode object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemCommodityCode object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemCommodityCode object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemCommodityCode, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemCommodityCode) + 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 DETUDCBodyGoodsItemCommodityCode) 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 DETUDCBodyGoodsItemCommodityCode + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemPreviousAdministrativeReferences + +#Region "Private fields" + Private _type As String + + Private _previousAdministrativeReference As List(Of DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._previousAdministrativeReference = New List(Of DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference)() + End Sub + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property PreviousAdministrativeReference() As List(Of DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference) + Get + Return Me._previousAdministrativeReference + End Get + Set + Me._previousAdministrativeReference = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemPreviousAdministrativeReferences)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemPreviousAdministrativeReferences object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemPreviousAdministrativeReferences object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemPreviousAdministrativeReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemPreviousAdministrativeReferences) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemPreviousAdministrativeReferences) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemPreviousAdministrativeReferences + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemPreviousAdministrativeReferences) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemPreviousAdministrativeReferences + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemPreviousAdministrativeReferences) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemPreviousAdministrativeReferences object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemPreviousAdministrativeReferences object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemPreviousAdministrativeReferences object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemPreviousAdministrativeReferences, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemPreviousAdministrativeReferences) + 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 DETUDCBodyGoodsItemPreviousAdministrativeReferences) 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 DETUDCBodyGoodsItemPreviousAdministrativeReferences + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference + +#Region "Private fields" + Private _referenceNumber As String + + Private _complement As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property Complement() As String + Get + Return Me._complement + End Get + Set + Me._complement = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference) + 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 DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference) 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 DETUDCBodyGoodsItemPreviousAdministrativeReferencesPreviousAdministrativeReference + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemContainer + +#Region "Private fields" + Private _identificationNumber As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemContainer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemContainer object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemContainer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemContainer) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemContainer + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemContainer) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemContainer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemContainer object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemContainer, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemContainer) + 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 DETUDCBodyGoodsItemContainer) 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 DETUDCBodyGoodsItemContainer + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemPackage + +#Region "Private fields" + Private _kind As String + + Private _quantity As String + + Private _marksNumbers As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Kind() As String + Get + Return Me._kind + End Get + Set + Me._kind = Value + End Set + End Property + + + Public Property Quantity() As String + Get + Return Me._quantity + End Get + Set + Me._quantity = Value + End Set + End Property + + + Public Property MarksNumbers() As String + Get + Return Me._marksNumbers + End Get + Set + Me._marksNumbers = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemPackage)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemPackage object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemPackage object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemPackage) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemPackage) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemPackage + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemPackage) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemPackage + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemPackage) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemPackage object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemPackage object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemPackage object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemPackage, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemPackage) + 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 DETUDCBodyGoodsItemPackage) 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 DETUDCBodyGoodsItemPackage + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemDocument + +#Region "Private fields" + Private _type As String + + Private _referenceNumber As String + + Private _complement As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property Complement() As String + Get + Return Me._complement + End Get + Set + Me._complement = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemDocument)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemDocument object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemDocument object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemDocument) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemDocument) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemDocument + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemDocument) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemDocument + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemDocument) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemDocument object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemDocument object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemDocument object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemDocument, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemDocument) + 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 DETUDCBodyGoodsItemDocument) 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 DETUDCBodyGoodsItemDocument + 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 Class + + + Partial Public Class DETUDCBodyGoodsItemSpecialMentions + +#Region "Private fields" + Private _exportFlag As String + + Private _exportDutiesFlag As String + + Private _exportRestrictionsFlag As String + + Private _exportFromEuFlag As String + + Private _exportFromCountry As String + + Private _anonymousTraderFlag As String + + Private _annotation As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ExportFlag() As String + Get + Return Me._exportFlag + End Get + Set + Me._exportFlag = Value + End Set + End Property + + + Public Property ExportDutiesFlag() As String + Get + Return Me._exportDutiesFlag + End Get + Set + Me._exportDutiesFlag = Value + End Set + End Property + + + Public Property ExportRestrictionsFlag() As String + Get + Return Me._exportRestrictionsFlag + End Get + Set + Me._exportRestrictionsFlag = Value + End Set + End Property + + + Public Property ExportFromEuFlag() As String + Get + Return Me._exportFromEuFlag + End Get + Set + Me._exportFromEuFlag = Value + End Set + End Property + + + Public Property ExportFromCountry() As String + Get + Return Me._exportFromCountry + End Get + Set + Me._exportFromCountry = Value + End Set + End Property + + + Public Property AnonymousTraderFlag() As String + Get + Return Me._anonymousTraderFlag + End Get + Set + Me._anonymousTraderFlag = Value + End Set + End Property + + + Public Property Annotation() As String + Get + Return Me._annotation + End Get + Set + Me._annotation = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DETUDCBodyGoodsItemSpecialMentions)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DETUDCBodyGoodsItemSpecialMentions object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DETUDCBodyGoodsItemSpecialMentions object + ''' + ''' string workflow markup to deserialize + ''' Output DETUDCBodyGoodsItemSpecialMentions object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSpecialMentions, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSpecialMentions) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DETUDCBodyGoodsItemSpecialMentions) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DETUDCBodyGoodsItemSpecialMentions + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DETUDCBodyGoodsItemSpecialMentions) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DETUDCBodyGoodsItemSpecialMentions + Return CType(Serializer.Deserialize(s), DETUDCBodyGoodsItemSpecialMentions) + End Function +#End Region + + ''' + ''' Serializes current DETUDCBodyGoodsItemSpecialMentions object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DETUDCBodyGoodsItemSpecialMentions object + ''' + ''' string xml file to load and deserialize + ''' Output DETUDCBodyGoodsItemSpecialMentions object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DETUDCBodyGoodsItemSpecialMentions, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DETUDCBodyGoodsItemSpecialMentions) + 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 DETUDCBodyGoodsItemSpecialMentions) 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 DETUDCBodyGoodsItemSpecialMentions + 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 Class + + + Partial Public Class [decimal] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As Decimal + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([decimal])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current decimal object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an decimal object + ''' + ''' string workflow markup to deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [decimal]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [decimal] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [decimal]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [decimal] + Return CType(Serializer.Deserialize(s), [decimal]) + End Function +#End Region + + ''' + ''' Serializes current decimal object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an decimal object + ''' + ''' string xml file to load and deserialize + ''' Output decimal object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [decimal], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [decimal]) + 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 [decimal]) 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 [decimal] + 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 Class + + + Partial Public Class [integer] + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType([integer])) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current integer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an integer object + ''' + ''' string workflow markup to deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As [integer]) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As [integer] + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), [integer]) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As [integer] + Return CType(Serializer.Deserialize(s), [integer]) + End Function +#End Region + + ''' + ''' Serializes current integer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an integer object + ''' + ''' string xml file to load and deserialize + ''' Output integer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As [integer], ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, [integer]) + 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 [integer]) 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 [integer] + 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 Class + + + Partial Public Class token + +#Region "Private fields" + Private _anyAttr As List(Of System.Xml.XmlAttribute) + + Private _value As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._anyAttr = New List(Of System.Xml.XmlAttribute)() + End Sub + + + Public Property AnyAttr() As List(Of System.Xml.XmlAttribute) + Get + Return Me._anyAttr + End Get + Set + Me._anyAttr = Value + End Set + End Property + + + Public Property Value() As String + Get + Return Me._value + End Get + Set + Me._value = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(token)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current token object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an token object + ''' + ''' string workflow markup to deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As token) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As token + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), token) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As token + Return CType(Serializer.Deserialize(s), token) + End Function +#End Region + + ''' + ''' Serializes current token object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an token object + ''' + ''' string xml file to load and deserialize + ''' Output token object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As token, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, token) + 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 token) 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 token + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandanmeldung/e_dec_dat.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandanmeldung/e_dec_dat.xsd new file mode 100644 index 0000000..595baa5 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandanmeldung/e_dec_dat.xsd @@ -0,0 +1,5596 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.Designer.vb new file mode 100644 index 0000000..c848c4a --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.Designer.vb @@ -0,0 +1,6630 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' VersandanmeldungNCTSDEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace VersandanmeldungNCTSDE + + + Partial Public Class VersandanmeldungVATayp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelVersandanmeldung As EinzelVersandanmeldungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._einzelVersandanmeldung = New EinzelVersandanmeldungTyp() + End Sub + + + Public Property EinzelVersandanmeldung() As EinzelVersandanmeldungTyp + Get + Return Me._einzelVersandanmeldung + End Get + Set + Me._einzelVersandanmeldung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VersandanmeldungVATayp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VersandanmeldungVATayp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VersandanmeldungVATayp object + ''' + ''' string workflow markup to deserialize + ''' Output VersandanmeldungVATayp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VersandanmeldungVATayp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VersandanmeldungVATayp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VersandanmeldungVATayp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VersandanmeldungVATayp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VersandanmeldungVATayp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VersandanmeldungVATayp + Return CType(Serializer.Deserialize(s), VersandanmeldungVATayp) + End Function +#End Region + + ''' + ''' Serializes current VersandanmeldungVATayp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VersandanmeldungVATayp object + ''' + ''' string xml file to load and deserialize + ''' Output VersandanmeldungVATayp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VersandanmeldungVATayp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VersandanmeldungVATayp) + 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 VersandanmeldungVATayp) 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 VersandanmeldungVATayp + 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 Class + + + Partial Public Class EinzelVersandanmeldungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungVATyp + + Private _kopfDaten As KopfDatenVersandanmeldungTyp + + Private _warenPosition As List(Of WarenPositionVersandanmeldungTyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._warenPosition = New List(Of WarenPositionVersandanmeldungTyp)() + Me._kopfDaten = New KopfDatenVersandanmeldungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungVATyp() + End Sub + + + Public Property ObjektIdentifizierung() As ObjektIdentifizierungVATyp + Get + Return Me._objektIdentifizierung + End Get + Set + Me._objektIdentifizierung = Value + End Set + End Property + + + Public Property KopfDaten() As KopfDatenVersandanmeldungTyp + Get + Return Me._kopfDaten + End Get + Set + Me._kopfDaten = Value + End Set + End Property + + + Public Property WarenPosition() As List(Of WarenPositionVersandanmeldungTyp) + Get + Return Me._warenPosition + End Get + Set + Me._warenPosition = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelVersandanmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelVersandanmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelVersandanmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelVersandanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelVersandanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelVersandanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelVersandanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelVersandanmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelVersandanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelVersandanmeldungTyp + Return CType(Serializer.Deserialize(s), EinzelVersandanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelVersandanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelVersandanmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelVersandanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelVersandanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelVersandanmeldungTyp) + 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 EinzelVersandanmeldungTyp) 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 EinzelVersandanmeldungTyp + 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 Class + + + Partial Public Class ObjektIdentifizierungVATyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAliasname As String + + Private _bezugsnummerVorblendung As String + + Private _userVorblendung As String + + Private _kopieVon As String + + Private _objektAktion As List(Of String) + + Private _compliancePruefung As String + + Private _bearbeiter As String + + Private _anfBemerkungStatusanzeige As String + + Private _nameAbsendendesSystem As String + + Private _shipmentReferenz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._objektAktion = New List(Of String)() + End Sub + + + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set + Me._objektName = Value + End Set + End Property + + + Public Property ObjektAliasname() As String + Get + Return Me._objektAliasname + End Get + Set + Me._objektAliasname = Value + End Set + End Property + + + Public Property BezugsnummerVorblendung() As String + Get + Return Me._bezugsnummerVorblendung + End Get + Set + Me._bezugsnummerVorblendung = Value + End Set + End Property + + + Public Property UserVorblendung() As String + Get + Return Me._userVorblendung + End Get + Set + Me._userVorblendung = Value + End Set + End Property + + + Public Property KopieVon() As String + Get + Return Me._kopieVon + End Get + Set + Me._kopieVon = Value + End Set + End Property + + + Public Property ObjektAktion() As List(Of String) + Get + Return Me._objektAktion + End Get + Set + Me._objektAktion = Value + End Set + End Property + + + Public Property CompliancePruefung() As String + Get + Return Me._compliancePruefung + End Get + Set + Me._compliancePruefung = Value + End Set + End Property + + + Public Property Bearbeiter() As String + Get + Return Me._bearbeiter + End Get + Set + Me._bearbeiter = Value + End Set + End Property + + + Public Property AnfBemerkungStatusanzeige() As String + Get + Return Me._anfBemerkungStatusanzeige + End Get + Set + Me._anfBemerkungStatusanzeige = Value + End Set + End Property + + + Public Property NameAbsendendesSystem() As String + Get + Return Me._nameAbsendendesSystem + End Get + Set + Me._nameAbsendendesSystem = Value + End Set + End Property + + + Public Property ShipmentReferenz() As String + Get + Return Me._shipmentReferenz + End Get + Set + Me._shipmentReferenz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungVATyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungVATyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungVATyp) + 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 ObjektIdentifizierungVATyp) 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 ObjektIdentifizierungVATyp + 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 Class + + + Partial Public Class SumASicherheitPositionVATyp + +#Region "Private fields" + Private _kennnummerSendung As String + + Private _befoerderungskostenZahlungsweise As String + + Private _uNGefahrgutnummer As String + + Private _versender As AdresseVATyp + + Private _empfaenger As AdresseVATyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._empfaenger = New AdresseVATyp() + Me._versender = New AdresseVATyp() + End Sub + + + Public Property KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set + Me._kennnummerSendung = Value + End Set + End Property + + + Public Property BefoerderungskostenZahlungsweise() As String + Get + Return Me._befoerderungskostenZahlungsweise + End Get + Set + Me._befoerderungskostenZahlungsweise = Value + End Set + End Property + + + Public Property UNGefahrgutnummer() As String + Get + Return Me._uNGefahrgutnummer + End Get + Set + Me._uNGefahrgutnummer = Value + End Set + End Property + + + Public Property Versender() As AdresseVATyp + Get + Return Me._versender + End Get + Set + Me._versender = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseVATyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SumASicherheitPositionVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SumASicherheitPositionVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SumASicherheitPositionVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output SumASicherheitPositionVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumASicherheitPositionVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumASicherheitPositionVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumASicherheitPositionVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SumASicherheitPositionVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SumASicherheitPositionVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SumASicherheitPositionVATyp + Return CType(Serializer.Deserialize(s), SumASicherheitPositionVATyp) + End Function +#End Region + + ''' + ''' Serializes current SumASicherheitPositionVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SumASicherheitPositionVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output SumASicherheitPositionVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumASicherheitPositionVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumASicherheitPositionVATyp) + 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 SumASicherheitPositionVATyp) 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 SumASicherheitPositionVATyp + 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 Class + + + Partial Public Class AdresseVATyp + +#Region "Private fields" + Private _eORI As String + + Private _nLNR As String + + Private _tIN As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _land As String + + Private _pLZ As String + + Private _ort As String + + Private _ansprechpartner As AnsprechpartnerVATyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerVATyp() + End Sub + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set + Me._nLNR = Value + End Set + End Property + + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set + Me._tIN = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerVATyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdresseVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseVATyp + Return CType(Serializer.Deserialize(s), AdresseVATyp) + End Function +#End Region + + ''' + ''' Serializes current AdresseVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdresseVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseVATyp) + 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 AdresseVATyp) 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 AdresseVATyp + 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 Class + + + Partial Public Class AnsprechpartnerVATyp + +#Region "Private fields" + Private _sachbearbeiter As String + + Private _stellung As String + + Private _telefonnummer As String + + Private _telefaxnummer As String + + Private _emailAdresse As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Sachbearbeiter() As String + Get + Return Me._sachbearbeiter + End Get + Set + Me._sachbearbeiter = Value + End Set + End Property + + + Public Property Stellung() As String + Get + Return Me._stellung + End Get + Set + Me._stellung = Value + End Set + End Property + + + Public Property Telefonnummer() As String + Get + Return Me._telefonnummer + End Get + Set + Me._telefonnummer = Value + End Set + End Property + + + Public Property Telefaxnummer() As String + Get + Return Me._telefaxnummer + End Get + Set + Me._telefaxnummer = Value + End Set + End Property + + + Public Property EmailAdresse() As String + Get + Return Me._emailAdresse + End Get + Set + Me._emailAdresse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AnsprechpartnerVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AnsprechpartnerVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AnsprechpartnerVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output AnsprechpartnerVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AnsprechpartnerVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AnsprechpartnerVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AnsprechpartnerVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AnsprechpartnerVATyp + Return CType(Serializer.Deserialize(s), AnsprechpartnerVATyp) + End Function +#End Region + + ''' + ''' Serializes current AnsprechpartnerVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AnsprechpartnerVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output AnsprechpartnerVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AnsprechpartnerVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AnsprechpartnerVATyp) + 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 AnsprechpartnerVATyp) 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 AnsprechpartnerVATyp + 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 Class + + + Partial Public Class SGIVATyp + +#Region "Private fields" + Private _empfindlicheMenge As String + + Private _code As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property EmpfindlicheMenge() As String + Get + Return Me._empfindlicheMenge + End Get + Set + Me._empfindlicheMenge = Value + End Set + End Property + + + Public Property Code() As String + Get + Return Me._code + End Get + Set + Me._code = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SGIVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SGIVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SGIVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output SGIVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SGIVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGIVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SGIVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SGIVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SGIVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SGIVATyp + Return CType(Serializer.Deserialize(s), SGIVATyp) + End Function +#End Region + + ''' + ''' Serializes current SGIVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SGIVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output SGIVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SGIVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGIVATyp) + 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 SGIVATyp) 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 SGIVATyp + 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 Class + + + Partial Public Class BesondereVermerkeVATyp + +#Region "Private fields" + Private _exportAusEU As String + + Private _exportAusLand As String + + Private _export As String + + Private _exportBeschraenkung As String + + Private _exportAbgaben As String + + Private _vermerk As String + + Private _kz10600 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ExportAusEU() As String + Get + Return Me._exportAusEU + End Get + Set + Me._exportAusEU = Value + End Set + End Property + + + Public Property ExportAusLand() As String + Get + Return Me._exportAusLand + End Get + Set + Me._exportAusLand = Value + End Set + End Property + + + Public Property Export() As String + Get + Return Me._export + End Get + Set + Me._export = Value + End Set + End Property + + + Public Property ExportBeschraenkung() As String + Get + Return Me._exportBeschraenkung + End Get + Set + Me._exportBeschraenkung = Value + End Set + End Property + + + Public Property ExportAbgaben() As String + Get + Return Me._exportAbgaben + End Get + Set + Me._exportAbgaben = Value + End Set + End Property + + + Public Property Vermerk() As String + Get + Return Me._vermerk + End Get + Set + Me._vermerk = Value + End Set + End Property + + + Public Property Kz10600() As String + Get + Return Me._kz10600 + End Get + Set + Me._kz10600 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BesondereVermerkeVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BesondereVermerkeVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BesondereVermerkeVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output BesondereVermerkeVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BesondereVermerkeVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BesondereVermerkeVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BesondereVermerkeVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BesondereVermerkeVATyp + Return CType(Serializer.Deserialize(s), BesondereVermerkeVATyp) + End Function +#End Region + + ''' + ''' Serializes current BesondereVermerkeVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BesondereVermerkeVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output BesondereVermerkeVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BesondereVermerkeVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BesondereVermerkeVATyp) + 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 BesondereVermerkeVATyp) 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 BesondereVermerkeVATyp + 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 Class + + + Partial Public Class VorgelegteUnterlBeschGenehmVATyp + +#Region "Private fields" + Private _typ As String + + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Typ() As String + Get + Return Me._typ + End Get + Set + Me._typ = Value + End Set + End Property + + + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set + Me._referenz = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorgelegteUnterlBeschGenehmVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorgelegteUnterlBeschGenehmVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorgelegteUnterlBeschGenehmVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorgelegteUnterlBeschGenehmVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorgelegteUnterlBeschGenehmVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorgelegteUnterlBeschGenehmVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorgelegteUnterlBeschGenehmVATyp + Return CType(Serializer.Deserialize(s), VorgelegteUnterlBeschGenehmVATyp) + End Function +#End Region + + ''' + ''' Serializes current VorgelegteUnterlBeschGenehmVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorgelegteUnterlBeschGenehmVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorgelegteUnterlBeschGenehmVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorgelegteUnterlBeschGenehmVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorgelegteUnterlBeschGenehmVATyp) + 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 VorgelegteUnterlBeschGenehmVATyp) 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 VorgelegteUnterlBeschGenehmVATyp + 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 Class + + + Partial Public Class BeendigungsanteilVATyp + +#Region "Private fields" + Private _anzahlPositionen As String + + Private _artIdentifikation As String + + Private _bezugsnummer As String + + Private _bewilligungsnummer As String + + Private _kzVereinfBewillAntrgAV As String + + Private _deutschesUeHZAbeiAV As String + + Private _stueckzahl As String + + Private _registriernummer As String + + Private _positionsnummer As String + + Private _artikelcodeATZL As String + + Private _eigentuemerATZL As String + + Private _chargennummerATZL As String + + Private _ursprungslandATZL As String + + Private _verwahrerEORI As String + + Private _verwahrerTIN As String + + Private _artSpezifischerOrdnungsbegriff As String + + Private _nummerSpezifischerOrdnungsbegriff As String + + Private _warennummer As String + + Private _kzZugangATLAS As String + + Private _kzUeblicheBehandlung As String + + Private _zusatz As String + + Private _abgangsmengeQualifikator As String + + Private _abgangsmengeMasseinheit As String + + Private _abgangsmengeWert As String + + Private _handelsmengeQualifikator As String + + Private _handelsmengeMasseinheit As String + + Private _handelsmengeWert As String + + Private _warenbezogeneAngaben As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property AnzahlPositionen() As String + Get + Return Me._anzahlPositionen + End Get + Set + Me._anzahlPositionen = Value + End Set + End Property + + + Public Property ArtIdentifikation() As String + Get + Return Me._artIdentifikation + End Get + Set + Me._artIdentifikation = Value + End Set + End Property + + + Public Property Bezugsnummer() As String + Get + Return Me._bezugsnummer + End Get + Set + Me._bezugsnummer = Value + End Set + End Property + + + Public Property Bewilligungsnummer() As String + Get + Return Me._bewilligungsnummer + End Get + Set + Me._bewilligungsnummer = Value + End Set + End Property + + + Public Property KzVereinfBewillAntrgAV() As String + Get + Return Me._kzVereinfBewillAntrgAV + End Get + Set + Me._kzVereinfBewillAntrgAV = Value + End Set + End Property + + + Public Property DeutschesUeHZAbeiAV() As String + Get + Return Me._deutschesUeHZAbeiAV + End Get + Set + Me._deutschesUeHZAbeiAV = Value + End Set + End Property + + + Public Property Stueckzahl() As String + Get + Return Me._stueckzahl + End Get + Set + Me._stueckzahl = Value + End Set + End Property + + + Public Property Registriernummer() As String + Get + Return Me._registriernummer + End Get + Set + Me._registriernummer = Value + End Set + End Property + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property ArtikelcodeATZL() As String + Get + Return Me._artikelcodeATZL + End Get + Set + Me._artikelcodeATZL = Value + End Set + End Property + + + Public Property EigentuemerATZL() As String + Get + Return Me._eigentuemerATZL + End Get + Set + Me._eigentuemerATZL = Value + End Set + End Property + + + Public Property ChargennummerATZL() As String + Get + Return Me._chargennummerATZL + End Get + Set + Me._chargennummerATZL = Value + End Set + End Property + + + Public Property UrsprungslandATZL() As String + Get + Return Me._ursprungslandATZL + End Get + Set + Me._ursprungslandATZL = Value + End Set + End Property + + + Public Property VerwahrerEORI() As String + Get + Return Me._verwahrerEORI + End Get + Set + Me._verwahrerEORI = Value + End Set + End Property + + + Public Property VerwahrerTIN() As String + Get + Return Me._verwahrerTIN + End Get + Set + Me._verwahrerTIN = Value + End Set + End Property + + + Public Property ArtSpezifischerOrdnungsbegriff() As String + Get + Return Me._artSpezifischerOrdnungsbegriff + End Get + Set + Me._artSpezifischerOrdnungsbegriff = Value + End Set + End Property + + + Public Property NummerSpezifischerOrdnungsbegriff() As String + Get + Return Me._nummerSpezifischerOrdnungsbegriff + End Get + Set + Me._nummerSpezifischerOrdnungsbegriff = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property KzZugangATLAS() As String + Get + Return Me._kzZugangATLAS + End Get + Set + Me._kzZugangATLAS = Value + End Set + End Property + + + Public Property KzUeblicheBehandlung() As String + Get + Return Me._kzUeblicheBehandlung + End Get + Set + Me._kzUeblicheBehandlung = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + + Public Property AbgangsmengeQualifikator() As String + Get + Return Me._abgangsmengeQualifikator + End Get + Set + Me._abgangsmengeQualifikator = Value + End Set + End Property + + + Public Property AbgangsmengeMasseinheit() As String + Get + Return Me._abgangsmengeMasseinheit + End Get + Set + Me._abgangsmengeMasseinheit = Value + End Set + End Property + + + Public Property AbgangsmengeWert() As String + Get + Return Me._abgangsmengeWert + End Get + Set + Me._abgangsmengeWert = Value + End Set + End Property + + + Public Property HandelsmengeQualifikator() As String + Get + Return Me._handelsmengeQualifikator + End Get + Set + Me._handelsmengeQualifikator = Value + End Set + End Property + + + Public Property HandelsmengeMasseinheit() As String + Get + Return Me._handelsmengeMasseinheit + End Get + Set + Me._handelsmengeMasseinheit = Value + End Set + End Property + + + Public Property HandelsmengeWert() As String + Get + Return Me._handelsmengeWert + End Get + Set + Me._handelsmengeWert = Value + End Set + End Property + + + Public Property WarenbezogeneAngaben() As String + Get + Return Me._warenbezogeneAngaben + End Get + Set + Me._warenbezogeneAngaben = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeendigungsanteilVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BeendigungsanteilVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BeendigungsanteilVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output BeendigungsanteilVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungsanteilVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungsanteilVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BeendigungsanteilVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BeendigungsanteilVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeendigungsanteilVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BeendigungsanteilVATyp + Return CType(Serializer.Deserialize(s), BeendigungsanteilVATyp) + End Function +#End Region + + ''' + ''' Serializes current BeendigungsanteilVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BeendigungsanteilVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output BeendigungsanteilVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BeendigungsanteilVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BeendigungsanteilVATyp) + 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 BeendigungsanteilVATyp) 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 BeendigungsanteilVATyp + 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 Class + + + Partial Public Class VorpapierAngabenVATyp + +#Region "Private fields" + Private _referenz As String + + Private _zusatz As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Referenz() As String + Get + Return Me._referenz + End Get + Set + Me._referenz = Value + End Set + End Property + + + Public Property Zusatz() As String + Get + Return Me._zusatz + End Get + Set + Me._zusatz = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierAngabenVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorpapierAngabenVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorpapierAngabenVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorpapierAngabenVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierAngabenVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierAngabenVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierAngabenVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierAngabenVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorpapierAngabenVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorpapierAngabenVATyp + Return CType(Serializer.Deserialize(s), VorpapierAngabenVATyp) + End Function +#End Region + + ''' + ''' Serializes current VorpapierAngabenVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorpapierAngabenVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorpapierAngabenVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierAngabenVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierAngabenVATyp) + 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 VorpapierAngabenVATyp) 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 VorpapierAngabenVATyp + 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 Class + + + Partial Public Class VorpapierVATyp + +#Region "Private fields" + Private _typ As String + + Private _vorpapierAngaben As List(Of VorpapierAngabenVATyp) + + Private _beendigungsanteil As List(Of BeendigungsanteilVATyp) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._beendigungsanteil = New List(Of BeendigungsanteilVATyp)() + Me._vorpapierAngaben = New List(Of VorpapierAngabenVATyp)() + End Sub + + + Public Property Typ() As String + Get + Return Me._typ + End Get + Set + Me._typ = Value + End Set + End Property + + + Public Property VorpapierAngaben() As List(Of VorpapierAngabenVATyp) + Get + Return Me._vorpapierAngaben + End Get + Set + Me._vorpapierAngaben = Value + End Set + End Property + + + Public Property Beendigungsanteil() As List(Of BeendigungsanteilVATyp) + Get + Return Me._beendigungsanteil + End Get + Set + Me._beendigungsanteil = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VorpapierVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VorpapierVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VorpapierVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output VorpapierVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VorpapierVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VorpapierVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VorpapierVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VorpapierVATyp + Return CType(Serializer.Deserialize(s), VorpapierVATyp) + End Function +#End Region + + ''' + ''' Serializes current VorpapierVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VorpapierVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output VorpapierVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VorpapierVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VorpapierVATyp) + 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 VorpapierVATyp) 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 VorpapierVATyp + 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 Class + + + Partial Public Class PackstueckVATyp + +#Region "Private fields" + Private _anzahl As String + + Private _verpackungsart As String + + Private _zeichenNummern As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property Verpackungsart() As String + Get + Return Me._verpackungsart + End Get + Set + Me._verpackungsart = Value + End Set + End Property + + + Public Property ZeichenNummern() As String + Get + Return Me._zeichenNummern + End Get + Set + Me._zeichenNummern = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PackstueckVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PackstueckVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an PackstueckVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output PackstueckVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PackstueckVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PackstueckVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PackstueckVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PackstueckVATyp + Return CType(Serializer.Deserialize(s), PackstueckVATyp) + End Function +#End Region + + ''' + ''' Serializes current PackstueckVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an PackstueckVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output PackstueckVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PackstueckVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PackstueckVATyp) + 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 PackstueckVATyp) 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 PackstueckVATyp + 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 Class + + + Partial Public Class AdressenPositionVATyp + +#Region "Private fields" + Private _versender As AdresseVA1Typ + + Private _empfaenger As AdresseVA1Typ + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._empfaenger = New AdresseVA1Typ() + Me._versender = New AdresseVA1Typ() + End Sub + + + Public Property Versender() As AdresseVA1Typ + Get + Return Me._versender + End Get + Set + Me._versender = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseVA1Typ + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdressenPositionVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdressenPositionVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdressenPositionVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdressenPositionVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenPositionVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenPositionVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenPositionVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdressenPositionVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdressenPositionVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdressenPositionVATyp + Return CType(Serializer.Deserialize(s), AdressenPositionVATyp) + End Function +#End Region + + ''' + ''' Serializes current AdressenPositionVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdressenPositionVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdressenPositionVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenPositionVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenPositionVATyp) + 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 AdressenPositionVATyp) 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 AdressenPositionVATyp + 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 Class + + + Partial Public Class AdresseVA1Typ + +#Region "Private fields" + Private _eORI As String + + Private _nLNR As String + + Private _tIN As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _ort As String + + Private _pLZ As String + + Private _land As String + + Private _ansprechpartner As AnsprechpartnerVATyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerVATyp() + End Sub + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set + Me._nLNR = Value + End Set + End Property + + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set + Me._tIN = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerVATyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdresseVA1Typ)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdresseVA1Typ object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdresseVA1Typ object + ''' + ''' string workflow markup to deserialize + ''' Output AdresseVA1Typ object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseVA1Typ, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseVA1Typ) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdresseVA1Typ) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdresseVA1Typ + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdresseVA1Typ) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdresseVA1Typ + Return CType(Serializer.Deserialize(s), AdresseVA1Typ) + End Function +#End Region + + ''' + ''' Serializes current AdresseVA1Typ object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdresseVA1Typ object + ''' + ''' string xml file to load and deserialize + ''' Output AdresseVA1Typ object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdresseVA1Typ, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdresseVA1Typ) + 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 AdresseVA1Typ) 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 AdresseVA1Typ + 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 Class + + + Partial Public Class WarenPositionVersandanmeldungTyp + +#Region "Private fields" + Private _positionsnummer As String + + Private _warennummer As String + + Private _artAnmeldungPositionCode As String + + Private _warenbezeichnung As String + + Private _warenwert As String + + Private _warenwertWaehrung As String + + Private _schaetzKz As String + + Private _warenwertProzent As String + + Private _versendungslandPositionCode As String + + Private _bestimmungslandPositionCode As String + + Private _rohmasse As String + + Private _eigenmasse As String + + Private _adressenPosition As AdressenPositionVATyp + + Private _packstueck As List(Of PackstueckVATyp) + + Private _containernummer As List(Of String) + + Private _vorpapier As VorpapierVATyp + + Private _vorgelegteUnterlagen As List(Of VorgelegteUnterlBeschGenehmVATyp) + + Private _besondereVermerke As BesondereVermerkeVATyp + + Private _sGI As SGIVATyp + + Private _sumASicherheit As SumASicherheitPositionVATyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._sumASicherheit = New SumASicherheitPositionVATyp() + Me._sGI = New SGIVATyp() + Me._besondereVermerke = New BesondereVermerkeVATyp() + Me._vorgelegteUnterlagen = New List(Of VorgelegteUnterlBeschGenehmVATyp)() + Me._vorpapier = New VorpapierVATyp() + Me._containernummer = New List(Of String)() + Me._packstueck = New List(Of PackstueckVATyp)() + Me._adressenPosition = New AdressenPositionVATyp() + End Sub + + + Public Property Positionsnummer() As String + Get + Return Me._positionsnummer + End Get + Set + Me._positionsnummer = Value + End Set + End Property + + + Public Property Warennummer() As String + Get + Return Me._warennummer + End Get + Set + Me._warennummer = Value + End Set + End Property + + + Public Property ArtAnmeldungPositionCode() As String + Get + Return Me._artAnmeldungPositionCode + End Get + Set + Me._artAnmeldungPositionCode = Value + End Set + End Property + + + Public Property Warenbezeichnung() As String + Get + Return Me._warenbezeichnung + End Get + Set + Me._warenbezeichnung = Value + End Set + End Property + + + Public Property Warenwert() As String + Get + Return Me._warenwert + End Get + Set + Me._warenwert = Value + End Set + End Property + + + Public Property WarenwertWaehrung() As String + Get + Return Me._warenwertWaehrung + End Get + Set + Me._warenwertWaehrung = Value + End Set + End Property + + + Public Property SchaetzKz() As String + Get + Return Me._schaetzKz + End Get + Set + Me._schaetzKz = Value + End Set + End Property + + + Public Property WarenwertProzent() As String + Get + Return Me._warenwertProzent + End Get + Set + Me._warenwertProzent = Value + End Set + End Property + + + Public Property VersendungslandPositionCode() As String + Get + Return Me._versendungslandPositionCode + End Get + Set + Me._versendungslandPositionCode = Value + End Set + End Property + + + Public Property BestimmungslandPositionCode() As String + Get + Return Me._bestimmungslandPositionCode + End Get + Set + Me._bestimmungslandPositionCode = Value + End Set + End Property + + + Public Property Rohmasse() As String + Get + Return Me._rohmasse + End Get + Set + Me._rohmasse = Value + End Set + End Property + + + Public Property Eigenmasse() As String + Get + Return Me._eigenmasse + End Get + Set + Me._eigenmasse = Value + End Set + End Property + + + Public Property AdressenPosition() As AdressenPositionVATyp + Get + Return Me._adressenPosition + End Get + Set + Me._adressenPosition = Value + End Set + End Property + + + Public Property Packstueck() As List(Of PackstueckVATyp) + Get + Return Me._packstueck + End Get + Set + Me._packstueck = Value + End Set + End Property + + + Public Property Containernummer() As List(Of String) + Get + Return Me._containernummer + End Get + Set + Me._containernummer = Value + End Set + End Property + + + Public Property Vorpapier() As VorpapierVATyp + Get + Return Me._vorpapier + End Get + Set + Me._vorpapier = Value + End Set + End Property + + + Public Property VorgelegteUnterlagen() As List(Of VorgelegteUnterlBeschGenehmVATyp) + Get + Return Me._vorgelegteUnterlagen + End Get + Set + Me._vorgelegteUnterlagen = Value + End Set + End Property + + + Public Property BesondereVermerke() As BesondereVermerkeVATyp + Get + Return Me._besondereVermerke + End Get + Set + Me._besondereVermerke = Value + End Set + End Property + + + Public Property SGI() As SGIVATyp + Get + Return Me._sGI + End Get + Set + Me._sGI = Value + End Set + End Property + + + Public Property SumASicherheit() As SumASicherheitPositionVATyp + Get + Return Me._sumASicherheit + End Get + Set + Me._sumASicherheit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(WarenPositionVersandanmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current WarenPositionVersandanmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an WarenPositionVersandanmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output WarenPositionVersandanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionVersandanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionVersandanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As WarenPositionVersandanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As WarenPositionVersandanmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), WarenPositionVersandanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As WarenPositionVersandanmeldungTyp + Return CType(Serializer.Deserialize(s), WarenPositionVersandanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current WarenPositionVersandanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an WarenPositionVersandanmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output WarenPositionVersandanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As WarenPositionVersandanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, WarenPositionVersandanmeldungTyp) + 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 WarenPositionVersandanmeldungTyp) 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 WarenPositionVersandanmeldungTyp + 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 Class + + + Partial Public Class SumASicherheitVATyp + +#Region "Private fields" + Private _kzSumASicherheit As String + + Private _kennnummerSendung As String + + Private _nummerBefoerderung As String + + Private _besondereUmstaende As String + + Private _ladeort As String + + Private _entladeort As String + + Private _befoerderungskostenZahlungsweise As String + + Private _befoerderungsrouteLand As List(Of String) + + Private _versender As AdresseVATyp + + Private _empfaenger As AdresseVATyp + + Private _befoerderer As AdresseVATyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._befoerderer = New AdresseVATyp() + Me._empfaenger = New AdresseVATyp() + Me._versender = New AdresseVATyp() + Me._befoerderungsrouteLand = New List(Of String)() + End Sub + + + Public Property KzSumASicherheit() As String + Get + Return Me._kzSumASicherheit + End Get + Set + Me._kzSumASicherheit = Value + End Set + End Property + + + Public Property KennnummerSendung() As String + Get + Return Me._kennnummerSendung + End Get + Set + Me._kennnummerSendung = Value + End Set + End Property + + + Public Property NummerBefoerderung() As String + Get + Return Me._nummerBefoerderung + End Get + Set + Me._nummerBefoerderung = Value + End Set + End Property + + + Public Property BesondereUmstaende() As String + Get + Return Me._besondereUmstaende + End Get + Set + Me._besondereUmstaende = Value + End Set + End Property + + + Public Property Ladeort() As String + Get + Return Me._ladeort + End Get + Set + Me._ladeort = Value + End Set + End Property + + + Public Property Entladeort() As String + Get + Return Me._entladeort + End Get + Set + Me._entladeort = Value + End Set + End Property + + + Public Property BefoerderungskostenZahlungsweise() As String + Get + Return Me._befoerderungskostenZahlungsweise + End Get + Set + Me._befoerderungskostenZahlungsweise = Value + End Set + End Property + + + Public Property BefoerderungsrouteLand() As List(Of String) + Get + Return Me._befoerderungsrouteLand + End Get + Set + Me._befoerderungsrouteLand = Value + End Set + End Property + + + Public Property Versender() As AdresseVATyp + Get + Return Me._versender + End Get + Set + Me._versender = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseVATyp + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property Befoerderer() As AdresseVATyp + Get + Return Me._befoerderer + End Get + Set + Me._befoerderer = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SumASicherheitVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SumASicherheitVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SumASicherheitVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output SumASicherheitVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumASicherheitVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumASicherheitVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SumASicherheitVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SumASicherheitVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SumASicherheitVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SumASicherheitVATyp + Return CType(Serializer.Deserialize(s), SumASicherheitVATyp) + End Function +#End Region + + ''' + ''' Serializes current SumASicherheitVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SumASicherheitVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output SumASicherheitVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SumASicherheitVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SumASicherheitVATyp) + 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 SumASicherheitVATyp) 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 SumASicherheitVATyp + 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 Class + + + Partial Public Class ZugelassenderEmpfaengerVATyp + +#Region "Private fields" + Private _eORI As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ZugelassenderEmpfaengerVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ZugelassenderEmpfaengerVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ZugelassenderEmpfaengerVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output ZugelassenderEmpfaengerVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ZugelassenderEmpfaengerVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ZugelassenderEmpfaengerVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ZugelassenderEmpfaengerVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ZugelassenderEmpfaengerVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ZugelassenderEmpfaengerVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ZugelassenderEmpfaengerVATyp + Return CType(Serializer.Deserialize(s), ZugelassenderEmpfaengerVATyp) + End Function +#End Region + + ''' + ''' Serializes current ZugelassenderEmpfaengerVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ZugelassenderEmpfaengerVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output ZugelassenderEmpfaengerVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ZugelassenderEmpfaengerVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ZugelassenderEmpfaengerVATyp) + 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 ZugelassenderEmpfaengerVATyp) 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 ZugelassenderEmpfaengerVATyp + 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 Class + + + Partial Public Class HauptverpflichteterVATyp + +#Region "Private fields" + Private _eORI As String + + Private _nLNR As String + + Private _tIN As String + + Private _iDCarnet As String + + Private _name As String + + Private _strasseHausnummer As String + + Private _ort As String + + Private _pLZ As String + + Private _land As String + + Private _bewilligungsnummerVersender As String + + Private _stellvertreterName As String + + Private _stellvertreterStellung As String + + Private _ansprechpartner As AnsprechpartnerVATyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ansprechpartner = New AnsprechpartnerVATyp() + End Sub + + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + + Public Property NLNR() As String + Get + Return Me._nLNR + End Get + Set + Me._nLNR = Value + End Set + End Property + + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set + Me._tIN = Value + End Set + End Property + + + Public Property IDCarnet() As String + Get + Return Me._iDCarnet + End Get + Set + Me._iDCarnet = Value + End Set + End Property + + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + + Public Property StrasseHausnummer() As String + Get + Return Me._strasseHausnummer + End Get + Set + Me._strasseHausnummer = Value + End Set + End Property + + + Public Property Ort() As String + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + + Public Property PLZ() As String + Get + Return Me._pLZ + End Get + Set + Me._pLZ = Value + End Set + End Property + + + Public Property Land() As String + Get + Return Me._land + End Get + Set + Me._land = Value + End Set + End Property + + + Public Property BewilligungsnummerVersender() As String + Get + Return Me._bewilligungsnummerVersender + End Get + Set + Me._bewilligungsnummerVersender = Value + End Set + End Property + + + Public Property StellvertreterName() As String + Get + Return Me._stellvertreterName + End Get + Set + Me._stellvertreterName = Value + End Set + End Property + + + Public Property StellvertreterStellung() As String + Get + Return Me._stellvertreterStellung + End Get + Set + Me._stellvertreterStellung = Value + End Set + End Property + + + Public Property Ansprechpartner() As AnsprechpartnerVATyp + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HauptverpflichteterVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HauptverpflichteterVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an HauptverpflichteterVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output HauptverpflichteterVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HauptverpflichteterVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HauptverpflichteterVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HauptverpflichteterVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HauptverpflichteterVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HauptverpflichteterVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HauptverpflichteterVATyp + Return CType(Serializer.Deserialize(s), HauptverpflichteterVATyp) + End Function +#End Region + + ''' + ''' Serializes current HauptverpflichteterVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an HauptverpflichteterVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output HauptverpflichteterVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HauptverpflichteterVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HauptverpflichteterVATyp) + 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 HauptverpflichteterVATyp) 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 HauptverpflichteterVATyp + 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 Class + + + Partial Public Class AdressenVATyp + +#Region "Private fields" + Private _versender As AdresseVA1Typ + + Private _empfaenger As AdresseVA1Typ + + Private _hauptverpflichteter As HauptverpflichteterVATyp + + Private _zugelassenderEmpfaenger As ZugelassenderEmpfaengerVATyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._zugelassenderEmpfaenger = New ZugelassenderEmpfaengerVATyp() + Me._hauptverpflichteter = New HauptverpflichteterVATyp() + Me._empfaenger = New AdresseVA1Typ() + Me._versender = New AdresseVA1Typ() + End Sub + + + Public Property Versender() As AdresseVA1Typ + Get + Return Me._versender + End Get + Set + Me._versender = Value + End Set + End Property + + + Public Property Empfaenger() As AdresseVA1Typ + Get + Return Me._empfaenger + End Get + Set + Me._empfaenger = Value + End Set + End Property + + + Public Property Hauptverpflichteter() As HauptverpflichteterVATyp + Get + Return Me._hauptverpflichteter + End Get + Set + Me._hauptverpflichteter = Value + End Set + End Property + + + Public Property ZugelassenderEmpfaenger() As ZugelassenderEmpfaengerVATyp + Get + Return Me._zugelassenderEmpfaenger + End Get + Set + Me._zugelassenderEmpfaenger = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(AdressenVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current AdressenVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an AdressenVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output AdressenVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AdressenVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AdressenVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), AdressenVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As AdressenVATyp + Return CType(Serializer.Deserialize(s), AdressenVATyp) + End Function +#End Region + + ''' + ''' Serializes current AdressenVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an AdressenVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output AdressenVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AdressenVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AdressenVATyp) + 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 AdressenVATyp) 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 AdressenVATyp + 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 Class + + + Partial Public Class BefoerderungsmittelVATyp + +#Region "Private fields" + Private _kennzeichenAbgang As String + + Private _staatszugehoerigkeitAbgangCode As String + + Private _verkehrszweigGrenzueberschreitent As String + + Private _artGrenzueberschreitentCode As String + + Private _kennzeichenGrenzueberschreitend As String + + Private _staatszugehoerigkeitGrenzueberschreitendCode As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property KennzeichenAbgang() As String + Get + Return Me._kennzeichenAbgang + End Get + Set + Me._kennzeichenAbgang = Value + End Set + End Property + + + Public Property StaatszugehoerigkeitAbgangCode() As String + Get + Return Me._staatszugehoerigkeitAbgangCode + End Get + Set + Me._staatszugehoerigkeitAbgangCode = Value + End Set + End Property + + + Public Property VerkehrszweigGrenzueberschreitent() As String + Get + Return Me._verkehrszweigGrenzueberschreitent + End Get + Set + Me._verkehrszweigGrenzueberschreitent = Value + End Set + End Property + + + Public Property ArtGrenzueberschreitentCode() As String + Get + Return Me._artGrenzueberschreitentCode + End Get + Set + Me._artGrenzueberschreitentCode = Value + End Set + End Property + + + Public Property KennzeichenGrenzueberschreitend() As String + Get + Return Me._kennzeichenGrenzueberschreitend + End Get + Set + Me._kennzeichenGrenzueberschreitend = Value + End Set + End Property + + + Public Property StaatszugehoerigkeitGrenzueberschreitendCode() As String + Get + Return Me._staatszugehoerigkeitGrenzueberschreitendCode + End Get + Set + Me._staatszugehoerigkeitGrenzueberschreitendCode = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BefoerderungsmittelVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current BefoerderungsmittelVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an BefoerderungsmittelVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output BefoerderungsmittelVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As BefoerderungsmittelVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As BefoerderungsmittelVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BefoerderungsmittelVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As BefoerderungsmittelVATyp + Return CType(Serializer.Deserialize(s), BefoerderungsmittelVATyp) + End Function +#End Region + + ''' + ''' Serializes current BefoerderungsmittelVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an BefoerderungsmittelVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output BefoerderungsmittelVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As BefoerderungsmittelVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, BefoerderungsmittelVATyp) + 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 BefoerderungsmittelVATyp) 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 BefoerderungsmittelVATyp + 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 Class + + + Partial Public Class SicherheitsangabenVATyp + +#Region "Private fields" + Private _artCode As String + + Private _bezeichnungBescheinigung As String + + Private _abgabenbetrag As String + + Private _gRN As String + + Private _zugriffscode As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property BezeichnungBescheinigung() As String + Get + Return Me._bezeichnungBescheinigung + End Get + Set + Me._bezeichnungBescheinigung = Value + End Set + End Property + + + Public Property Abgabenbetrag() As String + Get + Return Me._abgabenbetrag + End Get + Set + Me._abgabenbetrag = Value + End Set + End Property + + + Public Property GRN() As String + Get + Return Me._gRN + End Get + Set + Me._gRN = Value + End Set + End Property + + + Public Property Zugriffscode() As String + Get + Return Me._zugriffscode + End Get + Set + Me._zugriffscode = Value + End Set + End Property + + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SicherheitsangabenVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SicherheitsangabenVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an SicherheitsangabenVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output SicherheitsangabenVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitsangabenVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitsangabenVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SicherheitsangabenVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SicherheitsangabenVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SicherheitsangabenVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SicherheitsangabenVATyp + Return CType(Serializer.Deserialize(s), SicherheitsangabenVATyp) + End Function +#End Region + + ''' + ''' Serializes current SicherheitsangabenVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an SicherheitsangabenVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output SicherheitsangabenVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SicherheitsangabenVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SicherheitsangabenVATyp) + 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 SicherheitsangabenVATyp) 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 SicherheitsangabenVATyp + 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 Class + + + Partial Public Class VerschlussVATyp + +#Region "Private fields" + Private _artCode As String + + Private _anzahl As String + + Private _zeichen As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._zeichen = New List(Of String)() + End Sub + + + Public Property ArtCode() As String + Get + Return Me._artCode + End Get + Set + Me._artCode = Value + End Set + End Property + + + Public Property Anzahl() As String + Get + Return Me._anzahl + End Get + Set + Me._anzahl = Value + End Set + End Property + + + Public Property Zeichen() As List(Of String) + Get + Return Me._zeichen + End Get + Set + Me._zeichen = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VerschlussVATyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VerschlussVATyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VerschlussVATyp object + ''' + ''' string workflow markup to deserialize + ''' Output VerschlussVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschlussVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschlussVATyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VerschlussVATyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VerschlussVATyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VerschlussVATyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VerschlussVATyp + Return CType(Serializer.Deserialize(s), VerschlussVATyp) + End Function +#End Region + + ''' + ''' Serializes current VerschlussVATyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VerschlussVATyp object + ''' + ''' string xml file to load and deserialize + ''' Output VerschlussVATyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VerschlussVATyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VerschlussVATyp) + 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 VerschlussVATyp) 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 VerschlussVATyp + 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 Class + + + Partial Public Class KopfDatenVersandanmeldungTyp + +#Region "Private fields" + Private _versendungslandCode As String + + Private _bestimmungslandCode As String + + Private _artAnmeldungKopfCode As String + + Private _beladungsOrt As String + + Private _durchgangszollstelleDienststellnummer As List(Of String) + + Private _bestimmungsstelleDienststellnummer As String + + Private _abgangsstelleDienststellnummer As String + + Private _wiedergestellungsdatum As Date + + Private _kzVereinfachtesVerfahren As String + + Private _gesamtRohmasse As String + + Private _gesamtAnzahlPackstuecke As String + + Private _verschluss As VerschlussVATyp + + Private _kzVerbindlicheBefoerderungsrouteAussetzen As String + + Private _beschreibungVerbindlicheBefoerderungsroute As String + + Private _sicherheitsangaben As List(Of SicherheitsangabenVATyp) + + Private _befoerderungsmittel As BefoerderungsmittelVATyp + + Private _adressen As AdressenVATyp + + Private _sumASicherheit As SumASicherheitVATyp + + Private _kzAUTOIMP As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._sumASicherheit = New SumASicherheitVATyp() + Me._adressen = New AdressenVATyp() + Me._befoerderungsmittel = New BefoerderungsmittelVATyp() + Me._sicherheitsangaben = New List(Of SicherheitsangabenVATyp)() + Me._verschluss = New VerschlussVATyp() + Me._durchgangszollstelleDienststellnummer = New List(Of String)() + End Sub + + + Public Property VersendungslandCode() As String + Get + Return Me._versendungslandCode + End Get + Set + Me._versendungslandCode = Value + End Set + End Property + + + Public Property BestimmungslandCode() As String + Get + Return Me._bestimmungslandCode + End Get + Set + Me._bestimmungslandCode = Value + End Set + End Property + + + Public Property ArtAnmeldungKopfCode() As String + Get + Return Me._artAnmeldungKopfCode + End Get + Set + Me._artAnmeldungKopfCode = Value + End Set + End Property + + + Public Property BeladungsOrt() As String + Get + Return Me._beladungsOrt + End Get + Set + Me._beladungsOrt = Value + End Set + End Property + + + Public Property DurchgangszollstelleDienststellnummer() As List(Of String) + Get + Return Me._durchgangszollstelleDienststellnummer + End Get + Set + Me._durchgangszollstelleDienststellnummer = Value + End Set + End Property + + + Public Property BestimmungsstelleDienststellnummer() As String + Get + Return Me._bestimmungsstelleDienststellnummer + End Get + Set + Me._bestimmungsstelleDienststellnummer = Value + End Set + End Property + + + Public Property AbgangsstelleDienststellnummer() As String + Get + Return Me._abgangsstelleDienststellnummer + End Get + Set + Me._abgangsstelleDienststellnummer = Value + End Set + End Property + + + Public Property Wiedergestellungsdatum() As Date + Get + Return Me._wiedergestellungsdatum + End Get + Set + Me._wiedergestellungsdatum = Value + End Set + End Property + + + Public Property KzVereinfachtesVerfahren() As String + Get + Return Me._kzVereinfachtesVerfahren + End Get + Set + Me._kzVereinfachtesVerfahren = Value + End Set + End Property + + + Public Property GesamtRohmasse() As String + Get + Return Me._gesamtRohmasse + End Get + Set + Me._gesamtRohmasse = Value + End Set + End Property + + + Public Property GesamtAnzahlPackstuecke() As String + Get + Return Me._gesamtAnzahlPackstuecke + End Get + Set + Me._gesamtAnzahlPackstuecke = Value + End Set + End Property + + + Public Property Verschluss() As VerschlussVATyp + Get + Return Me._verschluss + End Get + Set + Me._verschluss = Value + End Set + End Property + + + Public Property KzVerbindlicheBefoerderungsrouteAussetzen() As String + Get + Return Me._kzVerbindlicheBefoerderungsrouteAussetzen + End Get + Set + Me._kzVerbindlicheBefoerderungsrouteAussetzen = Value + End Set + End Property + + + Public Property BeschreibungVerbindlicheBefoerderungsroute() As String + Get + Return Me._beschreibungVerbindlicheBefoerderungsroute + End Get + Set + Me._beschreibungVerbindlicheBefoerderungsroute = Value + End Set + End Property + + + Public Property Sicherheitsangaben() As List(Of SicherheitsangabenVATyp) + Get + Return Me._sicherheitsangaben + End Get + Set + Me._sicherheitsangaben = Value + End Set + End Property + + + Public Property Befoerderungsmittel() As BefoerderungsmittelVATyp + Get + Return Me._befoerderungsmittel + End Get + Set + Me._befoerderungsmittel = Value + End Set + End Property + + + Public Property Adressen() As AdressenVATyp + Get + Return Me._adressen + End Get + Set + Me._adressen = Value + End Set + End Property + + + Public Property SumASicherheit() As SumASicherheitVATyp + Get + Return Me._sumASicherheit + End Get + Set + Me._sumASicherheit = Value + End Set + End Property + + + Public Property KzAUTOIMP() As String + Get + Return Me._kzAUTOIMP + End Get + Set + Me._kzAUTOIMP = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenVersandanmeldungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenVersandanmeldungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenVersandanmeldungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenVersandanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenVersandanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenVersandanmeldungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenVersandanmeldungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenVersandanmeldungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenVersandanmeldungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenVersandanmeldungTyp + Return CType(Serializer.Deserialize(s), KopfDatenVersandanmeldungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenVersandanmeldungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenVersandanmeldungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenVersandanmeldungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenVersandanmeldungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenVersandanmeldungTyp) + 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 KopfDatenVersandanmeldungTyp) 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 KopfDatenVersandanmeldungTyp + 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 Class + + + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set + Me._iODivision2 = Value + End Set + End Property + + + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set + Me._iODivision3 = Value + End Set + End Property + + + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set + Me._iOReferenz = Value + End Set + End Property + + + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set + Me._iODatumZeit = Value + End Set + End Property + + + Public Property Version() As String + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.xsd new file mode 100644 index 0000000..0f304ae --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003.xsd @@ -0,0 +1,487 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003_OLD.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003_OLD.xsd new file mode 100644 index 0000000..0856058 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/VersandanmeldungNCTSDE_003_OLD.xsd @@ -0,0 +1,479 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_001.Designer.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_001.Designer.vb new file mode 100644 index 0000000..4cc32c5 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_001.Designer.vb @@ -0,0 +1,1220 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' VersandbestaetigungNCTSDEListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace VersandbestaetigungNCTSDE + + _ + Partial Public Class VersandbestaetigungMCTyp + Inherits DatenaustauschNCTSTyp + +#Region "Private fields" + Private _einzelVersandbestaetigung As EinzelVersandbestaetigungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._einzelVersandbestaetigung = New EinzelVersandbestaetigungTyp() + End Sub + + _ + Public Property EinzelVersandbestaetigung() As EinzelVersandbestaetigungTyp + Get + Return Me._einzelVersandbestaetigung + End Get + Set(value As EinzelVersandbestaetigungTyp) + Me._einzelVersandbestaetigung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VersandbestaetigungMCTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VersandbestaetigungMCTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VersandbestaetigungMCTyp object + ''' + ''' string workflow markup to deserialize + ''' Output VersandbestaetigungMCTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VersandbestaetigungMCTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VersandbestaetigungMCTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VersandbestaetigungMCTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VersandbestaetigungMCTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VersandbestaetigungMCTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VersandbestaetigungMCTyp + Return CType(Serializer.Deserialize(s), VersandbestaetigungMCTyp) + End Function +#End Region + + ''' + ''' Serializes current VersandbestaetigungMCTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VersandbestaetigungMCTyp object + ''' + ''' string xml file to load and deserialize + ''' Output VersandbestaetigungMCTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VersandbestaetigungMCTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VersandbestaetigungMCTyp) + 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 VersandbestaetigungMCTyp) 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 VersandbestaetigungMCTyp + 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 Class + + _ + Partial Public Class EinzelVersandbestaetigungTyp + +#Region "Private fields" + Private _objektIdentifizierung As ObjektIdentifizierungMCTyp + + Private _kopfDaten As KopfDatenVersandbestaetigungTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kopfDaten = New KopfDatenVersandbestaetigungTyp() + Me._objektIdentifizierung = New ObjektIdentifizierungMCTyp() + End Sub + + _ + Public Property ObjektIdentifizierung() As ObjektIdentifizierungMCTyp + Get + Return Me._objektIdentifizierung + End Get + Set(value As ObjektIdentifizierungMCTyp) + Me._objektIdentifizierung = Value + End Set + End Property + + _ + Public Property KopfDaten() As KopfDatenVersandbestaetigungTyp + Get + Return Me._kopfDaten + End Get + Set(value As KopfDatenVersandbestaetigungTyp) + Me._kopfDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(EinzelVersandbestaetigungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current EinzelVersandbestaetigungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an EinzelVersandbestaetigungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output EinzelVersandbestaetigungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelVersandbestaetigungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelVersandbestaetigungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As EinzelVersandbestaetigungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As EinzelVersandbestaetigungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), EinzelVersandbestaetigungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As EinzelVersandbestaetigungTyp + Return CType(Serializer.Deserialize(s), EinzelVersandbestaetigungTyp) + End Function +#End Region + + ''' + ''' Serializes current EinzelVersandbestaetigungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an EinzelVersandbestaetigungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output EinzelVersandbestaetigungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As EinzelVersandbestaetigungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, EinzelVersandbestaetigungTyp) + 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 EinzelVersandbestaetigungTyp) 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 EinzelVersandbestaetigungTyp + 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 Class + + _ + Partial Public Class ObjektIdentifizierungMCTyp + +#Region "Private fields" + Private _objektName As String + + Private _objektAlias As String + + Private _eDIFACTNachrichtenNr As String + + Private _zeitpunktEingang As Date + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ObjektName() As String + Get + Return Me._objektName + End Get + Set(value As String) + Me._objektName = Value + End Set + End Property + + _ + Public Property ObjektAlias() As String + Get + Return Me._objektAlias + End Get + Set(value As String) + Me._objektAlias = Value + End Set + End Property + + _ + Public Property EDIFACTNachrichtenNr() As String + Get + Return Me._eDIFACTNachrichtenNr + End Get + Set(value As String) + Me._eDIFACTNachrichtenNr = Value + End Set + End Property + + _ + Public Property ZeitpunktEingang() As Date + Get + Return Me._zeitpunktEingang + End Get + Set(value As Date) + Me._zeitpunktEingang = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ObjektIdentifizierungMCTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ObjektIdentifizierungMCTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an ObjektIdentifizierungMCTyp object + ''' + ''' string workflow markup to deserialize + ''' Output ObjektIdentifizierungMCTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMCTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMCTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ObjektIdentifizierungMCTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ObjektIdentifizierungMCTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ObjektIdentifizierungMCTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ObjektIdentifizierungMCTyp + Return CType(Serializer.Deserialize(s), ObjektIdentifizierungMCTyp) + End Function +#End Region + + ''' + ''' Serializes current ObjektIdentifizierungMCTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an ObjektIdentifizierungMCTyp object + ''' + ''' string xml file to load and deserialize + ''' Output ObjektIdentifizierungMCTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ObjektIdentifizierungMCTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ObjektIdentifizierungMCTyp) + 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 ObjektIdentifizierungMCTyp) 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 ObjektIdentifizierungMCTyp + 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 Class + + _ + Partial Public Class KopfDatenVersandbestaetigungTyp + +#Region "Private fields" + Private _aNR As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property ANR() As String + Get + Return Me._aNR + End Get + Set(value As String) + Me._aNR = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KopfDatenVersandbestaetigungTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current KopfDatenVersandbestaetigungTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an KopfDatenVersandbestaetigungTyp object + ''' + ''' string workflow markup to deserialize + ''' Output KopfDatenVersandbestaetigungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenVersandbestaetigungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenVersandbestaetigungTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As KopfDatenVersandbestaetigungTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As KopfDatenVersandbestaetigungTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KopfDatenVersandbestaetigungTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As KopfDatenVersandbestaetigungTyp + Return CType(Serializer.Deserialize(s), KopfDatenVersandbestaetigungTyp) + End Function +#End Region + + ''' + ''' Serializes current KopfDatenVersandbestaetigungTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an KopfDatenVersandbestaetigungTyp object + ''' + ''' string xml file to load and deserialize + ''' Output KopfDatenVersandbestaetigungTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As KopfDatenVersandbestaetigungTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, KopfDatenVersandbestaetigungTyp) + 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 KopfDatenVersandbestaetigungTyp) 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 KopfDatenVersandbestaetigungTyp + 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 Class + + _ + Partial Public Class TransaktionNCTSTyp + +#Region "Private fields" + Private _iOPartner As String + + Private _iODivision1 As String + + Private _iODivision2 As String + + Private _iODivision3 As String + + Private _iOReferenz As String + + Private _iODatumZeit As Date + + Private _version As String + + Private Shared sSerializer As XmlSerializer +#End Region + + _ + Public Property IOPartner() As String + Get + Return Me._iOPartner + End Get + Set(value As String) + Me._iOPartner = Value + End Set + End Property + + _ + Public Property IODivision1() As String + Get + Return Me._iODivision1 + End Get + Set(value As String) + Me._iODivision1 = Value + End Set + End Property + + _ + Public Property IODivision2() As String + Get + Return Me._iODivision2 + End Get + Set(value As String) + Me._iODivision2 = Value + End Set + End Property + + _ + Public Property IODivision3() As String + Get + Return Me._iODivision3 + End Get + Set(value As String) + Me._iODivision3 = Value + End Set + End Property + + _ + Public Property IOReferenz() As String + Get + Return Me._iOReferenz + End Get + Set(value As String) + Me._iOReferenz = Value + End Set + End Property + + _ + Public Property IODatumZeit() As Date + Get + Return Me._iODatumZeit + End Get + Set(value As Date) + Me._iODatumZeit = Value + End Set + End Property + + _ + Public Property Version() As String + Get + Return Me._version + End Get + Set(value As String) + Me._version = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TransaktionNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TransaktionNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an TransaktionNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TransaktionNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TransaktionNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TransaktionNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TransaktionNCTSTyp + Return CType(Serializer.Deserialize(s), TransaktionNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current TransaktionNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an TransaktionNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output TransaktionNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TransaktionNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TransaktionNCTSTyp) + 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 TransaktionNCTSTyp) 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 TransaktionNCTSTyp + 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 Class + + _ + Partial Public Class DatenaustauschNCTSTyp + +#Region "Private fields" + Private _transaktion As TransaktionNCTSTyp + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._transaktion = New TransaktionNCTSTyp() + End Sub + + _ + Public Property Transaktion() As TransaktionNCTSTyp + Get + Return Me._transaktion + End Get + Set(value As TransaktionNCTSTyp) + Me._transaktion = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(DatenaustauschNCTSTyp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current DatenaustauschNCTSTyp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an DatenaustauschNCTSTyp object + ''' + ''' string workflow markup to deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DatenaustauschNCTSTyp) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DatenaustauschNCTSTyp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), DatenaustauschNCTSTyp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As DatenaustauschNCTSTyp + Return CType(Serializer.Deserialize(s), DatenaustauschNCTSTyp) + End Function +#End Region + + ''' + ''' Serializes current DatenaustauschNCTSTyp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an DatenaustauschNCTSTyp object + ''' + ''' string xml file to load and deserialize + ''' Output DatenaustauschNCTSTyp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DatenaustauschNCTSTyp, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DatenaustauschNCTSTyp) + 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 DatenaustauschNCTSTyp) 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 DatenaustauschNCTSTyp + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_001.xsd b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_001.xsd new file mode 100644 index 0000000..6f0cb08 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/Versandbestaetigung/VersandbestaetigungNCTSDE_001.xsd @@ -0,0 +1,69 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb new file mode 100644 index 0000000..279bf59 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb @@ -0,0 +1,1549 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDakosyNCTSOut + + Property ncts_Id As Integer + Property ncts_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property ncts_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property ncts_dyaArt As String = "" + Property ncts_dyaAnmID As Integer + + Property ncts_ANR As Object = Nothing + Property ncts_MRN As Object = Nothing + + Property ncts_Erstellung As DateTime = Now + Property ncts_Erstellung_SB As Object = Nothing + Property ncts_LetzteBearbeitung As DateTime = Now + Property ncts_LetzteBearbeitung_SB As Object = Nothing + Property ncts_firma As Object = Nothing + Property ncts_niederlassung As Object = Nothing + + + Property ncts_Gestellt As Boolean = False + Property ncts_GestelltAm As Object = Nothing + Property ncts_Trans_Partner As Object = Nothing + Property ncts_Trans_Div1 As Object = Nothing + Property ncts_Trans_Div2 As Object = Nothing + Property ncts_Trans_Div3 As Object = Nothing + Property ncts_Trans_Referenz As Object = Nothing + Property ncts_Trans_DatumZeit As DateTime = Now + Property ncts_Trans_Version As Object = Nothing + Property ncts_NachrichtenSenderTIN As Object = Nothing + Property ncts_NachrichtenSenderNLNR As Object = Nothing + Property ncts_NachrichtenempfaengerDST As Object = Nothing + + Property ncts_ObjectName As Object = Nothing + Property ncts_ObjectAlias As Object = Nothing + Property ncts_BezugsnummerVorblendung As Object = Nothing + Property ncts_Bearbeiter As Object = Nothing + Property ncts_VersendungsLandCode As Object = Nothing + Property ncts_BestimmungslandCode As Object = Nothing + Property ncts_ArtAnmeldung As Object = Nothing + Property ncts_BeladungsOrt As Object = Nothing + + Property ncts_DurchgangszollstelleDienststellnummer1 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer2 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer3 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer4 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer5 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer6 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer7 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer8 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer9 As Object = Nothing + + Property ncts_BestimmungsstelleDienststellennummer As Object = Nothing + Property ncts_AbgangsDienststellennummer As Object = Nothing + Property ncts_Wiedergestellungsdatum As Object = Nothing + Property ncts_KzVereinfachtesVerfahren As Object = Nothing + Property ncts_GesamtRohmasse As Object = Nothing + Property ncts_GesamtAnzahlPackstuecke As Object = Nothing + Property ncts_Verschluss_ArtCode As Object = Nothing + Property ncts_Verschluss_Anzahl As Object = Nothing + Property ncts_Verschluss_Zeichen1 As Object = Nothing + Property ncts_Verschluss_Zeichen2 As Object = Nothing + Property ncts_Verschluss_Zeichen3 As Object = Nothing + Property ncts_Verschluss_Zeichen4 As Object = Nothing + Property ncts_Verschluss_Zeichen5 As Object = Nothing + Property ncts_Verschluss_Zeichen6 As Object = Nothing + Property ncts_Verschluss_Zeichen7 As Object = Nothing + Property ncts_Verschluss_Zeichen8 As Object = Nothing + Property ncts_Verschluss_Zeichen9 As Object = Nothing + Property ncts_Verschluss_Zeichen10 As Object = Nothing + Property ncts_Verschluss_Zeichen11 As Object = Nothing + Property ncts_Verschluss_Zeichen12 As Object = Nothing + Property ncts_Verschluss_Zeichen13 As Object = Nothing + Property ncts_Verschluss_Zeichen14 As Object = Nothing + Property ncts_Verschluss_Zeichen15 As Object = Nothing + Property ncts_Verschluss_Zeichen16 As Object = Nothing + Property ncts_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing + Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing + Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing + Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing + Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing + Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing + Property ncts_Versender_EORI As Object = Nothing + Property ncts_Versender_NLNR As Object = Nothing + Property ncts_Versender_TIN As Object = Nothing + Property ncts_Versender_Name As Object = Nothing + Property ncts_Versender_StrasseHausnummer As Object = Nothing + Property ncts_Versender_Ort As Object = Nothing + Property ncts_Versender_PLZ As Object = Nothing + Property ncts_Versender_Land As Object = Nothing + Property ncts_Empfaenger_EORI As Object = Nothing + Property ncts_Empfaenger_NLNR As Object = Nothing + Property ncts_Empfaenger_TIN As Object = Nothing + Property ncts_Empfaenger_Name As Object = Nothing + Property ncts_Empfaenger_StrasseHausnummer As Object = Nothing + Property ncts_Empfaenger_Ort As Object = Nothing + Property ncts_Empfaenger_PLZ As Object = Nothing + Property ncts_Empfaenger_Land As Object = Nothing + Property ncts_Hauptverpflichteter_EORI As Object = Nothing + Property ncts_Hauptverpflichteter_NLNR As Object = Nothing + Property ncts_Hauptverpflichteter_TIN As Object = Nothing + Property ncts_Hauptverpflichteter_Name As Object = Nothing + Property ncts_Hauptverpflichteter_StrasseHausnummer As Object = Nothing + Property ncts_Hauptverpflichteter_Ort As Object = Nothing + Property ncts_Hauptverpflichteter_PLZ As Object = Nothing + Property ncts_Hauptverpflichteter_Land As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_EORI As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_TIN As Object = Nothing + + Property ncts_SumA_KzSumASicherheit As Object = Nothing + Property ncts_SumA_KennnummerSendung As Object = Nothing + Property ncts_SumA_BesondereUmstaende As Object = Nothing + Property ncts_SumA_NummerBefoerderung As Object = Nothing + Property ncts_SumA_Ladeort As Object = Nothing + Property ncts_SumA_Entladeort As Object = Nothing + Property ncts_SumA_BefoerderungskostenZahlungsweise As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand1 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand2 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand3 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand4 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand5 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand6 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand7 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand8 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand9 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand10 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand11 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand12 As Object = Nothing + Property ncts_SumA_Versender_EORI As Object = Nothing + Property ncts_SumA_Versender_NLNR As Object = Nothing + Property ncts_SumA_Versender_TIN As Object = Nothing + Property ncts_SumA_Versender_Name As Object = Nothing + Property ncts_SumA_Versender_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Versender_Land As Object = Nothing + Property ncts_SumA_Versender_PLZ As Object = Nothing + Property ncts_SumA_Versender_Ort As Object = Nothing + + Property ncts_SumA_Empfaenger_EORI As Object = Nothing + Property ncts_SumA_Empfaenger_NLNR As Object = Nothing + Property ncts_SumA_Empfaenger_TIN As Object = Nothing + Property ncts_SumA_Empfaenger_Name As Object = Nothing + Property ncts_SumA_Empfaenger_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Empfaenger_Land As Object = Nothing + Property ncts_SumA_Empfaenger_PLZ As Object = Nothing + Property ncts_SumA_Empfaenger_Ort As Object = Nothing + + Property ncts_SumA_Befoerderer_EORI As Object = Nothing + Property ncts_SumA_Befoerderer_NLNR As Object = Nothing + Property ncts_SumA_Befoerderer_TIN As Object = Nothing + Property ncts_SumA_Befoerderer_Name As Object = Nothing + Property ncts_SumA_Befoerderer_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Befoerderer_Land As Object = Nothing + Property ncts_SumA_Befoerderer_PLZ As Object = Nothing + Property ncts_SumA_Befoerderer_Ort As Object = Nothing + Property ncts_Stammreferenz As Object = Nothing + + + Property ncts_SICHERHEITSANGABEN As New List(Of cDakosy_NCTSOut_Sicherheitsangaben) + Property ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Sub New() + + End Sub + + Sub New(ncts_dyaAnmID As Integer, ncts_Erstellung_SB As Integer) + Me.ncts_dyaAnmID = ncts_dyaAnmID + Me.ncts_Erstellung_SB = ncts_Erstellung_SB + Me.ncts_LetzteBearbeitung_SB = ncts_Erstellung_SB + End Sub + + Sub New(ncts_Id) + Me.ncts_Id = ncts_Id + LOAD() + End Sub + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", ncts_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", ncts_Status_KEWILL_Equivalent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaArt", ncts_dyaArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaAnmID", ncts_dyaAnmID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ANR", ncts_ANR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_MRN", ncts_MRN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung", ncts_Erstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung_SB", ncts_Erstellung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung", ncts_LetzteBearbeitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung_SB", ncts_LetzteBearbeitung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_firma", ncts_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_niederlassung", ncts_niederlassung)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Gestellt", ncts_Gestellt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GestelltAm", ncts_GestelltAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Partner", ncts_Trans_Partner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div1", ncts_Trans_Div1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div2", ncts_Trans_Div2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div3", ncts_Trans_Div3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Referenz", ncts_Trans_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_DatumZeit", ncts_Trans_DatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Version", ncts_Trans_Version)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderTIN", ncts_NachrichtenSenderTIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderNLNR", ncts_NachrichtenSenderNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenempfaengerDST", ncts_NachrichtenempfaengerDST)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectName", ncts_ObjectName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectAlias", ncts_ObjectAlias)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BezugsnummerVorblendung", ncts_BezugsnummerVorblendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Bearbeiter", ncts_Bearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_VersendungsLandCode", ncts_VersendungsLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BestimmungslandCode", ncts_BestimmungslandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ArtAnmeldung", ncts_ArtAnmeldung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BeladungsOrt", ncts_BeladungsOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer1", ncts_DurchgangszollstelleDienststellnummer1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer2", ncts_DurchgangszollstelleDienststellnummer2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer3", ncts_DurchgangszollstelleDienststellnummer3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer4", ncts_DurchgangszollstelleDienststellnummer4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer5", ncts_DurchgangszollstelleDienststellnummer5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer6", ncts_DurchgangszollstelleDienststellnummer6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer7", ncts_DurchgangszollstelleDienststellnummer7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer8", ncts_DurchgangszollstelleDienststellnummer8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer9", ncts_DurchgangszollstelleDienststellnummer9)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BestimmungsstelleDienststellennummer", ncts_BestimmungsstelleDienststellennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AbgangsDienststellennummer", ncts_AbgangsDienststellennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Wiedergestellungsdatum", ncts_Wiedergestellungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_KzVereinfachtesVerfahren", ncts_KzVereinfachtesVerfahren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GesamtRohmasse", ncts_GesamtRohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GesamtAnzahlPackstuecke", ncts_GesamtAnzahlPackstuecke)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_ArtCode", ncts_Verschluss_ArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Anzahl", ncts_Verschluss_Anzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen1", ncts_Verschluss_Zeichen1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen2", ncts_Verschluss_Zeichen2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen3", ncts_Verschluss_Zeichen3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen4", ncts_Verschluss_Zeichen4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen5", ncts_Verschluss_Zeichen5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen6", ncts_Verschluss_Zeichen6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen7", ncts_Verschluss_Zeichen7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen8", ncts_Verschluss_Zeichen8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen9", ncts_Verschluss_Zeichen9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen10", ncts_Verschluss_Zeichen10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen11", ncts_Verschluss_Zeichen11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen12", ncts_Verschluss_Zeichen12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen13", ncts_Verschluss_Zeichen13)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen14", ncts_Verschluss_Zeichen14)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen15", ncts_Verschluss_Zeichen15)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen16", ncts_Verschluss_Zeichen16)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_KennzeichenAbgang", ncts_Befoerderungsmittel_KennzeichenAbgang)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_ArtGrenzueberschreitung", ncts_Befoerderungsmittel_ArtGrenzueberschreitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_EORI", ncts_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_NLNR", ncts_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_TIN", ncts_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Name", ncts_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_StrasseHausnummer", ncts_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Ort", ncts_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_PLZ", ncts_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Land", ncts_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_EORI", ncts_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_NLNR", ncts_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_TIN", ncts_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Name", ncts_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_StrasseHausnummer", ncts_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Ort", ncts_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_PLZ", ncts_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Land", ncts_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_EORI", ncts_Hauptverpflichteter_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_NLNR", ncts_Hauptverpflichteter_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_TIN", ncts_Hauptverpflichteter_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Name", ncts_Hauptverpflichteter_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_StrasseHausnummer", ncts_Hauptverpflichteter_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Ort", ncts_Hauptverpflichteter_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_PLZ", ncts_Hauptverpflichteter_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Land", ncts_Hauptverpflichteter_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_IDCarnet", ncts_ZugelassenerEmpfaenger_IDCarnet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_EORI", ncts_ZugelassenerEmpfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_TIN", ncts_ZugelassenerEmpfaenger_TIN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_KzSumASicherheit", ncts_SumA_KzSumASicherheit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_KennnummerSendung", ncts_SumA_KennnummerSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_NummerBefoerderung", ncts_SumA_NummerBefoerderung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BesondereUmstaende", ncts_SumA_BesondereUmstaende)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Ladeort", ncts_SumA_Ladeort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Entladeort", ncts_SumA_Entladeort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungskostenZahlungsweise", ncts_SumA_BefoerderungskostenZahlungsweise)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand1", ncts_SumA_BefoerderungsrouteLand1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand2", ncts_SumA_BefoerderungsrouteLand2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand3", ncts_SumA_BefoerderungsrouteLand3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand4", ncts_SumA_BefoerderungsrouteLand4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand5", ncts_SumA_BefoerderungsrouteLand5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand6", ncts_SumA_BefoerderungsrouteLand6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand7", ncts_SumA_BefoerderungsrouteLand7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand8", ncts_SumA_BefoerderungsrouteLand8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand9", ncts_SumA_BefoerderungsrouteLand9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand10", ncts_SumA_BefoerderungsrouteLand10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand11", ncts_SumA_BefoerderungsrouteLand11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand12", ncts_SumA_BefoerderungsrouteLand12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_EORI", ncts_SumA_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_NLNR", ncts_SumA_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_TIN", ncts_SumA_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Name", ncts_SumA_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_StrasseHausnummer", ncts_SumA_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Land", ncts_SumA_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_PLZ", ncts_SumA_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Ort", ncts_SumA_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_EORI", ncts_SumA_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_NLNR", ncts_SumA_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_TIN", ncts_SumA_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Name", ncts_SumA_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_StrasseHausnummer", ncts_SumA_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Land", ncts_SumA_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_PLZ", ncts_SumA_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Ort", ncts_SumA_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_EORI", ncts_SumA_Befoerderer_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_NLNR", ncts_SumA_Befoerderer_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_TIN", ncts_SumA_Befoerderer_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Name", ncts_SumA_Befoerderer_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_StrasseHausnummer", ncts_SumA_Befoerderer_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Land", ncts_SumA_Befoerderer_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_PLZ", ncts_SumA_Befoerderer_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Ort", ncts_SumA_Befoerderer_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz)) + + + Return list + End Function + + Public Function UPDATE_STATUS(status) As Boolean + Me.ncts_Status = status + Return Me.SAVE + End Function + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_NCTSOut WITH(updlock,serializable) WHERE ncts_Id=@ncts_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim ncts_IdTMP = ncts_Id + ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If ncts_Id <= 0 Then ncts_Id = ncts_IdTMP + Return ncts_Id > 0 + End Function + + Public Function SAVE_ALL(Optional errHinweis = "") As Boolean + If Not SAVE(errHinweis) Then Return False + If Not SAVE_Warenposition() Or Not SAVE_Sicherheitsangaben() Then Return False + + Return True + End Function + + Public Function LOAD(Optional loadALL As Boolean = True) As Boolean + Try + LOAD = False + If loadALL Then + ncts_SICHERHEITSANGABEN.Clear() + ncts_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut WHERE ncts_Id=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Sicherheitsangaben() + LOAD_Warenposition() + End If + LOAD = True + End If + dr.Close() + + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOAD + End Function + + + Shared Function LOADByAnmIDFull(ncts_dyaAnmID As String, loadALL As Boolean) As cDakosyNCTSOut + Try + Dim NCTS As New cDakosyNCTSOut + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Shared Function UPDATE_StatusById(ncts_Id As Integer, status As Integer) As String + If ncts_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True)) + 'dy_Status_KEWILL_Equivalent = status + 'dy_Status = status + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Return SQL.doSQLVarList(" UPDATE [tblDakosy_NCTSOut] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function LOADByAnmID(ncts_dyaAnmID As String, loadALL As Boolean) As Boolean + Try + LOADByAnmID = False + If loadALL Then + ncts_SICHERHEITSANGABEN.Clear() + ncts_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Sicherheitsangaben() + LOAD_Warenposition() + End If + LOADByAnmID = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOADByAnmID + End Function + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cDakosyNCTSOut + Try + Dim NCTS As New cDakosyNCTSOut + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName=@bezugsNr ", conn) + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function UPDATE_Status(status As Integer) As String + If ncts_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True)) + ncts_Status = status + ncts_Status_KEWILL_Equivalent = status + Return SQL.doSQLVarList(" UPDATE [tblDakosy_NCTSOut] SET ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblDakosy_NCTSOut] SET " & str & " WHERE ncts_Id=@ncts_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOut (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Sub LOAD_Sicherheitsangaben() + Try + ncts_SICHERHEITSANGABEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut_Sicherheitsangaben WHERE nctsSA_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOut_Sicherheitsangaben + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + ncts_SICHERHEITSANGABEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD_Warenposition() + Try + ncts_WARENPOS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut_Warenposition WHERE nctsWP_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOut_Warenposition() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_WarenpositionPackstuecke() + l.LOAD_WarenpositionUnterlagen() + ncts_WARENPOS.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut_Warenposition] WHERE nctsWP_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut_WarenpositionPackstuecke] WHERE nctsWpPk_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_NctsId =" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_Warenposition() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() And DELETE_WarenpositionUnterlagen() Then + 'jetzt die Standartofferten einfügen + For Each p In ncts_WARENPOS + p.nctsWP_NctsId = ncts_Id + If p.INSERT() Then + p.INSERT_WarenpositionPackstuecke(p.nctsWP_Id, Me.ncts_Id) + p.INSERT_WarenpositionUnterlagen(p.nctsWP_Id, Me.ncts_Id) + Else + Return False + End If + Next + Else + Return False + End If + + Return True + End Function + + Function DELETE_Sicherheitsangaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut_Sicherheitsangaben] WHERE nctsSA_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_Sicherheitsangaben() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Sicherheitsangaben() Then + 'jetzt die Standartofferten einfügen + For Each p In ncts_SICHERHEITSANGABEN + p.nctsSA_NctsId = ncts_Id + If Not p.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + + Function countSpedbuchEntrys(filiale, ncts) As Integer + If If(ncts, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrNCTS='" & ncts & "'", "FMZOLL") + End Function + + + + Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer + If If(abfertigungsnummer, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL") + End Function + + + Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean + Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + If False Then 'If(Me.ncts_firma, "") = "IMEX" Then + + 'If countSpedbuchEntrys(5501, Me.ncts_ObjectName) = 0 Then + ' SPEDBUCH.FilialenNr = 5501 + ' SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) + ' SPEDBUCH.NewUNTER_NR() + ' 'SPEDBUCH.Abfertigungsart= If dy. + + ' SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName + ' SPEDBUCH.Zollsystem = "D" + ' SPEDBUCH.Fakturiert = 1 + ' SPEDBUCH.Sachbearbeiter = "AUTO" + + ' Dim notfound = False + ' DakosyNCTSDatenbereitstellung(SPEDBUCH, Me.ncts_ObjectName, notfound) + + ' If Not notfound Then + ' Return SPEDBUCH.SAVE + ' Else + ' Return False + ' End If + 'End If + + 'If DY.dy_SendungsId IsNot Nothing Then + + 'Else + ' Return False 'Ohne Sendungsverweis kein eintrag... + 'End If + + 'Return SPEDBUCH.SAVE + Else + Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(If(Me.ncts_firma, "") <> "", Me.ncts_firma, "VERAG") + If DY.dy_SendungsId IsNot Nothing Then + 'Filiale erkennen: + Dim filialeBez = "" + Dim filiale = getFiliale(Me.ncts_ObjectName, filialeBez) + Dim abfertigungsnummer = getAbfertigungsnummer(Me.ncts_ObjectName) + If filiale <> "" And abfertigungsnummer <> "" Then + ' If countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then + If countSpedbuchEntrys(filiale, Me.ncts_ObjectName) = 0 Then + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") + + SPEDBUCH.FilialenNr = filiale + SPEDBUCH.AbfertigungsNr = abfertigungsnummer + SPEDBUCH.NewUNTER_NR() + + SPEDBUCH.Abfertigungsanzahl = 1 + SPEDBUCH.Fakturiert = 0 + + SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName + SPEDBUCH.Zollsystem = "D" + SPEDBUCH.Sachbearbeiter = "AUTO" + + SPEDBUCH.AvisoID = DY.dy_AvisoId + SPEDBUCH.SendungID = DY.dy_SendungsId + + Dim ZOLL_IMPORT As New cZOLL_IMPORT + Dim notfound = False + Dim posAnzahl = 0 + SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, DY.dy_AvisoId, DY.dy_SendungsId, "VERA", filialeBez, 2, "", Me.ncts_ObjectName, notfound, True) + + If notfound Then Return False + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS!! ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") + + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp + If SPEDBUCH.SAVE Then + VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(DY.dy_SendungsId, True) + Return True + Else + Return False + End If + End If + End If + Else + Return False 'Ohne Sendungsverweis kein eintrag... + End If + End If + Return False + + End Function + + + Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String + getFiliale = "" + If If(bezugsNr, "").ToString.Length > 4 Then + Select Case bezugsNr.ToString.Substring(0, 4) + Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 + 'filialeBez SUB, NKD, WAI,.-.. + End Select + End If + End Function + + + Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String + getAbfertigungsnummer = "" + If If(bezugsNr, "").ToString.Length > 5 Then + + Dim abf = "" + For Each s In bezugsNr.ToString.Substring(5) + If Not IsNumeric(s) Then Exit For + abf &= s + Next + + + If IsNumeric(abf) Then + If CLng(abf) < 99000000 Then ' wenn zu groß, fehlerhaft + If CLng(abf) > 18000000 And CLng(abf) < 99000000 Then + Return abf + Else + Return "18" & CInt(abf).ToString("000000") + End If + End If + End If + End If + Return "" + End Function + + Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, NCTS_Nr As String, ByRef notFound As Boolean) + Dim DY As DAKOSY_Worker.cDakosyNCTSOut = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(NCTS_Nr, True) + If DY Is Nothing Then + notFound = True + Exit Sub + End If + DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, DY, notFound) + End Sub + + Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyNCTSOut, ByRef notFound As Boolean) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + notFound = False + + 'Ermittlung ob T1 oder T2 + If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then + If If(DY.ncts_ArtAnmeldung, "").ToString.Contains("T2") Then + SPEDITIONSBUCH.Abfertigungsart = 6 + For Each s In DY.ncts_SICHERHEITSANGABEN + Select Case If(s.nctsSA_GRN, "") + Case "15TR0004000020917", "12TR0004000004665" : SPEDITIONSBUCH.Abfertigungsart = 34 + Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33 + Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37 + End Select + Next + ElseIf If(DY.ncts_ArtAnmeldung, "").ToString.Contains("TIR") Then + 'For Each s In DY.ncts_SICHERHEITSANGABEN + ' If If(s.nctsSA_ArtCode, "") = "B" Then + ' SPEDITIONSBUCH.Abfertigungsart = 8 + ' End If + 'Next + If DY.ncts_BestimmungslandCode = "TR" Then + SPEDITIONSBUCH.Abfertigungsart = 12 + Else + SPEDITIONSBUCH.Abfertigungsart = 8 + End If + + Else + + SPEDITIONSBUCH.Abfertigungsart = 5 + End If + + End If + + Try + + Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID) + SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId + SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId + + Catch ex As Exception + MsgBox("ERR: " & ex.Message & ex.StackTrace) + + End Try + + + If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now ' CDate(DY.ncts_Trans_DatumZeit).ToShortDateString + + SPEDITIONSBUCH.Bestimmungszollstelle = DY.ncts_BestimmungsstelleDienststellennummer + SPEDITIONSBUCH.Versendungsland = DY.ncts_VersendungsLandCode + SPEDITIONSBUCH.Bestimmungsland = DY.ncts_BestimmungslandCode + + If DY.ncts_SICHERHEITSANGABEN.Count > 0 Then + SPEDITIONSBUCH.Bürgschaft = DY.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN + + Dim sumBrg As Double = 0 + For Each S In DY.ncts_SICHERHEITSANGABEN + sumBrg += If(S.nctsSA_AbgabenBetrag, 0) + Next + If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg + End If + 'SPEDITIONSBUCH.Abfertigungsdatum= + + SPEDITIONSBUCH.BelegNr = DY.ncts_MRN + SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_Befoerderungsmittel_KennzeichenAbgang, "") + + Dim AD = getAdresseFromEORI(DY.ncts_SumA_Versender_EORI, SQL) + If AD IsNot Nothing Then + SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr + SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff + End If + If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then + If If(DY.ncts_SumA_Versender_Name, "").ToString.Trim <> "" Then + SPEDITIONSBUCH.Absender = If(DY.ncts_SumA_Versender_Name, "") + SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_SumA_Versender_Land, "") + SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_PLZ, "") + SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_SumA_Versender_Ort, "") + ElseIf DY.ncts_WARENPOS.Count > 0 Then + Dim WP = DY.ncts_WARENPOS(0) + Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAVersender_EORI, SQL) + If AD_pos IsNot Nothing Then + SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr + SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff + End If + If If(WP.nctsWP_SumAVersender_Name, "").ToString.Trim <> "" Then + SPEDITIONSBUCH.Absender = If(WP.nctsWP_SumAVersender_Name, "") + SPEDITIONSBUCH.Absender &= ", " & If(WP.nctsWP_SumAVersender_Land, "") + SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_PLZ, "") + SPEDITIONSBUCH.Absender &= " " & If(WP.nctsWP_SumAVersender_Ort, "") + End If + If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(WP.nctsWP_SumAVersender_EORI, "")).ToString.Trim + End If + If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(DY.ncts_SumA_Versender_EORI, "")).ToString.Trim + + End If + + + Dim AD2 = getAdresseFromEORI(DY.ncts_SumA_Empfaenger_EORI, SQL) + If AD2 IsNot Nothing Then + SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr + SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff + End If + If If(SPEDITIONSBUCH.Empfänger, "") = "" Then + If If(DY.ncts_SumA_Empfaenger_Name, "").ToString.Trim <> "" Then + SPEDITIONSBUCH.Empfänger = If(DY.ncts_SumA_Empfaenger_Name, "") + SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ncts_SumA_Empfaenger_Land, "") + SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_PLZ, "") + SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_SumA_Empfaenger_Ort, "") + ElseIf DY.ncts_WARENPOS.Count > 0 Then + Dim WP = DY.ncts_WARENPOS(0) + Dim AD_pos = getAdresseFromEORI(WP.nctsWP_SumAEmpfaenger_EORI, SQL) + If AD_pos IsNot Nothing Then + SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr + SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff + End If + + If AD2 IsNot Nothing Then + SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr + SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff + End If + + If If(WP.nctsWP_SumAEmpfaenger_Name, "").ToString.Trim <> "" Then + SPEDITIONSBUCH.Empfänger = If(WP.nctsWP_SumAEmpfaenger_Name, "") + SPEDITIONSBUCH.Empfänger &= ", " & If(WP.nctsWP_SumAEmpfaenger_Land, "") + SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_PLZ, "") + SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsWP_SumAEmpfaenger_Ort, "") + End If + If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(WP.nctsWP_SumAEmpfaenger_EORI, "")).ToString.Trim + End If + If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(DY.ncts_SumA_Empfaenger_EORI, "")).ToString.Trim + + End If + + + + Dim packSt = "" + If DY.ncts_GesamtAnzahlPackstuecke IsNot Nothing Then packSt = DY.ncts_GesamtAnzahlPackstuecke & " Pk. " + + If DY.ncts_WARENPOS.Count > 0 Then + 'SPEDITIONSBUCH.Währungsschlüssel = If(DY.ncts_WARENPOS(0).nctsWP_WarenwertWaehrung, "") + SPEDITIONSBUCH.Währungsschlüssel = "900" + If DY.ncts_GesamtRohmasse IsNot Nothing Then packSt &= If(DY.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, "") + + Dim sumBrg As Double = 0 + For Each S In DY.ncts_WARENPOS + sumBrg += If(S.nctsWP_Warenwert, 0) + Next + If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg + End If + + If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim + + If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2") + 'Personal Abfertigung: + Try + If DY.ncts_Bearbeiter IsNot Nothing Then + Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.ncts_Bearbeiter & "'", "ADMIN") + SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) + End If + Catch ex As Exception + MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + End Try + + End Sub + + Shared Function getAdresseFromEORI(EORI As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) + If EORI Is Nothing Then Return Nothing + If If(EORI, "") <> "" Then + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI) + If IsNumeric(kdNrTmp) Then + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) + Return ADRESSE + End If + End If + Return Nothing + End Function + +End Class + + + +Public Class cDakosy_NCTSOut_Sicherheitsangaben + + Property nctsSA_Id As Integer + Property nctsSA_NctsId As Object = Nothing + Property nctsSA_ArtCode As Object = Nothing + Property nctsSA_BezeichnungBescheinigun As Object = Nothing + Property nctsSA_AbgabenBetrag As Object = Nothing + Property nctsSA_GRN As Object = Nothing + Property nctsSA_Zugriffcode As Object = Nothing + Property nctsSA_TIN As Object = Nothing + + + 'Public selButton As Object = Nothing ' Für die GUI + 'Public SA_OBJECT As Object = Nothing ' Für die GUI + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Id", nctsSA_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_NctsId", nctsSA_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_ArtCode", nctsSA_ArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_BezeichnungBescheinigun", nctsSA_BezeichnungBescheinigun)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_AbgabenBetrag", nctsSA_AbgabenBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_GRN", nctsSA_GRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Zugriffcode", nctsSA_Zugriffcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_TIN", nctsSA_TIN)) + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsSA_Id = SQL.doSQLVarListID(nctsSA_Id, getInsertCmd, "FMZOLL", , list) + Return nctsSA_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOut_Sicherheitsangaben (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + +Public Class cDakosy_NCTSOut_Warenposition + Property nctsWP_Id As Integer + Property nctsWP_NctsId As Integer + Property nctsWP_PositionsNummer As Object = Nothing + Property nctsWP_Warennummer As Object = Nothing + Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing + Property nctsWP_Warenbezeichnung As Object = Nothing + Property nctsWP_Warenwert As Object = Nothing + Property nctsWP_WarenwertWaehrung As Object = Nothing + Property nctsWP_SchaetzKz As Object = Nothing + Property nctsWP_WarenwertProzent As Object = Nothing + Property nctsWP_VersendungslandPositionCode As Object = Nothing + Property nctsWP_BestimmungslandPositionCode As Object = Nothing + Property nctsWP_Rohmasse As Object = Nothing + Property nctsWP_Eigenmasse As Object = Nothing + + + Property nctsWP_VorpapierTyp As Object = Nothing + Property nctsWP_VorpapierReferenz1 As Object = Nothing + Property nctsWP_VorpapierZusatz1 As Object = Nothing + Property nctsWP_VorpapierReferenz2 As Object = Nothing + Property nctsWP_VorpapierZusatz2 As Object = Nothing + Property nctsWP_VorpapierReferenz3 As Object = Nothing + Property nctsWP_VorpapierZusatz3 As Object = Nothing + Property nctsWP_VorpapierReferenz4 As Object = Nothing + Property nctsWP_VorpapierZusatz4 As Object = Nothing + Property nctsWP_VorpapierReferenz5 As Object = Nothing + Property nctsWP_VorpapierZusatz5 As Object = Nothing + Property nctsWP_VorpapierReferenz6 As Object = Nothing + Property nctsWP_VorpapierZusatz6 As Object = Nothing + Property nctsWP_VorpapierReferenz7 As Object = Nothing + Property nctsWP_VorpapierZusatz7 As Object = Nothing + Property nctsWP_VorpapierReferenz8 As Object = Nothing + Property nctsWP_VorpapierZusatz8 As Object = Nothing + Property nctsWP_VorpapierReferenz9 As Object = Nothing + Property nctsWP_VorpapierZusatz9 As Object = Nothing + + + + Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing + Property nctsWP_BesondereVermeke_Export As Object = Nothing + + Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing + Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing + Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing + + + Property nctsWP_Versender_EORI As Object = Nothing + Property nctsWP_Versender_NLNR As Object = Nothing + Property nctsWP_Versender_TIN As Object = Nothing + Property nctsWP_Versender_Name As Object = Nothing + Property nctsWP_Versender_StrasseHausnummer As Object = Nothing + Property nctsWP_Versender_Ort As Object = Nothing + Property nctsWP_Versender_PLZ As Object = Nothing + Property nctsWP_Versender_Land As Object = Nothing + Property nctsWP_Empfaenger_EORI As Object = Nothing + Property nctsWP_Empfaenger_NLNR As Object = Nothing + Property nctsWP_Empfaenger_TIN As Object = Nothing + Property nctsWP_Empfaenger_Name As Object = Nothing + Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_Empfaenger_Ort As Object = Nothing + Property nctsWP_Empfaenger_PLZ As Object = Nothing + Property nctsWP_Empfaenger_Land As Object = Nothing + Property nctsWP_SumAKennnummerSendung As Object = Nothing + Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing + Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing + Property nctsWP_SumAVersender_EORI As Object = Nothing + Property nctsWP_SumAVersender_NLNR As Object = Nothing + Property nctsWP_SumAVersender_TIN As Object = Nothing + Property nctsWP_SumAVersender_Name As Object = Nothing + Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAVersender_Ort As Object = Nothing + Property nctsWP_SumAVersender_PLZ As Object = Nothing + Property nctsWP_SumAVersender_Land As Object = Nothing + Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing + Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing + Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing + Property nctsWP_SumAEmpfaenger_Name As Object = Nothing + Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing + Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing + Property nctsWP_SumAEmpfaenger_Land As Object = Nothing + + + + + Property nctsWP_PACKSTUECKE As New List(Of cDakosy_NCTSOut_WarenpositionPackstuecke) + Property nctsWP_UNTERLAGEN As New List(Of cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWP_NctsId = nctsWP_NctsId + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Id", nctsWP_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_NctsId", nctsWP_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_PositionsNummer", nctsWP_PositionsNummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warennummer", nctsWP_Warennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_ArtAnmeldungPositionCode", nctsWP_ArtAnmeldungPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenbezeichnung", nctsWP_Warenbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenwert", nctsWP_Warenwert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertWaehrung", nctsWP_WarenwertWaehrung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SchaetzKz", nctsWP_SchaetzKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertProzent", nctsWP_WarenwertProzent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VersendungslandPositionCode", nctsWP_VersendungslandPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BestimmungslandPositionCode", nctsWP_BestimmungslandPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Rohmasse", nctsWP_Rohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Eigenmasse", nctsWP_Eigenmasse)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierTyp", nctsWP_VorpapierTyp)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz1", nctsWP_VorpapierReferenz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz1", nctsWP_VorpapierZusatz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz2", nctsWP_VorpapierReferenz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz2", nctsWP_VorpapierZusatz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz3", nctsWP_VorpapierReferenz3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz3", nctsWP_VorpapierZusatz3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz4", nctsWP_VorpapierReferenz4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz4", nctsWP_VorpapierZusatz4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz5", nctsWP_VorpapierReferenz5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz5", nctsWP_VorpapierZusatz5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz6", nctsWP_VorpapierReferenz6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz6", nctsWP_VorpapierZusatz6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz7", nctsWP_VorpapierReferenz7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz7", nctsWP_VorpapierZusatz7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz8", nctsWP_VorpapierReferenz8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz8", nctsWP_VorpapierZusatz8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz9", nctsWP_VorpapierReferenz9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz9", nctsWP_VorpapierZusatz9)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusEU", nctsWP_BesondereVermeke_ExportAusEU)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusLand", nctsWP_BesondereVermeke_ExportAusLand)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Export", nctsWP_BesondereVermeke_Export)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportBeschraenkung", nctsWP_BesondereVermeke_ExportBeschraenkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAbgaben", nctsWP_BesondereVermeke_ExportAbgaben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Vermerk", nctsWP_BesondereVermeke_Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Kz10600", nctsWP_BesondereVermeke_Kz10600)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_EORI", nctsWP_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_NLNR", nctsWP_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_TIN", nctsWP_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Name", nctsWP_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_StrasseHausnummer", nctsWP_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Ort", nctsWP_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_PLZ", nctsWP_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Land", nctsWP_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_EORI", nctsWP_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_NLNR", nctsWP_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_TIN", nctsWP_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Name", nctsWP_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_StrasseHausnummer", nctsWP_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Ort", nctsWP_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_PLZ", nctsWP_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Land", nctsWP_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAKennnummerSendung", nctsWP_SumAKennnummerSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumABefoerderungskostenZahlungsweise", nctsWP_SumABefoerderungskostenZahlungsweise)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAUNGefahrgutnummer", nctsWP_SumAUNGefahrgutnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_EORI", nctsWP_SumAVersender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_NLNR", nctsWP_SumAVersender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_TIN", nctsWP_SumAVersender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Name", nctsWP_SumAVersender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_StrasseHausnummer", nctsWP_SumAVersender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Ort", nctsWP_SumAVersender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_PLZ", nctsWP_SumAVersender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Land", nctsWP_SumAVersender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_EORI", nctsWP_SumAEmpfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_NLNR", nctsWP_SumAEmpfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_TIN", nctsWP_SumAEmpfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Name", nctsWP_SumAEmpfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_StrasseHausnummer", nctsWP_SumAEmpfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Ort", nctsWP_SumAEmpfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_PLZ", nctsWP_SumAEmpfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Land", nctsWP_SumAEmpfaenger_Land)) + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsWP_Id = SQL.doSQLVarListID(nctsWP_Id, getInsertCmd, "FMZOLL", , list) + Return nctsWP_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOut_Warenposition (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + + Public Sub LOAD_WarenpositionPackstuecke() + Try + nctsWP_PACKSTUECKE.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut_WarenpositionPackstuecke WHERE nctsWpPk_nctsWPId=@nctsWP_Id ", conn) + cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOut_WarenpositionPackstuecke() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + nctsWP_PACKSTUECKE.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut_WarenpositionPackstuecke] WHERE nctsWpPk_nctsWPId=" & Me.nctsWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionPackstuecke(wp_id, ncts_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsWP_PACKSTUECKE + p.nctsWpPk_nctsWPId = wp_id + p.nctsWpPk_NctsId = ncts_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + Public Sub LOAD_WarenpositionUnterlagen() + Try + nctsWP_UNTERLAGEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen WHERE nctsWpUl_nctsWPId=@nctsWP_Id ", conn) + cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + nctsWP_UNTERLAGEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_nctsWPId=" & Me.nctsWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionUnterlagen(wp_id, ncts_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsWP_UNTERLAGEN + p.nctsWpUl_nctsWPId = wp_id + p.nctsWpUl_NctsId = ncts_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + +End Class + + + +Public Class cDakosy_NCTSOut_WarenpositionPackstuecke + + Property nctsWpPk_Id As Integer + Property nctsWpPk_nctsWPId As Integer + Property nctsWpPk_NctsId As Integer + + Property nctsWpPk_PackstueckeAnzahl As Object = Nothing + Property nctsWpPk_Verpackungsart As Object = Nothing + Property nctsWpPk_ZeichenNummern As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Id", nctsWpPk_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_nctsWPId", nctsWpPk_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_NctsId", nctsWpPk_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_PackstueckeAnzahl", nctsWpPk_PackstueckeAnzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Verpackungsart", nctsWpPk_Verpackungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_ZeichenNummern", nctsWpPk_ZeichenNummern)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpPk_Id = SQL.doSQLVarListID(nctsWpPk_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpPk_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOut_WarenpositionPackstuecke (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + +Public Class cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen + + Property nctsWpUl_Id As Integer + Property nctsWpUl_nctsWPId As Integer + Property nctsWpUl_NctsId As Integer + Property nctsWpUl_Typ As Object = Nothing + Property nctsWpUl_Referenz As Object = Nothing + Property nctsWpUl_Zusatz As Object = Nothing + + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpUl_nctsWPId = nctsWpUl_nctsWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Id", nctsWpUl_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpUl_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + +End Class diff --git a/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/TR100.Designer.vb b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/TR100.Designer.vb new file mode 100644 index 0000000..baf9656 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/TR100.Designer.vb @@ -0,0 +1,9074 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' TR100ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace TR100 + + _ + Public Enum MsgTyp + + ''' + TR100 + End Enum + + _ + Partial Public Class Msg + +#Region "Private fields" + Private _msgSdr As String + + Private _msgRcp As String + + Private _prepDT As String + + Private _iCRef As String + + Private _appl As String + + Private _test as boolean + + Private _msgTyp As MsgTyp + + Private _refs As MsgRefs + + Private _uCRs As List(Of MsgUCRs) + + Private _hea As MsgHea + + Private _locs As MsgLocs + + Private _transp As MsgTransp + + Private _princTra As MsgPrincTra + + Private _conorTra As MsgConorTra + + Private _coneeTra As MsgConeeTra + + Private _conorSecTra As MsgConorSecTra + + Private _coneeSecTra As MsgConeeSecTra + + Private _carrTra As MsgCarrTra + + Private _authCsgeeTrad As MsgAuthCsgeeTrad + + Private _desTra As MsgDesTra + + Private _represent As MsgRepresent + + Private _grtee As List(Of MsgGrtee) + + Private _depCO As MsgDepCO + + Private _tranCO As List(Of MsgTranCO) + + Private _destCO As MsgDestCO + + Private _gdsItem As List(Of MsgGdsItem) + + Private _seals As MsgSeals + + Private _ctrlRslt As MsgCtrlRslt + + Private _itin As List(Of MsgItin) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._itin = New List(Of MsgItin)() + Me._ctrlRslt = New MsgCtrlRslt() + Me._seals = New MsgSeals() + Me._gdsItem = New List(Of MsgGdsItem)() + Me._destCO = New MsgDestCO() + Me._tranCO = New List(Of MsgTranCO)() + Me._depCO = New MsgDepCO() + Me._grtee = New List(Of MsgGrtee)() + Me._represent = New MsgRepresent() + Me._desTra = New MsgDesTra() + Me._authCsgeeTrad = New MsgAuthCsgeeTrad() + Me._carrTra = New MsgCarrTra() + Me._coneeSecTra = New MsgConeeSecTra() + Me._conorSecTra = New MsgConorSecTra() + Me._coneeTra = New MsgConeeTra() + Me._conorTra = New MsgConorTra() + Me._princTra = New MsgPrincTra() + Me._transp = New MsgTransp() + Me._locs = New MsgLocs() + Me._hea = New MsgHea() + Me._uCRs = New List(Of MsgUCRs)() + Me._refs = New MsgRefs() + End Sub + + Public Property MsgSdr() As String + Get + Return Me._msgSdr + End Get + Set(value As String) + Me._msgSdr = Value + End Set + End Property + + Public Property MsgRcp() As String + Get + Return Me._msgRcp + End Get + Set(value As String) + Me._msgRcp = Value + End Set + End Property + + Public Property PrepDT() As String + Get + Return Me._prepDT + End Get + Set(value As String) + Me._prepDT = Value + End Set + End Property + + Public Property ICRef() As String + Get + Return Me._iCRef + End Get + Set(value As String) + Me._iCRef = Value + End Set + End Property + + Public Property Appl() As String + Get + Return Me._appl + End Get + Set(value As String) + Me._appl = Value + End Set + End Property + + Public Property Test() as boolean + Get + Return Me._test + End Get + Set(value as boolean) + Me._test = value + End Set + End Property + + Public Property MsgTyp() As MsgTyp + Get + Return Me._msgTyp + End Get + Set(value As MsgTyp) + Me._msgTyp = Value + End Set + End Property + + Public Property Refs() As MsgRefs + Get + Return Me._refs + End Get + Set(value As MsgRefs) + Me._refs = Value + End Set + End Property + + _ + Public Property UCRs() As List(Of MsgUCRs) + Get + Return Me._uCRs + End Get + Set(value As List(Of MsgUCRs)) + Me._uCRs = Value + End Set + End Property + + Public Property Hea() As MsgHea + Get + Return Me._hea + End Get + Set(value As MsgHea) + Me._hea = Value + End Set + End Property + + Public Property Locs() As MsgLocs + Get + Return Me._locs + End Get + Set(value As MsgLocs) + Me._locs = Value + End Set + End Property + + Public Property Transp() As MsgTransp + Get + Return Me._transp + End Get + Set(value As MsgTransp) + Me._transp = Value + End Set + End Property + + Public Property PrincTra() As MsgPrincTra + Get + Return Me._princTra + End Get + Set(value As MsgPrincTra) + Me._princTra = Value + End Set + End Property + + Public Property ConorTra() As MsgConorTra + Get + Return Me._conorTra + End Get + Set(value As MsgConorTra) + Me._conorTra = Value + End Set + End Property + + Public Property ConeeTra() As MsgConeeTra + Get + Return Me._coneeTra + End Get + Set(value As MsgConeeTra) + Me._coneeTra = Value + End Set + End Property + + Public Property ConorSecTra() As MsgConorSecTra + Get + Return Me._conorSecTra + End Get + Set(value As MsgConorSecTra) + Me._conorSecTra = Value + End Set + End Property + + Public Property ConeeSecTra() As MsgConeeSecTra + Get + Return Me._coneeSecTra + End Get + Set(value As MsgConeeSecTra) + Me._coneeSecTra = Value + End Set + End Property + + Public Property CarrTra() As MsgCarrTra + Get + Return Me._carrTra + End Get + Set(value As MsgCarrTra) + Me._carrTra = Value + End Set + End Property + + Public Property AuthCsgeeTrad() As MsgAuthCsgeeTrad + Get + Return Me._authCsgeeTrad + End Get + Set(value As MsgAuthCsgeeTrad) + Me._authCsgeeTrad = Value + End Set + End Property + + Public Property DesTra() As MsgDesTra + Get + Return Me._desTra + End Get + Set(value As MsgDesTra) + Me._desTra = Value + End Set + End Property + + Public Property Represent() As MsgRepresent + Get + Return Me._represent + End Get + Set(value As MsgRepresent) + Me._represent = Value + End Set + End Property + + _ + Public Property Grtee() As List(Of MsgGrtee) + Get + Return Me._grtee + End Get + Set(value As List(Of MsgGrtee)) + Me._grtee = Value + End Set + End Property + + Public Property DepCO() As MsgDepCO + Get + Return Me._depCO + End Get + Set(value As MsgDepCO) + Me._depCO = Value + End Set + End Property + + _ + Public Property TranCO() As List(Of MsgTranCO) + Get + Return Me._tranCO + End Get + Set(value As List(Of MsgTranCO)) + Me._tranCO = Value + End Set + End Property + + Public Property DestCO() As MsgDestCO + Get + Return Me._destCO + End Get + Set(value As MsgDestCO) + Me._destCO = Value + End Set + End Property + + _ + Public Property GdsItem() As List(Of MsgGdsItem) + Get + Return Me._gdsItem + End Get + Set(value As List(Of MsgGdsItem)) + Me._gdsItem = Value + End Set + End Property + + Public Property Seals() As MsgSeals + Get + Return Me._seals + End Get + Set(value As MsgSeals) + Me._seals = Value + End Set + End Property + + Public Property CtrlRslt() As MsgCtrlRslt + Get + Return Me._ctrlRslt + End Get + Set(value As MsgCtrlRslt) + Me._ctrlRslt = Value + End Set + End Property + + _ + Public Property Itin() As List(Of MsgItin) + Get + Return Me._itin + End Get + Set(value As List(Of MsgItin)) + Me._itin = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Msg)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current Msg object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an Msg object + ''' + ''' string workflow markup to deserialize + ''' Output Msg object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Msg, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, Msg) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Msg) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As Msg + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Msg) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As Msg + Return CType(Serializer.Deserialize(s), Msg) + End Function +#End Region + + ''' + ''' Serializes current Msg object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an Msg object + ''' + ''' string xml file to load and deserialize + ''' Output Msg object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As Msg, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, Msg) + 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 Msg) 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 Msg + 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 Class + + _ + Partial Public Class MsgRefs + +#Region "Private fields" + Private _lRN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property LRN() As String + Get + Return Me._lRN + End Get + Set(value As String) + Me._lRN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgRefs)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgRefs object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgRefs object + ''' + ''' string workflow markup to deserialize + ''' Output MsgRefs object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgRefs, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgRefs) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgRefs) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgRefs + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgRefs) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgRefs + Return CType(Serializer.Deserialize(s), MsgRefs) + End Function +#End Region + + ''' + ''' Serializes current MsgRefs object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgRefs object + ''' + ''' string xml file to load and deserialize + ''' Output MsgRefs object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgRefs, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgRefs) + 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 MsgRefs) 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 MsgRefs + 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 Class + + _ + Partial Public Class MsgUCRs + +#Region "Private fields" + Private _uCR As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property UCR() As String + Get + Return Me._uCR + End Get + Set(value As String) + Me._uCR = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgUCRs)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgUCRs object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgUCRs object + ''' + ''' string workflow markup to deserialize + ''' Output MsgUCRs object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgUCRs, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgUCRs) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgUCRs) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgUCRs + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgUCRs) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgUCRs + Return CType(Serializer.Deserialize(s), MsgUCRs) + End Function +#End Region + + ''' + ''' Serializes current MsgUCRs object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgUCRs object + ''' + ''' string xml file to load and deserialize + ''' Output MsgUCRs object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgUCRs, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgUCRs) + 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 MsgUCRs) 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 MsgUCRs + 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 Class + + _ + Partial Public Class MsgHea + +#Region "Private fields" + Private _decTy As String + + Private _totItem As String + + Private _totPack As String + + Private _totGross As String + + Private _depLNG As String + + Private _nCTSLNG As String + + Private _simp as boolean + + Private _authID As String + + Private _transDat as boolean + + Private _secInd As String + + Private _specCirc As String + + Private _transPayTy As String + + Private _comRef As String + + Private _convRef As String + + Private _decDT As String + + Private _decPlc As String + + Private _decPlcLNG As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property DecTy() As String + Get + Return Me._decTy + End Get + Set(value As String) + Me._decTy = Value + End Set + End Property + + Public Property TotItem() As String + Get + Return Me._totItem + End Get + Set(value As String) + Me._totItem = Value + End Set + End Property + + Public Property TotPack() As String + Get + Return Me._totPack + End Get + Set(value As String) + Me._totPack = Value + End Set + End Property + + Public Property TotGross() As String + Get + Return Me._totGross + End Get + Set(value As String) + Me._totGross = Value + End Set + End Property + + Public Property DepLNG() As String + Get + Return Me._depLNG + End Get + Set(value As String) + Me._depLNG = Value + End Set + End Property + + Public Property NCTSLNG() As String + Get + Return Me._nCTSLNG + End Get + Set(value As String) + Me._nCTSLNG = Value + End Set + End Property + + Public Property Simp() as boolean + Get + Return Me._simp + End Get + Set(value as boolean) + Me._simp = Value + End Set + End Property + + Public Property AuthID() As String + Get + Return Me._authID + End Get + Set(value As String) + Me._authID = Value + End Set + End Property + + Public Property TransDat() as boolean + Get + Return Me._transDat + End Get + Set(value as boolean) + Me._transDat = Value + End Set + End Property + + Public Property SecInd() As String + Get + Return Me._secInd + End Get + Set(value As String) + Me._secInd = Value + End Set + End Property + + Public Property SpecCirc() As String + Get + Return Me._specCirc + End Get + Set(value As String) + Me._specCirc = Value + End Set + End Property + + Public Property TransPayTy() As String + Get + Return Me._transPayTy + End Get + Set(value As String) + Me._transPayTy = Value + End Set + End Property + + Public Property ComRef() As String + Get + Return Me._comRef + End Get + Set(value As String) + Me._comRef = Value + End Set + End Property + + Public Property ConvRef() As String + Get + Return Me._convRef + End Get + Set(value As String) + Me._convRef = Value + End Set + End Property + + Public Property DecDT() As String + Get + Return Me._decDT + End Get + Set(value As String) + Me._decDT = Value + End Set + End Property + + Public Property DecPlc() As String + Get + Return Me._decPlc + End Get + Set(value As String) + Me._decPlc = Value + End Set + End Property + + Public Property DecPlcLNG() As String + Get + Return Me._decPlcLNG + End Get + Set(value As String) + Me._decPlcLNG = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgHea)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgHea object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgHea object + ''' + ''' string workflow markup to deserialize + ''' Output MsgHea object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgHea, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgHea) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgHea) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgHea + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgHea) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgHea + Return CType(Serializer.Deserialize(s), MsgHea) + End Function +#End Region + + ''' + ''' Serializes current MsgHea object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgHea object + ''' + ''' string xml file to load and deserialize + ''' Output MsgHea object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgHea, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgHea) + 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 MsgHea) 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 MsgHea + 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 Class + + _ + Partial Public Class MsgLocs + +#Region "Private fields" + Private _disp As String + + Private _dest As String + + Private _gdsLocCd As String + + Private _gdsLocAuth As String + + Private _loadPlcCd As String + + Private _custPlc As String + + Private _unloadPlc As String + + Private _unloadPlcLNG As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Disp() As String + Get + Return Me._disp + End Get + Set(value As String) + Me._disp = Value + End Set + End Property + + Public Property Dest() As String + Get + Return Me._dest + End Get + Set(value As String) + Me._dest = Value + End Set + End Property + + Public Property GdsLocCd() As String + Get + Return Me._gdsLocCd + End Get + Set(value As String) + Me._gdsLocCd = Value + End Set + End Property + + Public Property GdsLocAuth() As String + Get + Return Me._gdsLocAuth + End Get + Set(value As String) + Me._gdsLocAuth = Value + End Set + End Property + + Public Property LoadPlcCd() As String + Get + Return Me._loadPlcCd + End Get + Set(value As String) + Me._loadPlcCd = Value + End Set + End Property + + Public Property CustPlc() As String + Get + Return Me._custPlc + End Get + Set(value As String) + Me._custPlc = Value + End Set + End Property + + Public Property UnloadPlc() As String + Get + Return Me._unloadPlc + End Get + Set(value As String) + Me._unloadPlc = Value + End Set + End Property + + Public Property UnloadPlcLNG() As String + Get + Return Me._unloadPlcLNG + End Get + Set(value As String) + Me._unloadPlcLNG = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgLocs)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgLocs object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgLocs object + ''' + ''' string workflow markup to deserialize + ''' Output MsgLocs object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgLocs, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgLocs) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgLocs) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgLocs + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgLocs) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgLocs + Return CType(Serializer.Deserialize(s), MsgLocs) + End Function +#End Region + + ''' + ''' Serializes current MsgLocs object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgLocs object + ''' + ''' string xml file to load and deserialize + ''' Output MsgLocs object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgLocs, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgLocs) + 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 MsgLocs) 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 MsgLocs + 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 Class + + _ + Partial Public Class MsgTransp + +#Region "Private fields" + Private _inMo As String + + Private _bordMo As String + + Private _depTy As String + + Private _depIdnt As String + + Private _depIdntLNG As String + + Private _depNat As String + + Private _crossTy As String + + Private _crossIdnt As String + + Private _crossIdntLNG As String + + Private _crossIdntNat As String + + Private _contInd as boolean + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property InMo() As String + Get + Return Me._inMo + End Get + Set(value As String) + Me._inMo = Value + End Set + End Property + + Public Property BordMo() As String + Get + Return Me._bordMo + End Get + Set(value As String) + Me._bordMo = Value + End Set + End Property + + Public Property DepTy() As String + Get + Return Me._depTy + End Get + Set(value As String) + Me._depTy = Value + End Set + End Property + + Public Property DepIdnt() As String + Get + Return Me._depIdnt + End Get + Set(value As String) + Me._depIdnt = Value + End Set + End Property + + Public Property DepIdntLNG() As String + Get + Return Me._depIdntLNG + End Get + Set(value As String) + Me._depIdntLNG = Value + End Set + End Property + + Public Property DepNat() As String + Get + Return Me._depNat + End Get + Set(value As String) + Me._depNat = Value + End Set + End Property + + Public Property CrossTy() As String + Get + Return Me._crossTy + End Get + Set(value As String) + Me._crossTy = Value + End Set + End Property + + Public Property CrossIdnt() As String + Get + Return Me._crossIdnt + End Get + Set(value As String) + Me._crossIdnt = Value + End Set + End Property + + Public Property CrossIdntLNG() As String + Get + Return Me._crossIdntLNG + End Get + Set(value As String) + Me._crossIdntLNG = Value + End Set + End Property + + Public Property CrossIdntNat() As String + Get + Return Me._crossIdntNat + End Get + Set(value As String) + Me._crossIdntNat = Value + End Set + End Property + + Public Property ContInd() as boolean + Get + Return Me._contInd + End Get + Set(value as boolean) + Me._contInd = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgTransp)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgTransp object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgTransp object + ''' + ''' string workflow markup to deserialize + ''' Output MsgTransp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgTransp, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgTransp) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgTransp) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgTransp + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgTransp) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgTransp + Return CType(Serializer.Deserialize(s), MsgTransp) + End Function +#End Region + + ''' + ''' Serializes current MsgTransp object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgTransp object + ''' + ''' string xml file to load and deserialize + ''' Output MsgTransp object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgTransp, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgTransp) + 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 MsgTransp) 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 MsgTransp + 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 Class + + _ + Partial Public Class MsgPrincTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private _tIRHID As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Public Property TIRHID() As String + Get + Return Me._tIRHID + End Get + Set(value As String) + Me._tIRHID = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgPrincTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgPrincTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgPrincTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgPrincTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgPrincTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgPrincTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgPrincTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgPrincTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgPrincTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgPrincTra + Return CType(Serializer.Deserialize(s), MsgPrincTra) + End Function +#End Region + + ''' + ''' Serializes current MsgPrincTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgPrincTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgPrincTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgPrincTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgPrincTra) + 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 MsgPrincTra) 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 MsgPrincTra + 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 Class + + _ + Partial Public Class MsgConorTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgConorTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgConorTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgConorTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgConorTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgConorTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgConorTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgConorTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgConorTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgConorTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgConorTra + Return CType(Serializer.Deserialize(s), MsgConorTra) + End Function +#End Region + + ''' + ''' Serializes current MsgConorTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgConorTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgConorTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgConorTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgConorTra) + 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 MsgConorTra) 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 MsgConorTra + 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 Class + + _ + Partial Public Class MsgConeeTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgConeeTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgConeeTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgConeeTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgConeeTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgConeeTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgConeeTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgConeeTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgConeeTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgConeeTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgConeeTra + Return CType(Serializer.Deserialize(s), MsgConeeTra) + End Function +#End Region + + ''' + ''' Serializes current MsgConeeTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgConeeTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgConeeTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgConeeTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgConeeTra) + 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 MsgConeeTra) 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 MsgConeeTra + 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 Class + + _ + Partial Public Class MsgConorSecTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgConorSecTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgConorSecTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgConorSecTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgConorSecTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgConorSecTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgConorSecTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgConorSecTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgConorSecTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgConorSecTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgConorSecTra + Return CType(Serializer.Deserialize(s), MsgConorSecTra) + End Function +#End Region + + ''' + ''' Serializes current MsgConorSecTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgConorSecTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgConorSecTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgConorSecTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgConorSecTra) + 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 MsgConorSecTra) 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 MsgConorSecTra + 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 Class + + _ + Partial Public Class MsgConeeSecTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgConeeSecTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgConeeSecTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgConeeSecTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgConeeSecTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgConeeSecTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgConeeSecTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgConeeSecTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgConeeSecTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgConeeSecTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgConeeSecTra + Return CType(Serializer.Deserialize(s), MsgConeeSecTra) + End Function +#End Region + + ''' + ''' Serializes current MsgConeeSecTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgConeeSecTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgConeeSecTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgConeeSecTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgConeeSecTra) + 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 MsgConeeSecTra) 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 MsgConeeSecTra + 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 Class + + _ + Partial Public Class MsgCarrTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgCarrTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgCarrTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgCarrTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgCarrTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgCarrTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgCarrTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgCarrTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgCarrTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgCarrTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgCarrTra + Return CType(Serializer.Deserialize(s), MsgCarrTra) + End Function +#End Region + + ''' + ''' Serializes current MsgCarrTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgCarrTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgCarrTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgCarrTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgCarrTra) + 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 MsgCarrTra) 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 MsgCarrTra + 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 Class + + _ + Partial Public Class MsgAuthCsgeeTrad + +#Region "Private fields" + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgAuthCsgeeTrad)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgAuthCsgeeTrad object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgAuthCsgeeTrad object + ''' + ''' string workflow markup to deserialize + ''' Output MsgAuthCsgeeTrad object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgAuthCsgeeTrad, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgAuthCsgeeTrad) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgAuthCsgeeTrad) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgAuthCsgeeTrad + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgAuthCsgeeTrad) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgAuthCsgeeTrad + Return CType(Serializer.Deserialize(s), MsgAuthCsgeeTrad) + End Function +#End Region + + ''' + ''' Serializes current MsgAuthCsgeeTrad object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgAuthCsgeeTrad object + ''' + ''' string xml file to load and deserialize + ''' Output MsgAuthCsgeeTrad object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgAuthCsgeeTrad, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgAuthCsgeeTrad) + 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 MsgAuthCsgeeTrad) 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 MsgAuthCsgeeTrad + 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 Class + + _ + Partial Public Class MsgDesTra + +#Region "Private fields" + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgDesTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgDesTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgDesTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgDesTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgDesTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgDesTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgDesTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgDesTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgDesTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgDesTra + Return CType(Serializer.Deserialize(s), MsgDesTra) + End Function +#End Region + + ''' + ''' Serializes current MsgDesTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgDesTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgDesTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgDesTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgDesTra) + 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 MsgDesTra) 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 MsgDesTra + 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 Class + + _ + Partial Public Class MsgRepresent + +#Region "Private fields" + Private _rIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property RIN() As String + Get + Return Me._rIN + End Get + Set(value As String) + Me._rIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgRepresent)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgRepresent object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgRepresent object + ''' + ''' string workflow markup to deserialize + ''' Output MsgRepresent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgRepresent, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgRepresent) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgRepresent) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgRepresent + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgRepresent) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgRepresent + Return CType(Serializer.Deserialize(s), MsgRepresent) + End Function +#End Region + + ''' + ''' Serializes current MsgRepresent object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgRepresent object + ''' + ''' string xml file to load and deserialize + ''' Output MsgRepresent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgRepresent, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgRepresent) + 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 MsgRepresent) 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 MsgRepresent + 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 Class + + _ + Partial Public Class MsgGrtee + +#Region "Private fields" + Private _gTy As String + + Private _grteeRef As List(Of MsgGrteeGrteeRef) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._grteeRef = New List(Of MsgGrteeGrteeRef)() + End Sub + + Public Property GTy() As String + Get + Return Me._gTy + End Get + Set(value As String) + Me._gTy = Value + End Set + End Property + + _ + Public Property GrteeRef() As List(Of MsgGrteeGrteeRef) + Get + Return Me._grteeRef + End Get + Set(value As List(Of MsgGrteeGrteeRef)) + Me._grteeRef = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGrtee)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGrtee object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGrtee object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGrtee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGrtee, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGrtee) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGrtee) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGrtee + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGrtee) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGrtee + Return CType(Serializer.Deserialize(s), MsgGrtee) + End Function +#End Region + + ''' + ''' Serializes current MsgGrtee object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGrtee object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGrtee object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGrtee, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGrtee) + 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 MsgGrtee) 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 MsgGrtee + 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 Class + + _ + Partial Public Class MsgGrteeGrteeRef + +#Region "Private fields" + Private _gRN As String + + Private _oGR As String + + Private _acc As String + + Private _gTIN As String + + Private _gVal As String + + Private _curr As String + + Private _vaLimEC As MsgGrteeGrteeRefVaLimEC + + Private _vaLimNEC As List(Of MsgGrteeGrteeRefVaLimNEC) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._vaLimNEC = New List(Of MsgGrteeGrteeRefVaLimNEC)() + Me._vaLimEC = New MsgGrteeGrteeRefVaLimEC() + End Sub + + Public Property GRN() As String + Get + Return Me._gRN + End Get + Set(value As String) + Me._gRN = Value + End Set + End Property + + Public Property OGR() As String + Get + Return Me._oGR + End Get + Set(value As String) + Me._oGR = Value + End Set + End Property + + Public Property Acc() As String + Get + Return Me._acc + End Get + Set(value As String) + Me._acc = Value + End Set + End Property + + Public Property GTIN() As String + Get + Return Me._gTIN + End Get + Set(value As String) + Me._gTIN = Value + End Set + End Property + + Public Property GVal() As String + Get + Return Me._gVal + End Get + Set(value As String) + Me._gVal = Value + End Set + End Property + + Public Property Curr() As String + Get + Return Me._curr + End Get + Set(value As String) + Me._curr = Value + End Set + End Property + + Public Property VaLimEC() As MsgGrteeGrteeRefVaLimEC + Get + Return Me._vaLimEC + End Get + Set(value As MsgGrteeGrteeRefVaLimEC) + Me._vaLimEC = Value + End Set + End Property + + _ + Public Property VaLimNEC() As List(Of MsgGrteeGrteeRefVaLimNEC) + Get + Return Me._vaLimNEC + End Get + Set(value As List(Of MsgGrteeGrteeRefVaLimNEC)) + Me._vaLimNEC = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGrteeGrteeRef)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGrteeGrteeRef object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGrteeGrteeRef object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGrteeGrteeRef object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGrteeGrteeRef, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGrteeGrteeRef) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGrteeGrteeRef) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGrteeGrteeRef + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGrteeGrteeRef) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGrteeGrteeRef + Return CType(Serializer.Deserialize(s), MsgGrteeGrteeRef) + End Function +#End Region + + ''' + ''' Serializes current MsgGrteeGrteeRef object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGrteeGrteeRef object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGrteeGrteeRef object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGrteeGrteeRef, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGrteeGrteeRef) + 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 MsgGrteeGrteeRef) 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 MsgGrteeGrteeRef + 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 Class + + _ + Partial Public Class MsgGrteeGrteeRefVaLimEC + +#Region "Private fields" + Private _nValEC as boolean + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NValEC() as boolean + Get + Return Me._nValEC + End Get + Set(value as boolean) + Me._nValEC = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGrteeGrteeRefVaLimEC)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGrteeGrteeRefVaLimEC object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGrteeGrteeRefVaLimEC object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGrteeGrteeRefVaLimEC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGrteeGrteeRefVaLimEC, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGrteeGrteeRefVaLimEC) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGrteeGrteeRefVaLimEC) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGrteeGrteeRefVaLimEC + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGrteeGrteeRefVaLimEC) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGrteeGrteeRefVaLimEC + Return CType(Serializer.Deserialize(s), MsgGrteeGrteeRefVaLimEC) + End Function +#End Region + + ''' + ''' Serializes current MsgGrteeGrteeRefVaLimEC object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGrteeGrteeRefVaLimEC object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGrteeGrteeRefVaLimEC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGrteeGrteeRefVaLimEC, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGrteeGrteeRefVaLimEC) + 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 MsgGrteeGrteeRefVaLimEC) 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 MsgGrteeGrteeRefVaLimEC + 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 Class + + _ + Partial Public Class MsgGrteeGrteeRefVaLimNEC + +#Region "Private fields" + Private _nVal As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NVal() As String + Get + Return Me._nVal + End Get + Set(value As String) + Me._nVal = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGrteeGrteeRefVaLimNEC)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGrteeGrteeRefVaLimNEC object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGrteeGrteeRefVaLimNEC object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGrteeGrteeRefVaLimNEC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGrteeGrteeRefVaLimNEC, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGrteeGrteeRefVaLimNEC) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGrteeGrteeRefVaLimNEC) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGrteeGrteeRefVaLimNEC + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGrteeGrteeRefVaLimNEC) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGrteeGrteeRefVaLimNEC + Return CType(Serializer.Deserialize(s), MsgGrteeGrteeRefVaLimNEC) + End Function +#End Region + + ''' + ''' Serializes current MsgGrteeGrteeRefVaLimNEC object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGrteeGrteeRefVaLimNEC object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGrteeGrteeRefVaLimNEC object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGrteeGrteeRefVaLimNEC, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGrteeGrteeRefVaLimNEC) + 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 MsgGrteeGrteeRefVaLimNEC) 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 MsgGrteeGrteeRefVaLimNEC + 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 Class + + _ + Partial Public Class MsgDepCO + +#Region "Private fields" + Private _ref As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Ref() As String + Get + Return Me._ref + End Get + Set(value As String) + Me._ref = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgDepCO)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgDepCO object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgDepCO object + ''' + ''' string workflow markup to deserialize + ''' Output MsgDepCO object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgDepCO, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgDepCO) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgDepCO) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgDepCO + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgDepCO) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgDepCO + Return CType(Serializer.Deserialize(s), MsgDepCO) + End Function +#End Region + + ''' + ''' Serializes current MsgDepCO object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgDepCO object + ''' + ''' string xml file to load and deserialize + ''' Output MsgDepCO object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgDepCO, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgDepCO) + 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 MsgDepCO) 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 MsgDepCO + 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 Class + + _ + Partial Public Class MsgTranCO + +#Region "Private fields" + Private _ref As String + + Private _tranArrDT As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Ref() As String + Get + Return Me._ref + End Get + Set(value As String) + Me._ref = Value + End Set + End Property + + Public Property TranArrDT() As String + Get + Return Me._tranArrDT + End Get + Set(value As String) + Me._tranArrDT = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgTranCO)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgTranCO object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgTranCO object + ''' + ''' string workflow markup to deserialize + ''' Output MsgTranCO object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgTranCO, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgTranCO) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgTranCO) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgTranCO + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgTranCO) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgTranCO + Return CType(Serializer.Deserialize(s), MsgTranCO) + End Function +#End Region + + ''' + ''' Serializes current MsgTranCO object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgTranCO object + ''' + ''' string xml file to load and deserialize + ''' Output MsgTranCO object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgTranCO, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgTranCO) + 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 MsgTranCO) 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 MsgTranCO + 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 Class + + _ + Partial Public Class MsgDestCO + +#Region "Private fields" + Private _ref As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Ref() As String + Get + Return Me._ref + End Get + Set(value As String) + Me._ref = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgDestCO)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgDestCO object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgDestCO object + ''' + ''' string workflow markup to deserialize + ''' Output MsgDestCO object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgDestCO, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgDestCO) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgDestCO) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgDestCO + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgDestCO) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgDestCO + Return CType(Serializer.Deserialize(s), MsgDestCO) + End Function +#End Region + + ''' + ''' Serializes current MsgDestCO object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgDestCO object + ''' + ''' string xml file to load and deserialize + ''' Output MsgDestCO object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgDestCO, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgDestCO) + 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 MsgDestCO) 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 MsgDestCO + 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 Class + + _ + Partial Public Class MsgGdsItem + +#Region "Private fields" + Private _itNr As String + + Private _dec As String + + Private _comCd As String + + Private _gdsDes As String + + Private _lNG As String + + Private _gross As String + + Private _net As String + + Private _transPayTy As String + + Private _comRef As String + + Private _uNDangCd As String + + Private _locs As MsgGdsItemLocs + + Private _conorTra As MsgGdsItemConorTra + + Private _coneeTra As MsgGdsItemConeeTra + + Private _conorSecTra As MsgGdsItemConorSecTra + + Private _coneeSecTra As MsgGdsItemConeeSecTra + + Private _container As List(Of MsgGdsItemContainer) + + Private _pack As List(Of MsgGdsItemPack) + + Private _supplUnt As List(Of MsgGdsItemSupplUnt) + + Private _prevAdmRef As List(Of MsgGdsItemPrevAdmRef) + + Private _docCerts As List(Of MsgGdsItemDocCerts) + + Private _sGI As List(Of MsgGdsItemSGI) + + Private _specMent As List(Of MsgGdsItemSpecMent) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._specMent = New List(Of MsgGdsItemSpecMent)() + Me._sGI = New List(Of MsgGdsItemSGI)() + Me._docCerts = New List(Of MsgGdsItemDocCerts)() + Me._prevAdmRef = New List(Of MsgGdsItemPrevAdmRef)() + Me._supplUnt = New List(Of MsgGdsItemSupplUnt)() + Me._pack = New List(Of MsgGdsItemPack)() + Me._container = New List(Of MsgGdsItemContainer)() + Me._coneeSecTra = New MsgGdsItemConeeSecTra() + Me._conorSecTra = New MsgGdsItemConorSecTra() + Me._coneeTra = New MsgGdsItemConeeTra() + Me._conorTra = New MsgGdsItemConorTra() + Me._locs = New MsgGdsItemLocs() + End Sub + + Public Property ItNr() As String + Get + Return Me._itNr + End Get + Set(value As String) + Me._itNr = Value + End Set + End Property + + Public Property Dec() As String + Get + Return Me._dec + End Get + Set(value As String) + Me._dec = Value + End Set + End Property + + Public Property ComCd() As String + Get + Return Me._comCd + End Get + Set(value As String) + Me._comCd = Value + End Set + End Property + + Public Property GdsDes() As String + Get + Return Me._gdsDes + End Get + Set(value As String) + Me._gdsDes = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property Gross() As String + Get + Return Me._gross + End Get + Set(value As String) + Me._gross = Value + End Set + End Property + + Public Property Net() As String + Get + Return Me._net + End Get + Set(value As String) + Me._net = Value + End Set + End Property + + Public Property TransPayTy() As String + Get + Return Me._transPayTy + End Get + Set(value As String) + Me._transPayTy = Value + End Set + End Property + + Public Property ComRef() As String + Get + Return Me._comRef + End Get + Set(value As String) + Me._comRef = Value + End Set + End Property + + Public Property UNDangCd() As String + Get + Return Me._uNDangCd + End Get + Set(value As String) + Me._uNDangCd = Value + End Set + End Property + + Public Property Locs() As MsgGdsItemLocs + Get + Return Me._locs + End Get + Set(value As MsgGdsItemLocs) + Me._locs = Value + End Set + End Property + + Public Property ConorTra() As MsgGdsItemConorTra + Get + Return Me._conorTra + End Get + Set(value As MsgGdsItemConorTra) + Me._conorTra = Value + End Set + End Property + + Public Property ConeeTra() As MsgGdsItemConeeTra + Get + Return Me._coneeTra + End Get + Set(value As MsgGdsItemConeeTra) + Me._coneeTra = Value + End Set + End Property + + Public Property ConorSecTra() As MsgGdsItemConorSecTra + Get + Return Me._conorSecTra + End Get + Set(value As MsgGdsItemConorSecTra) + Me._conorSecTra = Value + End Set + End Property + + Public Property ConeeSecTra() As MsgGdsItemConeeSecTra + Get + Return Me._coneeSecTra + End Get + Set(value As MsgGdsItemConeeSecTra) + Me._coneeSecTra = Value + End Set + End Property + + _ + Public Property Container() As List(Of MsgGdsItemContainer) + Get + Return Me._container + End Get + Set(value As List(Of MsgGdsItemContainer)) + Me._container = Value + End Set + End Property + + _ + Public Property Pack() As List(Of MsgGdsItemPack) + Get + Return Me._pack + End Get + Set(value As List(Of MsgGdsItemPack)) + Me._pack = Value + End Set + End Property + + _ + Public Property SupplUnt() As List(Of MsgGdsItemSupplUnt) + Get + Return Me._supplUnt + End Get + Set(value As List(Of MsgGdsItemSupplUnt)) + Me._supplUnt = Value + End Set + End Property + + _ + Public Property PrevAdmRef() As List(Of MsgGdsItemPrevAdmRef) + Get + Return Me._prevAdmRef + End Get + Set(value As List(Of MsgGdsItemPrevAdmRef)) + Me._prevAdmRef = Value + End Set + End Property + + _ + Public Property DocCerts() As List(Of MsgGdsItemDocCerts) + Get + Return Me._docCerts + End Get + Set(value As List(Of MsgGdsItemDocCerts)) + Me._docCerts = Value + End Set + End Property + + _ + Public Property SGI() As List(Of MsgGdsItemSGI) + Get + Return Me._sGI + End Get + Set(value As List(Of MsgGdsItemSGI)) + Me._sGI = Value + End Set + End Property + + _ + Public Property SpecMent() As List(Of MsgGdsItemSpecMent) + Get + Return Me._specMent + End Get + Set(value As List(Of MsgGdsItemSpecMent)) + Me._specMent = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItem)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItem object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItem object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItem, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItem) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItem) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItem + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItem) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItem + Return CType(Serializer.Deserialize(s), MsgGdsItem) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItem object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItem object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItem object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItem, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItem) + 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 MsgGdsItem) 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 MsgGdsItem + 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 Class + + _ + Partial Public Class MsgGdsItemLocs + +#Region "Private fields" + Private _disp As String + + Private _dest As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Disp() As String + Get + Return Me._disp + End Get + Set(value As String) + Me._disp = Value + End Set + End Property + + Public Property Dest() As String + Get + Return Me._dest + End Get + Set(value As String) + Me._dest = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemLocs)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemLocs object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemLocs object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemLocs object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemLocs, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemLocs) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemLocs) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemLocs + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemLocs) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemLocs + Return CType(Serializer.Deserialize(s), MsgGdsItemLocs) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemLocs object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemLocs object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemLocs object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemLocs, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemLocs) + 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 MsgGdsItemLocs) 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 MsgGdsItemLocs + 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 Class + + _ + Partial Public Class MsgGdsItemConorTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemConorTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemConorTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemConorTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemConorTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemConorTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemConorTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemConorTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemConorTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemConorTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemConorTra + Return CType(Serializer.Deserialize(s), MsgGdsItemConorTra) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemConorTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemConorTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemConorTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemConorTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemConorTra) + 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 MsgGdsItemConorTra) 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 MsgGdsItemConorTra + 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 Class + + _ + Partial Public Class MsgGdsItemConeeTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemConeeTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemConeeTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemConeeTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemConeeTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemConeeTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemConeeTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemConeeTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemConeeTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemConeeTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemConeeTra + Return CType(Serializer.Deserialize(s), MsgGdsItemConeeTra) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemConeeTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemConeeTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemConeeTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemConeeTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemConeeTra) + 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 MsgGdsItemConeeTra) 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 MsgGdsItemConeeTra + 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 Class + + _ + Partial Public Class MsgGdsItemConorSecTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemConorSecTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemConorSecTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemConorSecTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemConorSecTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemConorSecTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemConorSecTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemConorSecTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemConorSecTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemConorSecTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemConorSecTra + Return CType(Serializer.Deserialize(s), MsgGdsItemConorSecTra) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemConorSecTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemConorSecTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemConorSecTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemConorSecTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemConorSecTra) + 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 MsgGdsItemConorSecTra) 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 MsgGdsItemConorSecTra + 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 Class + + _ + Partial Public Class MsgGdsItemConeeSecTra + +#Region "Private fields" + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _tIN As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property TIN() As String + Get + Return Me._tIN + End Get + Set(value As String) + Me._tIN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemConeeSecTra)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemConeeSecTra object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemConeeSecTra object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemConeeSecTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemConeeSecTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemConeeSecTra) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemConeeSecTra) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemConeeSecTra + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemConeeSecTra) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemConeeSecTra + Return CType(Serializer.Deserialize(s), MsgGdsItemConeeSecTra) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemConeeSecTra object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemConeeSecTra object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemConeeSecTra object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemConeeSecTra, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemConeeSecTra) + 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 MsgGdsItemConeeSecTra) 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 MsgGdsItemConeeSecTra + 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 Class + + _ + Partial Public Class MsgGdsItemContainer + +#Region "Private fields" + Private _cNr As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property CNr() As String + Get + Return Me._cNr + End Get + Set(value As String) + Me._cNr = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemContainer)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemContainer object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemContainer object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemContainer, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemContainer) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemContainer) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemContainer + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemContainer) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemContainer + Return CType(Serializer.Deserialize(s), MsgGdsItemContainer) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemContainer object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemContainer object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemContainer object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemContainer, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemContainer) + 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 MsgGdsItemContainer) 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 MsgGdsItemContainer + 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 Class + + _ + Partial Public Class MsgGdsItemPack + +#Region "Private fields" + Private _mark As String + + Private _lNG As String + + Private _kind As String + + Private _nr As String + + Private _piec As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Mark() As String + Get + Return Me._mark + End Get + Set(value As String) + Me._mark = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property Kind() As String + Get + Return Me._kind + End Get + Set(value As String) + Me._kind = Value + End Set + End Property + + Public Property Nr() As String + Get + Return Me._nr + End Get + Set(value As String) + Me._nr = Value + End Set + End Property + + Public Property Piec() As String + Get + Return Me._piec + End Get + Set(value As String) + Me._piec = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemPack)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemPack object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemPack object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemPack object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemPack, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemPack) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemPack) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemPack + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemPack) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemPack + Return CType(Serializer.Deserialize(s), MsgGdsItemPack) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemPack object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemPack object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemPack object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemPack, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemPack) + 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 MsgGdsItemPack) 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 MsgGdsItemPack + 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 Class + + _ + Partial Public Class MsgGdsItemSupplUnt + +#Region "Private fields" + Private _unit As String + + Private _sUQuant As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Unit() As String + Get + Return Me._unit + End Get + Set(value As String) + Me._unit = Value + End Set + End Property + + Public Property SUQuant() As String + Get + Return Me._sUQuant + End Get + Set(value As String) + Me._sUQuant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemSupplUnt)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemSupplUnt object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemSupplUnt object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemSupplUnt object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemSupplUnt, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemSupplUnt) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemSupplUnt) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemSupplUnt + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemSupplUnt) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemSupplUnt + Return CType(Serializer.Deserialize(s), MsgGdsItemSupplUnt) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemSupplUnt object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemSupplUnt object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemSupplUnt object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemSupplUnt, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemSupplUnt) + 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 MsgGdsItemSupplUnt) 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 MsgGdsItemSupplUnt + 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 Class + + _ + Partial Public Class MsgGdsItemPrevAdmRef + +#Region "Private fields" + Private _pDTy As String + + Private _dRef As String + + Private _lNG As String + + Private _cInf As String + + Private _infoLNG As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property PDTy() As String + Get + Return Me._pDTy + End Get + Set(value As String) + Me._pDTy = Value + End Set + End Property + + Public Property DRef() As String + Get + Return Me._dRef + End Get + Set(value As String) + Me._dRef = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property CInf() As String + Get + Return Me._cInf + End Get + Set(value As String) + Me._cInf = Value + End Set + End Property + + Public Property InfoLNG() As String + Get + Return Me._infoLNG + End Get + Set(value As String) + Me._infoLNG = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemPrevAdmRef)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemPrevAdmRef object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemPrevAdmRef object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemPrevAdmRef object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemPrevAdmRef, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemPrevAdmRef) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemPrevAdmRef) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemPrevAdmRef + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemPrevAdmRef) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemPrevAdmRef + Return CType(Serializer.Deserialize(s), MsgGdsItemPrevAdmRef) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemPrevAdmRef object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemPrevAdmRef object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemPrevAdmRef object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemPrevAdmRef, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemPrevAdmRef) + 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 MsgGdsItemPrevAdmRef) 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 MsgGdsItemPrevAdmRef + 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 Class + + _ + Partial Public Class MsgGdsItemDocCerts + +#Region "Private fields" + Private _docCd As String + + Private _dTy As String + + Private _refLNG As String + + Private _dRef As String + + Private _issD As String + + Private _issCtry As String + + Private _na As String + + Private _strt As String + + Private _pst As String + + Private _cty As String + + Private _ctry As String + + Private _lNG As String + + Private _dTIN As String + + Private _uidVid As String + + Private _issAdm As String + + Private _valD As String + + Private _maxValD As String + + Private _cInf As String + + Private _infoLNG As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property DocCd() As String + Get + Return Me._docCd + End Get + Set(value As String) + Me._docCd = Value + End Set + End Property + + Public Property DTy() As String + Get + Return Me._dTy + End Get + Set(value As String) + Me._dTy = Value + End Set + End Property + + Public Property RefLNG() As String + Get + Return Me._refLNG + End Get + Set(value As String) + Me._refLNG = Value + End Set + End Property + + Public Property DRef() As String + Get + Return Me._dRef + End Get + Set(value As String) + Me._dRef = Value + End Set + End Property + + Public Property IssD() As String + Get + Return Me._issD + End Get + Set(value As String) + Me._issD = Value + End Set + End Property + + Public Property IssCtry() As String + Get + Return Me._issCtry + End Get + Set(value As String) + Me._issCtry = Value + End Set + End Property + + Public Property Na() As String + Get + Return Me._na + End Get + Set(value As String) + Me._na = Value + End Set + End Property + + Public Property Strt() As String + Get + Return Me._strt + End Get + Set(value As String) + Me._strt = Value + End Set + End Property + + Public Property Pst() As String + Get + Return Me._pst + End Get + Set(value As String) + Me._pst = Value + End Set + End Property + + Public Property Cty() As String + Get + Return Me._cty + End Get + Set(value As String) + Me._cty = Value + End Set + End Property + + Public Property Ctry() As String + Get + Return Me._ctry + End Get + Set(value As String) + Me._ctry = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property DTIN() As String + Get + Return Me._dTIN + End Get + Set(value As String) + Me._dTIN = Value + End Set + End Property + + Public Property UidVid() As String + Get + Return Me._uidVid + End Get + Set(value As String) + Me._uidVid = Value + End Set + End Property + + Public Property IssAdm() As String + Get + Return Me._issAdm + End Get + Set(value As String) + Me._issAdm = Value + End Set + End Property + + Public Property ValD() As String + Get + Return Me._valD + End Get + Set(value As String) + Me._valD = Value + End Set + End Property + + Public Property MaxValD() As String + Get + Return Me._maxValD + End Get + Set(value As String) + Me._maxValD = Value + End Set + End Property + + Public Property CInf() As String + Get + Return Me._cInf + End Get + Set(value As String) + Me._cInf = Value + End Set + End Property + + Public Property InfoLNG() As String + Get + Return Me._infoLNG + End Get + Set(value As String) + Me._infoLNG = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemDocCerts)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemDocCerts object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemDocCerts object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemDocCerts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemDocCerts, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemDocCerts) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemDocCerts) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemDocCerts + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemDocCerts) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemDocCerts + Return CType(Serializer.Deserialize(s), MsgGdsItemDocCerts) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemDocCerts object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemDocCerts object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemDocCerts object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemDocCerts, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemDocCerts) + 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 MsgGdsItemDocCerts) 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 MsgGdsItemDocCerts + 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 Class + + _ + Partial Public Class MsgGdsItemSGI + +#Region "Private fields" + Private _sGCd As String + + Private _quant As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property SGCd() As String + Get + Return Me._sGCd + End Get + Set(value As String) + Me._sGCd = Value + End Set + End Property + + Public Property Quant() As String + Get + Return Me._quant + End Get + Set(value As String) + Me._quant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemSGI)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemSGI object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemSGI object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemSGI object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemSGI, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemSGI) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemSGI) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemSGI + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemSGI) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemSGI + Return CType(Serializer.Deserialize(s), MsgGdsItemSGI) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemSGI object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemSGI object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemSGI object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemSGI, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemSGI) + 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 MsgGdsItemSGI) 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 MsgGdsItemSGI + 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 Class + + _ + Partial Public Class MsgGdsItemSpecMent + +#Region "Private fields" + Private _inf As String + + Private _lNG As String + + Private _cd As String + + Private _exEC as boolean + + Private _exCtry As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Inf() As String + Get + Return Me._inf + End Get + Set(value As String) + Me._inf = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Public Property Cd() As String + Get + Return Me._cd + End Get + Set(value As String) + Me._cd = Value + End Set + End Property + + Public Property ExEC() as boolean + Get + Return Me._exEC + End Get + Set(value as boolean) + Me._exEC = Value + End Set + End Property + + Public Property ExCtry() As String + Get + Return Me._exCtry + End Get + Set(value As String) + Me._exCtry = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgGdsItemSpecMent)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgGdsItemSpecMent object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgGdsItemSpecMent object + ''' + ''' string workflow markup to deserialize + ''' Output MsgGdsItemSpecMent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemSpecMent, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemSpecMent) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgGdsItemSpecMent) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgGdsItemSpecMent + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgGdsItemSpecMent) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgGdsItemSpecMent + Return CType(Serializer.Deserialize(s), MsgGdsItemSpecMent) + End Function +#End Region + + ''' + ''' Serializes current MsgGdsItemSpecMent object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgGdsItemSpecMent object + ''' + ''' string xml file to load and deserialize + ''' Output MsgGdsItemSpecMent object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgGdsItemSpecMent, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgGdsItemSpecMent) + 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 MsgGdsItemSpecMent) 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 MsgGdsItemSpecMent + 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 Class + + _ + Partial Public Class MsgSeals + +#Region "Private fields" + Private _sNr As String + + Private _id As List(Of MsgSealsID) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._id = New List(Of MsgSealsID)() + End Sub + + Public Property SNr() As String + Get + Return Me._sNr + End Get + Set(value As String) + Me._sNr = Value + End Set + End Property + + _ + Public Property ID() As List(Of MsgSealsID) + Get + Return Me._id + End Get + Set(value As List(Of MsgSealsID)) + Me._id = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgSeals)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgSeals object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgSeals object + ''' + ''' string workflow markup to deserialize + ''' Output MsgSeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgSeals, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgSeals) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgSeals) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgSeals + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgSeals) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgSeals + Return CType(Serializer.Deserialize(s), MsgSeals) + End Function +#End Region + + ''' + ''' Serializes current MsgSeals object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgSeals object + ''' + ''' string xml file to load and deserialize + ''' Output MsgSeals object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgSeals, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgSeals) + 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 MsgSeals) 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 MsgSeals + 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 Class + + _ + Partial Public Class MsgSealsID + +#Region "Private fields" + Private _idnt As String + + Private _lNG As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Idnt() As String + Get + Return Me._idnt + End Get + Set(value As String) + Me._idnt = Value + End Set + End Property + + Public Property LNG() As String + Get + Return Me._lNG + End Get + Set(value As String) + Me._lNG = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgSealsID)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgSealsID object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgSealsID object + ''' + ''' string workflow markup to deserialize + ''' Output MsgSealsID object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgSealsID, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgSealsID) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgSealsID) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgSealsID + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgSealsID) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgSealsID + Return CType(Serializer.Deserialize(s), MsgSealsID) + End Function +#End Region + + ''' + ''' Serializes current MsgSealsID object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgSealsID object + ''' + ''' string xml file to load and deserialize + ''' Output MsgSealsID object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgSealsID, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgSealsID) + 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 MsgSealsID) 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 MsgSealsID + 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 Class + + _ + Partial Public Class MsgCtrlRslt + +#Region "Private fields" + Private _resCd As String + + Private _dLimit As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property ResCd() As String + Get + Return Me._resCd + End Get + Set(value As String) + Me._resCd = Value + End Set + End Property + + Public Property DLimit() As String + Get + Return Me._dLimit + End Get + Set(value As String) + Me._dLimit = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgCtrlRslt)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgCtrlRslt object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgCtrlRslt object + ''' + ''' string workflow markup to deserialize + ''' Output MsgCtrlRslt object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgCtrlRslt, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgCtrlRslt) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgCtrlRslt) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgCtrlRslt + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgCtrlRslt) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgCtrlRslt + Return CType(Serializer.Deserialize(s), MsgCtrlRslt) + End Function +#End Region + + ''' + ''' Serializes current MsgCtrlRslt object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgCtrlRslt object + ''' + ''' string xml file to load and deserialize + ''' Output MsgCtrlRslt object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgCtrlRslt, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgCtrlRslt) + 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 MsgCtrlRslt) 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 MsgCtrlRslt + 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 Class + + _ + Partial Public Class MsgItin + +#Region "Private fields" + Private _routCtry As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property RoutCtry() As String + Get + Return Me._routCtry + End Get + Set(value As String) + Me._routCtry = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(MsgItin)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current MsgItin object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an MsgItin object + ''' + ''' string workflow markup to deserialize + ''' Output MsgItin object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgItin, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgItin) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MsgItin) as boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MsgItin + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), MsgItin) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As MsgItin + Return CType(Serializer.Deserialize(s), MsgItin) + End Function +#End Region + + ''' + ''' Serializes current MsgItin object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an MsgItin object + ''' + ''' string xml file to load and deserialize + ''' Output MsgItin object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MsgItin, ByRef exception As System.Exception) as boolean + exception = Nothing + obj = CType(Nothing, MsgItin) + 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 MsgItin) 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 MsgItin + 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 Class +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/TR100.xsd b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/TR100.xsd new file mode 100644 index 0000000..74924ce --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/TR100.xsd @@ -0,0 +1,439 @@ + + + + + Schema zu TR100 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/cDakosyNCTSOutAT.vb b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/cDakosyNCTSOutAT.vb new file mode 100644 index 0000000..8b97aae --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/cDakosyNCTSOutAT.vb @@ -0,0 +1,1857 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDakosyNCTSOutAT + + Property nctsAt_Id As Integer + Property nctsAt_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property nctsAt_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property nctsAt_dyaArt As String = "" + Property nctsAt_dyaAnmID As Integer + + Property nctsAt_ANR As Object = Nothing + Property nctsAt_MRN As Object = Nothing + + Property nctsAt_Erstellung As DateTime = Now + Property nctsAt_Erstellung_SB As Object = Nothing + Property nctsAt_LetzteBearbeitung As DateTime = Now + Property nctsAt_LetzteBearbeitung_SB As Object = Nothing + Property nctsAt_firma As Object = Nothing + Property nctsAt_niederlassung As Object = Nothing + + + Property nctsAt_Gestellt As Boolean = False + Property nctsAt_GestelltAm As Object = Nothing + Property nctsAt_Trans_Partner As Object = Nothing + Property nctsAt_Trans_Div1 As Object = Nothing + Property nctsAt_Trans_Div2 As Object = Nothing + Property nctsAt_Trans_Div3 As Object = Nothing + Property nctsAt_Trans_Referenz As Object = Nothing + Property nctsAt_Trans_DatumZeit As DateTime = Now + Property nctsAt_Trans_Version As Object = Nothing + Property nctsAt_NachrichtenSenderTIN As Object = Nothing + Property nctsAt_NachrichtenSenderNLNR As Object = Nothing + Property nctsAt_NachrichtenempfaengerDST As Object = Nothing + + Property nctsAt_LRN As Object = Nothing 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ + Property nctsAt_BezugsnummerVorblendung As Object = Nothing + Property nctsAt_Bearbeiter As Object = Nothing + Property nctsAt_VersendungsLandCode As Object = Nothing + Property nctsAt_BestimmungslandCode As Object = Nothing + Property nctsAt_ArtAnmeldung As Object = Nothing + Property nctsAt_BeladungsOrt As Object = Nothing + + Property nctsAt_DurchgangszollstelleDienststellnummer1 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststellnummer2 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststellnummer3 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststellnummer4 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststellnummer5 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststellnummer6 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststellnummer7 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststellnummer8 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststellnummer9 As Object = Nothing + + Property nctsAt_BestimmungsstelleDienststellennummer As Object = Nothing + Property nctsAt_AbgangsDienststellennummer As Object = Nothing + Property nctsAt_Wiedergestellungsdatum As Object = Nothing + Property nctsAt_KzVereinfachtesVerfahren As Object = Nothing + Property nctsAt_GesamtRohmasse As Object = Nothing + Property nctsAt_GesamtAnzahlPackstuecke As Object = Nothing + Property nctsAt_Verschluss_ArtCode As Object = Nothing + Property nctsAt_Verschluss_Anzahl As Object = Nothing + Property nctsAt_Verschluss_Zeichen1 As Object = Nothing + Property nctsAt_Verschluss_Zeichen2 As Object = Nothing + Property nctsAt_Verschluss_Zeichen3 As Object = Nothing + Property nctsAt_Verschluss_Zeichen4 As Object = Nothing + Property nctsAt_Verschluss_Zeichen5 As Object = Nothing + Property nctsAt_Verschluss_Zeichen6 As Object = Nothing + Property nctsAt_Verschluss_Zeichen7 As Object = Nothing + Property nctsAt_Verschluss_Zeichen8 As Object = Nothing + Property nctsAt_Verschluss_Zeichen9 As Object = Nothing + Property nctsAt_Verschluss_Zeichen10 As Object = Nothing + Property nctsAt_Verschluss_Zeichen11 As Object = Nothing + Property nctsAt_Verschluss_Zeichen12 As Object = Nothing + Property nctsAt_Verschluss_Zeichen13 As Object = Nothing + Property nctsAt_Verschluss_Zeichen14 As Object = Nothing + Property nctsAt_Verschluss_Zeichen15 As Object = Nothing + Property nctsAt_Verschluss_Zeichen16 As Object = Nothing + Property nctsAt_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing + Property nctsAt_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing + Property nctsAt_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing + Property nctsAt_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing + Property nctsAt_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing + Property nctsAt_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing + Property nctsAt_Versender_EORI As Object = Nothing + Property nctsAt_Versender_NLNR As Object = Nothing + Property nctsAt_Versender_TIN As Object = Nothing + Property nctsAt_Versender_Name As Object = Nothing + Property nctsAt_Versender_StrasseHausnummer As Object = Nothing + Property nctsAt_Versender_Ort As Object = Nothing + Property nctsAt_Versender_PLZ As Object = Nothing + Property nctsAt_Versender_Land As Object = Nothing + Property nctsAt_Empfaenger_EORI As Object = Nothing + Property nctsAt_Empfaenger_NLNR As Object = Nothing + Property nctsAt_Empfaenger_TIN As Object = Nothing + Property nctsAt_Empfaenger_Name As Object = Nothing + Property nctsAt_Empfaenger_StrasseHausnummer As Object = Nothing + Property nctsAt_Empfaenger_Ort As Object = Nothing + Property nctsAt_Empfaenger_PLZ As Object = Nothing + Property nctsAt_Empfaenger_Land As Object = Nothing + Property nctsAt_Hauptverpflichteter_EORI As Object = Nothing + Property nctsAt_Hauptverpflichteter_NLNR As Object = Nothing + Property nctsAt_Hauptverpflichteter_TIN As Object = Nothing + Property nctsAt_Hauptverpflichteter_Name As Object = Nothing + Property nctsAt_Hauptverpflichteter_StrasseHausnummer As Object = Nothing + Property nctsAt_Hauptverpflichteter_Ort As Object = Nothing + Property nctsAt_Hauptverpflichteter_PLZ As Object = Nothing + Property nctsAt_Hauptverpflichteter_Land As Object = Nothing + Property nctsAt_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing + Property nctsAt_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing + Property nctsAt_ZugelassenerEmpfaenger_EORI As Object = Nothing + Property nctsAt_ZugelassenerEmpfaenger_TIN As Object = Nothing + + Property nctsAt_SumA_KzSumASicherheit As Object = Nothing + Property nctsAt_SumA_KennnummerSendung As Object = Nothing + Property nctsAt_SumA_BesondereUmstaende As Object = Nothing + Property nctsAt_SumA_NummerBefoerderung As Object = Nothing + Property nctsAt_SumA_Ladeort As Object = Nothing + Property nctsAt_SumA_Entladeort As Object = Nothing + Property nctsAt_SumA_BefoerderungskostenZahlungsweise As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand1 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand2 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand3 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand4 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand5 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand6 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand7 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand8 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand9 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand10 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand11 As Object = Nothing + Property nctsAt_SumA_BefoerderungsrouteLand12 As Object = Nothing + Property nctsAt_SumA_Versender_EORI As Object = Nothing + Property nctsAt_SumA_Versender_NLNR As Object = Nothing + Property nctsAt_SumA_Versender_TIN As Object = Nothing + Property nctsAt_SumA_Versender_Name As Object = Nothing + Property nctsAt_SumA_Versender_StrasseHausnummer As Object = Nothing + Property nctsAt_SumA_Versender_Land As Object = Nothing + Property nctsAt_SumA_Versender_PLZ As Object = Nothing + Property nctsAt_SumA_Versender_Ort As Object = Nothing + + Property nctsAt_SumA_Empfaenger_EORI As Object = Nothing + Property nctsAt_SumA_Empfaenger_NLNR As Object = Nothing + Property nctsAt_SumA_Empfaenger_TIN As Object = Nothing + Property nctsAt_SumA_Empfaenger_Name As Object = Nothing + Property nctsAt_SumA_Empfaenger_StrasseHausnummer As Object = Nothing + Property nctsAt_SumA_Empfaenger_Land As Object = Nothing + Property nctsAt_SumA_Empfaenger_PLZ As Object = Nothing + Property nctsAt_SumA_Empfaenger_Ort As Object = Nothing + + Property nctsAt_SumA_Befoerderer_EORI As Object = Nothing + Property nctsAt_SumA_Befoerderer_NLNR As Object = Nothing + Property nctsAt_SumA_Befoerderer_TIN As Object = Nothing + Property nctsAt_SumA_Befoerderer_Name As Object = Nothing + Property nctsAt_SumA_Befoerderer_StrasseHausnummer As Object = Nothing + Property nctsAt_SumA_Befoerderer_Land As Object = Nothing + Property nctsAt_SumA_Befoerderer_PLZ As Object = Nothing + Property nctsAt_SumA_Befoerderer_Ort As Object = Nothing + + + + + 'NEU: + Property nctsAt_AbgangSprachCode As Object = Nothing + Property nctsAt_BegleitdokumentSprachCode As Object = Nothing + Property nctsAt_BewilligungsnummerVersender As Object = Nothing + Property nctsAt_Befoerderungsmittel_Datenverfügbarkeitsindikator As Object = Nothing + Property nctsAt_GeschaeftsReferenznummer As Object = Nothing + Property nctsAt_NummerDerBefoerderung As Object = Nothing + Property nctsAt_AnmeldungAnzeigeDatum As Object = Nothing + Property nctsAt_AnmeldungAnzeigeOrt As Object = Nothing + Property nctsAt_AnmeldungAnzeigeSprachCode As Object = Nothing + + Property nctsAt_WarenartCode As Object = Nothing + Property nctsAt_ZugelassenerWarenortCode As Object = Nothing + Property nctsAt_Amtsplatz As Object = Nothing + Property nctsAt_SumA_EntladeortSprachCode As Object = Nothing + Property nctsAt_Befoerderungsmittel_VerkehrszweigInland As Object = Nothing + Property nctsAt_Befoerderungsmittel_ArtAbgang As Object = Nothing + Property nctsAt_Befoerderungsmittel_KennzeichenAbgangSprachCode As Object = Nothing + Property nctsAt_Befoerderungsmittel_KennzeichenGrenzueberschreitendSprachCode As Object = Nothing + Property nctsAt_Container As Object = Nothing + Property nctsAt_Hauptverpflichteter_SprachCode As Object = Nothing + Property nctsAt_versender_SprachCode As Object = Nothing + Property nctsAt_empfaenger_SprachCode As Object = Nothing + Property nctsAt_SumA_Versender_SprachCode As Object = Nothing + Property nctsAt_SumA_empfaenger_SprachCode As Object = Nothing + Property nctsAt_SumA_befoerderer_SprachCode As Object = Nothing + + Property nctsAt_Wirtschaftsbeteiligter_TIN As Object = Nothing + Property nctsAt_Vertreter_RIN As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststelleAnkunft1 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststelleAnkunft2 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststelleAnkunft3 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststelleAnkunft4 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststelleAnkunft5 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststelleAnkunft6 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststelleAnkunft7 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststelleAnkunft8 As Object = Nothing + Property nctsAt_DurchgangszollstelleDienststelleAnkunft9 As Object = Nothing + + Property nctsAt_Verschluss_ZeichenSprachCode1 As Object = Nothing + Property nctsAt_Verschluss_ZeichenSprachCode2 As Object = Nothing + Property nctsAt_Verschluss_ZeichenSprachCode3 As Object = Nothing + Property nctsAt_Verschluss_ZeichenSprachCode4 As Object = Nothing + Property nctsAt_Verschluss_ZeichenSprachCode5 As Object = Nothing + Property nctsAt_Verschluss_ZeichenSprachCode6 As Object = Nothing + Property nctsAt_Verschluss_ZeichenSprachCode7 As Object = Nothing + Property nctsAt_Verschluss_ZeichenSprachCode8 As Object = Nothing + Property nctsAt_Verschluss_ZeichenSprachCode9 As Object = Nothing + Property nctsAt_KontrolleErgebnisCode As Object = Nothing + Property nctsAt_Gestellungsfrist As Object = Nothing + + + + + + Property nctsAt_SICHERHEITSANGABEN As New List(Of cDakosy_NCTSOutAT_Sicherheitsangaben) + Property nctsAt_WARENPOS As New List(Of cDakosy_NCTSOutAT_Warenposition) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Sub New() + + End Sub + + Sub New(nctsAt_dyaAnmID As Integer, nctsAt_Erstellung_SB As Integer) + Me.nctsAt_dyaAnmID = nctsAt_dyaAnmID + Me.nctsAt_Erstellung_SB = nctsAt_Erstellung_SB + Me.nctsAt_LetzteBearbeitung_SB = nctsAt_Erstellung_SB + End Sub + + Sub New(nctsAt_Id) + Me.nctsAt_Id = nctsAt_Id + LOAD() + End Sub + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Id", nctsAt_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Status", nctsAt_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Status_KEWILL_Equivalent", nctsAt_Status_KEWILL_Equivalent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_dyaArt", nctsAt_dyaArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_dyaAnmID", nctsAt_dyaAnmID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_ANR", nctsAt_ANR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_MRN", nctsAt_MRN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Erstellung", nctsAt_Erstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Erstellung_SB", nctsAt_Erstellung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_LetzteBearbeitung", nctsAt_LetzteBearbeitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_LetzteBearbeitung_SB", nctsAt_LetzteBearbeitung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_firma", nctsAt_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_niederlassung", nctsAt_niederlassung)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Gestellt", nctsAt_Gestellt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_GestelltAm", nctsAt_GestelltAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Trans_Partner", nctsAt_Trans_Partner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Trans_Div1", nctsAt_Trans_Div1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Trans_Div2", nctsAt_Trans_Div2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Trans_Div3", nctsAt_Trans_Div3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Trans_Referenz", nctsAt_Trans_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Trans_DatumZeit", nctsAt_Trans_DatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Trans_Version", nctsAt_Trans_Version)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_NachrichtenSenderTIN", nctsAt_NachrichtenSenderTIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_NachrichtenSenderNLNR", nctsAt_NachrichtenSenderNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_NachrichtenempfaengerDST", nctsAt_NachrichtenempfaengerDST)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_LRN", nctsAt_LRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_BezugsnummerVorblendung", nctsAt_BezugsnummerVorblendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Bearbeiter", nctsAt_Bearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_VersendungsLandCode", nctsAt_VersendungsLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_BestimmungslandCode", nctsAt_BestimmungslandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_ArtAnmeldung", nctsAt_ArtAnmeldung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_BeladungsOrt", nctsAt_BeladungsOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststellnummer1", nctsAt_DurchgangszollstelleDienststellnummer1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststellnummer2", nctsAt_DurchgangszollstelleDienststellnummer2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststellnummer3", nctsAt_DurchgangszollstelleDienststellnummer3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststellnummer4", nctsAt_DurchgangszollstelleDienststellnummer4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststellnummer5", nctsAt_DurchgangszollstelleDienststellnummer5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststellnummer6", nctsAt_DurchgangszollstelleDienststellnummer6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststellnummer7", nctsAt_DurchgangszollstelleDienststellnummer7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststellnummer8", nctsAt_DurchgangszollstelleDienststellnummer8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststellnummer9", nctsAt_DurchgangszollstelleDienststellnummer9)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_BestimmungsstelleDienststellennummer", nctsAt_BestimmungsstelleDienststellennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_AbgangsDienststellennummer", nctsAt_AbgangsDienststellennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Wiedergestellungsdatum", nctsAt_Wiedergestellungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_KzVereinfachtesVerfahren", nctsAt_KzVereinfachtesVerfahren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_GesamtRohmasse", nctsAt_GesamtRohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_GesamtAnzahlPackstuecke", nctsAt_GesamtAnzahlPackstuecke)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ArtCode", nctsAt_Verschluss_ArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Anzahl", nctsAt_Verschluss_Anzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen1", nctsAt_Verschluss_Zeichen1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen2", nctsAt_Verschluss_Zeichen2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen3", nctsAt_Verschluss_Zeichen3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen4", nctsAt_Verschluss_Zeichen4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen5", nctsAt_Verschluss_Zeichen5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen6", nctsAt_Verschluss_Zeichen6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen7", nctsAt_Verschluss_Zeichen7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen8", nctsAt_Verschluss_Zeichen8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen9", nctsAt_Verschluss_Zeichen9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen10", nctsAt_Verschluss_Zeichen10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen11", nctsAt_Verschluss_Zeichen11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen12", nctsAt_Verschluss_Zeichen12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen13", nctsAt_Verschluss_Zeichen13)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen14", nctsAt_Verschluss_Zeichen14)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen15", nctsAt_Verschluss_Zeichen15)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_Zeichen16", nctsAt_Verschluss_Zeichen16)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_KennzeichenAbgang", nctsAt_Befoerderungsmittel_KennzeichenAbgang)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", nctsAt_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", nctsAt_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_ArtGrenzueberschreitung", nctsAt_Befoerderungsmittel_ArtGrenzueberschreitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_KennzeichenGrenzueberschreitend", nctsAt_Befoerderungsmittel_KennzeichenGrenzueberschreitend)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", nctsAt_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Versender_EORI", nctsAt_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Versender_NLNR", nctsAt_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Versender_TIN", nctsAt_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Versender_Name", nctsAt_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Versender_StrasseHausnummer", nctsAt_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Versender_Ort", nctsAt_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Versender_PLZ", nctsAt_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Versender_Land", nctsAt_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Empfaenger_EORI", nctsAt_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Empfaenger_NLNR", nctsAt_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Empfaenger_TIN", nctsAt_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Empfaenger_Name", nctsAt_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Empfaenger_StrasseHausnummer", nctsAt_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Empfaenger_Ort", nctsAt_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Empfaenger_PLZ", nctsAt_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Empfaenger_Land", nctsAt_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Hauptverpflichteter_EORI", nctsAt_Hauptverpflichteter_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Hauptverpflichteter_NLNR", nctsAt_Hauptverpflichteter_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Hauptverpflichteter_TIN", nctsAt_Hauptverpflichteter_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Hauptverpflichteter_Name", nctsAt_Hauptverpflichteter_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Hauptverpflichteter_StrasseHausnummer", nctsAt_Hauptverpflichteter_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Hauptverpflichteter_Ort", nctsAt_Hauptverpflichteter_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Hauptverpflichteter_PLZ", nctsAt_Hauptverpflichteter_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Hauptverpflichteter_Land", nctsAt_Hauptverpflichteter_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_ZugelassenerEmpfaenger_IDCarnet", nctsAt_ZugelassenerEmpfaenger_IDCarnet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_ZugelassenerEmpfaenger_BewilligungsnummerVersender", nctsAt_ZugelassenerEmpfaenger_BewilligungsnummerVersender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_ZugelassenerEmpfaenger_EORI", nctsAt_ZugelassenerEmpfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_ZugelassenerEmpfaenger_TIN", nctsAt_ZugelassenerEmpfaenger_TIN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_KzSumASicherheit", nctsAt_SumA_KzSumASicherheit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_KennnummerSendung", nctsAt_SumA_KennnummerSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_NummerBefoerderung", nctsAt_SumA_NummerBefoerderung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BesondereUmstaende", nctsAt_SumA_BesondereUmstaende)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Ladeort", nctsAt_SumA_Ladeort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Entladeort", nctsAt_SumA_Entladeort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungskostenZahlungsweise", nctsAt_SumA_BefoerderungskostenZahlungsweise)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand1", nctsAt_SumA_BefoerderungsrouteLand1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand2", nctsAt_SumA_BefoerderungsrouteLand2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand3", nctsAt_SumA_BefoerderungsrouteLand3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand4", nctsAt_SumA_BefoerderungsrouteLand4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand5", nctsAt_SumA_BefoerderungsrouteLand5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand6", nctsAt_SumA_BefoerderungsrouteLand6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand7", nctsAt_SumA_BefoerderungsrouteLand7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand8", nctsAt_SumA_BefoerderungsrouteLand8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand9", nctsAt_SumA_BefoerderungsrouteLand9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand10", nctsAt_SumA_BefoerderungsrouteLand10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand11", nctsAt_SumA_BefoerderungsrouteLand11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_BefoerderungsrouteLand12", nctsAt_SumA_BefoerderungsrouteLand12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Versender_EORI", nctsAt_SumA_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Versender_NLNR", nctsAt_SumA_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Versender_TIN", nctsAt_SumA_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Versender_Name", nctsAt_SumA_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Versender_StrasseHausnummer", nctsAt_SumA_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Versender_Land", nctsAt_SumA_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Versender_PLZ", nctsAt_SumA_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Versender_Ort", nctsAt_SumA_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Empfaenger_EORI", nctsAt_SumA_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Empfaenger_NLNR", nctsAt_SumA_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Empfaenger_TIN", nctsAt_SumA_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Empfaenger_Name", nctsAt_SumA_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Empfaenger_StrasseHausnummer", nctsAt_SumA_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Empfaenger_Land", nctsAt_SumA_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Empfaenger_PLZ", nctsAt_SumA_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Empfaenger_Ort", nctsAt_SumA_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Befoerderer_EORI", nctsAt_SumA_Befoerderer_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Befoerderer_NLNR", nctsAt_SumA_Befoerderer_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Befoerderer_TIN", nctsAt_SumA_Befoerderer_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Befoerderer_Name", nctsAt_SumA_Befoerderer_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Befoerderer_StrasseHausnummer", nctsAt_SumA_Befoerderer_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Befoerderer_Land", nctsAt_SumA_Befoerderer_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Befoerderer_PLZ", nctsAt_SumA_Befoerderer_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Befoerderer_Ort", nctsAt_SumA_Befoerderer_Ort)) + + + + 'NEU: + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_AbgangSprachCode", nctsAt_AbgangSprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_BegleitdokumentSprachCode", nctsAt_BegleitdokumentSprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_BewilligungsnummerVersender", nctsAt_BewilligungsnummerVersender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_Datenverfügbarkeitsindikator", nctsAt_Befoerderungsmittel_Datenverfügbarkeitsindikator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_GeschaeftsReferenznummer", nctsAt_GeschaeftsReferenznummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_NummerDerBefoerderung", nctsAt_NummerDerBefoerderung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_AnmeldungAnzeigeDatum", nctsAt_AnmeldungAnzeigeDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_AnmeldungAnzeigeOrt", nctsAt_AnmeldungAnzeigeOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_AnmeldungAnzeigeSprachCode", nctsAt_AnmeldungAnzeigeSprachCode)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_WarenartCode", nctsAt_WarenartCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_ZugelassenerWarenortCode", nctsAt_ZugelassenerWarenortCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Amtsplatz", nctsAt_Amtsplatz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_EntladeortSprachCode", nctsAt_SumA_EntladeortSprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_VerkehrszweigInland", nctsAt_Befoerderungsmittel_VerkehrszweigInland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_ArtAbgang", nctsAt_Befoerderungsmittel_ArtAbgang)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_KennzeichenAbgangSprachCode", nctsAt_Befoerderungsmittel_KennzeichenAbgangSprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Befoerderungsmittel_KennzeichenGrenzueberschreitendSprachCode", nctsAt_Befoerderungsmittel_KennzeichenGrenzueberschreitendSprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Container", nctsAt_Container)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Hauptverpflichteter_SprachCode", nctsAt_Hauptverpflichteter_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_versender_SprachCode", nctsAt_versender_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_empfaenger_SprachCode", nctsAt_empfaenger_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_Versender_SprachCode", nctsAt_SumA_Versender_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_empfaenger_SprachCode", nctsAt_SumA_empfaenger_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_SumA_befoerderer_SprachCode", nctsAt_SumA_befoerderer_SprachCode)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Wirtschaftsbeteiligter_TIN", nctsAt_Wirtschaftsbeteiligter_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Vertreter_RIN", nctsAt_Vertreter_RIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststelleAnkunft1", nctsAt_DurchgangszollstelleDienststelleAnkunft1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststelleAnkunft2", nctsAt_DurchgangszollstelleDienststelleAnkunft2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststelleAnkunft3", nctsAt_DurchgangszollstelleDienststelleAnkunft3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststelleAnkunft4", nctsAt_DurchgangszollstelleDienststelleAnkunft4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststelleAnkunft5", nctsAt_DurchgangszollstelleDienststelleAnkunft5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststelleAnkunft6", nctsAt_DurchgangszollstelleDienststelleAnkunft6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststelleAnkunft7", nctsAt_DurchgangszollstelleDienststelleAnkunft7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststelleAnkunft8", nctsAt_DurchgangszollstelleDienststelleAnkunft8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_DurchgangszollstelleDienststelleAnkunft9", nctsAt_DurchgangszollstelleDienststelleAnkunft9)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ZeichenSprachCode1", nctsAt_Verschluss_ZeichenSprachCode1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ZeichenSprachCode2", nctsAt_Verschluss_ZeichenSprachCode2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ZeichenSprachCode3", nctsAt_Verschluss_ZeichenSprachCode3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ZeichenSprachCode4", nctsAt_Verschluss_ZeichenSprachCode4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ZeichenSprachCode5", nctsAt_Verschluss_ZeichenSprachCode5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ZeichenSprachCode6", nctsAt_Verschluss_ZeichenSprachCode6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ZeichenSprachCode7", nctsAt_Verschluss_ZeichenSprachCode7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ZeichenSprachCode8", nctsAt_Verschluss_ZeichenSprachCode8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Verschluss_ZeichenSprachCode9", nctsAt_Verschluss_ZeichenSprachCode9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_KontrolleErgebnisCode", nctsAt_KontrolleErgebnisCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Gestellungsfrist", nctsAt_Gestellungsfrist)) + + + + Return list + End Function + + Public Function UPDATE_STATUS(status) As Boolean + Me.nctsAt_Status = status + Return Me.SAVE + End Function + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_NCTSOutAT WITH(updlock,serializable) WHERE nctsAt_Id=@nctsAt_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + nctsAt_Id = SQL.doSQLVarListID(nctsAt_Id, sqlstr, "FMZOLL", , list) + Return nctsAt_Id > 0 + End Function + + Public Function SAVE_ALL() As Boolean + If Not SAVE() Then Return False + If Not SAVE_Warenposition() Then Return False + If Not SAVE_Sicherheitsangaben() Then Return False + Return True + End Function + + Public Function LOAD(Optional loadALL As Boolean = True) As Boolean + Try + LOAD = False + If loadALL Then + nctsAt_SICHERHEITSANGABEN.Clear() + nctsAt_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOutAT WHERE nctsAt_Id=@nctsAt_Id ", conn) + cmd.Parameters.AddWithValue("@nctsAt_Id", nctsAt_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Sicherheitsangaben() + LOAD_Warenposition() + End If + LOAD = True + End If + dr.Close() + + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOAD + End Function + + + Shared Function LOADByAnmIDFull(nctsAt_dyaAnmID As String, loadALL As Boolean) As cDakosyNCTSOutAT + Try + Dim NCTS As New cDakosyNCTSOutAT + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOutAT WHERE nctsAt_dyaAnmID=@nctsAt_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@nctsAt_dyaAnmID", nctsAt_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Shared Function UPDATE_StatusById(nctsAt_Id As Integer, status As Integer) As String + If nctsAt_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Id", nctsAt_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Status_KEWILL_Equivalent", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Status", status, , True)) + 'dy_Status_KEWILL_Equivalent = status + 'dy_Status = status + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Return SQL.doSQLVarList(" UPDATE [tblDakosy_NCTSOutAT] SET nctsAt_Status_KEWILL_Equivalent=@nctsAt_Status_KEWILL_Equivalent,nctsAt_Status=@nctsAt_Status WHERE nctsAt_Id=@nctsAt_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function LOADByAnmID(nctsAt_dyaAnmID As String, loadALL As Boolean) As Boolean + Try + LOADByAnmID = False + If loadALL Then + nctsAt_SICHERHEITSANGABEN.Clear() + nctsAt_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOutAT WHERE nctsAt_dyaAnmID=@nctsAt_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@nctsAt_dyaAnmID", nctsAt_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Sicherheitsangaben() + LOAD_Warenposition() + End If + LOADByAnmID = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOADByAnmID + End Function + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cDakosyNCTSOutAT + Try + Dim NCTS As New cDakosyNCTSOutAT + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOutAT WHERE nctsAt_ObjectName=@bezugsNr ", conn) + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function UPDATE_Status(status As Integer) As String + If nctsAt_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Id", nctsAt_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Status", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsAt_Status_KEWILL_Equivalent", status, , True)) + nctsAt_Status = status + nctsAt_Status_KEWILL_Equivalent = status + Return SQL.doSQLVarList(" UPDATE [tblDakosy_NCTSOutAT] SET nctsAt_Status=@nctsAt_Status WHERE nctsAt_Id=@nctsAt_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblDakosy_NCTSOutAT] SET " & str & " WHERE nctsAt_Id=@nctsAt_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOutAT (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Sub LOAD_Sicherheitsangaben() + Try + nctsAt_SICHERHEITSANGABEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOutAT_Sicherheitsangaben WHERE nctsSA_NctsId=@nctsAt_Id ", conn) + cmd.Parameters.AddWithValue("@nctsAt_Id", Me.nctsAt_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOutAT_Sicherheitsangaben + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_SicherheitsangabenBezug() + nctsAt_SICHERHEITSANGABEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD_Warenposition() + Try + nctsAt_WARENPOS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOutAT_Warenposition WHERE nctsWP_NctsId=@nctsAt_Id ", conn) + cmd.Parameters.AddWithValue("@nctsAt_Id", Me.nctsAt_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOutAT_Warenposition() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_WarenpositionPackstuecke() + l.LOAD_WarenpositionUnterlagen() + l.LOAD_WarenpositionZusatzangaben() + l.LOAD_WarenpositionVorpapiere() + nctsAt_WARENPOS.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_Warenposition] WHERE nctsWP_NctsId=" & Me.nctsAt_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionPackstuecke] WHERE nctsWpPk_NctsId=" & Me.nctsAt_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_NctsId =" & Me.nctsAt_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Public Function DELETE_WarenpositionVorpapiere() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionVorpapier] WHERE nctsWpVp_NctsId=" & Me.nctsAt_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Public Function DELETE_WarenpositionZusatzangaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionZusatzangaben] WHERE nctsWpZa_NctsId=" & Me.nctsAt_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Public Function DELETE_SicherheitsangebenBezug() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionZusatzangaben] WHERE nctsWpZa_NctsId=" & Me.nctsAt_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_Warenposition() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() And DELETE_WarenpositionUnterlagen() And DELETE_WarenpositionVorpapiere() And DELETE_WarenpositionVorpapiere() Then + 'jetzt die Standartofferten einfügen + For Each p In nctsAt_WARENPOS + p.nctsWP_NctsId = nctsAt_Id + If p.INSERT() Then + p.INSERT_WarenpositionPackstuecke(p.nctsWP_Id, Me.nctsAt_Id) + p.INSERT_WarenpositionUnterlagen(p.nctsWP_Id, Me.nctsAt_Id) + p.INSERT_WarenpositionVorpapiere(p.nctsWP_Id, Me.nctsAt_Id) + p.INSERT_WarenpositionZusatzangaben(p.nctsWP_Id, Me.nctsAt_Id) + Else + Return False + End If + Next + Else + Return False + End If + + Return True + End Function + + Function DELETE_Sicherheitsangaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_SicherheitsangabenBezug] WHERE nctsSAb_NctsId=" & Me.nctsAt_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_Sicherheitsangaben() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Sicherheitsangaben() And DELETE_SicherheitsangebenBezug() Then + 'jetzt die Standartofferten einfügen + For Each p In nctsAt_SICHERHEITSANGABEN + p.nctsSA_NctsId = nctsAt_Id + If Not p.INSERT() Then + p.INSERT_SicherheitsangabenBezug(p.nctsSA_Id, Me.nctsAt_Id) + + Return False + End If + Next + Else + Return False + End If + Return True + End Function + +End Class + + + +Public Class cDakosy_NCTSOutAT_Sicherheitsangaben + + Property nctsSA_Id As Integer + Property nctsSA_NctsId As Object = Nothing + Property nctsSA_Typ As Object = Nothing + + Property nctsAt_SICHERHEITSANGABEN_BEZUG As New List(Of cDakosy_NCTSOutAT_SicherheitsangabenBezug) + + 'Public selButton As Object = Nothing ' Für die GUI + 'Public SA_OBJECT As Object = Nothing ' Für die GUI + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Id", nctsSA_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_NctsId", nctsSA_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Typ", nctsSA_Typ)) + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsSA_Id = SQL.doSQLVarListID(nctsSA_Id, getInsertCmd, "FMZOLL", , list) + Return nctsSA_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOutAT_Sicherheitsangaben (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + + + + + Public Sub LOAD_SicherheitsangabenBezug() + Try + nctsAt_SICHERHEITSANGABEN_BEZUG.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOutAT_WarenpositionSicherheitsangabenBezug WHERE nctsSAb_nctsSAId=@nctsSA_Id ", conn) + cmd.Parameters.AddWithValue("@nctsSA_Id", Me.nctsSA_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOutAT_SicherheitsangabenBezug() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + nctsAt_SICHERHEITSANGABEN_BEZUG.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_SicherheitsangabenBezug() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionSicherheitsangabenBezug] WHERE nctsSAb_nctsSAId=" & Me.nctsSA_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_SicherheitsangabenBezug(wp_id, nctsAt_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsAt_SICHERHEITSANGABEN_BEZUG + p.nctsSAb_NctsSAId = wp_id + p.nctsSAb_NctsId = nctsAt_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + +End Class + + + +Public Class cDakosy_NCTSOutAT_SicherheitsangabenBezug + + Property nctsSAb_Id As Integer + Property nctsSAb_NctsId As Object = Nothing + Property nctsSAb_NctsSAId As Object = Nothing + + + '??????????????? + Property nctsSAb_ArtCode As Object = Nothing + Property nctsSAb_BezeichnungBescheinigun As Object = Nothing + Property nctsSAb_AbgabenBetrag As Object = Nothing + Property nctsSAb_GRN As Object = Nothing + Property nctsSAb_Zugriffcode As Object = Nothing + Property nctsSAb_TIN As Object = Nothing + + Property nctsSAb_AndereGarantieRef As Object = Nothing + Property nctsSAb_Waehrung As Object = Nothing + Property nctsSAb_NichtGueltigFuerEU As Object = Nothing + Property nctsSAb_NichtGueltigFuerAndVertragsParteien1 As Object = Nothing + Property nctsSAb_NichtGueltigFuerAndVertragsParteien2 As Object = Nothing + Property nctsSAb_NichtGueltigFuerAndVertragsParteien3 As Object = Nothing + Property nctsSAb_NichtGueltigFuerAndVertragsParteien4 As Object = Nothing + Property nctsSAb_NichtGueltigFuerAndVertragsParteien5 As Object = Nothing + Property nctsSAb_NichtGueltigFuerAndVertragsParteien6 As Object = Nothing + Property nctsSAb_NichtGueltigFuerAndVertragsParteien7 As Object = Nothing + Property nctsSAb_NichtGueltigFuerAndVertragsParteien8 As Object = Nothing + Property nctsSAb_NichtGueltigFuerAndVertragsParteien9 As Object = Nothing + + + 'Public selButton As Object = Nothing ' Für die GUI + 'Public SA_OBJECT As Object = Nothing ' Für die GUI + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + 'Sub New(nctsSAb_Id) + ' Me.nctsSAb_Id = nctsSAb_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_Id", nctsSAb_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NctsId", nctsSAb_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_ArtCode", nctsSAb_ArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_BezeichnungBescheinigun", nctsSAb_BezeichnungBescheinigun)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_AbgabenBetrag", nctsSAb_AbgabenBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_GRN", nctsSAb_GRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_Zugriffcode", nctsSAb_Zugriffcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_TIN", nctsSAb_TIN)) + + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_AndereGarantieRef", nctsSAb_AndereGarantieRef)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_Waehrung", nctsSAb_Waehrung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerEU", nctsSAb_NichtGueltigFuerEU)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerAndVertragsParteien1", nctsSAb_NichtGueltigFuerAndVertragsParteien1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerAndVertragsParteien2", nctsSAb_NichtGueltigFuerAndVertragsParteien2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerAndVertragsParteien3", nctsSAb_NichtGueltigFuerAndVertragsParteien3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerAndVertragsParteien4", nctsSAb_NichtGueltigFuerAndVertragsParteien4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerAndVertragsParteien5", nctsSAb_NichtGueltigFuerAndVertragsParteien5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerAndVertragsParteien6", nctsSAb_NichtGueltigFuerAndVertragsParteien6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerAndVertragsParteien7", nctsSAb_NichtGueltigFuerAndVertragsParteien7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerAndVertragsParteien8", nctsSAb_NichtGueltigFuerAndVertragsParteien8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSAb_NichtGueltigFuerAndVertragsParteien9", nctsSAb_NichtGueltigFuerAndVertragsParteien9)) + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsSAb_Id = SQL.doSQLVarListID(nctsSAb_Id, getInsertCmd, "FMZOLL", , list) + Return nctsSAb_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOutAT_SicherheitsangabenBezug (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + +Public Class cDakosy_NCTSOutAT_Warenposition + Property nctsWP_Id As Integer + Property nctsWP_NctsId As Integer + Property nctsWP_PositionsNummer As Object = Nothing + Property nctsWP_Warennummer As Object = Nothing + Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing + Property nctsWP_Warenbezeichnung As Object = Nothing + Property nctsWP_Warenwert As Object = Nothing + Property nctsWP_WarenwertWaehrung As Object = Nothing + Property nctsWP_SchaetzKz As Object = Nothing + Property nctsWP_WarenwertProzent As Object = Nothing + Property nctsWP_VersendungslandPositionCode As Object = Nothing + Property nctsWP_BestimmungslandPositionCode As Object = Nothing + Property nctsWP_Rohmasse As Object = Nothing + Property nctsWP_Eigenmasse As Object = Nothing + + + Property nctsWP_VorpapierTyp As Object = Nothing + Property nctsWP_VorpapierReferenz1 As Object = Nothing + Property nctsWP_VorpapierZusatz1 As Object = Nothing + Property nctsWP_VorpapierReferenz2 As Object = Nothing + Property nctsWP_VorpapierZusatz2 As Object = Nothing + Property nctsWP_VorpapierReferenz3 As Object = Nothing + Property nctsWP_VorpapierZusatz3 As Object = Nothing + Property nctsWP_VorpapierReferenz4 As Object = Nothing + Property nctsWP_VorpapierZusatz4 As Object = Nothing + Property nctsWP_VorpapierReferenz5 As Object = Nothing + Property nctsWP_VorpapierZusatz5 As Object = Nothing + Property nctsWP_VorpapierReferenz6 As Object = Nothing + Property nctsWP_VorpapierZusatz6 As Object = Nothing + Property nctsWP_VorpapierReferenz7 As Object = Nothing + Property nctsWP_VorpapierZusatz7 As Object = Nothing + Property nctsWP_VorpapierReferenz8 As Object = Nothing + Property nctsWP_VorpapierZusatz8 As Object = Nothing + Property nctsWP_VorpapierReferenz9 As Object = Nothing + Property nctsWP_VorpapierZusatz9 As Object = Nothing + + + + Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing + Property nctsWP_BesondereVermeke_Export As Object = Nothing + Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing + Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing + Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing + + + Property nctsWP_Versender_EORI As Object = Nothing + Property nctsWP_Versender_NLNR As Object = Nothing + Property nctsWP_Versender_TIN As Object = Nothing + Property nctsWP_Versender_Name As Object = Nothing + Property nctsWP_Versender_StrasseHausnummer As Object = Nothing + Property nctsWP_Versender_Ort As Object = Nothing + Property nctsWP_Versender_PLZ As Object = Nothing + Property nctsWP_Versender_Land As Object = Nothing + Property nctsWP_Empfaenger_EORI As Object = Nothing + Property nctsWP_Empfaenger_NLNR As Object = Nothing + Property nctsWP_Empfaenger_TIN As Object = Nothing + Property nctsWP_Empfaenger_Name As Object = Nothing + Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_Empfaenger_Ort As Object = Nothing + Property nctsWP_Empfaenger_PLZ As Object = Nothing + Property nctsWP_Empfaenger_Land As Object = Nothing + Property nctsWP_SumAKennnummerSendung As Object = Nothing + Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing + Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing + Property nctsWP_SumAVersender_EORI As Object = Nothing + Property nctsWP_SumAVersender_NLNR As Object = Nothing + Property nctsWP_SumAVersender_TIN As Object = Nothing + Property nctsWP_SumAVersender_Name As Object = Nothing + Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAVersender_Ort As Object = Nothing + Property nctsWP_SumAVersender_PLZ As Object = Nothing + Property nctsWP_SumAVersender_Land As Object = Nothing + Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing + Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing + Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing + Property nctsWP_SumAEmpfaenger_Name As Object = Nothing + Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing + Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing + Property nctsWP_SumAEmpfaenger_Land As Object = Nothing + + + 'NEU: + + Property nctsWP_WarenbezeichnungSprachCode As Object = Nothing + Property nctsWP_GeschaeftsReferenzNummer As Object = Nothing + Property nctsWP_versender_SprachCode As Object = Nothing + Property nctsWP_empfaenger_SprachCode As Object = Nothing + Property nctsWP_SumAversender_SprachCode As Object = Nothing + Property nctsWP_SumAempfaenger_SprachCode As Object = Nothing + Property nctsWP_SensibleWarenCode1 As Object = Nothing + Property nctsWP_SensibleWarenCode2 As Object = Nothing + Property nctsWP_SensibleWarenCode3 As Object = Nothing + Property nctsWP_SensibleWarenCode4 As Object = Nothing + Property nctsWP_SensibleWarenCode5 As Object = Nothing + Property nctsWP_SensibleWarenCode6 As Object = Nothing + Property nctsWP_SensibleWarenCode7 As Object = Nothing + Property nctsWP_SensibleWarenCode8 As Object = Nothing + Property nctsWP_SensibleWarenCode9 As Object = Nothing + + Property nctsWP_SensibleWarenMenge1 As Object = Nothing + Property nctsWP_SensibleWarenMenge2 As Object = Nothing + Property nctsWP_SensibleWarenMenge3 As Object = Nothing + Property nctsWP_SensibleWarenMenge4 As Object = Nothing + Property nctsWP_SensibleWarenMenge5 As Object = Nothing + Property nctsWP_SensibleWarenMenge6 As Object = Nothing + Property nctsWP_SensibleWarenMenge7 As Object = Nothing + Property nctsWP_SensibleWarenMenge8 As Object = Nothing + Property nctsWP_SensibleWarenMenge9 As Object = Nothing + + + + Property nctsWP_PACKSTUECKE As New List(Of cDakosy_NCTSOutAT_WarenpositionPackstuecke) + Property nctsWP_UNTERLAGEN As New List(Of cDakosy_NCTSOutAT_WarenpositionVorgelegteUnterlagen) + + + Property nctsWP_VORPAPIERE As New List(Of cDakosy_NCTSOutAT_WarenpositionVorpapier) + Property nctsWP_ZUSATZANGABEN As New List(Of cDakosy_AES_WarenpositionZusatzangaben) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWP_NctsId = nctsWP_NctsId + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Id", nctsWP_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_NctsId", nctsWP_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_PositionsNummer", nctsWP_PositionsNummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warennummer", nctsWP_Warennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_ArtAnmeldungPositionCode", nctsWP_ArtAnmeldungPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenbezeichnung", nctsWP_Warenbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenwert", nctsWP_Warenwert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertWaehrung", nctsWP_WarenwertWaehrung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SchaetzKz", nctsWP_SchaetzKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertProzent", nctsWP_WarenwertProzent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VersendungslandPositionCode", nctsWP_VersendungslandPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BestimmungslandPositionCode", nctsWP_BestimmungslandPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Rohmasse", nctsWP_Rohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Eigenmasse", nctsWP_Eigenmasse)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierTyp", nctsWP_VorpapierTyp)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz1", nctsWP_VorpapierReferenz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz1", nctsWP_VorpapierZusatz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz2", nctsWP_VorpapierReferenz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz2", nctsWP_VorpapierZusatz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz3", nctsWP_VorpapierReferenz3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz3", nctsWP_VorpapierZusatz3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz4", nctsWP_VorpapierReferenz4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz4", nctsWP_VorpapierZusatz4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz5", nctsWP_VorpapierReferenz5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz5", nctsWP_VorpapierZusatz5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz6", nctsWP_VorpapierReferenz6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz6", nctsWP_VorpapierZusatz6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz7", nctsWP_VorpapierReferenz7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz7", nctsWP_VorpapierZusatz7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz8", nctsWP_VorpapierReferenz8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz8", nctsWP_VorpapierZusatz8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz9", nctsWP_VorpapierReferenz9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz9", nctsWP_VorpapierZusatz9)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusEU", nctsWP_BesondereVermeke_ExportAusEU)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusLand", nctsWP_BesondereVermeke_ExportAusLand)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Export", nctsWP_BesondereVermeke_Export)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportBeschraenkung", nctsWP_BesondereVermeke_ExportBeschraenkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAbgaben", nctsWP_BesondereVermeke_ExportAbgaben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Vermerk", nctsWP_BesondereVermeke_Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Kz10600", nctsWP_BesondereVermeke_Kz10600)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_EORI", nctsWP_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_NLNR", nctsWP_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_TIN", nctsWP_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Name", nctsWP_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_StrasseHausnummer", nctsWP_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Ort", nctsWP_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_PLZ", nctsWP_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Land", nctsWP_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_EORI", nctsWP_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_NLNR", nctsWP_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_TIN", nctsWP_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Name", nctsWP_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_StrasseHausnummer", nctsWP_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Ort", nctsWP_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_PLZ", nctsWP_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Land", nctsWP_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAKennnummerSendung", nctsWP_SumAKennnummerSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumABefoerderungskostenZahlungsweise", nctsWP_SumABefoerderungskostenZahlungsweise)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAUNGefahrgutnummer", nctsWP_SumAUNGefahrgutnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_EORI", nctsWP_SumAVersender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_NLNR", nctsWP_SumAVersender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_TIN", nctsWP_SumAVersender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Name", nctsWP_SumAVersender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_StrasseHausnummer", nctsWP_SumAVersender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Ort", nctsWP_SumAVersender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_PLZ", nctsWP_SumAVersender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Land", nctsWP_SumAVersender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_EORI", nctsWP_SumAEmpfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_NLNR", nctsWP_SumAEmpfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_TIN", nctsWP_SumAEmpfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Name", nctsWP_SumAEmpfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_StrasseHausnummer", nctsWP_SumAEmpfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Ort", nctsWP_SumAEmpfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_PLZ", nctsWP_SumAEmpfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Land", nctsWP_SumAEmpfaenger_Land)) + + + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenbezeichnungSprachCode", nctsWP_WarenbezeichnungSprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_GeschaeftsReferenzNummer", nctsWP_GeschaeftsReferenzNummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_versender_SprachCode", nctsWP_versender_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_empfaenger_SprachCode", nctsWP_empfaenger_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAversender_SprachCode", nctsWP_SumAversender_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAempfaenger_SprachCode", nctsWP_SumAempfaenger_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenCode1", nctsWP_SensibleWarenCode1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenCode2", nctsWP_SensibleWarenCode2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenCode3", nctsWP_SensibleWarenCode3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenCode4", nctsWP_SensibleWarenCode4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenCode5", nctsWP_SensibleWarenCode5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenCode6", nctsWP_SensibleWarenCode6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenCode7", nctsWP_SensibleWarenCode7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenCode8", nctsWP_SensibleWarenCode8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenCode9", nctsWP_SensibleWarenCode9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenMenge1", nctsWP_SensibleWarenMenge1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenMenge2", nctsWP_SensibleWarenMenge2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenMenge3", nctsWP_SensibleWarenMenge3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenMenge4", nctsWP_SensibleWarenMenge4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenMenge5", nctsWP_SensibleWarenMenge5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenMenge6", nctsWP_SensibleWarenMenge6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenMenge7", nctsWP_SensibleWarenMenge7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenMenge8", nctsWP_SensibleWarenMenge8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SensibleWarenMenge9", nctsWP_SensibleWarenMenge9)) + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsWP_Id = SQL.doSQLVarListID(nctsWP_Id, getInsertCmd, "FMZOLL", , list) + Return nctsWP_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOutAT_Warenposition (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + + Public Sub LOAD_WarenpositionPackstuecke() + Try + nctsWP_PACKSTUECKE.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOutAT_WarenpositionPackstuecke WHERE nctsWpPk_nctsWPId=@nctsWP_Id ", conn) + cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOutAT_WarenpositionPackstuecke() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + nctsWP_PACKSTUECKE.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionPackstuecke] WHERE nctsWpPk_nctsWPId=" & Me.nctsWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionPackstuecke(wp_id, nctsAt_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsWP_PACKSTUECKE + p.nctsWpPk_nctsWPId = wp_id + p.nctsWpPk_NctsId = nctsAt_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + Public Sub LOAD_WarenpositionUnterlagen() + Try + nctsWP_UNTERLAGEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOutAT_WarenpositionVorgelegteUnterlagen WHERE nctsWpUl_nctsWPId=@nctsWP_Id ", conn) + cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOutAT_WarenpositionVorgelegteUnterlagen + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + nctsWP_UNTERLAGEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_nctsWPId=" & Me.nctsWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionUnterlagen(wp_id, nctsAt_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsWP_UNTERLAGEN + p.nctsWpUl_nctsWPId = wp_id + p.nctsWpUl_NctsId = nctsAt_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + + + + + + + + + Public Sub LOAD_WarenpositionVorpapiere() + Try + nctsWP_VORPAPIERE.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOutAT_WarenpositionVorpapier WHERE nctsWpVp_nctsWPId=@nctsWP_Id ", conn) + cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_NCTSOutAT_WarenpositionVorpapier() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + nctsWP_VORPAPIERE.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionVorpapiere() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionVorpapier] WHERE nctsWpVp_nctsWPId=" & Me.nctsWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionVorpapiere(wp_id, nctsAt_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsWP_VORPAPIERE + p.nctsWpVp_nctsWPId = wp_id + p.nctsWpVp_NctsId = nctsAt_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + + + + Public Sub LOAD_WarenpositionZusatzangaben() + Try + nctsWP_Zusatzangaben.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOutAT_WarenpositionZusatzangaben WHERE nctsWpZa_nctsWPId=@nctsWP_Id ", conn) + cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_AES_WarenpositionZusatzangaben() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + nctsWP_ZUSATZANGABEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionZusatzangaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOutAT_WarenpositionZusatzangaben] WHERE nctsWpZa_nctsWPId=" & Me.nctsWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionZusatzangaben(wp_id, nctsAt_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsWP_Zusatzangaben + p.nctsWpZa_nctsWPId = wp_id + p.nctsWpZa_NctsId = nctsAt_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + + + + +End Class + + + +Public Class cDakosy_NCTSOutAT_WarenpositionPackstuecke + + Property nctsWpPk_Id As Integer + Property nctsWpPk_nctsWPId As Integer + Property nctsWpPk_NctsId As Integer + + Property nctsWpPk_PackstueckeAnzahl As Object = Nothing + Property nctsWpPk_Verpackungsart As Object = Nothing + Property nctsWpPk_ZeichenNummern As Object = Nothing + + Property nctsWpPk_SprachCode As Object = Nothing + Property nctsWpPk_Nummer As Object = Nothing + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Id", nctsWpPk_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_nctsWPId", nctsWpPk_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_NctsId", nctsWpPk_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_PackstueckeAnzahl", nctsWpPk_PackstueckeAnzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Verpackungsart", nctsWpPk_Verpackungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_ZeichenNummern", nctsWpPk_ZeichenNummern)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_SprachCode", nctsWpPk_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Nummer", nctsWpPk_Nummer)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpPk_Id = SQL.doSQLVarListID(nctsWpPk_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpPk_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOutAT_WarenpositionPackstuecke (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + + + + +Public Class cDakosy_NCTSOutAT_WarenpositionVorpapier + + Property nctsWpVp_Id As Integer + Property nctsWpVp_nctsWPId As Integer + Property nctsWpVp_NctsId As Integer + + + Property nctsWpVp_VorpapierArt As Object = Nothing + Property nctsWpVp_Referenz As Object = Nothing + Property nctsWpVp_SprachCode As Object = Nothing + Property nctsWpVp_ErgaenzendeInfo As Object = Nothing + Property nctsWpVp_ErgaenzendeInfoSprachCode As Object = Nothing + + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpVp_nctsWPId = nctsWpVp_nctsWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpVp_Id", nctsWpVp_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpVp_nctsWPId", nctsWpVp_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpVp_NctsId", nctsWpVp_NctsId)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpVp_VorpapierArt", nctsWpVp_VorpapierArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpVp_Referenz", nctsWpVp_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpVp_SprachCode", nctsWpVp_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpVp_ErgaenzendeInfo", nctsWpVp_ErgaenzendeInfo)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpVp_ErgaenzendeInfoSprachCode", nctsWpVp_ErgaenzendeInfoSprachCode)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpVp_Id = SQL.doSQLVarListID(nctsWpVp_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpVp_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOutAT_WarenpositionVorpapier (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + + + +Public Class cDakosy_AES_WarenpositionZusatzangaben + + Property nctsWpZa_Id As Integer + Property nctsWpZa_nctsWPId As Integer + Property nctsWpZa_NctsId As Integer + + + + + Property nctsWpZa_ZusaetzlicheInformation As Object = Nothing + Property nctsWpZa_ZusaetzlicheInformationSprachCode As Object = Nothing + Property nctsWpZa_Code As Object = Nothing + Property nctsWpZa_AusfuhrAusEU As Object = Nothing + Property nctsWpZa_AusfuhrLand As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpZa_nctsWPId = nctsWpZa_nctsWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpZa_Id", nctsWpZa_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpZa_nctsWPId", nctsWpZa_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpZa_NctsId", nctsWpZa_NctsId)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpZa_ZusaetzlicheInformation", nctsWpZa_ZusaetzlicheInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpZa_ZusaetzlicheInformationSprachCode", nctsWpZa_ZusaetzlicheInformationSprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpZa_Code", nctsWpZa_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpZa_AusfuhrAusEU", nctsWpZa_AusfuhrAusEU)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpZa_AusfuhrLand", nctsWpZa_AusfuhrLand)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpZa_Id = SQL.doSQLVarListID(nctsWpZa_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpZa_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOutAT_WarenpositionZusatzangaben (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + +Public Class cDakosy_NCTSOutAT_WarenpositionVorgelegteUnterlagen + + Property nctsWpUl_Id As Integer + Property nctsWpUl_nctsWPId As Integer + Property nctsWpUl_NctsId As Integer + Property nctsWpUl_Typ As Object = Nothing + Property nctsWpUl_Referenz As Object = Nothing + Property nctsWpUl_Zusatz As Object = Nothing + + 'NEU: + Property nctsWpUl_TypBezeichnung As Object = Nothing + Property nctsWpUl_ReferenzSprachcode As Object = Nothing + Property nctsWpUl_Ausstellungsdatum As Object = Nothing + Property nctsWpUl_AusstellungsLand As Object = Nothing + Property nctsWpUl_Name As Object = Nothing + Property nctsWpUl_StrasseHausnummer As Object = Nothing + Property nctsWpUl_PLZ As Object = Nothing + Property nctsWpUl_Ort As Object = Nothing + Property nctsWpUl_Land As Object = Nothing + Property nctsWpUl_SprachCode As Object = Nothing + Property nctsWpUl_DokumentenTIN As Object = Nothing + Property nctsWpUl_DokumentenUID As Object = Nothing + Property nctsWpUl_Ausstellungsbehoerde As Object = Nothing + Property nctsWpUl_EndeGueltigkeit As Object = Nothing + Property nctsWpUl_EndeGueltigkeitMax As Object = Nothing + Property nctsWpUl_ErgaenzendeInfo As Object = Nothing + Property nctsWpUl_ErgaenzendeInfoSprachCode As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpUl_nctsWPId = nctsWpUl_nctsWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Id", nctsWpUl_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz)) + + 'NEU: + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_TypBezeichnung", nctsWpUl_TypBezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_ReferenzSprachcode", nctsWpUl_ReferenzSprachcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Ausstellungsdatum", nctsWpUl_Ausstellungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_AusstellungsLand", nctsWpUl_AusstellungsLand)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Name", nctsWpUl_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_StrasseHausnummer", nctsWpUl_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_PLZ", nctsWpUl_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Ort", nctsWpUl_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Land", nctsWpUl_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_SprachCode", nctsWpUl_SprachCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_DokumentenTIN", nctsWpUl_DokumentenTIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_DokumentenUID", nctsWpUl_DokumentenUID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Ausstellungsbehoerde", nctsWpUl_Ausstellungsbehoerde)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_EndeGueltigkeit", nctsWpUl_EndeGueltigkeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_EndeGueltigkeitMax", nctsWpUl_EndeGueltigkeitMax)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_ErgaenzendeInfo", nctsWpUl_ErgaenzendeInfo)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_ErgaenzendeInfoSprachCode", nctsWpUl_ErgaenzendeInfoSprachCode)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpUl_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_NCTSOutAT_WarenpositionVorgelegteUnterlagen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTags.Designer.vb b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTags.Designer.vb new file mode 100644 index 0000000..b22de4d --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTags.Designer.vb @@ -0,0 +1,81 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' eZollTagsListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllFalseFalseTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseFalseSerializeDeserializeSaveToFileLoadFromFileFalseFalseIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ + +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.Collections.Generic + +Namespace eZollTags + + _ + Public Enum b + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Public Enum f4 + + ''' + _ + Item0 + + ''' + _ + Item1 + + ''' + _ + Item2 + + ''' + _ + Item3 + End Enum + + _ + Public Enum DCDG1 + + ''' + TARIC + + ''' + CODELIST + + ''' + RATE + + ''' + COL + + ''' + EULIST + + ''' + EMCS + End Enum +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTags.xsd b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTags.xsd new file mode 100644 index 0000000..ff2d459 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTags.xsd @@ -0,0 +1,465 @@ + + + + + +Hier werden alle Tags und Groups in alphabetischer Reihenfolge definiert. +Aufbauend auf eZollTypes.xsd. +Naechste und letzte Stufe sind die einzelnen Nachrichttypen, wie z.B. TR100.xsd + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTypes.Designer.vb b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTypes.Designer.vb new file mode 100644 index 0000000..a1fea47 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTypes.Designer.vb @@ -0,0 +1,240 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' eZollTypesListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace eZollTypes + + _ + Public Enum b + + ''' + _ + Item0 + + ''' + _ + Item1 + End Enum + + _ + Public Enum f4 + + ''' + _ + Item0 + + ''' + _ + Item1 + + ''' + _ + Item2 + + ''' + _ + Item3 + End Enum + + _ + Public Enum ABBP + + ''' + AMA + + ''' + BMF + + ''' + BML + + ''' + PAWA + + ''' + BMWA + End Enum + + _ + Public Enum AM + + ''' + AMA + + ''' + BML + + ''' + BMWA + End Enum + + _ + Public Enum DCDG1 + + ''' + TARIC + + ''' + CODELIST + + ''' + RATE + + ''' + COL + + ''' + EULIST + + ''' + EMCS + End Enum + + _ + Public Enum EP + + ''' + E + + ''' + P + End Enum + + _ + Public Enum EPA + + ''' + E + + ''' + P + + ''' + A + End Enum + + _ + Public Enum EARN + + ''' + E + + ''' + A + + ''' + R + + ''' + N + End Enum + + _ + Public Enum LMZ + + ''' + L + + ''' + M + + ''' + Z + End Enum + + _ + Public Enum JN + + ''' + J + + ''' + N + End Enum + + _ + Public Enum Unit + + ''' + EUR + + ''' + HLT + + ''' + KGM + + ''' + KGP + + ''' + MTK + + ''' + MTR + + ''' + NAR + + ''' + NPR + + ''' + QMT + + ''' + SEA + + ''' + TNE + + ''' + WZA + End Enum +End Namespace diff --git a/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTypes.xsd b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTypes.xsd new file mode 100644 index 0000000..8bd7279 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/EZOLL/NCTS/eZollTypes.xsd @@ -0,0 +1,614 @@ + + + + + + Hier werden die Grundtypen (a4, an..10, n..7, d, dt, usw.) definiert. + Dies ist sozusagen das 'Grundschema', dann folgt eZollTags.xsd + und zuletzt die einzelnen Nachrichttypen, wie z.B. TR100.xsd + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb b/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb new file mode 100644 index 0000000..407f964 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb @@ -0,0 +1,344 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDakosy_Zollanmeldungen + + Property dy_Id As Integer = -1 + Property dy_ART As String = "" + Property dy_BezugsNr As String = "" + Property dy_Status As Integer + Property dy_Status_KEWILL_Equivalent As Integer + Property dy_AvisoId As Object = Nothing + Property dy_SendungsId As Object = Nothing + Property dy_Erstellung As DateTime = Now + Property dy_Erstellung_SB As Object = Nothing + Property dy_LetzteBearbeitung As DateTime = Now + Property dy_LetzteBearbeitung_SB As Object = Nothing + Property dy_Steuerbescheid_dsId As Object = Nothing + Property dy_VBD_dsId As Object = Nothing + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + 'Sub New() + ' End Sub + + Sub New(dy_ART, dy_BezugsNr, dy_AvisoId, dy_SendungsId) + Me.dy_ART = dy_ART + Me.dy_BezugsNr = dy_BezugsNr + Me.dy_AvisoId = dy_AvisoId + Me.dy_SendungsId = dy_SendungsId + Me.dy_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Me.dy_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + SAVE() + End Sub + + Sub New() + End Sub + + + Sub New(dy_Id) + Me.dy_Id = dy_Id + LOAD() + End Sub + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Id", dy_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_ART", dy_ART)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_BezugsNr", dy_BezugsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Status", dy_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Status_KEWILL_Equivalent", dy_Status_KEWILL_Equivalent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_AvisoId", dy_AvisoId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_SendungsId", dy_SendungsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Erstellung", dy_Erstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Erstellung_SB", dy_Erstellung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_LetzteBearbeitung", dy_LetzteBearbeitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_LetzteBearbeitung_SB", dy_LetzteBearbeitung_SB)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Steuerbescheid_dsId", dy_Steuerbescheid_dsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_VBD_dsId", dy_VBD_dsId)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_Zollanmeldungen WITH(updlock,serializable) WHERE dy_Id=@dy_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + dy_Id = SQL.doSQLVarListID(dy_Id, sqlstr, "FMZOLL", , list) + Return dy_Id > 0 + End Function + + + Public Function tryFindAviso() As Boolean + Dim srchStrFiliale = "" + Dim srchStrAbf = "" + If Me.dy_BezugsNr.Contains("/") Then + Dim split = Me.dy_BezugsNr.Split("/") + If split.Length >= 2 Then + srchStrFiliale = split(0) + srchStrAbf = split(1) + ' ElseIf Then + ' srchStrAbf = split(X) + Else + Return False + End If + + End If + If Not IsNumeric(srchStrFiliale) Or Not IsNumeric(srchStrAbf) Then Return False + If srchStrFiliale.Length <> 4 Then Return False + 'If srchStrAbf.Length > 8 Then srchStrAbf = srchStrAbf.Substring(0, 8) + + If srchStrAbf.Length < 8 Then srchStrAbf = Me.dy_Erstellung.ToString("yy") & CInt(srchStrAbf).ToString("000000") + + + Dim sqlstr = " select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & srchStrAbf & "' like ('%' + cast(AbfertigungsNr as varchar(10))+ '%') and FilialenNr ='" & srchStrFiliale & "' and AbfertigungsNr >0" + + Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "AVISO") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Me.dy_SendungsId = dt.Rows(0)("tblSnd_SendungID") + Me.dy_AvisoId = dt.Rows(0)("tblSnd_AvisoID") + Return True + End If + + Return False + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_Zollanmeldungen WHERE dy_Id=@dy_Id ", conn) + cmd.Parameters.AddWithValue("@dy_Id", dy_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + Public Function UPDATE_Status(status As Integer) As String + If dy_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Id", dy_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Status_KEWILL_Equivalent", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Status", status, , True)) + dy_Status_KEWILL_Equivalent = status + dy_Status = status + + Return SQL.doSQLVarList(" UPDATE [tblDakosy_Zollanmeldungen] SET dy_Status_KEWILL_Equivalent=@dy_Status_KEWILL_Equivalent,dy_Status=@dy_Status WHERE dy_Id=@dy_Id ", "FMZOLL", , list) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End If + Return "" + End Function + + + Shared Function UPDATE_StatusById(dy_Id As Integer, status As Integer) As String + If dy_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Id", dy_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Status_KEWILL_Equivalent", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dy_Status", status, , True)) + 'dy_Status_KEWILL_Equivalent = status + 'dy_Status = status + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Return SQL.doSQLVarList(" UPDATE [tblDakosy_Zollanmeldungen] SET dy_Status_KEWILL_Equivalent=@dy_Status_KEWILL_Equivalent,dy_Status=@dy_Status WHERE dy_Id=@dy_Id ", "FMZOLL", , list) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End If + Return "" + End Function + + + + Shared Function LOADById(dy_Id As String) As cDakosy_Zollanmeldungen + Try + Dim NCTS As New cDakosy_Zollanmeldungen + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_Zollanmeldungen WHERE dy_Id=@dy_Id ", conn) + cmd.Parameters.AddWithValue("@dy_Id", dy_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + End Function + + + Shared Function LOADByBezugsNr(bezugsNr As String) As cDakosy_Zollanmeldungen + Try + Dim NCTS As New cDakosy_Zollanmeldungen + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + If bezugsNr = "" Then Return Nothing + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_Zollanmeldungen WHERE dy_BezugsNr=@bezugsNr ", conn) + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + + End Try + Return Nothing + End Function + + Shared Function ExistsBezugsNr(bezugsNr As String) As Boolean + Try + Dim NCTS As New cDakosy_Zollanmeldungen + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 dy_id FROM tblDakosy_Zollanmeldungen WHERE dy_BezugsNr=@bezugsNr ", conn) + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + Return True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + Public Sub UPDATE_DATA() + Try + Select Case dy_ART + Case "T1", "T2" + 'SQL, die daten aus den jeweiligen tabellen ausliest und hier aktualisiert + Dim Dakosy_NCTSOut As New DAKOSY_Worker.cDakosyNCTSOut + Dakosy_NCTSOut.LOADByAnmID(dy_Id, False) + If Dakosy_NCTSOut IsNot Nothing Then + Me.dy_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName + Me.dy_Status = Dakosy_NCTSOut.ncts_Status + Me.dy_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent + Me.dy_Erstellung = Dakosy_NCTSOut.ncts_Erstellung + Me.dy_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB + Me.dy_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung + Me.dy_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB + End If + + End Select + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblDakosy_Zollanmeldungen] SET " & str & " WHERE dy_Id=@dy_Id ") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_Zollanmeldungen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + +End Class diff --git a/DAKOSY_Worker/DAKOSY/cDakosy_ZollanmeldungenArten.vb b/DAKOSY_Worker/DAKOSY/cDakosy_ZollanmeldungenArten.vb new file mode 100644 index 0000000..ebfda23 --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/cDakosy_ZollanmeldungenArten.vb @@ -0,0 +1,9 @@ +Public Class cDakosy_ZollanmeldungenArten + Shared Property T1 As String = "T1" + Shared Property T2 As String = "T2" + Shared Property EZA As String = "EZA" + Shared Property NCTS As String = "NCTS" + Shared Property AES As String = "AES" + Shared Property FS As String = "FS" + Shared Property FISK As String = "FISK" +End Class \ No newline at end of file diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj new file mode 100644 index 0000000..e379a6f --- /dev/null +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -0,0 +1,306 @@ + + + + + Debug + AnyCPU + {50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F} + Library + DAKOSY_Worker + DAKOSY_Worker + 512 + Windows + v4.5 + + + true + full + true + true + bin\Debug\ + DAKOSY_Worker.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + pdbonly + false + true + true + bin\Release\ + DAKOSY_Worker.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + ..\..\..\dll\Renci.SshNet.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + Designer + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + {a3b497bd-842c-4a2b-b398-ed1976849df1} + VERAG_PROG_ALLGEMEIN + + + {5b947a66-009a-4bb6-b925-f84a01045095} + TELOTEC_Worker_lib + + + + + \ No newline at end of file diff --git a/DAKOSY_Worker/Form.vb b/DAKOSY_Worker/Form.vb new file mode 100644 index 0000000..5f28270 --- /dev/null +++ b/DAKOSY_Worker/Form.vb @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/DAKOSY_Worker/Forms.vb b/DAKOSY_Worker/Forms.vb new file mode 100644 index 0000000..5f28270 --- /dev/null +++ b/DAKOSY_Worker/Forms.vb @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export.Designer.vb b/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export.Designer.vb new file mode 100644 index 0000000..95e4f83 --- /dev/null +++ b/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export.Designer.vb @@ -0,0 +1,1168 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 4.4.0.7 +'' VERAG_KundenStamm_ExportListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +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.Xml +Imports System.Collections.Generic + +Namespace VERAG_KundenStamm_Export + + _ + Partial Public Class VERAG_Kundenstamm_IMPORT + +#Region "Private fields" + Private _kundenDaten As List(Of VERAG_Kundenstamm_IMPORTKundenDaten) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._kundenDaten = New List(Of VERAG_Kundenstamm_IMPORTKundenDaten)() + End Sub + + _ + Public Property KundenDaten() As List(Of VERAG_Kundenstamm_IMPORTKundenDaten) + Get + Return Me._kundenDaten + End Get + Set(value As List(Of VERAG_Kundenstamm_IMPORTKundenDaten)) + Me._kundenDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORT)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORT object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORT object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORT object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORT) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORT) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORT + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORT) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORT + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORT) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORT object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORT object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORT object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORT) + 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 VERAG_Kundenstamm_IMPORT) 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 VERAG_Kundenstamm_IMPORT + 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 Class + + _ + Partial Public Class VERAG_Kundenstamm_IMPORTKundenDaten + +#Region "Private fields" + Private _kundenNr As Object + + Private _eORI As Object + + Private _eORI_Niederlassung As Object + + Private _kurzname As Object + + Private _name1 As Object + + Private _name2 As Object + + Private _uID_Nr As Object + + Private _adresse As VERAG_Kundenstamm_IMPORTKundenDatenAdresse + + Private _kontakt As VERAG_Kundenstamm_IMPORTKundenDatenKontakt + + Private _aufschubkonten As List(Of VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + + Private _dakosy_Mandant As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New() + Me._aufschubkonten = New List(Of VERAG_Kundenstamm_IMPORTKundenDatenAufschub)() + Me._kontakt = New VERAG_Kundenstamm_IMPORTKundenDatenKontakt() + Me._adresse = New VERAG_Kundenstamm_IMPORTKundenDatenAdresse() + End Sub + + Public Property KundenNr() As Object + Get + Return Me._kundenNr + End Get + Set(value As Object) + Me._kundenNr = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set(value As Object) + Me._eORI = Value + End Set + End Property + + Public Property EORI_Niederlassung() As Object + Get + Return Me._eORI_Niederlassung + End Get + Set(value As Object) + Me._eORI_Niederlassung = Value + End Set + End Property + + Public Property Kurzname() As Object + Get + Return Me._kurzname + End Get + Set(value As Object) + Me._kurzname = Value + End Set + End Property + + Public Property Name1() As Object + Get + Return Me._name1 + End Get + Set(value As Object) + Me._name1 = Value + End Set + End Property + + Public Property Name2() As Object + Get + Return Me._name2 + End Get + Set(value As Object) + Me._name2 = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set(value As Object) + Me._uID_Nr = Value + End Set + End Property + + Public Property Adresse() As VERAG_Kundenstamm_IMPORTKundenDatenAdresse + Get + Return Me._adresse + End Get + Set(value As VERAG_Kundenstamm_IMPORTKundenDatenAdresse) + Me._adresse = Value + End Set + End Property + + Public Property Kontakt() As VERAG_Kundenstamm_IMPORTKundenDatenKontakt + Get + Return Me._kontakt + End Get + Set(value As VERAG_Kundenstamm_IMPORTKundenDatenKontakt) + Me._kontakt = Value + End Set + End Property + + _ + Public Property Aufschubkonten() As List(Of VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + Get + Return Me._aufschubkonten + End Get + Set(value As List(Of VERAG_Kundenstamm_IMPORTKundenDatenAufschub)) + Me._aufschubkonten = Value + End Set + End Property + + Public Property Dakosy_Mandant() As Object + Get + Return Me._dakosy_Mandant + End Get + Set(value As Object) + Me._dakosy_Mandant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORTKundenDaten)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDaten object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORTKundenDaten object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDaten object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDaten, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDaten) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDaten) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORTKundenDaten + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORTKundenDaten) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORTKundenDaten + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORTKundenDaten) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDaten object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORTKundenDaten object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDaten object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDaten, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDaten) + 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 VERAG_Kundenstamm_IMPORTKundenDaten) 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 VERAG_Kundenstamm_IMPORTKundenDaten + 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 Class + + _ + Partial Public Class VERAG_Kundenstamm_IMPORTKundenDatenAdresse + +#Region "Private fields" + Private _landKz As Object + + Private _plz As Object + + Private _ort As Object + + Private _strasse As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property LandKz() As Object + Get + Return Me._landKz + End Get + Set(value As Object) + Me._landKz = Value + End Set + End Property + + Public Property Plz() As Object + Get + Return Me._plz + End Get + Set(value As Object) + Me._plz = Value + End Set + End Property + + Public Property Ort() As Object + Get + Return Me._ort + End Get + Set(value As Object) + Me._ort = Value + End Set + End Property + + Public Property Strasse() As Object + Get + Return Me._strasse + End Get + Set(value As Object) + Me._strasse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORTKundenDatenAdresse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenAdresse object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORTKundenDatenAdresse object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenAdresse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAdresse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenAdresse) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAdresse) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORTKundenDatenAdresse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORTKundenDatenAdresse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORTKundenDatenAdresse + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORTKundenDatenAdresse) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenAdresse object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORTKundenDatenAdresse object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenAdresse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAdresse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenAdresse) + 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 VERAG_Kundenstamm_IMPORTKundenDatenAdresse) 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 VERAG_Kundenstamm_IMPORTKundenDatenAdresse + 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 Class + + _ + Partial Public Class VERAG_Kundenstamm_IMPORTKundenDatenKontakt + +#Region "Private fields" + Private _eMail As Object + + Private _tel As Object + + Private _fax As Object + + Private _ansprechpartner As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property EMail() As Object + Get + Return Me._eMail + End Get + Set(value As Object) + Me._eMail = Value + End Set + End Property + + Public Property Tel() As Object + Get + Return Me._tel + End Get + Set(value As Object) + Me._tel = Value + End Set + End Property + + Public Property Fax() As Object + Get + Return Me._fax + End Get + Set(value As Object) + Me._fax = Value + End Set + End Property + + Public Property Ansprechpartner() As Object + Get + Return Me._ansprechpartner + End Get + Set(value As Object) + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORTKundenDatenKontakt)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenKontakt object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORTKundenDatenKontakt object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenKontakt object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenKontakt, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenKontakt) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenKontakt) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORTKundenDatenKontakt + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORTKundenDatenKontakt) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORTKundenDatenKontakt + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORTKundenDatenKontakt) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenKontakt object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORTKundenDatenKontakt object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenKontakt object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenKontakt, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenKontakt) + 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 VERAG_Kundenstamm_IMPORTKundenDatenKontakt) 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 VERAG_Kundenstamm_IMPORTKundenDatenKontakt + 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 Class + + _ + Partial Public Class VERAG_Kundenstamm_IMPORTKundenDatenAufschub + +#Region "Private fields" + Private _art As VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt + + Private _hauptzollamt As String + + Private _kontoNr As Object + + Private _bIN As Object + + Private _eORI As Object + + Private _eORI_Niederlassung As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Art() As VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt + Get + Return Me._art + End Get + Set(value As VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt) + Me._art = Value + End Set + End Property + + Public Property Hauptzollamt() As String + Get + Return Me._hauptzollamt + End Get + Set(value As String) + Me._hauptzollamt = Value + End Set + End Property + + Public Property KontoNr() As Object + Get + Return Me._kontoNr + End Get + Set(value As Object) + Me._kontoNr = Value + End Set + End Property + + Public Property BIN() As Object + Get + Return Me._bIN + End Get + Set(value As Object) + Me._bIN = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set(value As Object) + Me._eORI = Value + End Set + End Property + + Public Property EORI_Niederlassung() As Object + Get + Return Me._eORI_Niederlassung + End Get + Set(value As Object) + Me._eORI_Niederlassung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORTKundenDatenAufschub)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenAufschub object into an XML string + ''' + ''' string XML value + 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() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = xmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, 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 + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORTKundenDatenAufschub object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenAufschub object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAufschub, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAufschub) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORTKundenDatenAufschub + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORTKundenDatenAufschub + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenAufschub object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + 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 + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORTKundenDatenAufschub object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenAufschub object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAufschub, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + 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 VERAG_Kundenstamm_IMPORTKundenDatenAufschub) 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 VERAG_Kundenstamm_IMPORTKundenDatenAufschub + 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 Class + + _ + Public Enum VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt + + ''' + _ + Item10 + + ''' + _ + Item15 + + ''' + _ + Item20 + End Enum +End Namespace diff --git a/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export.xsd b/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export.xsd new file mode 100644 index 0000000..8a8f2a5 --- /dev/null +++ b/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export.xsd @@ -0,0 +1,83 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/My Project/Application.Designer.vb b/DAKOSY_Worker/My Project/Application.Designer.vb new file mode 100644 index 0000000..88dd01c --- /dev/null +++ b/DAKOSY_Worker/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/DAKOSY_Worker/My Project/Application.myapp b/DAKOSY_Worker/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/DAKOSY_Worker/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/DAKOSY_Worker/My Project/AssemblyInfo.vb b/DAKOSY_Worker/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..db072b1 --- /dev/null +++ b/DAKOSY_Worker/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die mit einer Assembly verknüpft sind. + +' Die Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/DAKOSY_Worker/My Project/Resources.Designer.vb b/DAKOSY_Worker/My Project/Resources.Designer.vb new file mode 100644 index 0000000..c3ac3a1 --- /dev/null +++ b/DAKOSY_Worker/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DAKOSY_Worker.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/DAKOSY_Worker/My Project/Resources.resx b/DAKOSY_Worker/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/DAKOSY_Worker/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/DAKOSY_Worker/My Project/Settings.Designer.vb b/DAKOSY_Worker/My Project/Settings.Designer.vb new file mode 100644 index 0000000..4c13763 --- /dev/null +++ b/DAKOSY_Worker/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DAKOSY_Worker.My.MySettings + Get + Return Global.DAKOSY_Worker.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/DAKOSY_Worker/My Project/Settings.settings b/DAKOSY_Worker/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/DAKOSY_Worker/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/DAKOSY_Worker/cDY_Statusliste.vb b/DAKOSY_Worker/cDY_Statusliste.vb new file mode 100644 index 0000000..f5a6988 --- /dev/null +++ b/DAKOSY_Worker/cDY_Statusliste.vb @@ -0,0 +1,165 @@ + +Imports System.Drawing + +Public Class cDY_Statusliste + + Shared Property S_00 As Integer = 0 'Status ungültig + Shared Property S_01 As Integer = 1 'Anlage + Shared Property S_02 As Integer = 2 ' Sendebereit + Shared Property S_03 As Integer = 3 ' An Dakosy gesendet + Shared Property S_04 As Integer = 4 ' Dakosy OK + Shared Property S_05 As Integer = 5 ' Dakosy an Zoll gesendet + ' Shared Property S_06 As Integer = 6 + Shared Property S_07 As Integer = 7 ' Zoll OK + + + Shared Property S_09 As Integer = 9 ' Sendefehler an Dakosy + + Shared Property S_10 As Integer = 10 ' Vorankündigung entgegengenommen + Shared Property S_11 As Integer = 11 ' Anmeldung entgegengenommen, Antrag nach §12(4) AWV abgelehnt + Shared Property S_12 As Integer = 12 ' Anmeldung entgegengenommen + + Shared Property S_13 As Integer = 13 ' Anm. nicht angenommen + Shared Property S_14 As Integer = 14 ' Anm. angenommen + Shared Property S_15 As Integer = 15 ' Ungültigkeit Sicherheit + Shared Property S_16 As Integer = 16 ' Anm. angenommen + in Überprüfung bei zust. Zollstelle + Shared Property S_17 As Integer = 17 ' Anm. angenommen, ergänzende oder vollständige Anmeldung liegt vor + Shared Property S_18 As Integer = 18 ' Vorankündigung abgewiesen + Shared Property S_31 As Integer = 31 ' Vorgang überlassen + + Shared Property S_32 As Integer = 32 ' Ausgang ganz oder teilweise bestätigt, ergänzende Anmeldung wird erwartet + Shared Property S_33 As Integer = 33 ' Ausgang ganz oder teilweise bestätigt, ergänzende oder vollständige Anmeldung liegt vor + Shared Property S_35 As Integer = 35 ' Vorgang erledigt + Shared Property S_36 As Integer = 36 ' Ausgang untersagt + + Shared Property S_37 As Integer = 37 ' Vorgang in Weiterverarb. außerhalb ATLAS + Shared Property S_38 As Integer = 38 ' Vorgang storniert + Shared Property S_39 As Integer = 39 ' Vorgang unter Klärung + + Shared Property S_20 As Integer = 20 ' Sendebestätigung + Shared Property S_30 As Integer = 30 ' Zustellquittung Zoll + + Shared Property S_41 As Integer = 41 ' ARN vergeben + Shared Property S_42 As Integer = 42 ' ERledigung Vorpapier?? + Shared Property S_50 As Integer = 50 ' Überlassungsmeldung + Shared Property S_51 As Integer = 51 ' Überlassungsmeldung 2 ? + + Shared Property S_53 As Integer = 53 'Antrag an Bestimmungszollstelle registriert / Sicherheit wird freigegeben + Shared Property S_55 As Integer = 55 'nicht abschleißender Bescheid + Shared Property S_56 As Integer = 56 'Nicht abschliessende Festsetzung + Shared Property S_57 As Integer = 57 'Storno Abgaben + + Shared Property S_60 As Integer = 60 'Erledigungsmeldung + Shared Property S_61 As Integer = 61 'Erledigung außerhalb d. SB + Shared Property S_68 As Integer = 68 'Abgabe HZS + Shared Property S_69 As Integer = 69 'ungültig + Shared Property S_65 As Integer = 65 'Antrag abgelehnt + Shared Property S_80 As Integer = 80 'Antrag storniert / ungültig + Shared Property S_90 As Integer = 90 'Zollfehler + Shared Property S_98 As Integer = 98 ' Dakosy Fehlermeldung + Shared Property S_99 As Integer = 99 ' ERR + + + + Shared Function getTxtByCode2(statusCode As String, art As String, Optional ByRef statusText As String = "", Optional ByRef bgColor As Object = Nothing, Optional withCode As Boolean = True, Optional ByRef bgForeColor As Object = Nothing) + bgForeColor = Color.Black + Select Case art + Case "NCTS", "T1", "T2" + Select Case statusCode + Case 0 : statusText = If(withCode, statusCode & " - ", "") & "ungültig" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 1 : statusText = If(withCode, statusCode & " - ", "") & "Anlage" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 2 : statusText = If(withCode, statusCode & " - ", "") & "Sendebereit" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 3 : statusText = If(withCode, statusCode & " - ", "") & "An Dakosy gesendet" : If bgColor IsNot Nothing Then bgColor = Color.LightBlue + Case 4 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy OK" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 5 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy an Zoll gesendet" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 7 : statusText = If(withCode, statusCode & " - ", "") & "Zoll OK" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 9 : statusText = If(withCode, statusCode & " - ", "") & "Sendefehler an Dakosy" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + + Case 13 : statusText = If(withCode, statusCode & " - ", "") & "Anm. nicht angenommen" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 14 : statusText = If(withCode, statusCode & " - ", "") & "Anm. angenommen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 15 : statusText = If(withCode, statusCode & " - ", "") & "Ungültigkeit Sicherheit" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 16 : statusText = If(withCode, statusCode & " - ", "") & "Angenommen, Überprüfung bei zust. Zollstelle" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 17 : statusText = If(withCode, statusCode & " - ", "") & "Anm. angenommen, ergänzende oder vollständige Anmeldung liegt vor" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 18 : statusText = If(withCode, statusCode & " - ", "") & "Vorankündigung abgewiesen" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 31 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang überlassen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 37 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang in Weiterverarb. außerhalb ATLAS" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 38 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang storniert" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 39 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang unter Klärung" : If bgColor IsNot Nothing Then bgColor = Color.IndianRed + Case 20 : statusText = If(withCode, statusCode & " - ", "") & "Sendebestätigung" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 30 : statusText = If(withCode, statusCode & " - ", "") & "Zustellquittung Zoll" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + + Case 41 : statusText = If(withCode, statusCode & " - ", "") & "ARN vergeben" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + + Case 50 : statusText = If(withCode, statusCode & " - ", "") & "Überlassungsmeldung" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 51 : statusText = If(withCode, statusCode & " - ", "") & "Überlassungsmeldung" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 53 : statusText = If(withCode, statusCode & " - ", "") & "Freigabe Sicherheit" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 60 : statusText = If(withCode, statusCode & " - ", "") & "Erledigungsmeldung" : If bgColor IsNot Nothing Then bgColor = Color.Green : bgForeColor = Color.White + Case 65 : statusText = If(withCode, statusCode & " - ", "") & "Antrag abgelehnt" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 80 : statusText = If(withCode, statusCode & " - ", "") & "Antrag storniert / ungültig" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 90 : statusText = If(withCode, statusCode & " - ", "") & "Zollfehler" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 98 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy Fehlermeldung" : If bgColor IsNot Nothing Then bgColor = Color.IndianRed + Case 99 : statusText = If(withCode, statusCode & " - ", "") & "Interner Fehler" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case Else : statusText = "" : If bgColor IsNot Nothing Then bgColor = Color.White + End Select + + Case "AES" + + ' 10: Vorankündigung entgegengenommen + ' 11 Anmeldung entgegengenommen, Antrag nach §12(4) AWV abgelehnt + ' 12: Anmeldung entgegengenommen + ' 13 Anmeldung nicht angenommen + ' 15 Anmeldung nicht überlassen + ' 16 Anmeldung angenommen, ergänzende Anmeldung wird erwartet + ' 17 Anmeldung angenommen, ergänzende oder vollständige Anmeldung liegt vor + ' 18: Vorankündigung abgewiesen + ' 30 Vorgang überlassen, ergänzende Anmeldung wird erwartet + ' 31 Vorgang überlassen, ergänzende oder vollständige Anmeldung liegt vor + ' 32 Ausgang ganz oder teilweise bestätigt, ergänzende Anmeldung wird erwartet + ' 33 Ausgang ganz oder teilweise bestätigt, ergänzende oder vollständige Anmeldung liegt vor + ' 35: Vorgang erledigt + ' 36: Ausgang untersagt + ' 37 Vorgang geschlossen - keine weitere Bearbeitung vorgesehen + ' 38: Vorgang ungültig / storniert + ' 39 Vorgang unter Klärung + + Select Case statusCode + Case 0 : statusText = If(withCode, statusCode & " - ", "") & "ungültig" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 1 : statusText = If(withCode, statusCode & " - ", "") & "Anlage" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 2 : statusText = If(withCode, statusCode & " - ", "") & "Sendebereit" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 3 : statusText = If(withCode, statusCode & " - ", "") & "An Dakosy gesendet" : If bgColor IsNot Nothing Then bgColor = Color.LightBlue + Case 4 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy OK" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 5 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy an Zoll gesendet" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 7 : statusText = If(withCode, statusCode & " - ", "") & "Zoll OK" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 9 : statusText = If(withCode, statusCode & " - ", "") & "Sendefehler an Dakosy" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + + Case 10 : statusText = If(withCode, statusCode & " - ", "") & "Vorankündigung entgegengenommen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 11 : statusText = If(withCode, statusCode & " - ", "") & "Anmeldung entgegengenommen, Antrag nach §12(4) AWV abgelehnt" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 12 : statusText = If(withCode, statusCode & " - ", "") & "Anmeldung entgegengenommen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + + Case 13 : statusText = If(withCode, statusCode & " - ", "") & "Anm. nicht angenommen" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 14 : statusText = If(withCode, statusCode & " - ", "") & "Anm. angenommen" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 15 : statusText = If(withCode, statusCode & " - ", "") & "Anmeldung nicht überlassen" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 16 : statusText = If(withCode, statusCode & " - ", "") & "Anmeldung angenommen, ergänzende Anmeldung wird erwartet" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 17 : statusText = If(withCode, statusCode & " - ", "") & "Anm. angenommen, ergänzende oder vollständige Anmeldung liegt vor" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 18 : statusText = If(withCode, statusCode & " - ", "") & "Vorankündigung abgewiesen" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 30 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang überlassen, ergänzende Anmeldung wird erwartet" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 31 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang überlassen, ergänzende oder vollständige Anmeldung liegt vor" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + + Case 32 : statusText = If(withCode, statusCode & " - ", "") & "Ausgang ganz oder teilweise bestätigt, ergänzende Anmeldung wird erwartet" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 33 : statusText = If(withCode, statusCode & " - ", "") & "Ausgang ganz oder teilweise bestätigt, ergänzende oder vollständige Anmeldung liegt vor" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 35 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang erledigt" : If bgColor IsNot Nothing Then bgColor = Color.LightGreen + Case 36 : statusText = If(withCode, statusCode & " - ", "") & "Ausgang untersagt" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 37 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang geschlossen - keine weitere Bearbeitung vorgesehen" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 38 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang ungültig / storniert" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 39 : statusText = If(withCode, statusCode & " - ", "") & "Vorgang unter Klärung" : If bgColor IsNot Nothing Then bgColor = Color.Yellow + Case 90 : statusText = If(withCode, statusCode & " - ", "") & "Zollfehler" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case 98 : statusText = If(withCode, statusCode & " - ", "") & "Dakosy Fehlermeldung" : If bgColor IsNot Nothing Then bgColor = Color.IndianRed + Case 99 : statusText = If(withCode, statusCode & " - ", "") & "Interner Fehler" : If bgColor IsNot Nothing Then bgColor = Color.Red + Case Else : statusText = "" : If bgColor IsNot Nothing Then bgColor = Color.White + End Select + End Select + + + Return statusText + End Function +End Class diff --git a/DAKOSY_Worker/cDakosyFunftions.vb b/DAKOSY_Worker/cDakosyFunftions.vb new file mode 100644 index 0000000..2d5a402 --- /dev/null +++ b/DAKOSY_Worker/cDakosyFunftions.vb @@ -0,0 +1,317 @@ +Imports Renci.SshNet +Imports System.IO + +Public Class cDakosyFunftions + + + Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id) + Try + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then + MsgBox("Sie haben keine Sendeberechtigung.") + Return False + End If + + If Not IO.File.Exists(file) Then Return False + Dim F As New System.IO.FileInfo(file) + + Dim DY_server = "" + Dim DY_name = "" + Dim DY_pwd = "" + Dim DY_port = "" + Dim DY_PFAD_IN = "" + + getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "") + + Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd)) + Using client = New SftpClient(ConnectionInfo) + client.Connect() + 'client.Create(file, file) + client.ChangeDirectory(DY_PFAD_IN) + If IO.File.Exists(file) Then + 'MsgBox(file) + Using uplfileStream = System.IO.File.OpenRead(file) + client.UploadFile(uplfileStream, "." & F.Name, True) + client.RenameFile("." & F.Name, F.Name) + End Using + client.Disconnect() + Else + MsgBox("Sendedatei nicht gefunden!") + End If + + + End Using + + Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen + STATUS.dySt_BezugsNr = dySt_BezugsNr + STATUS.dySt_artMitteilung = "VERAG_SND" + STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2 + + STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_03 + 'STATUS.dySt_ergCode = "ANR" + STATUS.dySt_ergCode = "SND" + STATUS.dySt_ergMitteilung = "An Dakosy gesendet" + STATUS.dySt_ergZeitpunkt = Now + + STATUS.dySt_dyId = dy_Id + STATUS.SAVE() + + Return True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + End Function + + Shared Function send_Data_To_Dakosy_FTP(file, Optional misc = False) + Try + If Not IO.File.Exists(file) Then Return False + Dim F As New System.IO.FileInfo(file) + + Dim DY_server = "" + Dim DY_name = "" + Dim DY_pwd = "" + Dim DY_port = "" + Dim DY_PFAD_IN = "" + + getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "") + + Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd)) + Using client = New SftpClient(ConnectionInfo) + client.Connect() + 'client.Create(file, file) + If misc Then + client.ChangeDirectory(DY_PFAD_IN.Replace("gebox", "misc")) + Else + client.ChangeDirectory(DY_PFAD_IN) + End If + + If IO.File.Exists(file) Then + 'MsgBox(file) + Using uplfileStream = System.IO.File.OpenRead(file) + client.UploadFile(uplfileStream, "." & F.Name, True) + client.RenameFile("." & F.Name, F.Name) + End Using + client.Disconnect() + Else + MsgBox("Sendedatei nicht gefunden!") + End If + + + End Using + + Return True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + End Function + + + Shared Sub getSFTPLoginData(ByRef DY_server, ByRef DY_name, ByRef DY_pwd, ByRef DY_port, ByRef DY_PFAD_IN, ByRef DY_PFAD_OUT) + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + DY_server = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_name = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_pwd = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_port = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_PFAD_IN = "in/test/gebox/" + DY_PFAD_OUT = "out/test/" + Else + DY_server = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_name = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_pwd = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_port = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_PFAD_IN = "in/prod/gebox/" + DY_PFAD_OUT = "out/prod/" + End If + + End Sub + + + Shared Function getKDData() As DataTable + Dim sqlstr = "SELECT TOP 999 * " + sqlstr &= " ,(SELECT TOP 1 [Länderverzeichnis für die Außenhandelsstatistik].LandKz AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel" + sqlstr &= " WHERE Währungstabelle.LandKz=[Adressen].LandKz) as LandKzISO2" + sqlstr &= " FROM [Kunden] inner join Adressen on AdressenNr=KundenNr" + sqlstr &= " where DakosyExport Is null And EORITIN Is Not null" + 'sqlstr &= " and KundenNrZentrale=KundenNr " + sqlstr &= " and Auswahl='A' " + sqlstr &= " order by Kunden.[Geändert am] desc" + ' MsgBox(sqlstr) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.loadDgvBySql(sqlstr, "FMZOLL") + End Function + + Shared Function getKDDataByKdNr(KdNR As Integer) As DataTable + Dim sqlstr = "SELECT TOP 1 * " + sqlstr &= " ,(SELECT TOP 1 [Länderverzeichnis für die Außenhandelsstatistik].LandKz AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel" + sqlstr &= " WHERE Währungstabelle.LandKz=[Adressen].LandKz) as LandKzISO2" + sqlstr &= " FROM [Kunden] inner join Adressen on AdressenNr=KundenNr" + sqlstr &= " where " '/*DakosyExport Is null And EORITIN Is Not null */" + sqlstr &= " KundenNr='" & KdNR & "' " + sqlstr &= " order by Kunden.[Geändert am] desc" + ' MsgBox(sqlstr) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.loadDgvBySql(sqlstr, "FMZOLL") + End Function + + + Shared Function updateKdDakosyExportDate(KdNR As Integer) As Boolean + Dim sqlstr = "update [Kunden] SET [DakosyExport]=getDate() WHERE KundenNr='" & KdNR & "' " + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + Shared Function sendData(Optional defaultFolder As String = "", Optional Dakosy_Mandant As String = "VERG") + Dim dt = DAKOSY_Worker.cDakosyFunftions.getKDData + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim saveFile = "" + If DAKOSY_Worker.cDakosyFunftions.generateVERAGKdData(dt, getDefaultFolder_SEND, saveFile, Dakosy_Mandant) Then + If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, True) Then + For Each ROW As DataRow In dt.Rows + updateKdDakosyExportDate(ROW("KundenNr")) + Next + Return True + End If + End If + End If + Return False + End Function + + Shared Function sendDataByKdNr(KdNr As Integer, Optional defaultFolder As String = "", Optional Dakosy_Mandant As String = "VERG") + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then + MsgBox("Übertrag derzeit nicht möglich!") + Return False + End If + Dim dt = DAKOSY_Worker.cDakosyFunftions.getKDDataByKdNr(KdNr) + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim saveFile = "" + If DAKOSY_Worker.cDakosyFunftions.generateVERAGKdData(dt, getDefaultFolder_SEND, saveFile, Dakosy_Mandant) Then + If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, True) Then + updateKdDakosyExportDate(KdNr) + Return True + End If + End If + End If + Return False + End Function + + Shared Function getDefaultFolder_SEND() As String + Try + getDefaultFolder_SEND = "\\192.168.0.91\Datenarchiv\DAKOSY\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath + If Not IO.Directory.Exists(getDefaultFolder_SEND) Then + IO.Directory.CreateDirectory(getDefaultFolder_SEND) + End If + Catch ex As Exception + Try + getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath + If Not IO.Directory.Exists(getDefaultFolder_SEND) Then + IO.Directory.CreateDirectory(getDefaultFolder_SEND) + End If + Catch ex2 As Exception + MsgBox(ex2.Message & ex2.StackTrace) + getDefaultFolder_SEND = "" + End Try + End Try + + End Function + + Shared Function generateVERAGKdData(dt As DataTable, path As String, ByRef saveFile As String, Optional Dakosy_Mandant As String = "VERG") As Boolean + Try + + Dim Interface_VERSION = "003" + + Dim XML As New DAKOSY_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORT + + For Each ROW As DataRow In dt.Rows + Dim KD As New DAKOSY_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDaten + KD.Dakosy_Mandant = Dakosy_Mandant + KD.KundenNr = ROW("KundenNr") + KD.EORI = ROW("EORITIN") + If ROW("EORITIN_NL") Is DBNull.Value OrElse If(ROW("EORITIN_NL"), "") = "" Then + KD.EORI_Niederlassung = "0000" + Else + KD.EORI_Niederlassung = ROW("EORITIN_NL") + End If + If ROW("Ordnungsbegriff") IsNot DBNull.Value Then KD.Kurzname = ROW("Ordnungsbegriff") + If ROW("Name 1") IsNot DBNull.Value Then KD.Name1 = ROW("Name 1") + + If ROW("Name 2") IsNot DBNull.Value Then KD.Name2 = ROW("Name 2") + If ROW("UstIdKz") IsNot DBNull.Value And ("UstIdNr") IsNot DBNull.Value Then KD.UID_Nr = ROW("UstIdKz") & ROW("UstIdNr") + + KD.Adresse = New DAKOSY_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAdresse + If ROW("Straße") IsNot DBNull.Value Then KD.Adresse.Strasse = ROW("Straße") + If ROW("PLZ") IsNot DBNull.Value Then KD.Adresse.Plz = ROW("PLZ") + If ROW("Ort") IsNot DBNull.Value Then KD.Adresse.Ort = ROW("Ort") + If ROW("LandKz") IsNot DBNull.Value Then KD.Adresse.LandKz = ROW("LandKzISO2") + + + + + KD.Kontakt = New DAKOSY_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenKontakt + If ROW("E-Mail") IsNot DBNull.Value Then KD.Kontakt.EMail = ROW("E-Mail") + If ROW("Telefon") IsNot DBNull.Value Then KD.Kontakt.Tel = ROW("Telefon") + If ROW("Telefax") IsNot DBNull.Value Then KD.Kontakt.Fax = ROW("Telefax") + If ROW("Ansprechpartner") IsNot DBNull.Value Then KD.Kontakt.Ansprechpartner = If(ROW("Anrede") IsNot DBNull.Value, ROW("Anrede") & " ", "") & ROW("Ansprechpartner") + + + Dim KD_AKTO = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(KD.KundenNr) + + If KD_AKTO IsNot Nothing Then + Dim AKTOLIST = New List(Of VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + + For Each KTO In KD_AKTO + If If(KTO.kdAkto_bin, "").ToString.Trim <> String.Empty And + If(KTO.kdAkto_eori, "").ToString.Trim <> String.Empty And + If(KTO.kdAkto_hauptzollamt, "").ToString.Trim <> String.Empty And + If(KTO.kdAkto_kontonummer, "").ToString.Trim <> String.Empty Then + + + Dim AUFSCH As New DAKOSY_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschub + Select Case KTO.kdAkto_art + Case "10" : AUFSCH.Art = VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item10 + Case "15" : AUFSCH.Art = VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item15 + Case "20" : AUFSCH.Art = VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item20 + End Select + + AUFSCH.BIN = KTO.kdAkto_bin + AUFSCH.EORI = KTO.kdAkto_eori + If KTO.kdAkto_eoriNL IsNot Nothing Then AUFSCH.EORI_Niederlassung = KTO.kdAkto_eoriNL Else AUFSCH.EORI_Niederlassung = "0000" + AUFSCH.Hauptzollamt = KTO.kdAkto_hauptzollamt + AUFSCH.KontoNr = KTO.kdAkto_kontonummer + + AKTOLIST.Add(AUFSCH) + If AKTOLIST.Count = 2 Then Exit For 'max. 2 Aufschub + End If + Next + If AKTOLIST.Count > 0 Then KD.Aufschubkonten = AKTOLIST + End If + + XML.KundenDaten.Add(KD) + + Next + + Dim saveDir = path + If Not IO.Directory.Exists(saveDir) Then + IO.Directory.CreateDirectory(saveDir) + End If + Dim counter = 1 + While IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml") + counter += 1 + End While + saveFile = saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml" + + XML.SaveToFile(saveFile) + + Return True + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + End Function + + +End Class diff --git a/DAKOSY_Worker/cDakosy_Stammreferenzen.vb b/DAKOSY_Worker/cDakosy_Stammreferenzen.vb new file mode 100644 index 0000000..9905072 --- /dev/null +++ b/DAKOSY_Worker/cDakosy_Stammreferenzen.vb @@ -0,0 +1,142 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDakosy_Stammreferenzen + + Property dySr_Id As Integer + Property dySr_Land As Object = Nothing + Property dySr_Verfahren As Object = Nothing + Property dySr_Stammreferenz As Object = Nothing + Property dySr_Bezeichnung As Object = Nothing + Property dySr_dyId As Object = Nothing + Property dySr_dy_Mandant As Object = Nothing + Property dySr_dy_Niederlassung As Object = Nothing + Property dySr_dy_Standard As Object = Nothing + Property dyStr_KdNr As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + + End Sub + + Sub New(dySr_Id) + Me.dySr_Id = dySr_Id + LOAD() + End Sub + + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_Id", dySr_Id, , True, True)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_Land", dySr_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_Verfahren", dySr_Verfahren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_Stammreferenz", dySr_Stammreferenz)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_Bezeichnung", dySr_Bezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dyId", dySr_dyId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Mandant", dySr_dy_Mandant)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Niederlassung", dySr_dy_Niederlassung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Standard", dySr_dy_Standard)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dyStr_KdNr", dyStr_KdNr)) + Return list + End Function + + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_Stammreferenzen WITH(updlock,serializable) WHERE dySr_Id=@dySr_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + dySr_Id = SQL.doSQLVarListID(dySr_Id, sqlstr, "FMZOLL", , list) + Return dySr_Id > 0 + End Function + + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_Stammreferenzen WHERE dySr_Id=@dySr_Id ", conn) + cmd.Parameters.AddWithValue("@dySr_Id", dySr_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblDakosy_Stammreferenzen] SET " & str & " WHERE dySr_Id=@dySr_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_Stammreferenzen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_Stammreferenzen] WITH(updlock,serializable) WHERE dySr_Id=" & Me.dySr_Id + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + +End Class diff --git a/DAKOSY_Worker/cDakosy_Statusmeldungen.vb b/DAKOSY_Worker/cDakosy_Statusmeldungen.vb new file mode 100644 index 0000000..8a2e3f0 --- /dev/null +++ b/DAKOSY_Worker/cDakosy_Statusmeldungen.vb @@ -0,0 +1,227 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDakosy_Statusmeldungen + + Property dySt_id As Integer + Property dySt_dyId As Integer + Property dySt_dyArt As String = "" + Property dySt_BezugsNr As String = "" + Property dySt_status As Integer = -1 + Property dySt_artMitteilung As String + Property dySt_ergCode As String + Property dySt_ergMitteilung As String = "" + Property dySt_ergZeitpunkt As Object = Nothing + Property dySt_DakosyTransaktionsDatum As Object = Nothing + Property dySt_DakosyTransaktionsID As Object = Nothing + Property dySt_ts As Date = Now + Property dySt_ergDetails As Object = Nothing + Property dySt_ergZoellner As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + + End Sub + Sub New(dySt_id) + Me.dySt_id = dySt_id + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_id", dySt_id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_dyId", dySt_dyId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_dyArt", dySt_dyArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_BezugsNr", dySt_BezugsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_status", dySt_status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_artMitteilung", dySt_artMitteilung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_ergCode", dySt_ergCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_ergMitteilung", dySt_ergMitteilung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_ergZeitpunkt", dySt_ergZeitpunkt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_DakosyTransaktionsDatum", dySt_DakosyTransaktionsDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_DakosyTransaktionsID", dySt_DakosyTransaktionsID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_ts", dySt_ts)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_ergDetails", dySt_ergDetails)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_ergZoellner", dySt_ergZoellner)) + Return list + End Function + + 'Wenn true --> die Abgefragetransaktion ist die Neuste + Shared Function isNewestTransaktion(BezugsNr As String, transID As String, ergDate As Date) As Boolean + Try + Dim STATUS As New cDakosy_Statusmeldungen + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + 'Primär wird nach erg_datum geprüft! + Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'", "FMZOLL") + ' MsgBox("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'" & " - " & cntNewerTrans & " - " & BezugsNr) + + Return cntNewerTrans = 0 + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + End Function + + + Shared Function LOADByDakosyTransaktionsID(dySt_DakosyTransaktionsID As String) As cDakosy_Statusmeldungen + Try + Dim STATUS As New cDakosy_Statusmeldungen + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_Statusmeldungen WHERE dySt_DakosyTransaktionsID=@dySt_DakosyTransaktionsID ", conn) + cmd.Parameters.AddWithValue("@dySt_DakosyTransaktionsID", dySt_DakosyTransaktionsID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In STATUS.getParameterList() + Dim propInfo As PropertyInfo = STATUS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(STATUS, Nothing) + Else + propInfo.SetValue(STATUS, dr.Item(l.Text)) + End If + + Next + + dr.Close() + Return STATUS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_Statusmeldungen WITH(updlock,serializable) WHERE dySt_id=@dySt_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim id = SQL.doSQLVarListID(dySt_id, sqlstr, "FMZOLL", , list) + Me.dySt_id = id + Return id > 0 + End Function + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_Statusmeldungen WHERE dySt_id=@dySt_id ", conn) + cmd.Parameters.AddWithValue("@dySt_id", dySt_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblDakosy_Statusmeldungen] SET " & str & " WHERE dySt_id=@dySt_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_Statusmeldungen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Shared Function InsertStatusMeldung(DY As cDakosy_Zollanmeldungen, dySt_status As Integer, Optional dySt_ergCode As String = "", Optional dySt_ergMitteilung As String = "", Optional dySt_ergZeitpunkt As Object = Nothing) + Return InsertStatusMeldung(DY.dy_Id, DY.dy_BezugsNr, DY.dy_ART, dySt_status, dySt_ergCode, dySt_ergMitteilung, dySt_ergZeitpunkt) + End Function + Shared Function InsertStatusMeldung(dySt_dyId As Integer, dySt_BezugsNr As String, dy_ART As String, dySt_status As Integer, Optional dySt_ergCode As String = "", Optional dySt_ergMitteilung As String = "", Optional dySt_ergZeitpunkt As Object = Nothing) + Try + + Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = New DAKOSY_Worker.cDakosy_Statusmeldungen + STATUS.dySt_BezugsNr = dySt_BezugsNr + STATUS.dySt_artMitteilung = "VB" + STATUS.dySt_dyArt = dy_ART '"NCTS" 'T1/T2 + STATUS.dySt_dyId = dySt_dyId + + STATUS.dySt_status = dySt_status + STATUS.dySt_ergCode = dySt_ergCode + STATUS.dySt_ergMitteilung = If(dySt_ergMitteilung <> "", dySt_ergMitteilung, cDY_Statusliste.getTxtByCode2(dySt_status, dy_ART)) + STATUS.dySt_ergZeitpunkt = dySt_ergZeitpunkt + 'EINTRAG IN tblDakosy_Zollanmeldungen + + STATUS.SAVE() + + cDakosy_Zollanmeldungen.UPDATE_StatusById(dySt_dyId, STATUS.dySt_status) + Select Case dy_ART + Case "NCTS" + Dim NCTS As cDakosyNCTSOut = cDakosyNCTSOut.LOADByAnmIDFull(dySt_dyId, False) + ' cDakosyNCTSOut.UPDATE_StatusById(STATUS.dySt_status) + If NCTS IsNot Nothing Then NCTS.UPDATE_STATUS(STATUS.dySt_status) + Case "AES" + Dim AES As cDakosyAES = cDakosyAES.LOADByAnmIDFull(dySt_dyId, False) + ' cDakosyNCTSOut.UPDATE_StatusById(STATUS.dySt_status) + If AES IsNot Nothing Then AES.UPDATE_STATUS(STATUS.dySt_status) + + End Select + Return True + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + +End Class \ No newline at end of file diff --git a/DAKOSY_Worker/cIMPORT_Codelisten.vb b/DAKOSY_Worker/cIMPORT_Codelisten.vb new file mode 100644 index 0000000..d6d44c1 --- /dev/null +++ b/DAKOSY_Worker/cIMPORT_Codelisten.vb @@ -0,0 +1,890 @@ +Imports System.Net +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Data.SqlClient + +Public Class cIMPORT_Codelisten + + + Public Shared Function IMPORT(CodelistenCode, TESTSYSTEM) As Boolean + Select Case CodelistenCode + Case "C0008" + Return Import_C0008(TESTSYSTEM) + Case "C0017" + Return Import_C0017(TESTSYSTEM) + Case "C0013" + Return Import_C0013(TESTSYSTEM) + Case "C0014" + Return Import_C0014(TESTSYSTEM) + Case "C0010" + Return Import_C0010(TESTSYSTEM) + Case "A0122" + Return Import_A0122(TESTSYSTEM) + Case "A0127" + Return Import_A0127(TESTSYSTEM) + Case "I0400" + Return Import_I0400(TESTSYSTEM) + Case "I0200" + Return Import_I0200(TESTSYSTEM) + End Select + Return False + End Function + + + Shared Function Import_C0008(TESTSYSTEM) As Boolean + Dim MyData As String = "" + Try + System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + Using WC As New System.Net.WebClient() + ' C0008_URL() + WC.Encoding = ASCIIEncoding.UTF8 + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0008_URL", TESTSYSTEM) + If URL = String.Empty Then Return False + + MyData = WC.DownloadString(URL) + Dim doc As New XmlDocument() + doc.LoadXml(MyData) + + Dim LC As New cLaenderCodes + If doc.HasChildNodes Then + If doc.GetElementsByTagName("Codelist").Count > 0 Then + If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then + For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes + + Dim Code = "" + Dim Description = "" + Dim StartDate = Nothing + Dim EndDate = Nothing + If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText + If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText + If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText) + If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText) + + LC.Add(New cLaenderCodes.cLaenderCode(Code, Description, StartDate, EndDate)) + + Next + End If + End If + End If + If LC.Count > 0 Then + Return LC.INSERT_DB(TESTSYSTEM) + End If + End Using + + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return False + + End Function + + + Shared Function Import_C0010(TESTSYSTEM) As Boolean + Dim MyData As String = "" + Try + System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + Using WC As New System.Net.WebClient() + ' C0010_URL() + WC.Encoding = ASCIIEncoding.UTF8 + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0010_URL", TESTSYSTEM) + If URL = String.Empty Then Return False + + MyData = WC.DownloadString(URL) + Dim doc As New XmlDocument() + doc.LoadXml(MyData) + + Dim LC As New cLaenderCodesC0010 + If doc.HasChildNodes Then + If doc.GetElementsByTagName("Codelist").Count > 0 Then + If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then + For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes + + Dim Code = "" + Dim Description = "" + Dim StartDate = Nothing + Dim EndDate = Nothing + If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText + If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText + If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText) + If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText) + + LC.Add(New cLaenderCodesC0010.cLaenderCodesC0010(Code, Description, StartDate, EndDate)) + + Next + End If + End If + End If + If LC.Count > 0 Then + Return LC.INSERT_DB(TESTSYSTEM) + End If + End Using + + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return False + + End Function + + Shared Function Import_C0017(TESTSYSTEM) As Boolean + Dim MyData As String = "" + Try + System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + Using WC As New System.Net.WebClient() + ' C0008_URL() + WC.Encoding = ASCIIEncoding.UTF8 + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0017_URL", TESTSYSTEM) + If URL = String.Empty Then Return False + ' MsgBox(URL) + MyData = WC.DownloadString(URL) + Dim doc As New XmlDocument() + doc.LoadXml(MyData) + + Dim LC As New cPackstueckeVerpackungsarten + If doc.HasChildNodes Then + If doc.GetElementsByTagName("Codelist").Count > 0 Then + If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then + For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes + ' MsgBox(Entry.SelectNodes("Code")(0).InnerText) + Dim Code = "" + Dim Description = "" + Dim StartDate = Nothing + Dim EndDate = Nothing + If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText + If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText + If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText) + If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText) + + LC.Add(New cPackstueckeVerpackungsarten.cVerpackungsart(Code, Description, StartDate, EndDate)) + + Next + End If + End If + End If + If LC.Count > 0 Then + Return LC.INSERT_DB(TESTSYSTEM) + End If + End Using + + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return False + + End Function + + + Shared Function Import_C0014(TESTSYSTEM) As Boolean + Dim MyData As String = "" + Try + System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + Using WC As New System.Net.WebClient() + ' C0008_URL() + WC.Encoding = ASCIIEncoding.UTF8 + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0014_URL", TESTSYSTEM) + If URL = String.Empty Then Return False + ' MsgBox(URL) + MyData = WC.DownloadString(URL) + Dim doc As New XmlDocument() + doc.LoadXml(MyData) + + Dim LC As New cVorpapierArten + If doc.HasChildNodes Then + If doc.GetElementsByTagName("Codelist").Count > 0 Then + If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then + For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes + ' MsgBox(Entry.SelectNodes("Code")(0).InnerText) + Dim Code = "" + Dim Description = "" + Dim StartDate = Nothing + Dim EndDate = Nothing + If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText + If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText + If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText) + If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText) + + LC.Add(New cVorpapierArten.cVorpapierArt(Code, Description, StartDate, EndDate)) + + Next + End If + End If + End If + If LC.Count > 0 Then + Return LC.INSERT_DB(TESTSYSTEM) + End If + End Using + + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return False + + End Function + + + Shared Function Import_C0013(TESTSYSTEM) As Boolean + Dim MyData As String = "" + Try + System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + Using WC As New System.Net.WebClient() + ' C0008_URL() + WC.Encoding = ASCIIEncoding.UTF8 + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0013_URL", TESTSYSTEM) + If URL = String.Empty Then Return False + ' MsgBox(URL) + MyData = WC.DownloadString(URL) + Dim doc As New XmlDocument() + doc.LoadXml(MyData) + + Dim LC As New cUnterlageArten + If doc.HasChildNodes Then + If doc.GetElementsByTagName("Codelist").Count > 0 Then + If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then + For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes + ' MsgBox(Entry.SelectNodes("Code")(0).InnerText) + Dim Code = "" + Dim Description = "" + Dim StartDate = Nothing + Dim EndDate = Nothing + If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText + If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText + If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText) + If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText) + + LC.Add(New cUnterlageArten.cUnterlageArt(Code, Description, StartDate, EndDate)) + + Next + End If + End If + End If + If LC.Count > 0 Then + Return LC.INSERT_DB(TESTSYSTEM) + End If + End Using + + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return False + + End Function + + + Shared Function Import_A0122(TESTSYSTEM) As Boolean + Dim MyData As String = "" + Try + System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + Using WC As New System.Net.WebClient() + ' A0122_URL() + WC.Encoding = ASCIIEncoding.UTF8 + Dim URL = cDY_Paramter.GET_PARAM_ByName("A0122_URL", TESTSYSTEM) + If URL = String.Empty Then Return False + + MyData = WC.DownloadString(URL) + Dim doc As New XmlDocument() + doc.LoadXml(MyData) + + Dim LC As New cAnmArtenUeberfuehrung + If doc.HasChildNodes Then + If doc.GetElementsByTagName("Codelist").Count > 0 Then + If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then + For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes + + Dim Code = "" + Dim Qualifier = "" + Dim Note = "" + Dim Description = "" + If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText + If Entry.SelectNodes("Qualifier").Count > 0 Then Qualifier = Entry.SelectNodes("Qualifier")(0).InnerText + If Entry.SelectNodes("Note").Count > 0 Then Note = Entry.SelectNodes("Note")(0).InnerText + If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText + + LC.Add(New cAnmArtenUeberfuehrung.cAnmArtUeberfuehrung(Code, Qualifier, Note, Description)) + + Next + End If + End If + End If + If LC.Count > 0 Then + Return LC.INSERT_DB(TESTSYSTEM) + End If + End Using + + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return False + + End Function + + Shared Function Import_A0127(TESTSYSTEM) As Boolean + Dim MyData As String = "" + Try + System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + Using WC As New System.Net.WebClient() + ' A0122_URL() + WC.Encoding = ASCIIEncoding.UTF8 + Dim URL = cDY_Paramter.GET_PARAM_ByName("A0127_URL", TESTSYSTEM) + If URL = String.Empty Then Return False + + MyData = WC.DownloadString(URL) + Dim doc As New XmlDocument() + doc.LoadXml(MyData) + + Dim LC As New cBeteiligtenKonstellationen + If doc.HasChildNodes Then + If doc.GetElementsByTagName("Codelist").Count > 0 Then + If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then + For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes + + Dim Code = "" + Dim Description = "" + If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText + If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText + + LC.Add(New cBeteiligtenKonstellationen.cBeteiligtenKonstellation(Code, Description)) + + Next + End If + End If + End If + If LC.Count > 0 Then + Return LC.INSERT_DB(TESTSYSTEM) + End If + End Using + + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return False + + End Function + + + + Shared Function Import_I0400(TESTSYSTEM) As Boolean + Dim MyData As String = "" + Try + System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + Using WC As New System.Net.WebClient() + ' C0008_URL() + WC.Encoding = ASCIIEncoding.UTF8 + Dim URL = cDY_Paramter.GET_PARAM_ByName("I0400_URL", TESTSYSTEM) + If URL = String.Empty Then Return False + ' MsgBox(URL) + MyData = WC.DownloadString(URL) + Dim doc As New XmlDocument() + doc.LoadXml(MyData) + + Dim LC As New cWaehrungsliste + If doc.HasChildNodes Then + If doc.GetElementsByTagName("Codelist").Count > 0 Then + If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then + For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes + ' MsgBox(Entry.SelectNodes("Code")(0).InnerText) + Dim Code = "" + Dim Description = "" + Dim StartDate = Nothing + Dim EndDate = Nothing + If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText + If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText + If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText) + If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText) + + LC.Add(New cWaehrungsliste.cWaehrungI0400(Code, Description, StartDate, EndDate)) + + Next + End If + End If + End If + If LC.Count > 0 Then + Return LC.INSERT_DB(TESTSYSTEM) + End If + End Using + + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return False + + End Function + + + Shared Function Import_I0200(TESTSYSTEM) As Boolean + Dim MyData As String = "" + Try + System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + + Using WC As New System.Net.WebClient() + ' C0008_URL() + WC.Encoding = ASCIIEncoding.UTF8 + Dim URL = cDY_Paramter.GET_PARAM_ByName("I0200_URL", TESTSYSTEM) + If URL = String.Empty Then Return False + ' MsgBox(URL) + MyData = WC.DownloadString(URL) + Dim doc As New XmlDocument() + doc.LoadXml(MyData) + + Dim LC As New cEZA_Unterlagearten + If doc.HasChildNodes Then + If doc.GetElementsByTagName("Codelist").Count > 0 Then + If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then + For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes + ' MsgBox(Entry.SelectNodes("Code")(0).InnerText) + Dim DocumentCode = "" + Dim Division = "" + Dim Description = "" + Dim StartDate = Nothing + Dim EndDate = Nothing + If Entry.SelectNodes("DocumentCode").Count > 0 Then DocumentCode = Entry.SelectNodes("DocumentCode")(0).InnerText + If Entry.SelectNodes("Division").Count > 0 Then Division = Entry.SelectNodes("Division")(0).InnerText + If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText + If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText) + If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText) + + LC.Add(New cEZA_Unterlagearten.cEZA_UnterlageartenI0200(DocumentCode, Division, Description, StartDate, EndDate)) + + Next + End If + End If + End If + If LC.Count > 0 Then + Return LC.INSERT_DB(TESTSYSTEM) + End If + End Using + + Catch ex As Exception + MsgBox(ex.Message) + End Try + Return False + + End Function + +End Class + + + +Class cWaehrungsliste + Inherits List(Of cWaehrungI0400) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function INSERT_DB(TESTSSYSTEM) As Boolean + + If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_I0400_Waehrungsliste]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + Dim ok = True + For Each l In Me + Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate)) + If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_I0400_Waehrungsliste] (Code, Description, StartDate, EndDate) VALUES (@Code, @Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + ok = False + End If + Next + Return ok + End If + Return False + End Function + + Class cWaehrungI0400 + Property Code As String = "" + Property Description As String = "" + Property StartDate As Object = Nothing + Property EndDate As Object = Nothing + + Sub New(Code, Description, StartDate, EndDate) + Me.Code = Code + Me.Description = Description + Me.StartDate = StartDate + Me.EndDate = EndDate + End Sub + End Class + +End Class + + +Class cEZA_Unterlagearten + Inherits List(Of cEZA_UnterlageartenI0200) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function INSERT_DB(TESTSSYSTEM) As Boolean + + If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_I0200_Unterlagearten]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + Dim ok = True + For Each l In Me + Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("DocumentCode", l.DocumentCode)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Division", l.Division)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate)) + If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_I0200_Unterlagearten] (Code,DocumentCode,Division, Description, StartDate, EndDate) VALUES (@Code,@DocumentCode,@Division, @Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + ok = False + End If + Next + Return ok + End If + Return False + End Function + + Class cEZA_UnterlageartenI0200 + Property Code As String = "" + Property DocumentCode As String = "" + Property Division As String = "" + Property Description As String = "" + Property StartDate As Object = Nothing + Property EndDate As Object = Nothing + + Sub New(DocumentCode, Division, Description, StartDate, EndDate) + Me.Code = Division & "/" & DocumentCode + Me.DocumentCode = DocumentCode + Me.Division = Division + Me.Description = Description + Me.StartDate = StartDate + Me.EndDate = EndDate + End Sub + End Class + +End Class + +Class cLaenderCodesC0010 + Inherits List(Of cLaenderCodesC0010) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function INSERT_DB(TESTSSYSTEM) As Boolean + + If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_C0010_LaenderAES]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + Dim ok = True + For Each l In Me + Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate)) + If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_C0010_LaenderAES] (Code, Description, StartDate, EndDate) VALUES (@Code, @Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + ok = False + End If + Next + Return ok + End If + Return False + End Function + + Class cLaenderCodesC0010 + Property Code As String = "" + Property Description As String = "" + Property StartDate As Object = Nothing + Property EndDate As Object = Nothing + + Sub New(Code, Description, StartDate, EndDate) + Me.Code = Code + Me.Description = Description + Me.StartDate = StartDate + Me.EndDate = EndDate + End Sub + End Class + +End Class + + +Class cLaenderCodes + Inherits List(Of cLaenderCode) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function INSERT_DB(TESTSSYSTEM) As Boolean + + If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_C0008_LaenderFull]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + Dim ok = True + For Each l In Me + Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate)) + If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_C0008_LaenderFull] (Code, Description, StartDate, EndDate) VALUES (@Code, @Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + ok = False + End If + Next + Return ok + End If + Return False + End Function + + Class cLaenderCode + Property Code As String = "" + Property Description As String = "" + Property StartDate As Object = Nothing + Property EndDate As Object = Nothing + + Sub New(Code, Description, StartDate, EndDate) + Me.Code = Code + Me.Description = Description + Me.StartDate = StartDate + Me.EndDate = EndDate + End Sub + End Class + +End Class + + + +Public Class cAnmArtenUeberfuehrung + Inherits List(Of cAnmArtUeberfuehrung) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function INSERT_DB(TESTSSYSTEM) As Boolean + + If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + Dim ok = True + For Each l In Me + Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Qualifier", l.Qualifier)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Note", l.Note)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description)) + If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung] (Code, Qualifier, Note, Description) VALUES (@Code, @Qualifier, @Note, @Description); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + ok = False + End If + Next + Return ok + End If + Return False + End Function + + + Shared Function LOAD() As List(Of cAnmArtUeberfuehrung) + Try + Dim LIST As New List(Of cAnmArtUeberfuehrung) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM [tbl_DY_ZollDE_A0122_AnmArtUeberfuehrung]", "FMZOLL") + If dt IsNot Nothing Then + For Each r In dt.Rows + LIST.Add(New cAnmArtenUeberfuehrung.cAnmArtUeberfuehrung(r("Code"), r("Qualifier"), r("Note"), r("Description"))) + Next + End If + Return LIST + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return Nothing + End Function + + Public Class cAnmArtUeberfuehrung + Property Code As String = "" + Property Qualifier As String = "" + Property Note As String = "" + Property Description As String = "" + + Sub New(Code, Qualifier, Note, Description) + Me.Code = Code + Me.Qualifier = Qualifier + Me.Note = Note + Me.Description = Description + End Sub + End Class + +End Class + +Public Class cBeteiligtenKonstellationen + Inherits List(Of cBeteiligtenKonstellation) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function INSERT_DB(TESTSSYSTEM) As Boolean + + If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_A0127_BeteiligtenKonstellation]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + Dim ok = True + For Each l In Me + Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description)) + If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_A0127_BeteiligtenKonstellation] (Code, Description) VALUES (@Code, @Description); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + ok = False + End If + Next + Return ok + End If + Return False + End Function + + + Shared Function LOAD() As List(Of cBeteiligtenKonstellation) + Try + Dim LIST As New List(Of cBeteiligtenKonstellation) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM [tbl_DY_ZollDE_A0127_BeteiligtenKonstellation]", "FMZOLL") + If dt IsNot Nothing Then + For Each r In dt.Rows + LIST.Add(New cBeteiligtenKonstellationen.cBeteiligtenKonstellation(r("Code"), r("Description"))) + Next + End If + Return LIST + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return Nothing + End Function + + Public Class cBeteiligtenKonstellation + Property Code As String = "" + Property Description As String = "" + + Sub New(Code, Description) + Me.Code = Code + Me.Description = Description + End Sub + End Class + +End Class + + + + +Class cPackstueckeVerpackungsarten + Inherits List(Of cVerpackungsart) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function INSERT_DB(TESTSSYSTEM) As Boolean + + If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + Dim ok = True + For Each l In Me + Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate)) + If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten] (Code, Description, StartDate, EndDate) VALUES (@Code, @Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + ok = False + End If + Next + Return ok + End If + Return False + End Function + + Class cVerpackungsart + Property Code As String = "" + Property Description As String = "" + Property StartDate As Object = Nothing + Property EndDate As Object = Nothing + + Sub New(Code, Description, StartDate, EndDate) + Me.Code = Code + Me.Description = Description + Me.StartDate = StartDate + Me.EndDate = EndDate + End Sub + End Class + +End Class + + + +Class cVorpapierArten + Inherits List(Of cVorpapierArt) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function INSERT_DB(TESTSSYSTEM) As Boolean + + If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_C0014_VorpapierArten]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + Dim ok = True + For Each l In Me + Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate)) + If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_C0014_VorpapierArten] (Code, Description, StartDate, EndDate) VALUES (@Code, @Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + ok = False + End If + Next + Return ok + End If + Return False + End Function + + Class cVorpapierArt + Property Code As String = "" + Property Description As String = "" + Property StartDate As Object = Nothing + Property EndDate As Object = Nothing + + Sub New(Code, Description, StartDate, EndDate) + Me.Code = Code + Me.Description = Description + Me.StartDate = StartDate + Me.EndDate = EndDate + End Sub + End Class + +End Class + + +Class cUnterlageArten + Inherits List(Of cUnterlageArt) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function INSERT_DB(TESTSSYSTEM) As Boolean + + If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_C0013_UnterlagenArten]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + Dim ok = True + For Each l In Me + Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate)) + List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate)) + If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_C0013_UnterlagenArten] (Code, Description, StartDate, EndDate) VALUES (@Code, @Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then + ok = False + End If + Next + Return ok + End If + Return False + End Function + + Class cUnterlageArt + Property Code As String = "" + Property Description As String = "" + Property StartDate As Object = Nothing + Property EndDate As Object = Nothing + + Sub New(Code, Description, StartDate, EndDate) + Me.Code = Code + Me.Description = Description + Me.StartDate = StartDate + Me.EndDate = EndDate + End Sub + End Class + +End Class + + +Public Class cDY_Paramter + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Shared Function GET_PARAM_ByName(dyParam_name, TESTSYSTEM) As String + Return SQL.getValueTxtBySql("SELECT TOP 1 [dyParam_value] FROM [tbl_DY_Paramter] WHERE [dyParam_name]='" & dyParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) + End Function +End Class + diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb new file mode 100644 index 0000000..bddf522 --- /dev/null +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -0,0 +1,1533 @@ +Imports VERAG_PROG_ALLGEMEIN +Public Class cZOLL_IMPORT + Public Aviso As cAviso + 'Public SendungId As Integer = -1 + Dim KDSQL As New SQL + Dim SQLAVISO As New cAvisoDAL + Dim SQLADMIN As New adminfunc + ' Dim avisoLinkId = -1 + Dim SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + Dim PosAnzahl As Integer = 0 + Dim SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing + Dim strManNr As String = "VERA" + Dim strManNl As String = "SUB" + + Dim packstueckeAVISO_TMP As String = "" + Dim RohmasseAviso As String = "" + Dim packstueckeZOLL_TMP As String = "" + Dim notFound = True + Dim ATLAS_SERVER_VERBINDUNG As String = "ATLAS" + + + + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Function countSpedbuchEntrysTC(filiale, BezugsNr, telanm_ART) As Integer + Select Case telanm_ART + Case "NCTS", "T1", "T2", "T2L" : Return countSpedbuchEntrysTC_EZA(filiale, BezugsNr) + Case Else : Return countSpedbuchEntrysTC_EZA(filiale, BezugsNr) + End Select + + End Function + + Function countSpedbuchEntrysTC_EZA(filiale, BezugsNr) As Integer + If If(BezugsNr, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND [AtlasBezNrEZA]='" & BezugsNr & "'", "FMZOLL") + End Function + + + Function countSpedbuchEntrysTC_NCTS(filiale, BezugsNr) As Integer + If If(BezugsNr, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND [AtlasBezNrNCTS]='" & BezugsNr & "'", "FMZOLL") + End Function + + + Public Function TelotecImport(TC As TELOTEC_Worker.cTelotec_Anmeldung) As Boolean + + 'Function insertIntoSpedBuch() As Boolean + Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + If True Then ' If(Me.telanm_firma, "") = "IMEX" Then + If countSpedbuchEntrysTC(5501, TC.telanm_BezugsNr, TC.telanm_ART) = 0 Then + SPEDBUCH.FilialenNr = 5501 + SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) + SPEDBUCH.NewUNTER_NR() + + SPEDBUCH.Zollsystem = "T" + SPEDBUCH.Abfertigungsdatum = Now.ToShortDateString + SPEDBUCH.Sachbearbeiter = "AUTO" + + Dim notfound = False + + Dim art = "" + Select Case TC.telanm_ART + Case "NCTS", "T1", "T2", "T2L" : TC.telanm_ART = "NCTS" : SPEDBUCH.AtlasBezNrNCTS = TC.telanm_BezugsNr + Case Else : TC.telanm_ART = "EZA" : SPEDBUCH.AtlasBezNrEZA = TC.telanm_BezugsNr + End Select + + Dim PosAnzahl = 0 + ' TELOTECDatenbereitstellung(SPEDBUCH, Me.telanm_BezugsNr, notfound, art, PosAnzahl) + SPEDBUCH = IMPORT(SPEDBUCH, TC.telanm_AvisoId, TC.telanm_SendungsId, "VERA", SPEDBUCH.FilialenNr, 2, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True) + + + If Not notfound Then + Return SPEDBUCH.SAVE + Else + Return False + End If + End If + + If TC.telanm_SendungsId IsNot Nothing Then + + Else + Return False 'Ohne Sendungsverweis kein eintrag... + End If + + Return SPEDBUCH.SAVE + Else + If False Then 'NOCH NCIHT.... + + If TC.telanm_SendungsId IsNot Nothing Then + + Else + Return False 'Ohne Sendungsverweis kein eintrag... + End If + + Return SPEDBUCH.SAVE + End If + End If + Return False + + ' End Function + ' + End Function + + + Public Shared Function EZOLLImport(LRN, art) As Boolean + + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'Wichtig für Spedbucheintrag + Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + ' Dim cZOLL_IMPORT As New cZOLL_IMPORT + + Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + If True Then + 'Filiale erkennen: + Dim filialeBez = "" + Dim filiale = getFiliale(LRN, filialeBez) + Select Case filiale + Case "5501" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" + Case "4801" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" : Return False 'Keine Atoerfassung + End Select + Dim abfertigungsnummer = getAbfertigungsnummer(LRN) + + If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then + If filiale <> "" And abfertigungsnummer <> "" Then + If countSpedbuchEntrys(filiale, LRN) = 0 Then + + SPEDBUCH.FilialenNr = filiale + SPEDBUCH.AbfertigungsNr = abfertigungsnummer + SPEDBUCH.NewUNTER_NR() + + SPEDBUCH.Abfertigungsanzahl = 1 + SPEDBUCH.Fakturiert = 0 + SPEDBUCH.AtlasBezNrEZA = LRN + SPEDBUCH.Zollsystem = "E" + SPEDBUCH.Sachbearbeiter = "AUTO" + + Dim ZOLL_IMPORT As New cZOLL_IMPORT + Dim notfound = False + Dim posAnzahl = 0 + + Select Case art + Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN + Case Else : SPEDBUCH.AtlasBezNrEZA = LRN + End Select + + SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 1, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True) + + If notfound Then Return False + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") + + ' MsgBox(SPEDBUCH.FilialenNr & " - " & SPEDBUCH.AbfertigungsNr) + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp + + If SPEDBUCH.SAVE Then + VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(SPEDBUCH.SendungID, True) + Return True + Else + Return False + End If + + + ' MsgBox(SQL.getValueTxtBySql("select count(*) FROM [VERAG].[dbo].[Speditionsbuch] where AbfertigungsNr = 18035380", "FMZOLL")) + + End If + End If + End If + Else + Return False 'Ohne Sendungsverweis kein eintrag... + End If + Return False + End Function + + Public Shared Function tryFindAviso(LRN, ByRef AvisoID, ByRef SendungID) As Boolean + Dim srchStrFiliale = "" + Dim srchStrAbf = "" + LRN = LRN.ToString.Replace("-", "/") + If LRN.Contains("/") Then + Dim split = LRN.Split("/") + If split.Length >= 2 Then + srchStrFiliale = split(0) + srchStrAbf = split(1) + ' ElseIf Then + ' srchStrAbf = split(X) + Else + Return False + End If + + End If + If Not IsNumeric(srchStrFiliale) Or Not IsNumeric(srchStrAbf) Then Return False + If srchStrFiliale.Length <> 4 Then Return False + 'If srchStrAbf.Length > 8 Then srchStrAbf = srchStrAbf.Substring(0, 8) + + If srchStrAbf.Length < 8 Then srchStrAbf = Now.ToString("yy") & CInt(srchStrAbf).ToString("000000") + + + Dim sqlstr = " select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & srchStrAbf & "' like ('%' + cast(AbfertigungsNr as varchar(10))+ '%') and FilialenNr ='" & srchStrFiliale & "' and AbfertigungsNr >0" + + Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "AVISO") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + SendungID = dt.Rows(0)("tblSnd_SendungID") + AvisoID = dt.Rows(0)("tblSnd_AvisoID") + Return True + End If + + Return False + End Function + + + + Shared Function countSpedbuchEntrys(filiale, ncts) As Integer + If If(ncts, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrNCTS='" & ncts & "'", "FMZOLL") + End Function + + Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String + If If(bezugsNr, "").ToString.Length > 4 Then + Select Case bezugsNr.ToString.Substring(0, 4) + Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "4805" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 + 'filialeBez SUB, NKD, WAI,.-.. + End Select + End If + Return "" + End Function + + + + Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String + getAbfertigungsnummer = "" + If If(bezugsNr, "").ToString.Length > 5 Then + + Dim abf = "" + For Each s In bezugsNr.ToString.Substring(5) + If Not IsNumeric(s) Then Exit For + abf &= s + Next + If IsNumeric(abf) Then + If CLng(abf) < 99000000 Then + If CLng(abf) > 18000000 Then + Return abf + Else + Return Now.ToString("yy") & CInt(abf).ToString("000000") + End If + End If + End If + End If + Return "" + + End Function + 'Zollsystem 0,1 + Public Function IMPORT(SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, avisoLinkId As Integer, SendungId As Integer, strManNr As String, strManNl As String, Zollsystem As String, EZA_Nr As String, NCTS_Nr As String, ByRef notFound As Boolean, Optional autoImport As Boolean = False) As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + + Me.SPEDITIONSBUCH = SPEDITIONSBUCH + Me.strManNr = strManNr + Me.strManNl = strManNl + + If strManNl = "SBG" Then + ATLAS_SERVER_VERBINDUNG = "ATLAS_SBG" + Else + ATLAS_SERVER_VERBINDUNG = "ATLAS" + End If + + '------------------------------------------------------------------------------------------------------------- + + ' ATLAS / EZOLL + ' Dim strManNr = txtFirma.Text + ' Dim strManNl As String = cboNiederlassung.Text + + Select Case Zollsystem + Case 0 'ATLAS + SPEDITIONSBUCH.Zollsystem = "A" + If EZA_Nr <> "" Then + ' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr + AtlasEZADatenbereitstellung(EZA_Nr) 'BSP: 4/4817/16 + ElseIf NCTS_Nr <> "" Then + ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr + AtlasNCTSDatenbereitstellung(NCTS_Nr) '4/4990/16 + End If + notFound = Me.notFound + Case 1 'ezoll + SPEDITIONSBUCH.Zollsystem = "E" + If EZA_Nr <> "" Then + ' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr + EZollEZADatenbereitstellung(EZA_Nr) + ElseIf NCTS_Nr <> "" Then + ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr + EZollNCTSDatenbereitstellung(NCTS_Nr) + End If + notFound = Me.notFound + Case 2 'dakosy + SPEDITIONSBUCH.Zollsystem = "D" + If EZA_Nr <> "" Then + + DAKOSY_Worker.cDakosyEZA.DakosyEZADatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, PosAnzahl) + + + ElseIf NCTS_Nr <> "" Then + ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr + DAKOSY_Worker.cDakosyNCTSOut.DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound) + + End If + Me.notFound = notFound + Case 3 'telotec + SPEDITIONSBUCH.Zollsystem = "T" + If EZA_Nr <> "" Then + + TELOTEC_Worker.cTelotec_Anmeldung.TELOTECDatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, "EZA", PosAnzahl) + + + ElseIf NCTS_Nr <> "" Then + ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr + TELOTEC_Worker.cTelotec_Anmeldung.TELOTECDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound, "NCTS", PosAnzahl) + + End If + Me.notFound = notFound + Case Else 'Kein Zollsystem + End Select + + + + If avisoLinkId = 0 Or SendungId = 0 Then + Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(If(EZA_Nr <> "", EZA_Nr, NCTS_Nr)) + If DY IsNot Nothing Then + If avisoLinkId = 0 Then avisoLinkId = If(DY.dy_AvisoId, 0) + If SendungId = 0 Then SendungId = If(DY.dy_SendungsId, 0) + End If + + End If + + + + '------------------------------------------------------------------------------------------------------------- + + + + If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now.ToShortDateString + + ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) + If SendungId = 0 And SPEDITIONSBUCH.SendungID > 0 Then SendungId = SPEDITIONSBUCH.SendungID 'Falls falsch übergeben + If SendungId > 0 Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId) + ' Dim dt As DataTable = SQLAVISO.loadDataTableBySQL("SELECT * FROM tblSendungen WHERE tblSnd_SendungID='" & SendungId & "' ") + + If SENDUNG IsNot Nothing Then + ' Dim r As DataRow = dt.Rows(0) + If SENDUNG.tblSnd_Warenbezeichnung <> "" Then + packstueckeAVISO_TMP = IIf(SENDUNG.tblSnd_Colli <> "", SENDUNG.tblSnd_Colli & " Pk. ", "") + packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Warenbezeichnung <> "", SENDUNG.tblSnd_Warenbezeichnung, "") + packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Gewicht <> "", ", " & SENDUNG.tblSnd_Gewicht & " kg ", "") + End If + RohmasseAviso = IIf(SENDUNG.tblSnd_Gewicht <> "", SENDUNG.tblSnd_Gewicht, "") + + If SPEDITIONSBUCH.Abfertigungsart <= 0 Then SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID + If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then SPEDITIONSBUCH.Abfertigungsanzahl = SENDUNG.tblSnd_anzahlHandling + If SPEDITIONSBUCH.PersonalnummerQS <= 0 Then SPEDITIONSBUCH.PersonalnummerQS = SENDUNG.tblSnd_QS_MA + + + SENDUNG.LOAD_ABRECHNUNG() + Dim FindPOS = SENDUNG.ABRECHNUNG.Find(Function(x) x.sndabr_beteiligter = "AUFTR" And x.sndabr_wert = "ERSTATTUNG") + If FindPOS IsNot Nothing Then SPEDITIONSBUCH.AuftraggeberBetragKassiert = If(FindPOS.sndabr_preis, 0) + + Try + + Dim dt As DataTable = KDSQL.loadDgvBySql("SELECT * FROM ( " & + " SELECT rksv_BelegId, isnull(rksv_umsatz ,0) as rksv_umsatz, isnull((Select Name from Personal where ID=b.Benutzer),'') as Benutzer FROM [tblEABelegnummer] as b INNER JOIN [tblEABelegposition] as p ON (b.BelegNr = p.BelegNr AND b.BelegDat = p.BelegDat AND b.Benutzer = p.Benutzer AND b.Niederlassung = p.Niederlassung AND b.Mandant = p.Mandant) where b.AbfertigungsNr='" & SPEDITIONSBUCH.AbfertigungsNr & "' and b.FilialenNr='" & SPEDITIONSBUCH.FilialenNr & "' and storniert=0 and gebuchtstorno=0 " & + " UNION " & + " SELECT rksv_BelegId , sum(p.Betrag) as rksv_umsatz,isnull((Select Name from Personal where ID=b.Benutzer),'') as Benutzer FROM [tblEABelegnummer] as b INNER JOIN [tblEABelegposition] as p ON (b.BelegNr = p.BelegNr AND b.BelegDat = p.BelegDat AND b.Benutzer = p.Benutzer AND b.Niederlassung = p.Niederlassung AND b.Mandant = p.Mandant) where p.AbfertigungsNr='" & SPEDITIONSBUCH.AbfertigungsNr & "' and p.FilialenNr='" & SPEDITIONSBUCH.FilialenNr & "' and storniert=0 and gebuchtstorno=0 group by rksv_BelegId,b.Benutzer " & + " ) as Tb order by rksv_BelegId", "FMZOLL") + Dim BenutzerTmp = "" + Dim BelegNrTmp = "" + Dim BetragTmp As Double = 0 + + If dt.Rows.Count > 0 Then + + For Each r In dt.Rows + If BenutzerTmp = "" Then BenutzerTmp = r("Benutzer") + If r("Benutzer") <> BenutzerTmp Then BenutzerTmp = "Div.Benutzer" + If (IsNumeric(r("rksv_umsatz"))) Then BetragTmp += r("rksv_umsatz") + BelegNrTmp &= r("rksv_BelegId") & "," + Next + BenutzerTmp = getBenutzerShort(BenutzerTmp) + If BelegNrTmp.EndsWith(",") Then BelegNrTmp = BelegNrTmp.Substring(0, BelegNrTmp.Length - 1) + SPEDITIONSBUCH.Bar = True + If SPEDITIONSBUCH.ErfassungsNr = "" Then SPEDITIONSBUCH.ErfassungsNr = "VERA/" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "/" & BenutzerTmp & "/" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "/" & BelegNrTmp & "/" & BetragTmp + If SPEDITIONSBUCH.Barzahlungsbetrag = 0 Then SPEDITIONSBUCH.Barzahlungsbetrag = BetragTmp + + End If + Catch ex As Exception + MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace) + End Try + + + 'If If(SENDUNG.tblSnd_bar, False) Then + 'SPEDITIONSBUCH.Bar = True + ' If (SENDUNG.tblSnd_barBeleg IsNot Nothing) And SPEDITIONSBUCH.ErfassungsNr = "" Then SPEDITIONSBUCH.ErfassungsNr = "VERA/" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "/" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "/" & SENDUNG.tblSnd_barBeleg + ' If (SENDUNG.tblSnd_betrag IsNot Nothing) And SPEDITIONSBUCH.Barzahlungsbetrag = 0 Then SPEDITIONSBUCH.Barzahlungsbetrag = SENDUNG.tblSnd_betrag + ' End If + ' + + + If SPEDITIONSBUCH.NCTS_Verzollungsadresse Is Nothing OrElse SPEDITIONSBUCH.NCTS_Verzollungsadresse = "" Then + SPEDITIONSBUCH.NCTS_Verzollungsadresse = SENDUNG.tblSnd_NCTSVerzollungsadresse + + SPEDITIONSBUCH.NCTS_Verzollungsadresse = If(SENDUNG.tblSnd_NCTSVerzollungsadresse, "") + SPEDITIONSBUCH.NCTS_Verzollungsadresse &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Strasse, "") + SPEDITIONSBUCH.NCTS_Verzollungsadresse &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Land, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_Ort, "") + SPEDITIONSBUCH.NCTS_Verzollungsadresse &= vbNewLine + SPEDITIONSBUCH.NCTS_Verzollungsadresse = SPEDITIONSBUCH.NCTS_Verzollungsadresse.Trim + + + + End If + If SPEDITIONSBUCH.Endempfänger Is Nothing OrElse SPEDITIONSBUCH.Endempfänger = "" Then + SPEDITIONSBUCH.Endempfänger = SENDUNG.tblSnd_Endempfaenger + End If + + + If IsNull(SPEDITIONSBUCH.KdAuftragsNr) Then SPEDITIONSBUCH.KdAuftragsNr = If(SENDUNG.tblSnd_KdAuftragsNr, "") + If IsNull(SPEDITIONSBUCH.KdAuftragsNrAvisierer) Then SPEDITIONSBUCH.KdAuftragsNrAvisierer = If(SENDUNG.tblSnd_KdAuftragsNrAvisierer, "") + If IsNull(SPEDITIONSBUCH.KdAuftragsNrEmpfaenger) Then SPEDITIONSBUCH.KdAuftragsNrEmpfaenger = If(SENDUNG.tblSnd_KdAuftragsNrEmpfaenger, "") + If IsNull(SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer) Then SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer = If(SENDUNG.tblSnd_KdAuftragsNrFrachtfuehrer, "") + + End If + + If avisoLinkId > 0 Then + + Dim sgut = CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID='" & avisoLinkId & "' ", "AVISO")) + If sgut = 1 Then + SPEDITIONSBUCH.SgutKompl = "K" + ElseIf sgut > 1 Then + SPEDITIONSBUCH.SgutKompl = "S" + End If + + + Aviso = SQLAVISO.LesenAviso(avisoLinkId, "") + If Aviso IsNot Nothing Then + ' If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = CDate(Aviso.Freigabe).ToShortDateString + If Aviso.Freigabe > CDate("01.01.2000") Then 'SPEDITIONSBUCH.Abfertigungsdatum Then + SPEDITIONSBUCH.Abfertigungsdatum = CDate(Aviso.Freigabe).ToShortDateString + End If + ' pnl3.Visible = True + ' txtAuftraggeber.Text = Aviso.Auftraggeber + ' txtAuftraggeberKdNr.Text = Aviso.Auftraggeber_KdNr + + SPEDITIONSBUCH.Avisierer = Aviso.Auftraggeber + If getint(Aviso.Auftraggeber_KdNr) > 0 Then SPEDITIONSBUCH.AvisiererKundenNr = Aviso.Auftraggeber_KdNr + + SPEDITIONSBUCH.Frachtführer = Aviso.Frächter + If getint(Aviso.Frächter_KdNr) > 0 Then SPEDITIONSBUCH.FrachtführerKundenNr = Aviso.Frächter_KdNr + + + SPEDITIONSBUCH.LKW_Kennzeichen = Aviso.LKW_Nr + If IsDate(Aviso.Freigabe) Then SPEDITIONSBUCH.AvisUhrzeit = CDate(Aviso.Freigabe) ' : MsgBox("dATE:" & CDate(Aviso.Freigabe).ToShortTimeString) + + + If SPEDITIONSBUCH.Grenzstelle Is Nothing OrElse SPEDITIONSBUCH.Grenzstelle = "" Then + SPEDITIONSBUCH.Grenzstelle = If(Aviso.Grenzstelle, "") + End If + End If + + End If + + + + + + + If SENDUNG IsNot Nothing Then + If SPEDITIONSBUCH.AbsenderKundenNr Is Nothing OrElse SPEDITIONSBUCH.AbsenderKundenNr <= 0 Then + If SENDUNG.tblSnd_AbsenderKdNr > 0 Then + SPEDITIONSBUCH.AbsenderKundenNr = SENDUNG.tblSnd_AbsenderKdNr + End If + If SPEDITIONSBUCH.Absender Is Nothing OrElse SPEDITIONSBUCH.Absender = "" Then SPEDITIONSBUCH.Absender = SENDUNG.tblSnd_Absender + End If + If SPEDITIONSBUCH.EmpfängerKundenNr Is Nothing OrElse SPEDITIONSBUCH.EmpfängerKundenNr <= 0 Then + If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then SPEDITIONSBUCH.EmpfängerKundenNr = SENDUNG.tblSnd_EmpfaengerKdNr + If SPEDITIONSBUCH.Empfänger Is Nothing OrElse SPEDITIONSBUCH.Empfänger = "" Then SPEDITIONSBUCH.Empfänger = SENDUNG.tblSnd_Empfaenger + End If + + If SPEDITIONSBUCH.VermittlerKundenNr Is Nothing OrElse SPEDITIONSBUCH.VermittlerKundenNr <= 0 Then + + If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then SPEDITIONSBUCH.VermittlerKundenNr = SENDUNG.tblSnd_AuftraggeberKdNr ': MsgBox(SENDUNG.tblSnd_AuftraggeberKdNr) + If SPEDITIONSBUCH.Vermittler Is Nothing OrElse SPEDITIONSBUCH.Vermittler = "" Then SPEDITIONSBUCH.Vermittler = SENDUNG.tblSnd_Auftraggeber + End If + End If + + SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr + SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr + + If PosAnzahl > 0 Then + SPEDITIONSBUCH.Vermerk = "Pos-Anzahl: " & PosAnzahl + End If + + 'Wenn Packstücke im Aviso eingegeben wurden, werden diese in das Speditionbuch gespeichert + If packstueckeAVISO_TMP.Trim <> "" Then + SPEDITIONSBUCH.Packstücke = packstueckeAVISO_TMP + If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Bemerkungen = packstueckeZOLL_TMP + Else + If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Packstücke = packstueckeZOLL_TMP + End If + + 'Wenn Gewicht im Aviso eingegeben ist, aber keine Rohmasse von ATLAS/EZOLL + If IsNull(SPEDITIONSBUCH.Rohmasse) And Not IsNull(RohmasseAviso) Then + If IsNumeric(RohmasseAviso) Then + SPEDITIONSBUCH.Rohmasse = CInt(RohmasseAviso) + End If + End If + + ' If autoImport And Not notFound Then + If SENDUNG IsNot Nothing AndAlso SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then + If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28) And NCTS_Nr <> "" Then + 'Überstellungs-T + SPEDITIONSBUCH.Abfertigungsart = 5 + Else + SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID + End If + End If + ' End If + + + + correctEntry(SPEDITIONSBUCH.AbsenderKundenNr, SPEDITIONSBUCH.Absender) + correctEntry(SPEDITIONSBUCH.EmpfängerKundenNr, SPEDITIONSBUCH.Empfänger) + correctEntry(SPEDITIONSBUCH.VermittlerKundenNr, SPEDITIONSBUCH.Vermittler) + correctEntry(SPEDITIONSBUCH.AvisiererKundenNr, SPEDITIONSBUCH.Avisierer) + correctEntry(SPEDITIONSBUCH.EndempfängerKundenNr, SPEDITIONSBUCH.Endempfänger) + + If SPEDITIONSBUCH.Währungsschlüssel Is Nothing OrElse (IsNumeric(SPEDITIONSBUCH.Währungsschlüssel) AndAlso SPEDITIONSBUCH.Währungsschlüssel <= 0) Then SPEDITIONSBUCH.Währungsschlüssel = 900 + + + 'notFound = Me.notFound + + If autoImport AndAlso Not checkIfAutoOK() Then + notFound = True + End If + Return SPEDITIONSBUCH + End Function + + Shared Function getBenutzerShort(s As String) As String + If s.ToString.Contains(" ") Then + Dim split() = s.ToString.Split(" ") + getBenutzerShort = split(0) + Else + getBenutzerShort = s + End If + If getBenutzerShort.Length > 10 Then + getBenutzerShort = getBenutzerShort.Substring(0, 10) + End If + + End Function + Public Function AUTO_IMPORT(SendungId As Integer) As Boolean + If SendungId > 0 Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId) + ' Dim dt As DataTable = SQLAVISO.loadDataTableBySQL("SELECT * FROM tblSendungen WHERE tblSnd_SendungID='" & SendungId & "' ") + If SENDUNG Is Nothing Then Return False + + Aviso = SQLAVISO.LesenAviso(SENDUNG.tblSnd_AvisoID, "") + + Dim SPED_LIST = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) + If SPED_LIST.LIST.Count > 0 Then + MsgBox("Es existieren bereits Einträge zur PosNr '" & SENDUNG.FilialenNr & " " & SENDUNG.AbfertigungsNr & "'") + Return False + End If + + ' Dim BezugsNr(4) As String + + Dim ATLAS_SERVER = "" + + Dim strManNl = "SUB" + + + 'If cboNiederlassung.Text <> "" Then + 'strManNl = cboNiederlassung.Text + ' Else + ' cboNiederlassung.SelectedIndex = 0 + Select Case SENDUNG.FilialenNr + Case 4803, 4809 + strManNl = "SUB" + Case 4801 + strManNl = "SUW" + Case 5003 + strManNl = "SBG" 'ANDERER SERVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + Case 5103 + strManNl = "WAI" + End Select + + + ' FELT: STATUS, AAAAAAA + Dim BezugsNr = genBezugsNummern(SENDUNG, strManNl) + + Dim SPEDBUCH_TMP As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) + ' SPEDBUCH_TMP.AbfertigungsNr + Dim cnt = 0 + For Each s In BezugsNr + If IMPORT_SPED_BUCH(SENDUNG.tblSnd_AvisoID, SendungId, SPEDBUCH_TMP, 0, s, "", ATLAS_SERVER) Then SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) : SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) : cnt += 1 + If IMPORT_SPED_BUCH(SENDUNG.tblSnd_AvisoID, SendungId, SPEDBUCH_TMP, 1, s, "", ATLAS_SERVER) Then SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) : SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) : cnt += 1 + Next + For Each s In BezugsNr + If IMPORT_SPED_BUCH(SENDUNG.tblSnd_AvisoID, SendungId, SPEDBUCH_TMP, 0, "", s, ATLAS_SERVER) Then SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) : SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) : cnt += 1 + If IMPORT_SPED_BUCH(SENDUNG.tblSnd_AvisoID, SendungId, SPEDBUCH_TMP, 1, "", s, ATLAS_SERVER) Then SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) : SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) : cnt += 1 + Next + + Return (cnt > 0) + End Function + + + + Function checkIfAutoOK() As Boolean + Try + + If If(SPEDITIONSBUCH.Personalnummer, "") = "" Then Return False + If If(SPEDITIONSBUCH.Vermittler, "") = "" Then Return False + If Not IsNumeric(If(SPEDITIONSBUCH.Abfertigungsart, "")) Then Return False + If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then Return False + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("Validierungsfehler SpedBuch - Trotzdem eingearbeitet!", ex.Message, ex.StackTrace, "al@verag.ag", "") + End Try + Return True + End Function + + Public Function genBezugsNummern(SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, strManNl As String) As List(Of String) + genBezugsNummern = New List(Of String) + + Dim filiale As String = SENDUNG.FilialenNr + Dim pos As String = "" + Dim jahr As String = "" + + If SENDUNG.AbfertigungsNr.ToString.Length >= 8 Then + pos = CInt(SENDUNG.AbfertigungsNr.ToString.Substring(2)) + End If + + If Aviso IsNot Nothing AndAlso IsDate(Aviso.Freigabe) AndAlso Aviso.Freigabe > CDate("01.01.2000") Then + jahr = Aviso.Freigabe.ToString("yy") ' Falls Neujahr + Else + jahr = Now.ToString("yy") ' Falls Neujahr + End If + + If strManNl = "SBG" Then + ATLAS_SERVER_VERBINDUNG = "ATLAS_SBG" + Else + ATLAS_SERVER_VERBINDUNG = "ATLAS" + End If + + Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt As DataTable = VERAGSQL.loadDgvBySql("SELECT isnull(veoant_beznr,'') as veoant_beznr FROM veoant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And (veoant_beznr LIKE '%" & filiale & "/" & pos & "/" & jahr & "%' OR veoant_beznr LIKE '%" & filiale & "-" & pos & "-" & jahr & "%') AND veoant_stat BETWEEN 50 AND 60 ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr DESC", ATLAS_SERVER_VERBINDUNG) + + If dt IsNot Nothing Then + For Each r As DataRow In dt.Rows + If r("veoant_beznr") <> String.Empty Then genBezugsNummern.Add(r("veoant_beznr")) + Next + End If + + End Function + + Public Function genBezugsNummernAAA(SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As List(Of String) + genBezugsNummernAAA = New List(Of String) + + Dim filiale As String = SENDUNG.FilialenNr + Dim pos As String = "" + Dim jahr As String = "" + + If SENDUNG.AbfertigungsNr.ToString.Length >= 8 Then + pos = CInt(SENDUNG.AbfertigungsNr.ToString.Substring(2)) + End If + + If Aviso IsNot Nothing AndAlso IsDate(Aviso.Freigabe) AndAlso Aviso.Freigabe > CDate("01.01.2000") Then + jahr = Aviso.Freigabe.ToString("yy") ' Falls Neujahr + Else + jahr = Now.ToString("yy") ' Falls Neujahr + End If + + + genBezugsNummernAAA.Add(filiale & "/" & pos & "/" & jahr) + genBezugsNummernAAA.Add(filiale & "/" & pos & "/" & jahr & "A") + genBezugsNummernAAA.Add(filiale & "/" & pos & "/" & jahr & "AA") + genBezugsNummernAAA.Add(filiale & "/" & pos & "/" & jahr & "AAA") + + Select Case SENDUNG.tblSnd_Abfertigungsart_ID + Case "33", "34", "37" + + ' filiale = "TOBB" + genBezugsNummernAAA.Add("TOBB/" & filiale & "/" & pos & "/" & jahr) + genBezugsNummernAAA.Add("TOBB/" & filiale & "/" & pos & "/" & jahr & "A") + genBezugsNummernAAA.Add("TOBB/" & filiale & "/" & pos & "/" & jahr & "AA") + genBezugsNummernAAA.Add("TOBB/" & filiale & "/" & pos & "/" & jahr & "AAA") + + ' filiale = "EKOL" + genBezugsNummernAAA.Add("EKOL/" & filiale & "/" & pos & "/" & jahr) + genBezugsNummernAAA.Add("EKOL/" & filiale & "/" & pos & "/" & jahr & "A") + genBezugsNummernAAA.Add("EKOL/" & filiale & "/" & pos & "/" & jahr & "AA") + genBezugsNummernAAA.Add("EKOL/" & filiale & "/" & pos & "/" & jahr & "AAA") + + ' filiale = "SGS" + genBezugsNummernAAA.Add("SGS/" & filiale & "/" & pos & "/" & jahr) + genBezugsNummernAAA.Add("SGS/" & filiale & "/" & pos & "/" & jahr & "A") + genBezugsNummernAAA.Add("SGS/" & filiale & "/" & pos & "/" & jahr & "AA") + genBezugsNummernAAA.Add("SGS/" & filiale & "/" & pos & "/" & jahr & "AAA") + End Select + + + 'Return BezugsNr + End Function + Function IMPORT_SPED_BUCH(AvisoId As Integer, SendungId As Integer, ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ZollSystem As String, EZANr As String, NCTSNr As String, ATLAS_SERVER_VERBINDUNG As String) As Boolean + ' Label26.ForeColor = Color.Black + ' If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Then + 'If cboZollsystem._value = "" Then + 'Label26.ForeColor = Color.Red + ' Exit Function + ' End If + ' End If + + Dim strManNr = "VERA" + Dim strManNl = "SUB" + + + 'If cboNiederlassung.Text <> "" Then + 'strManNl = cboNiederlassung.Text + ' Else + ' cboNiederlassung.SelectedIndex = 0 + Select Case SPEDITIONSBUCH.FilialenNr + Case 4803, 4809 + strManNl = "SUB" + Case 4801 + strManNl = "SUW" + Case 5003 + strManNl = "SBG" 'ANDERER SERVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + Case 5103 + strManNl = "WAI" + End Select + 'End If + + ' Dim ZOLL_IMPORT As New SDL.ZOLL_IMPORT + Dim notFound = False + ' Dim ATLAS_SERVER_VERBINDUNG = "" + 'If cboNiederlassung.Text <> "" Then ATLAS_SERVER_VERBINDUNG = cboNiederlassung.Text + SPEDITIONSBUCH = IMPORT(SPEDITIONSBUCH, AvisoId, SendungId, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound, True) + ' If notFound Then + ' lblZollsys.Visible = True + ' If notFound And notFoundErrorAllowed Then MsgBox("Der Eintrag wurde nicht gefunden!", vbInformation) + ' Else + ' lblZollsys.Visible = False + 'End If + ' loaddata() + ' Import_Starten() + Return Not notFound + End Function + + Sub correctEntry(ByRef KundenNr, ByRef KdName) + If KundenNr IsNot Nothing Then + If KundenNr <= 0 Then + KundenNr = Nothing : Exit Sub + Else + If KdName = "" Then + KdName = KDSQL.getValueTxtBySql("SELECT isnull(Ordnungsbegriff,'') FROM Adressen WHERE AdressenNr=" & KundenNr, "FMZOLL") + End If + End If + End If + If KdName IsNot Nothing AndAlso KdName.ToString.Length > 50 Then + KdName = KdName.ToString.Substring(0, 50) + End If + End Sub + + + Private Sub AtlasEZADatenbereitstellung(EZA_Nr) + Dim dATLAS As DataTable = KDSQL.loadDgvBySql("SELECT basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_anmzb, zbant_vertzb, zbant_verszb, zbant_vland, zbant_bbland, zbant_rohm, zbant_bfkzi, zbant_preisr, zbant_waehr, zbant_kurs,zbant_verseori,zbant_anmeori,zbant_verteori,zbant_sb " & + " FROM zbant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And zbant_beznr='" & EZA_Nr & "' ORDER BY basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_antart", ATLAS_SERVER_VERBINDUNG) + ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) + If dATLAS Is Nothing Then notFound = True : Exit Sub + + If dATLAS.Rows.Count > 0 Then + notFound = False + ' TextBox1.ForeColor = Color.Green + For Each r As DataRow In dATLAS.Rows + ' r.Item("").ToString() + + ' MsgBox(fNEF.txtAbsender.Text) + + If SPEDITIONSBUCH.Absender = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Absender, SPEDITIONSBUCH.AbsenderKundenNr, 3, 1, r.Item("zbant_verszb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verseori")) + If SPEDITIONSBUCH.Empfänger = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Empfänger, SPEDITIONSBUCH.EmpfängerKundenNr, 4, 2, r.Item("zbant_anmzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_anmeori")) + ' If SPEDITIONSBUCH.Vermittler = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Vermittler, SPEDITIONSBUCH.VermittlerKundenNr, -1, 3, r.Item("zbant_vertzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verteori")) + + + If Not IsNull(r.Item("zbant_vland")) And Not Trim(r.Item("zbant_vland")) = "" Then + SPEDITIONSBUCH.Versendungsland = Trim(r.Item("zbant_vland")) + End If + + If Not IsNull(r.Item("zbant_bbland")) And Not Trim(r.Item("zbant_bbland")) = "" Then + SPEDITIONSBUCH.Bestimmungsland = Trim(r.Item("zbant_bbland")) + End If + + If Not IsNull(r.Item("zbant_bfkzi")) And Not Trim(r.Item("zbant_bfkzi")) = "" Then + SPEDITIONSBUCH.LKW_Kennzeichen = Microsoft.VisualBasic.Strings.Left(Trim(r.Item("zbant_bfkzi")), 25) + ' TextBoxLKWKz.Text = r.Item("zbant_bfkzi").trim() + End If + If Not IsNull(r.Item("zbant_regnr")) And Not Trim(r.Item("zbant_regnr")) = "" Then + SPEDITIONSBUCH.BelegNr = Trim(r.Item("zbant_regnr")) ' fNEF.txtBelegNummerZAT1T2.Text + End If + If Not IsNull(r.Item("zbant_waehr")) Then + If r.Item("zbant_waehr") = "EUR" Then + SPEDITIONSBUCH.Währungsschlüssel = "900" + Else + SPEDITIONSBUCH.Währungsschlüssel = getWaehr(r.Item("zbant_waehr")) + End If + + ' MsgBox(r.Item("zbant_waehr")) + End If + If Not IsNull(r.Item("zbant_preisr")) Then + SPEDITIONSBUCH.Rechnungsbetrag = CDbl(r.Item("zbant_preisr")) + End If + If Not IsNull(r.Item("zbant_kurs")) And r.Item("zbant_kurs") <> 0 Then + SPEDITIONSBUCH.Umrechnungskurs = r.Item("zbant_kurs") + End If + If Not IsNull(r.Item("zbant_rohm")) AndAlso IsNumeric(r.Item("zbant_rohm")) Then + SPEDITIONSBUCH.Rohmasse = CInt(r.Item("zbant_rohm")) + End If + + 'Personal Abfertigung: + Try + If Not IsNull(r.Item("zbant_sb")) Then + Dim p = KDSQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_ATLAS_SB='" & r.Item("zbant_sb") & "'", "ADMIN") + SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) + End If + Catch ex As Exception + MsgBox("Fehler ATLAS Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + End Try + Next + Else + notFound = True + End If + + dATLAS = Nothing + dATLAS = KDSQL.loadDgvBySql("SELECT zbpos_posnr, zbpos_stkanz, zbpos_stkart, zbpos_stkzei, zbpos_wanr, zbpos_wazus1, zbpos_wazus2, zbpos_wabes " & + " FROM zbpos WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And zbant_beznr='" & EZA_Nr & "' " & + " ORDER BY basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_antart, zbpos_posnr ", ATLAS_SERVER_VERBINDUNG) + ' rst = GetRecordsetADO(strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText) + If packstueckeZOLL_TMP.ToString = "" Then + If dATLAS.Rows.Count > 0 Then + Dim packst As String = "" + For Each r As DataRow In dATLAS.Rows + If r.Item("zbpos_posnr") = 1 Then + If Not IsNull(r.Item("zbpos_stkanz")) And Not r.Item("zbpos_stkanz") = 0 Then + packst = packst & r.Item("zbpos_stkanz") + If Not Trim(r.Item("zbpos_stkart")) = "" Then + packst = packst & " " & Trim(r.Item("zbpos_stkart")) + End If + 'If Not Trim(rst!zbpos_stkzei) = "" Then + ' Me!Packstücke = Me!Packstücke & " " & Trim(rst!zbpos_stkzei) + 'End If + packst = packst & " " + End If + 'If Not Trim(rst!zbpos_wanr) = "" Then + ' Me!Packstücke = Me!Packstücke & "TNr: " & Trim(rst!zbpos_wanr) + 'End If + 'If Not Trim(rst!zbpos_wazus1) = "" Then + ' Me!Packstücke = Me!Packstücke & "/" & Trim(rst!zbpos_wazus1) + 'End If + 'If Not Trim(rst!zbpos_wazus2) = "" Then + ' Me!Packstücke = Me!Packstücke & "/" & Trim(rst!zbpos_wazus2) + 'End If + 'Me!Packstücke = Me!Packstücke & " Warenbeschreibung lt. Anlage" + 'Me!Packstücke = Me!Packstücke & vbCrLf + If Not Trim(r.Item("zbpos_wabes")) = "" Then + packst = packst & Trim(r.Item("zbpos_wabes")) + End If + End If + Next + packstueckeZOLL_TMP = packst + PosAnzahl = dATLAS.Rows.Count + End If + End If + + 'Schleife durchlaufen, bis keine passenden Datensätze mehr vorhanden sind. + + + End Sub + + + Public Function getMRNFROM_AtlasNCTSDatenbereitstellung(strManNr, strManNl, NCTS_Nr) As String + If strManNl = "SBG" Then + ATLAS_SERVER_VERBINDUNG = "ATLAS_SBG" + Else + ATLAS_SERVER_VERBINDUNG = "ATLAS" + End If + Return KDSQL.getValueTxtBySql("SELECT TOP 1 veoant_mrn FROM veoant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And veoant_beznr='" & NCTS_Nr & "' AND veoant_stat BETWEEN 50 AND 60 ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr DESC", ATLAS_SERVER_VERBINDUNG) + End Function + Public Function getMRNFROM_EZollNCTSDatenbereitstellung(NCTS_Nr) As String + 'Return KDSQL.getValueTxtBySql("SELECT top 1 CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "') ORDER BY GeaendertAm DESC", "EZOLL") + Return KDSQL.getValueTxtBySql("SELECT top 1 CRN from zsAnmRefs left JOIN [zsAnmDHFRefs] on [zsAnmDHFRefs].AnmID=zsAnmRefs.AnmID AND [zsAnmDHFRefs].OperatorID=zsAnmRefs.OperatorID AND [zsAnmDHFRefs].LizenzNr=zsAnmRefs.LizenzNr where (zsAnmDHFRefs.VorgangID = 'AV') AND (LRN LIKE '" & NCTS_Nr & "') and ErledigungsTypID IN ('F','FB') ORDER BY zsAnmDHFRefs.GeaendertAm DESC", "EZOLL") + End Function + + Public Function getMRNFROM_EZollNCTSDatenbereitstellungDT(NCTS_Nr) As DataTable + 'Return KDSQL.getValueTxtBySql("SELECT top 1 CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "') ORDER BY GeaendertAm DESC", "EZOLL") + Return KDSQL.loadDgvBySql("SELECT CRN from zsAnmRefs left JOIN [zsAnmDHFRefs] on [zsAnmDHFRefs].AnmID=zsAnmRefs.AnmID AND [zsAnmDHFRefs].OperatorID=zsAnmRefs.OperatorID AND [zsAnmDHFRefs].LizenzNr=zsAnmRefs.LizenzNr where (zsAnmDHFRefs.VorgangID = 'AV') AND (LRN LIKE '" & NCTS_Nr & "') and ErledigungsTypID IN ('F','FB') ORDER BY zsAnmDHFRefs.GeaendertAm DESC", "EZOLL") + End Function + + + + Private Sub AtlasNCTSDatenbereitstellung(NCTS_Nr) + 'Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) + + + Dim dATLAS As DataTable = KDSQL.loadDgvBySql("SELECT basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veoant_tinve, veoant_tinem, veoant_tinze, veoant_tinhp, veoant_ldvs, veoant_ldbe, veoant_bfabkz, veoant_mrn, veoant_gsroh, veoant_anzcol, veoant_bedst, veoant_sb " & + " FROM veoant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And veoant_beznr='" & NCTS_Nr & "' " & + " ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr DESC", ATLAS_SERVER_VERBINDUNG) + If dATLAS Is Nothing Then notFound = True : Exit Sub + If dATLAS.Rows.Count > 0 Then + notFound = False + ' TextBox2.ForeColor = Color.Green + For Each r As DataRow In dATLAS.Rows + ' r.Item("").ToString() + + + If SPEDITIONSBUCH.Absender = "" Then setAdresseAndKundenNrNCTS(SPEDITIONSBUCH.Absender, SPEDITIONSBUCH.AbsenderKundenNr, 3, 1, r.Item("veoant_tinve"), r.Item("veoant_tinve"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("veoant_beznr"), r.Item("veoant_lfdnr"), 0, 1, r.Item("veoant_ldvs")) + If SPEDITIONSBUCH.Empfänger = "" Then setAdresseAndKundenNrNCTS(SPEDITIONSBUCH.Empfänger, SPEDITIONSBUCH.EmpfängerKundenNr, 4, 2, r.Item("veoant_tinze"), r.Item("veoant_tinem"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("veoant_beznr"), r.Item("veoant_lfdnr"), 0, 2, r.Item("veoant_ldbe")) + If SPEDITIONSBUCH.Vermittler = "" Then setAdresseAndKundenNrNCTS(SPEDITIONSBUCH.Vermittler, SPEDITIONSBUCH.VermittlerKundenNr, -1, 3, r.Item("veoant_tinhp"), r.Item("veoant_tinhp"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("veoant_beznr"), r.Item("veoant_lfdnr"), 0, 3, r.Item("veoant_ldbe")) + + + + If Not IsNull(r.Item("veoant_ldvs")) And Not Trim(r.Item("veoant_ldvs")) = "" Then + SPEDITIONSBUCH.Versendungsland = Trim(r.Item("veoant_ldvs")) + End If + + If Not IsNull(r.Item("veoant_ldbe")) And Not Trim(r.Item("veoant_ldbe")) = "" Then + SPEDITIONSBUCH.Bestimmungsland = Trim(r.Item("veoant_ldbe")) + End If + + ' Änderung 05.01.2006, damit Vorgaben aus Barbeleg nicht überschrieben werden. + 'Me!VermittlerKundenNr = Null + 'Me!Vermittler = Null + + + + If Not IsNull(r.Item("veoant_bfabkz")) And Not Trim(r.Item("veoant_bfabkz")) = "" Then + SPEDITIONSBUCH.LKW_Kennzeichen = Microsoft.VisualBasic.Strings.Left(Trim(r.Item("veoant_bfabkz")), 25) + ' TextBoxLKWKz.Text = r.Item("veoant_bfabkz").trim() + End If + If Not IsNull(r.Item("veoant_mrn")) And Not Trim(r.Item("veoant_mrn")) = "" Then + SPEDITIONSBUCH.BelegNr = Trim(r.Item("veoant_mrn")) + End If + + If packstueckeZOLL_TMP.ToString = "" Then + If Not IsNull(r.Item("veoant_anzcol")) Then + packstueckeZOLL_TMP = r.Item("veoant_anzcol") + End If + End If + + If Not IsNull(r.Item("veoant_gsroh")) Then + SPEDITIONSBUCH.Rohmasse = r.Item("veoant_gsroh") + End If + 'If Not IsNull(r.Item("veoant_bedst")) Then + ' fNEF.cboBestimmungsZollstelle.Text = r.Item("veoant_bedst") + ' End If + '-------------------------------------- + + 'Personal Abfertigung: + Try + If Not IsNull(r.Item("veoant_sb")) Then + Dim p = KDSQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_ATLAS_SB='" & r.Item("veoant_sb") & "'", "ADMIN") + SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) + End If + Catch ex As Exception + MsgBox("Fehler ATLAS Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + End Try + Next + Else + notFound = True + ' TextBox2.ForeColor = Color.Red + End If + + + Dim curPosNr0Basbtg As Double + Dim curPosNr0Sicbtg As Double + + Dim Rechnungsbetrag As Double = 0 + Dim Währungsschlüssel = 900 'Euro + Dim Sicherheitsbetrag As Double = 0 '??????????? + + dATLAS = Nothing + dATLAS = KDSQL.loadDgvBySql("SELECT veoant_beznr, veoant_lfdnr, veopos_posnr, veoerz_typ, veoerz_lfdnr, veoerz_sicbsc, veoerz_basbtg, veoerz_baswrg, veoerz_sicbtg, veoerz_sicwrg, veoant_korant" & _ + " FROM veoerz t1 WHERE (veoant_beznr = '" & NCTS_Nr & "') AND (basman_nr = '" & strManNr & "') AND (basman_nl = '" & strManNl & "') AND (veoerz_typ = 2)" & _ + " AND (veoant_korant = (SELECT MAX(t2.veoant_korant) FROM veoerz t2" & _ + " WHERE t2.veoant_beznr = t1.veoant_beznr AND t2.veoant_lfdnr = t1.veoant_lfdnr AND t2.veopos_posnr = t1.veopos_posnr AND" & _ + " t2.veoerz_typ = t1.veoerz_typ AND t2.veoerz_lfdnr = t1.veoerz_lfdnr AND t2.basman_nr = t1.basman_nr AND" & _ + " t2.basman_nl = t1.basman_nl)) " & _ + " ORDER BY veoant_lfdnr, veopos_posnr, veoerz_typ, veoerz_lfdnr", ATLAS_SERVER_VERBINDUNG) + If dATLAS.Rows.Count > 0 Then + notFound = False + Dim packst As String = "" + For Each r As DataRow In dATLAS.Rows + + ' If r.Item("veopos_posnr") = 0 And Not IsNull(r.Item("veoerz_sicbsc")) And Not Trim(r.Item("veoerz_sicbsc")) = "" Then + '[Bürgschaft] = Trim(r.Item("veoerz_sicbsc")) '???????? + ' End If + If curPosNr0Basbtg = 0 And r.Item("veoerz_basbtg") <> 0.0# Then + If r.Item("veoerz_baswrg") = "EUR" Or r.Item("veoerz_baswrg") = " " Then + Rechnungsbetrag = Rechnungsbetrag + r.Item("veoerz_basbtg") + Else + ' In Euro umrechnen. + 'HIER + If SPEDITIONSBUCH.Abfertigungsdatum IsNot Nothing Then + Dim dATLAS2 As DataTable = KDSQL.loadDgvBySql("SELECT baskur_kurs" & _ + " FROM baskur" & _ + " WHERE (baskur_code = '" & r.Item("veoerz_baswrg") & "')" & _ + " AND (baskur_typ = 1 OR baskur_typ = 2)" & _ + " AND (baskur_gvdat <= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & _ + " AND (baskur_gbdat >= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "'as DATETIME))" & _ + " AND (baskur_wkz = 'EUR')" & _ + " ORDER BY baskur_gvdat DESC, baskur_gbdat DESC", ATLAS_SERVER_VERBINDUNG) + + ' rst2 = GetRecordsetADO(strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText) + If dATLAS2.Rows.Count > 0 Then + Dim curEurobetrag = r.Item("veoerz_basbtg") / dATLAS2.Rows(0).Item("baskur_kurs") + curEurobetrag = Int(curEurobetrag * 100 + 0.5) / 100 'Runden + Rechnungsbetrag = Rechnungsbetrag + curEurobetrag + Else + Rechnungsbetrag = Rechnungsbetrag + r.Item("veoerz_basbtg") + ' Me!Währungsschlüssel = Null 'unterschiedliche Währungen + MsgBox("Es wurde kein Euro-Umrechnungskurs gefunden. Rechnungsbetrag wird ohne Kursumrechnung erzeugt.", , "Datenübernahme aus ATLAS " & r.Item("veoerz_basbtg") & " " & r.Item("veoerz_baswrg")) + End If + Else + MsgBox("Abfertigungsdatum ist nicht gesetzt. Rechnungsbetrag wurde nicht übernommen.") + + End If + End If + End If + If curPosNr0Sicbtg = 0 And r.Item("veoerz_sicbtg") <> 0.0# Then + If r.Item("veoerz_sicwrg") = "EUR" Or r.Item("veoerz_sicwrg") = " " Then + Sicherheitsbetrag = Sicherheitsbetrag + r.Item("veoerz_sicbtg") + Else + ' In Euro umrechnen. + If SPEDITIONSBUCH.Abfertigungsdatum IsNot Nothing Then + Dim dATLAS2 As DataTable = KDSQL.loadDgvBySql("SELECT baskur_kurs" & _ + " FROM baskur" & _ + " WHERE (baskur_code = '" & r.Item("veoerz_sicwrg") & "')" & _ + " AND (baskur_typ = 1 OR baskur_typ = 2)" & _ + " AND (baskur_gvdat <= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & _ + " AND (baskur_gbdat >= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & _ + " AND (baskur_wkz = 'EUR')" & _ + " ORDER BY baskur_gvdat DESC, baskur_gbdat DESC", ATLAS_SERVER_VERBINDUNG) + If dATLAS2.Rows.Count > 0 Then + Dim curEurobetrag = r.Item("veoerz_sicbtg") / dATLAS2.Rows(0).Item("baskur_kurs") + curEurobetrag = Int(curEurobetrag * 100 + 0.5) / 100 'Runden + Sicherheitsbetrag = Sicherheitsbetrag + curEurobetrag + Else + Sicherheitsbetrag = Sicherheitsbetrag + r.Item("veoerz_sicbtg") + MsgBox("Es wurde kein Euro-Umrechnungskurs gefunden. Sicherheitsbetrag wird ohne Kursumrechnung erzeugt.", , "Datenübernahme aus ATLAS " & r.Item("veoerz_sicbtg") & " " & r.Item("veoerz_sicwrg")) + + End If + Else + MsgBox("Abfertigungsdatum ist nicht gesetzt. Rechnungsbetrag wurde nicht übernommen.") + + End If + End If + End If + If r.Item("veopos_posnr") = 0 Then + ' Basisbetrag und Sicherheitsbetrag aus Positionssatz 0 zwischenspeichern. + curPosNr0Basbtg = r.Item("veoerz_basbtg") + curPosNr0Sicbtg = r.Item("veoerz_sicbtg") + End If + Next + + SPEDITIONSBUCH.Rechnungsbetrag = CDbl(Rechnungsbetrag) + SPEDITIONSBUCH.Sicherheitsbetrag = CDbl(Sicherheitsbetrag) + + End If + + End Sub + + + + + + + Function getAdresseFromEORI(EORI) + If EORI Is Nothing Then Return Nothing + If If(EORI, "") <> "" Then + Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI) + If IsNumeric(kdNrTmp) Then + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) + Return ADRESSE + End If + End If + Return Nothing + End Function + + Private Sub EZollNCTSDatenbereitstellung(NCTS_Nr) + ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) + + + Dim Bestimmungszollstelle = "" + Dim Bürgschaft = "" + Dim Sicherheitsbetrag As Double + Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & _ + " FROM zsAnmRefs" & _ + " WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "')" & _ + " ORDER BY GeaendertAm DESC", "EZOLL") + + If dEZOLL Is Nothing Then notFound = True : Exit Sub + If dEZOLL.Rows.Count = 0 Then + ' MsgBox("Die Bezugsnummer " & NCTS_Nr & " wurde nicht in der EZoll-Datenbank gefunden.", vbInformation, "Daten aus EZoll übernehmen") + notFound = True + ' TextBox2.ForeColor = Color.Red + Exit Sub + End If + 'TextBox2.ForeColor = Color.Green + Dim r As DataRow = dEZOLL.Rows(0) + notFound = False + + + If Not IsNull(r.Item("GeaendertAm")) Then + ' If IsNull(SPEDITIONSBUCH.Abfertigungsdatum) Then SPEDITIONSBUCH.Abfertigungsdatum = DateValue(r.Item("GeaendertAm")) ' GEHT SO NED, aber wird whsk nicht benötigt? + SPEDITIONSBUCH.AvisUhrzeit = CDate(r.Item("GeaendertAm")) + End If + If Not IsNull(r.Item("CRN")) Then SPEDITIONSBUCH.BelegNr = r.Item("CRN") + + If SPEDITIONSBUCH.Absender = "" Then + ' Tabelle zsAnmConorTra lesen. + Dim DTzsAnmConorTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _ + " FROM zsAnmConorTra" & _ + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + If DTzsAnmConorTra.Rows().Count > 0 Then + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Absender = Strings.Left(DTzsAnmConorTra.Rows(0).Item("Na"), 50) + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Ctry"), 50) + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Pst")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Pst"), 50) + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Cty")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Cty"), 50) + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Versendungsland = DTzsAnmConorTra.Rows(0).Item("Ctry") + End If + End If + + If SPEDITIONSBUCH.Empfänger = "" Then + ' Tabelle zsAnmConeeTra lesen. + Dim DTzsAnmConeeTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _ + " FROM zsAnmConeeTra" & _ + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + + If DTzsAnmConeeTra.Rows().Count > 0 Then + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Na"), 50) + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Ctry"), 50) + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Pst"), 50) + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Cty"), 50) + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Bestimmungsland = DTzsAnmConeeTra.Rows(0).Item("Ctry") + End If + End If + + ' Tabelle zsAnmTransp lesen. + Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt" & _ + " FROM zsAnmTransp" & _ + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + If DTzsAnmTransp.Rows().Count > 0 Then + If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then + SPEDITIONSBUCH.LKW_Kennzeichen = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25) + ' Me.TextBoxLKWKz.Text = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25) + End If + End If + + ' Tabelle zsAnmValData lesen. + Dim DTzsAnmValData As DataTable = KDSQL.loadDgvBySql("SELECT InvCurr, InvVal" & _ + " FROM zsAnmValData" & _ + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + + If DTzsAnmValData.Rows().Count > 0 Then + If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then + If DTzsAnmValData.Rows(0).Item("InvCurr") = "EUR" Then + SPEDITIONSBUCH.Währungsschlüssel = "900" + Else + SPEDITIONSBUCH.Währungsschlüssel = getWaehr(DTzsAnmValData.Rows(0).Item("InvCurr")) + End If + End If + ' fNEF.cbxWaehrung._value = DTzsAnmValData.Rows(0).Item("InvCurr") '!Währungsschlüssel = DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & DTzsAnmValData.Rows(0).Item("InvCurr") & "'") + If Not IsNull(DTzsAnmValData.Rows(0).Item("InvVal")) Then SPEDITIONSBUCH.Rechnungsbetrag = CDbl(DTzsAnmValData.Rows(0).Item("InvVal")) + End If + + ' Tabelle zsAnmHea lesen. + Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotPack, TotGross" & _ + " FROM zsAnmHea" & _ + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + + If packstueckeZOLL_TMP = "" Then + If DTzsAnmHea.Rows().Count > 0 Then + If Not IsNull(DTzsAnmHea.Rows(0).Item("TotPack")) Then packstueckeZOLL_TMP = DTzsAnmHea.Rows(0).Item("TotPack") & " Packst." + If Not IsNull(DTzsAnmHea.Rows(0).Item("TotGross")) AndAlso IsNumeric(IsNull(DTzsAnmHea.Rows(0).Item("TotGross"))) Then SPEDITIONSBUCH.Rohmasse = CInt(DTzsAnmHea.Rows(0).Item("TotGross")) + End If + + ' Tabelle zsAnmGdsitem lesen. + Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT GdsDes" & _ + " FROM zsAnmGdsitem" & _ + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")" & _ + " ORDER BY GdsItemID", "EZOLL") + + If DTzsAnmGdsitem.Rows().Count > 0 Then + If Not IsNull(DTzsAnmGdsitem.Rows(0).Item("GdsDes")) Then + If IsNull(packstueckeZOLL_TMP) Then + packstueckeZOLL_TMP = DTzsAnmGdsitem.Rows(0).Item("GdsDes") + Else + packstueckeZOLL_TMP = packstueckeZOLL_TMP & " " & DTzsAnmGdsitem.Rows(0).Item("GdsDes") + End If + End If + End If + End If + ' Tabelle zsAnmDestCo lesen. + Dim DTzsAnmDestCo As DataTable = KDSQL.loadDgvBySql("SELECT Ref" & _ + " FROM zsAnmDestCo" & _ + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL") + + If DTzsAnmDestCo.Rows().Count > 0 Then + If Not IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then [Bestimmungszollstelle] = DTzsAnmDestCo.Rows(0).Item("ref") + End If + + ' Tabelle zsAnmGrteeGrteeRef lesen. + Dim DTzsAnmGrteeGrteeRef As DataTable = KDSQL.loadDgvBySql("SELECT GRN, GVal" & _ + " FROM zsAnmGrteeGrteeRef" & _ + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")" & _ + " ORDER BY GrteeID, GrteeRefID", "EZOLL") + + If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then + [Sicherheitsbetrag] = 0 + For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows() + If Not IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then [Bürgschaft] = DTzsAnmGrteeGrteeRef_row.item("GRN") + If Not IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then [Sicherheitsbetrag] = [Sicherheitsbetrag] + DTzsAnmGrteeGrteeRef_row.item("GVal") + Next + End If + + 'Personal Abfertigung: + Try + If Not IsNull(r.Item("GeaendertVon")) Then + Dim p = KDSQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_EZOLL_SB='" & r.Item("GeaendertVon") & "'", "ADMIN") + SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) + End If + Catch ex As Exception + MsgBox("Fehler EZOLL Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + End Try + + 'Anhang + If Not IsNull(r.Item("LRN")) Then + getVBDFromAnmId(r.Item("LRN"), SPEDITIONSBUCH.DokumentId_VBD) + End If + + + SPEDITIONSBUCH.Sicherheitsbetrag = CDbl(Sicherheitsbetrag) + SPEDITIONSBUCH.Bestimmungszollstelle = Bestimmungszollstelle + SPEDITIONSBUCH.Bürgschaft = Bürgschaft + End Sub + + Private Sub EZollEZADatenbereitstellung(EZA_Nr) + + ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) + + + Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & _ + " FROM zsAnmRefs" & _ + " WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" & _ + " ORDER BY GeaendertAm DESC", "EZOLL") + If dEZOLL Is Nothing Then notFound = True : Exit Sub + + If dEZOLL.Rows.Count = 0 Then + 'MsgBox("Die Bezugsnummer " & EZA_Nr & " wurde nicht in der EZoll-Datenbank gefunden.", vbInformation, "Daten aus EZoll übernehmen") + notFound = True + ' TextBox1.ForeColor = Color.Red + Exit Sub + End If + ' TextBox1.ForeColor = Color.Green + Dim DR_zsAnmRefs As DataRow = dEZOLL.Rows(0) + + notFound = False + + If Not IsNull(DR_zsAnmRefs.Item("GeaendertAm")) Then + ' If IsNull(SPEDITIONSBUCH.Abfertigungsdatum) Then SPEDITIONSBUCH.Abfertigungsdatum = DateValue(DR_zsAnmRefs.Item("GeaendertAm")) 'KA:::: + SPEDITIONSBUCH.AvisUhrzeit = CDate(DR_zsAnmRefs.Item("GeaendertAm")) + End If + If Not IsNull(DR_zsAnmRefs.Item("CRN")) Then SPEDITIONSBUCH.BelegNr = DR_zsAnmRefs.Item("CRN") + + If SPEDITIONSBUCH.Absender = "" Then + ' Tabelle zsAnmConorTra lesen. + Dim DTzsAnmConorTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _ + " FROM zsAnmConorTra" & _ + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + + If DTzsAnmConorTra.Rows().Count > 0 Then + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Absender = Strings.Left(DTzsAnmConorTra.Rows(0).Item("Na"), 50) + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Ctry"), 50) + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Pst")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Pst"), 50) + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Cty")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Cty"), 50) + If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Versendungsland = DTzsAnmConorTra.Rows(0).Item("Ctry") + End If + End If + + If SPEDITIONSBUCH.Empfänger = "" Then + ' Tabelle zsAnmConeeTra lesen. + Dim DTzsAnmConeeTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _ + " FROM zsAnmConeeTra" & _ + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + + If DTzsAnmConeeTra.Rows().Count > 0 Then + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Na"), 50) + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Ctry"), 50) + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Pst"), 50) + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Cty"), 50) + If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Bestimmungsland = DTzsAnmConeeTra.Rows(0).Item("Ctry") + End If + End If + + ' Tabelle zsAnmTransp lesen. + Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt" & _ + " FROM zsAnmTransp" & _ + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + + If DTzsAnmTransp.Rows().Count > 0 Then + If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then SPEDITIONSBUCH.LKW_Kennzeichen = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25) + End If + + ' Tabelle zsAnmValData lesen. + Dim DTzsAnmValData As DataTable = KDSQL.loadDgvBySql("SELECT InvCurr, InvVal" & _ + " FROM zsAnmValData" & _ + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + + If DTzsAnmValData.Rows().Count > 0 Then + If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then + If DTzsAnmValData.Rows(0).Item("InvCurr") = "EUR" Then + SPEDITIONSBUCH.Währungsschlüssel = "900" + Else + SPEDITIONSBUCH.Währungsschlüssel = getWaehr(DTzsAnmValData.Rows(0).Item("InvCurr")) + End If + End If + ' fNEF.cbxWaehrung._value = DTzsAnmValData.Rows(0).Item("InvCurr") ' = DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & DTzsAnmValData.Rows(0).Item("InvCurr") & "'") + If Not IsNull(DTzsAnmValData.Rows(0).Item("InvVal")) Then SPEDITIONSBUCH.Rechnungsbetrag = CDbl(DTzsAnmValData.Rows(0).Item("InvVal")) + End If + + ' Tabelle zsAnmHea lesen. + Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotPack, TotGross" & _ + " FROM zsAnmHea" & _ + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL") + + If packstueckeZOLL_TMP = "" Then + If DTzsAnmHea.Rows().Count > 0 Then + If Not IsNull(DTzsAnmHea.Rows(0).Item("TotPack")) Then packstueckeZOLL_TMP = DTzsAnmHea.Rows(0).Item("TotPack") & " Packst." + If Not IsNull(DTzsAnmHea.Rows(0).Item("TotGross")) Then SPEDITIONSBUCH.Rohmasse = DTzsAnmHea.Rows(0).Item("TotGross") + End If + + ' Tabelle zsAnmGdsitem lesen. + Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT GdsDes" & _ + " FROM zsAnmGdsitem" & _ + " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")" & _ + " ORDER BY GdsItemID", "EZOLL") + + If DTzsAnmGdsitem.Rows().Count > 0 Then + If Not IsNull(DTzsAnmGdsitem.Rows(0).Item("GdsDes")) Then + If IsNull(packstueckeZOLL_TMP) Then + packstueckeZOLL_TMP = DTzsAnmGdsitem.Rows(0).Item("GdsDes") + Else + packstueckeZOLL_TMP = packstueckeZOLL_TMP & " " & DTzsAnmGdsitem.Rows(0).Item("GdsDes") + End If + End If + End If + End If + + 'Personal Abfertigung: + Try + If Not IsNull(DR_zsAnmRefs.Item("GeaendertVon")) Then + Dim p = KDSQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_EZOLL_SB='" & DR_zsAnmRefs.Item("GeaendertVon") & "'", "ADMIN") + SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) + End If + Catch ex As Exception + MsgBox("Fehler EZOLL Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + End Try + + 'Anhang + If Not IsNull(DR_zsAnmRefs.Item("LRN")) Then + getStbFromAnmId(DR_zsAnmRefs.Item("LRN"), SPEDITIONSBUCH.DokumentId_Steuerbeleg, SPEDITIONSBUCH.DokumentId_Mitteilung) + End If + + End Sub + + Function getStbFromAnmId(LRN, ByRef StbId, ByRef MittId) As Boolean + Try + StbId = KDSQL.getValueTxtBySql("SELECT [docID] FROM [tblDHF_Anhaenge] where MsgTyp IN ('EZ922') and LRN='" & LRN & "' ", "FMZOLL",,, Nothing) + MittId = KDSQL.getValueTxtBySql("SELECT [docID] FROM [tblDHF_Anhaenge] where MsgTyp IN ('EZ923') and LRN='" & LRN & "' ", "FMZOLL",,, Nothing) + Return True + Catch : End Try + Return False + End Function + + Function getVBDFromAnmId(LRN, ByRef VbdId) As Boolean + Try + VbdId = KDSQL.getValueTxtBySql("SELECT [docID] FROM [tblDHF_Anhaenge] where MsgTyp IN ('TR109') and LRN='" & LRN & "' ", "FMZOLL",,, Nothing) + Return True + Catch : End Try + Return False + End Function + + Function IsNull(o) As Boolean + Try + If o Is Nothing Then Return True + If o Is DBNull.Value Then Return True + If o.ToString.Trim = "" Then Return True + Catch : End Try + Return False + End Function + + Sub setAdresseAndKundenNr(ByRef KUNDE_TXT As String, ByRef KUNDE_KDNR As Integer, Adr_zbadz_typ As Integer, intTyp As Integer, ByVal zollNr As String, ByVal basman_nr As String, ByVal basman_nl As String, ByVal zbant_beznr As String, ByVal zbant_regnr As String, ByVal zbant_korant As String, zbant_vland As String, eori As String) + Dim kunde_tmp As String = "" + Dim kdnr_tmp As String = "" + + If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then + kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori) + If IsNull(kdnr_tmp) Then + If Not IsNull(zollNr) AndAlso IsNumeric(zollNr) AndAlso zollNr <> 0 Then + kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(zollNr) + If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then + + If intTyp = 3 Or intTyp = 4 Then ' Vertreter ODER ANMELDER --> zB bei Konsilager gesehen + Dim veragZolNr = False + If zollNr = 4590317 Then veragZolNr = True ' VERAG Spedition AG, Suben + If zollNr = 4884876 Then veragZolNr = True ' VERAG Spedition AG, Raunheim + If zollNr = 4899911 Then veragZolNr = True ' VERAG Spedition AG, Salzburg + If zollNr = 4824105 Then veragZolNr = True ' VERAG Spedition AG, Neuhaus + If zollNr = 5133599 Then veragZolNr = True ' VERAG Spedition AG, Waidhaus + If zollNr = "DE4590317" Then veragZolNr = True ' VERAG Spedition AG, Suben + If zollNr = "DE4884876" Then veragZolNr = True ' VERAG Spedition AG, Raunheim" Then + If zollNr = "DE4899911" Then veragZolNr = True ' VERAG Spedition AG, Salzburg" Then + If zollNr = "DE4824105" Then veragZolNr = True ' VERAG Spedition AG, Neuhaus" Then + If zollNr = "DE5133599" Then veragZolNr = True ' VERAG Spedition AG, Waidhaus + + If Not veragZolNr Then ' Nur Wenn + Dim s() As String = KDSQL.getATLASNacherfassungAdresseFrombaskun(zollNr, basman_nr, basman_nl, ATLAS_SERVER_VERBINDUNG) + kdnr_tmp = s(1) + kunde_tmp = s(0) + End If + End If + End If + End If + If intTyp = 1 Or intTyp = 2 Then + If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then + kunde_tmp = KDSQL.getATLASNacherfassungAdresse(basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, Adr_zbadz_typ, ATLAS_SERVER_VERBINDUNG) + End If + End If + If intTyp = 1 Then + If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then + If Not IsNull(zbant_vland) And Not Trim(zbant_vland) = "" Then + kunde_tmp = Trim(zbant_vland) + End If + End If + End If + End If + End If + + KUNDE_TXT = kunde_tmp + If IsNumeric(kdnr_tmp) AndAlso kdnr_tmp > 0 Then + KUNDE_KDNR = kdnr_tmp + End If + + End Sub + + Sub setAdresseAndKundenNrNCTS(ByRef KUNDE_TXT As String, ByRef KUNDE_KDNR As Integer, Adr_zbadz_typ As Integer, intTyp As Integer, ByVal kdNRATLAS As String, ByVal kdNRATLAS2 As String, ByVal basman_nr As String, ByVal basman_nl As String, ByVal zbant_beznr As String, intLfdNr As Integer, intPosNr As Integer, lngTyp As Long, veoant_ldvs As String) + Dim kunde_tmp As String = "" + Dim kdnr_tmp As String = "" + 'Adr_zbadz_typ = 3 -> Absender + 'Adr_zbadz_typ = 4 -> Empfänger + + 'intTyp = 1 -> Absender + 'intTyp = 2 -> Empfänger + 'intTyp = 3 -> Auftraggeber + ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassung) + + ' If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then + 'kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori) + ' End If + + + If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then + + If Not IsNull(kdNRATLAS) AndAlso IsNumeric(kdNRATLAS) AndAlso kdNRATLAS <> 0 Then + ' kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(kdNRATLAS) + ' If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then + Dim s() As String = KDSQL.getATLASNacherfassungAdresseFrombaskunByKuNr(kdNRATLAS, basman_nr, basman_nl, ATLAS_SERVER_VERBINDUNG) + kdnr_tmp = s(1) + kunde_tmp = s(0) + 'End If + End If + If intTyp = 2 Then 'EMPF + If Not IsNull(kdNRATLAS2) AndAlso IsNumeric(kdNRATLAS2) AndAlso kdNRATLAS2 <> 0 Then + ' kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(kdNRATLAS2) + If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then + Dim s() As String = KDSQL.getATLASNacherfassungAdresseFrombaskunByKuNr(kdNRATLAS2, basman_nr, basman_nl, ATLAS_SERVER_VERBINDUNG) + kdnr_tmp = s(1) + kunde_tmp = s(0) + + End If + End If + End If + If intTyp = 1 Or intTyp = 2 Then + If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then + kunde_tmp = KDSQL.getATLASNacherfassungAdresseNCTS(basman_nr, basman_nl, zbant_beznr, intLfdNr, intPosNr, lngTyp, ATLAS_SERVER_VERBINDUNG) + End If + End If + If intTyp = 1 Or intTyp = 2 Then + If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then + If Not IsNull(veoant_ldvs) And Not Trim(veoant_ldvs) = "" Then + kunde_tmp = Trim(veoant_ldvs) + End If + End If + End If + End If + + KUNDE_TXT = kunde_tmp + If IsNumeric(kdnr_tmp) AndAlso kdnr_tmp > 0 Then + KUNDE_KDNR = kdnr_tmp + End If + End Sub + Function getint(o) As Integer + Try + If o IsNot DBNull.Value AndAlso IsNumeric(o) Then Return CInt(o) + Catch ex As Exception : End Try + Return -1 + End Function + Function getStr(o) As String + Try + If o IsNot DBNull.Value Then Return CStr(o) + Catch ex As Exception : End Try + Return "" + End Function + Function getWaehr(s) As String + 'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL") + s = s.replace("TRY", "TRL") ' Türkische Lira + Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL") + + End Function + +End Class \ No newline at end of file diff --git a/DienstplanTV/App.config b/DienstplanTV/App.config new file mode 100644 index 0000000..1729194 --- /dev/null +++ b/DienstplanTV/App.config @@ -0,0 +1,6 @@ + + + + + + diff --git a/DienstplanTV/DienstplanTV.Designer.vb b/DienstplanTV/DienstplanTV.Designer.vb new file mode 100644 index 0000000..8800fef --- /dev/null +++ b/DienstplanTV/DienstplanTV.Designer.vb @@ -0,0 +1,306 @@ + _ +Partial Class DienstplanTV + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DienstplanTV)) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.tbcntr = New System.Windows.Forms.TabControl() + Me.tbSUB = New System.Windows.Forms.TabPage() + Me.tbATILLA = New System.Windows.Forms.TabPage() + Me.tbWAI = New System.Windows.Forms.TabPage() + Me.tbSBG = New System.Windows.Forms.TabPage() + Me.tbVerr = New System.Windows.Forms.TabPage() + Me.tbNKD = New System.Windows.Forms.TabPage() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.lblKw = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.lblROTBLAU = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.pnlMain = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.Panel4 = New System.Windows.Forms.Panel() + Me.Panel1.SuspendLayout() + Me.tbcntr.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel4.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.tbcntr) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Controls.Add(Me.lblROTBLAU) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1118, 71) + Me.Panel1.TabIndex = 0 + ' + 'tbcntr + ' + Me.tbcntr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tbcntr.Controls.Add(Me.tbSUB) + Me.tbcntr.Controls.Add(Me.tbATILLA) + Me.tbcntr.Controls.Add(Me.tbWAI) + Me.tbcntr.Controls.Add(Me.tbSBG) + Me.tbcntr.Controls.Add(Me.tbVerr) + Me.tbcntr.Controls.Add(Me.tbNKD) + Me.tbcntr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbcntr.Location = New System.Drawing.Point(303, 38) + Me.tbcntr.Name = "tbcntr" + Me.tbcntr.SelectedIndex = 0 + Me.tbcntr.Size = New System.Drawing.Size(621, 33) + Me.tbcntr.TabIndex = 6 + ' + 'tbSUB + ' + Me.tbSUB.Location = New System.Drawing.Point(4, 33) + Me.tbSUB.Name = "tbSUB" + Me.tbSUB.Padding = New System.Windows.Forms.Padding(3) + Me.tbSUB.Size = New System.Drawing.Size(613, 0) + Me.tbSUB.TabIndex = 0 + Me.tbSUB.Text = "SUBEN" + Me.tbSUB.UseVisualStyleBackColor = True + ' + 'tbATILLA + ' + Me.tbATILLA.Location = New System.Drawing.Point(4, 33) + Me.tbATILLA.Name = "tbATILLA" + Me.tbATILLA.Padding = New System.Windows.Forms.Padding(3) + Me.tbATILLA.Size = New System.Drawing.Size(613, 0) + Me.tbATILLA.TabIndex = 1 + Me.tbATILLA.Text = "ATILLA" + Me.tbATILLA.UseVisualStyleBackColor = True + ' + 'tbWAI + ' + Me.tbWAI.Location = New System.Drawing.Point(4, 33) + Me.tbWAI.Name = "tbWAI" + Me.tbWAI.Padding = New System.Windows.Forms.Padding(3) + Me.tbWAI.Size = New System.Drawing.Size(613, 0) + Me.tbWAI.TabIndex = 2 + Me.tbWAI.Text = "WAIDHAUS" + Me.tbWAI.UseVisualStyleBackColor = True + ' + 'tbSBG + ' + Me.tbSBG.Location = New System.Drawing.Point(4, 33) + Me.tbSBG.Name = "tbSBG" + Me.tbSBG.Padding = New System.Windows.Forms.Padding(3) + Me.tbSBG.Size = New System.Drawing.Size(613, 0) + Me.tbSBG.TabIndex = 3 + Me.tbSBG.Text = "BAD REICHENHALL" + Me.tbSBG.UseVisualStyleBackColor = True + ' + 'tbVerr + ' + Me.tbVerr.Location = New System.Drawing.Point(4, 33) + Me.tbVerr.Name = "tbVerr" + Me.tbVerr.Padding = New System.Windows.Forms.Padding(3) + Me.tbVerr.Size = New System.Drawing.Size(613, 0) + Me.tbVerr.TabIndex = 5 + Me.tbVerr.Text = "Verrechnung" + Me.tbVerr.UseVisualStyleBackColor = True + ' + 'tbNKD + ' + Me.tbNKD.Location = New System.Drawing.Point(4, 33) + Me.tbNKD.Name = "tbNKD" + Me.tbNKD.Size = New System.Drawing.Size(613, 0) + Me.tbNKD.TabIndex = 4 + Me.tbNKD.UseVisualStyleBackColor = True + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.PictureBox2) + Me.Panel2.Controls.Add(Me.Button2) + Me.Panel2.Controls.Add(Me.lblKw) + Me.Panel2.Controls.Add(Me.Button1) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right + Me.Panel2.Location = New System.Drawing.Point(918, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(200, 71) + Me.Panel2.TabIndex = 5 + ' + 'PictureBox2 + ' + Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image) + Me.PictureBox2.Location = New System.Drawing.Point(165, 3) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(32, 29) + Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox2.TabIndex = 2 + Me.PictureBox2.TabStop = False + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(29, 41) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(81, 26) + Me.Button2.TabIndex = 4 + Me.Button2.Text = "<<" + Me.Button2.UseVisualStyleBackColor = True + ' + 'lblKw + ' + Me.lblKw.AutoSize = True + Me.lblKw.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblKw.Location = New System.Drawing.Point(24, 6) + Me.lblKw.Name = "lblKw" + Me.lblKw.Size = New System.Drawing.Size(83, 26) + Me.lblKw.TabIndex = 1 + Me.lblKw.Text = "KW 00" + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(116, 41) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(81, 26) + Me.Button1.TabIndex = 3 + Me.Button1.Text = ">>" + Me.Button1.UseVisualStyleBackColor = True + ' + 'lblROTBLAU + ' + Me.lblROTBLAU.AutoSize = True + Me.lblROTBLAU.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblROTBLAU.Location = New System.Drawing.Point(659, 9) + Me.lblROTBLAU.Name = "lblROTBLAU" + Me.lblROTBLAU.Size = New System.Drawing.Size(122, 26) + Me.lblROTBLAU.TabIndex = 1 + Me.lblROTBLAU.Text = "ROTBLAU" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(333, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(240, 26) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "DIENSTPLAN - ZOLL" + ' + 'PictureBox1 + ' + Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) + Me.PictureBox1.Location = New System.Drawing.Point(0, 0) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(309, 71) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox1.TabIndex = 0 + Me.PictureBox1.TabStop = False + ' + 'pnlMain + ' + Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlMain.Location = New System.Drawing.Point(0, 71) + Me.pnlMain.Name = "pnlMain" + Me.pnlMain.Size = New System.Drawing.Size(1118, 439) + Me.pnlMain.TabIndex = 1 + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.White + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel3.Location = New System.Drawing.Point(0, 510) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(1118, 100) + Me.Panel3.TabIndex = 2 + ' + 'Timer1 + ' + Me.Timer1.Interval = 10000 + ' + 'Panel4 + ' + Me.Panel4.Controls.Add(Me.pnlMain) + Me.Panel4.Controls.Add(Me.Panel3) + Me.Panel4.Controls.Add(Me.Panel1) + Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel4.Location = New System.Drawing.Point(0, 0) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(1118, 610) + Me.Panel4.TabIndex = 0 + ' + 'DienstplanTV + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(1118, 610) + Me.Controls.Add(Me.Panel4) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.ImeMode = System.Windows.Forms.ImeMode.KatakanaHalf + Me.Name = "DienstplanTV" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Form1" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.tbcntr.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel4.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents pnlMain As System.Windows.Forms.Panel + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents lblKw As System.Windows.Forms.Label + Friend WithEvents lblROTBLAU As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Timer1 As System.Windows.Forms.Timer + Friend WithEvents Panel4 As System.Windows.Forms.Panel + Friend WithEvents tbcntr As System.Windows.Forms.TabControl + Friend WithEvents tbSUB As System.Windows.Forms.TabPage + Friend WithEvents tbATILLA As System.Windows.Forms.TabPage + Friend WithEvents tbWAI As System.Windows.Forms.TabPage + Friend WithEvents tbSBG As System.Windows.Forms.TabPage + Friend WithEvents tbVerr As System.Windows.Forms.TabPage + Friend WithEvents tbNKD As System.Windows.Forms.TabPage + +End Class diff --git a/DienstplanTV/DienstplanTV.resx b/DienstplanTV/DienstplanTV.resx new file mode 100644 index 0000000..2101d4b --- /dev/null +++ b/DienstplanTV/DienstplanTV.resx @@ -0,0 +1,1902 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham + iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy + 6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y + q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK + OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy + vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN + DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3 + 9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn + uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAACToAAAGSCAYAAADJzuyaAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAJKeSURBVHhe7N0LvG1T3f/xczgOh1MuIbekSC4VXZyu + ShfypHokSRc93dOF7qX7qVS6SXcSqXZFqVQq3aQ7SegiIkmJJCKh4/D/f3+W09pzr+/eZ+21xxxrzDk/ + vV7v1//1Hw97jPWbYy5jrfFdc8z7f//v/wEAAAAAAAAAAAAAAABA0WwjAAAAAAAAAAAAAAAAAJTENgIA + AAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAA + AJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAA + AAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwj + AAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAA + AABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAA + AAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTE + NgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAA + AAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAA + AAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABA + SWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAA + AAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENuY0 + b8lSAAAAAAAAAACAJlhTNpedZHd5qrxQXiPvkA/Lp+Urcor8WM6S38pFcon881Y3yP9DNjfKitqHP0lc + k3COxHX6hcR1+5acIJ+TY+RD8l5ZKi+VZ8u+soc8RHaQO8ha4uZN57g9QQAAgBRsY05u8QMAAAAAAAAA + AJDRqrKF7CxPklfJ++WLcppEKOY6cQEaYLL/yF/lN/JD+bx8UCIM9wyJgNw9ZF1xc7EV3J4gAABACrYx + J7f4AQAAAAAAAAAAqMEmspscIBFkOlHOlWXiQitAneLJUvEkqS/LoRJPB9tFNhA3fxvD7QkCAACkYBvr + oEXNT8Qt4lB1vWwsA4tCoFCryNni5jN6uK/TeYm4GgNopngEvLvXUZb40tVdP6Btph5f8SuJDYc4auSb + Er/CPloOkzfLK+T/5NFyf9labifuPgKAYSwR9/6ENOJ9Pb7DcLUH0E4LJY6X21/i2LE4juxKce8RQIn+ + LjFvIwAVx+TdWdxcL5LbKwQAAEjBNtZBi5oHi1uoYVB86BpYFAKFikftunmMvkPE1Q6zR9AJaBeCTs1A + 0AmYnXgSwMXyMzle4vPdQbKPxEYbYSgA04mjbdz7CtJ5mrjaA2iHreQpEkeEnSpxfJh7LwCaLMJP8X1K + fE96N5kv7n4YO7dXCAAAkIJtrIsWNvErWLcwQ1V8MX5HGVgYAoVZUy4RN4/RE5vD64irH2aPoBPQLgSd + moGgE5DeNXKmHCtvlMfL9rKauPsQQPs9Rtz7BdKKJ/bFE17cNQDQPPEd+tPlGIn72933QNv9TT4te8ti + cffKWLh9QgAAgBRsY120sLmnuIUYBsWHs4GFIVCYN4ibv+iLX++72mE0BJ2AdiHo1AwEnYB8bpRfypES + R6zEE6BWF3dvAmiPBfJbce8LSO/F4q4DgPLF++Uu8l45T9w9DnTZDfI1earEj5TdfZSN2ycEAABIwTbW + SYub48QtwFC1XLaVgcUhUIiN5Fpx8xc9l8oicfXDaAg6Ae1C0KkZCDoB4xWbFXGc1dtkd7mtuHsVQHM9 + S9z9j3rEkT+3EXctAJQnQt+Pk8/IleLuawCD/iVHy87i7q3auT1CAACAFGxjnbS42VoixOMWXqj6vAws + DoFCHC5u3qLveeJqh9ERdALahaBTMxB0AsoSn6cj+PQ6uZfMF3fvAmiG+HEMR8Ln92Zx1wNAGVaReHJT + POXyKnH3MYDhxbHZT5Osx7e6PUIAAIAUbGPdtMCJDyhusYVBcdzfwAIRGLPthMDizC6QeJy2qx9GR9AJ + aBeCTs1A0Ako22USP0J4uMSmoLuPAZQrQovu3ka94gnVG4q7JgDGJ+7LeF+8WNy9C2Bu/irx/WqWUwjc + /iAAAEAKtrFuWuDcQa4Xt9BC1TdkYIEIjNmJ4uYr+p4ornaYG4JOQLsQdGoGgk5Ac8TGxQeEH8wAzbC+ + XC3ufkb94v3SXRcA+T1A4mi6ZeLuVwBpRZjwuVLrD3Xd/iAAAEAKtjEHLXIOFbfAwqAHysAiERiT+KW4 + m6fo+6VwhEg9CDoB7ULQqRkIOgHNdIbE5sVtxN3bAMYvgjbu/kUeEai4s7hrAyCP+J7xFHH3KID6/Vpq + 239ye4MAAAAp2MYctMiJX61dI25xhar4sDewSATGII7CiBCPm6foe6S4+mHuCDoB7ULQqRkIOgHNFvfw + O2Qjcfc4gPHYUnhyyfhNiLs+AOoV352dKu6+BJDfx2UdcffryNzeIAAAQAq2MRctdJaKW1RhEMEJlGA/ + cfMTfd8XVzukQdAJaBeCTs1A0AlohxvkcNlE3L0OIK9jxd2ryOtm2UHcNQKQ3vbyLXH3I4Dx+pMkfbqT + 2xcEAABIwTbmooXOYrlC3KIKVacLR2FhnBbJn8XNT/TdT1z9kAZBJ6BdCDo1A0EnoF2uk4NlbXH3PID6 + 3Ufc/Ynx+Lq46wQgndvJR2W5uPsQQBniHn2DJNmLcvuCAAAAKdjGnLTYeam4BRUG7SkDi0Ugk9eKm5fo + +7K42iEdgk5AuxB0agaCTkA7XS5PEnffA6jXyeLuS4zPg8VdKwBzF99pXybu3gNQpuNkTXH39NDcniAA + AEAKtjEnLXbiKTEXi1tMoeocWUUGFoxAzTaUa8TNS/TEr122E1c/pEPQCWgXgk7NQNAJaLdvyubi7n8A + 6e0h7l7EeP1M3PUCMLp4itNnxN1zAMr3c9lI3P09FLcnCAAAkIJtzOnWBc+zxC2kMGg/qSwWgQw+JG4+ + ou8T4mqHtAg6Ae1C0KkZCDoB7XeVPE7cewCAdOLHa78Wdx9i/HiSOpDOg+Qv4u41AM1xgWwm7j5fKbcn + CAAAkIJtzOnWBc8COU/cQgpVsbBcTSoLRqBGdxXOz5/ZDcKv4PMg6AS0C0GnZiDoBHTHYcLnTaA+zxR3 + 76EM8ST1VcVdOwDDi+9u+C4RaI+Rw05uTxAAACAF25jTpEXPPuIWURi0v0yuHVCnr4ibh+g7VFztkB5B + J6BdCDo1A0EnoFtOksXi3g8AjG6R8HST8kUYzV0/ACsXYemjxN1bAJotwk4biLv3p+X2BAEAAFKwjTlN + WvTMlzPFLaJQFV+MxRdkk+sH1OEh4uYg+q6R9cXVD+kRdALahaBTMxB0ArrnFzLrjQwAM3q1uPsNZblY + +M4NmL015Vvi7isA7XCaxL3u3gMstycIAACQgm3MacrCZ3dxCygMeqlMrR+QUoQPY4PDzT/0vVFc/VAP + gk5AuxB0agaCTkA3/VoIOwFp3E7472lzvFzcdQTgrS0/EXc/AWiXOP0h9g3ce8EAtycIAACQgm3MySx+ + ThG3gELVFcJxAqjTk8XNPfRdLtyHeRF0AtqFoFMzsDELdFf88CE2L917A4DhxXHn7h5DmeI7t3XEXUsA + VbeReMqLu5cAtNPrxL0fDHB7ggAAACnYxpzM4ucB4hZPGMSTZFCXNeQicfMOfQeKqx/qQ9AJaBeCTs1A + 0Anoth/IauLeHwCs3J1kmbj7C+V6m7jrCaBvoXxP3D0EoL1ukoeIe1+ocHuCAAAAKdjGnNziR74mbgGF + qth0Wk9cDYG5eJW4OYe+P0p8oePqh/oQdALahaBTMxB0AvBRce8PAFbuM+LuK5Tt37KxuGsKoHd01XHi + 7h8A7XeprCvu/eG/3J4gAABACrYxJ7f4kR3kZnELKFQdIq6GwKjWFzY0V+5p4uqHehF0AtqFoFMzsC4A + EJ4r7j0CwPTuJe5+QjN8RNx1BbBk6evF3TcAuuMYce8P/+X2BAEAAFKwjTm5xc+t+MXbcK4TfmGGlD4g + bq6h79eyirj6oV4EnYB2IejUDASdAITrZVtx7xMAvO+Ku5/QDDfKVuKuLdBljxZ+pAwg7CbufeIWbk8Q + AAAgBduYk1v83Cq+SIgvFNziCVUfFFdDYLbuIsvEzTP0PUZc/VA/gk5AuxB0agaCTgBW+KWsJu69AkDV + I8XdR2iWOJrLXV+gq+I7ez4fAFjhQlko7v3C7gkCAACkYBtzcoufSQ4Xt3hCVQRTNhdXQ2A2vihujqHv + J+JqhzwIOgHtQtCpGdjIADDZm8W9VwDoiycAny3uHkLzxBGE7joDXbOq/EzcfQKgu14u7j3D7gkCAACk + YBtzcoufSeJItng8vls8oWql5yEDK/EgcXMLVTuLqx/yIOgEtAtBp2Yg6ARgshtkS3HvFwB6nibu/kEz + fVvcdQa65vXi7hEA3XaVrCcD7xtuTxAAACAF25iTW/xM8U5xiydULZdtxNUQWJn5cpq4uYW+r4urH/Ih + 6AS0C0GnZiDoBGAq1sXA9BbJxeLuHTTXw8Vdb6Ar7ik3irs/AOAQGXjvcHuCAAAAKdjGnNziZ4pIgrO5 + MpzjxNUQWJl9xM0p9N0sO4irH/Ih6AS0C0GnZmAtDsB5pLj3DKDrXinunkGznS7xIzF3zYG2i+M4+YEk + gJlcI+tI5f3D7QkCAACkYBtzmrrwmQaPxR1e/LrG1RCYzkK5UNx8Qt+EuPohL4JOQLsQdGoGgk4AnNjw + ZNMfqFpX4vgWd8+g+fYWd92BtnuOuHsCACZ7nVTeP9yeIAAAQAq2MaepC59pLJa/iVs8oYojBDBbLxc3 + l9C3TLYUVz/kRdAJaBeCTs1A0AnAdPYU974BdNV7xN0raIfzZIG4aw+0VQQ4Lxd3TwDAZH+X1eW/7yFu + TxAAACAF25jT5EXPShwobvGEQQ8QV0Ngqjgakl+brtyHxNUP+RF0AtqFoFMzEHQCMJ0zxL1vAF10R7lB + 3L2C9niuuOsPtNX7xN0LAODsI/99D3F7ggAAACnYxpwmL3pWIo7X+pO4xROqThFXQ2CqQ8XNIfRdKxuJ + qx/yI+gEtAtBp2Yg6ARgJjuLe+8AuubT4u4RtMtfZZG4OQC0zcZyvbh7AQCc78l/30fcniAAAEAKtjGn + yYueITxd3OIJg3YVV0NghTtLHMnm5g/6DhZXP4wHQSegXQg6NQNBJwAzOV7cewfQJTvKzeLuEbTPq8XN + A6BtDhN3DwDATLaSW95H3J4gAABACrYxpxULniGtKueIWzyh6jSZL66OQPi8uLmDvitkHXH1w3gQdALa + haBTMxB0AjCT5XIHce8fQFd8R9z9gXaKtdG64uYC0BabC09zAjCKN8gt7yVuTxAAACAF25jTigXPLOwl + bvGEQXuKqyFwf3FzBlWvEFc/jA9BJ6BdCDo1A0EnACvzOnHvH0AXPELcfYF2e5e4+QC0RcxxN/cBYGXO + klveS9yeIAAAQAq2MacVC55ZiKcU/VzcAgpVv5FVxNUR3RX30E/EzRn0/VkWiashxoegE9AuBJ2agaAT + gJU5T9z7B9B28Z3LL8XdF2i3eNLNpuLmBdB0a8lV4uY+AAxjS7F7ggAAACnYxpxisTMCfi03vKeIqyG6 + 6/Hi5gqqniWufhgvgk5AuxB0agaCTgCGsUTcewjQZk8Vdz+gG44UNy+Apttf3JwHgGG9UuyeIAAAQAq2 + MadY7IzoZHELKFRdIAvE1RDds1DOFzdX0HeucN+UiaAT0C4EnZqBoBOAYRwq7j0EaKvV5SJx9wO6Ybls + I25+AE0VT4L/nbg5DwDD+o7YPUEAAIAUbGNOsdgZ0X3FLaAw6HniaojuebG4OYKqeOqVqx/Gj6AT0C4E + nZqBoBOAYcSPbNx7CNBWLxd3L6BbvihufgBN9QBxcx0AZuMGWcPtCQIAAKRgG3PSYmcuYnPMLaJQ9WdZ + JK6G6I515B/i5gj6fi7x6zVXQ4wfQSegXQg6NQNBJwDD2k7c+wjQNvH5+kpx9wG6h6M70SaHi5vnADBb + j3B7ggAAACnYxpy02JmL+BL1ZnGLKFRFOMDVEN3xHnFzA1UPF1c/lIGgE9AuBJ2agaATgGEdJO59BGib + d4q7B9BNJ4ubJ0DTxJGcV4mb5wAwW293e4IAAAAp2MactNiZq0+KW0Sh6gpZLK6GaL8tJB4X6+YG+m45 + OxxFI+gEtAtBp2Yg6ARgWN8V9z4CtMkd5Hpx9wC6azdx8wVokseLm98AMIrvuj1BAACAFGxjTlrszNWd + ZJm4hRSq3iCuhmi/z4qbE6i6j7j6oRwEnYB2IejUDASdAAzrOlko7r0EaItjxM1/dNuZwjH4aLpjxc1v + ABjFNbKK2xcEAACYK9uYkxY6KXxQ3EIKVbFJta64GqK9dhI3H1D1BXH1Q1kIOgHtQtCpGQg6AZiNB4l7 + LwHa4B5ys7i5DzxJ3LwBmmA1uVrc3AaAUW3n9gUBAADmyjbmpIVOChvLteIWUqg6RFwN0V4/EjcX0Ldc + thZXP5SFoBPQLgSdmoGgE4DZeL249xKgDb4pbt4D4QKJsIibO0DpdhU3rwFgLvZz+4IAAABzZRtz0kIn + lbeLW0ih6t8SwTBXQ7TP48TNA1QdKa5+KA9BJ6BdCDo1A0EnALPxdXHvJUDTPVzcnAcme6G4+QOUjhMT + ANThELcvCAAAMFe2MSctdFJZR9iEGc4HxNUQ7bJAzhM3B9B3vWwqroYoD0EnoF0IOjUDa2wAs3GZuPcS + oMnmyy/EzXlgsktlsbh5BJTsj+LmNADMxVfdviAAAMBc2cactNBJ6SBxiylULZPNxdUQ7fEicdcfVe8S + Vz+UiaAT0C4EnZqBoBOA2eKHBGibJ4mb64DDEZ5omi3EzWUAmKsL3b4gAADAXNnGnLTQSWmRxC+n3IIK + VUeLqyHaYW35u7hrj77YuF1PXA1RJoJOQLsQdGoGgk4AZuux4t5PgCZaKBeKm+uAE2un9cXNJ6BETxc3 + lwFgrm6WNdzeIAAAwFzYxpy0yEntBeIWVKhaLluLqyGa7xBx1x1VrxVXP5SLoBPQLgSdmoGgE4DZeoO4 + 9xOgifgMglEcKm4+ASU6Rtw8BoAUtnF7gwAAAHNhG3PSIie1+KXdH8QtqFB1rLgaotniWMLrxV1z9MXT + 39YSV0OUi00GoF0IOjUDQScAszUh7v0EaJp15Apx8xyYyQ0S38+4eQWU5iJx8xgAUtjd7Q0CAADMhW3M + SYucOuwnbkGFqnhs6D3F1RDN9Wlx1xtV8fQ3Vz+UjaAT0C4EnZqBoBOA2fqluPcToGneLm6OA8P4hLh5 + BZRkY3HzFwBS2d/tDQIAAMyFbcxJi5w6rCK/FreoQtXXxNUQzXRviQCbu9bou0BWE1dDlI2gE9AuBJ2a + gaATgNm6Vtz7CdAkmwpPS57edaYNVTfJ9uLmF1CKx4qbvxiveP+Ip9H/Qr4uH5N3yuvlxfJ0eZw8Qu4r + O8qdZItb3VHiqYRNtq6seD0h3k/jR9u7yO6yp/yfPFcOknfJxyW+Z/iRnCP/EFdf5PV2tzcIAAAwF7Yx + Jy1y6vK/4hZVGHQ/cTVE83xf3DVG1ZPF1Q/lI+gEtAtBp2Yg6ARgFJuIe08BmuIocXMbPU+S2IB3/zf0 + fUXc/AJK8RZxcxf1i89ZP5Qj5ZWyl9xH4ilbq4q7Xpi9tWQbeaQ8W2LOf0EiCLVc3LVBWp9ye4MAAABz + YRtz0iKnTqeKW1ih6hRx9UOzPEbc9UXVmRJPfXM1RPkIOg1qw6/00F3xhaO711EWgk4ARsEPatBkd5N4 + moab21iy9AyZLw+d1IbpPUDcPANKEE8LcvMWacXTLr8tB0t8h7uZuOuBvBbKPeQpcrj8Ttz1w9x80+0N + AgAAzIVtzEmLnDrFY0zdwgqD4jG3roZohgXCB7HhPEpcDdEMBJ0GRVjE1QoAUiHoVHWxTA3toRluJ3Hs + RRztEcddPFPiCJDY4PuruOuN0T1R3HsK0AQnipvX6Jn8HRK1Wrl4Ysvk+QWU5DJx8xZz90t5kzxQ4rtb + V3+UZwPZWz4tV4q7tpid093eIAAAwFzYxpy0yKnbt8QtrlAVT7+KX+O5GqJ8+4u7rqj6gbj6oTkIOg2K + jVtXKwBIhaBT1UXi6oTmiyMtDpBYM7prj9l5hbg6A6XjR3Mz+65Mrlc8/Yqjf1bu0TK5bkAJ1hc3XzG6 + c+W1srm4mqNZVpcI7/P5YG4udnuDAAAAc2Ebc9Iip273Fre4wqA9xdUQZbuN/E3cNUXV/cXVEM1B0GkQ + QScAdSPoVEXQqRu2lMPkenHzACv3AXG1BUoWPwA7XdycRk98zza1bh8X98+i71fCMfoozYPFzVfM3kmy + q/BD4vaK75V/Ku76Y2bXu71BAACAubCNOWmRk8Px4hZYqPq18KVL88TZ7u56ouor4uqHZiHoNIigE4C6 + EXSqIujULRvLMeLmAmZ2nLiaAiV7grj5jJ5jxdVtE/m3uH8HffuJqx8wLs8RN1cxvAi+xNF0rr5onwiy + HSj/ETcfML0Fbn8QAABgVLYxJy1wcthWeIz2cJ4sroYo02bCr8xX7mbZXlwN0SwEnQYRdAJQN4JOVQSd + uimefvsPcXMC3tTjrYDSLZQLxM1nLFm6TLYSV7vwVnH/Hvr+KDHPXP2AcXifuLmKlYvvY18k/Gi4m+4r + fxc3N+Ct4/YHAQAARmUbc9ICJ5ejxS2wUBVf6i0QV0OU5xPiriOq4lf4rn5oHoJOgwg6AagbQacqgk7d + tbXEJrWbFxgUTwx2dQRKdYC4uYyeD4mr2wocqz+cF4urHzAO3xQ3TzGzP8s9xdUU3bGN8N+94d3R7Q8C + AACMyjbmpAVOLpsLjxQdznPF1RBl2UHiSUXuGqIvfnV6R3E1RPMQdBpE0AlA3Qg6VRF06rYt5K/i5gaq + ok6uhkCJbis8mWF618pG4mo32QvF/fvoi3m2WFz9gNzOFTdPMb34kXA8Yd/VE91zL+Ho1uFs7/YHAQAA + RmUbc9ICJ6fDxC2yUHWxLBJXQ5QjjoJw1w9Vcd+7+qGZCDoNIugEoG4EnaoIOiGOqrhR3PxAX/zgwNUP + KNHB4uYxet4irm5TxRPCzxP3N9C3VFz9gNzi+DU3R+HFMcYzHeGJbnqGuPmCqp3c/iAAAMCobGNOWuDk + tIHEr9DcQgtVESZwNUQZHiXuuqEq7ve4710N0UwEnQYRdAJQN4JOVQSdEAhFDGehuPoBJdlErhM3h9F7 + AlEcS+dq5zxO3N9BX3xXsaG4+gG5xPdlbn5ieruKqyXwdXFzBn27uP1BAACAUdnGnLTAyS1+heYWWqi6 + XHiUdplWld+Iu26o4leS7UPQaRBBJwB1I+hURdAJYXX5g7g5gj7WKWiCI8XNX/QcKK5uM/mxuL+Fvg+I + qx2Qy73FzU14h4qrIxC2lHiaqZs76CHoBAAAkrKNOWmBk9vacoW4xRaqXieuhhivZ4u7XqiK+5ywXvsQ + dBrEBiKAuhF0qiLohBWeLm6OoG8LcbUDSrGtLBc3f7Fk6R9llCez3V/c30NfbIjfSVz9gBx4+trw/ixr + iasjsMIR4uYPegg6AQCApGxjTlrgjMMrxC22UBWbWmyglyWCO5eKu16o4vjFdiLoNIj3aQB1I+hURdAJ + KyyQi8XNE/RsJ652QCm+Km7uouep4uo2jOPF/U30fVpc7YAcXiBuXmJQhNtdDYHJthY3f9DzCLc/CAAA + MCrbmJMWOOOwSC4Rt+BC1TvE1RDj8WZx1wlVf5JRfnWK8hF0GkTQCUDdCDpVEXTCZG8TN0/Qs6O4ugEl + 2FncvEXPWbKKuNoN4y7CMT4zu1nuIa5+QN2WipuXqDpfItzuaghM9QNx8whLlu7p9gcBAABGZRtz0gJn + XJ4rbsGFqmtlI3E1RF6byL/FXSdU8Uur9iLoNIigE4C6EXSqIuiEybYRN0/Q80BxdQPGbb6cKm7eomd3 + cbWbjQ+K+9vo+7q42gF1+7C4OYmq2ENw9QOc/cXNIxB0AgAAidnGnLTAGZf4JcYF4hZdqDpMXA2R18fF + XR9U/Vbm8qtTlI2g0yCCTgDqRtCpiqATpuJz5fR2EVczYNz2Fjdn0fN9cXWbrQ3kanF9oO/B4uoH1Ok4 + cfMRfVfJmuLqBzibiptLWLJ0N7c/CAAAMCrbmJMWOOO0r7hFF6riUeObi6sh8ri73CTu+qBqT3E1RDsQ + dBpE0AlA3Qg6VRF0wlT8IGF6BJ1Qovjh2+/FzVn0LBFXu1G8Tlwf6PupuNoBdfqeuPmIvsPF1Q6YSXxe + dPOp63Zx+4MAAACjso05aYEzTvHUlzPFLbxQdZS4GiKPk8RdF1T9TFz90B4EnQYRdAJQN4JOVQSdMNV+ + 4uYKCDqhTC8UN1/Rc7y4uo1qkfxFXF/o+19x9QPq8itxcxF9DxJXO2AmnxU3n7qOoBMAAEjKNuakBc64 + 7SFu4YWq5XIXcTVEvXYTd00w6CHiaoj2IOg0iKATgLoRdKoi6ISpdhQ3V7Bk6cPE1QwYl8XyN3HzFb3v + frYWV7u5eIa4/tB3jqwqrn5AHXjqzMwuk/iRtKsdMJMDxc2priPoBAAAkrKNOWmBU4IfiVt8oepYcfVD + feIDNb+wGs43xdUQ7ULQaRBBJwB1I+hURdAJU60hHDPt8UQnlOYt4uYqeuo6ponvNoYTgTBXP6AOV4ib + h+g5WlzdgJV5lLg51XUEnQAAQFK2MSctcEqws7jFF6pulvi1sqsh6sGvHocTc/Oe4mqIdiHoNIigE4C6 + EXSqIugEh6cieASdUJKN5VpxcxVLll4nUSNXuxR2F9cv+i6WCM+6+gGpXS9uHqJnH3F1A1ZmO3FzqusI + OgEAgKRsY05a4JTiG+IWYKj6qrj6Ib015RJx1wFVcfa5qyHah6DTIIJOAOpG0KmKoBOcU8XNl67jaGmU + 5Ahx8xQ9bxNXt5S+K65v9L1cXO2AlOaLm3/o20hc7YCVie/03Zzquge4/UEAAIBR2cactMApRTwNxi3A + MOh+4mqItN4grv6oulG2EldDtA9Bp0EEnQDUjaBTFUEnOF8RN1+6jicCoxR3leXi5il6R1jl+FwR373F + E5ndGNCT61qg22KOufmHnvPE1Q0Y1tXi5laX7eD2BwEAAEZlG3PSAqckx4pbhKHq++Lqh3TiV0M8Un84 + HxFXQ7QTQadBfAkOoG4EnaoIOsE5Rtx86TqCTijFl8TNUfS8TFzd6vBpcWNA38Hiagekspm4uYeez4ir + GzCsv4mbW122hdsfBAAAGJVtzEkLnJLEU2H4hd9wHi6uhkiDR+oP5zrZWFwN0U4EnQYRdAJQN4JOVQSd + 4HxI3HzpOoJOKMEDxc1P9Fwsq4urXR3uKNeLGwt64odvfNeBOm0hbu6hJ2f4E+0Unxnd3OqyDdz+IAAA + wKhsY05a4JTmY+IWYqg6VVz9MHfbCYG74bxdXA3RXgSdBhF0AlA3gk5VBJ3gHCZuvnTdluLqBeT0E3Hz + Ez3/J65udXq3uLGgj6dXo04EnWbGD3wxV78WN7e6bE23PwgAADAq25iTFjiliUf38suy4fyvuBpibk4U + V29UXSkEPLqHoNMg7gMAdSPoVEXQCQ5BJ48nkmDc9hI3N9ETG7GriKtdneIzzD/EjQk9N0o8ed7VD5gr + gk4z21Rc3YBhvUXiaGvcyu0NAgAAzIVtzEmLnBK9V9yHHFSdLeP4QqzN4hdDrtYY9CpxNUS7EXQaRNAJ + QN0IOlURdIJD0MlbJK5eQA4L5DxxcxM9jxZXuxxeKm5M6PucuNoBc3U3cXMOS5ZeI65mAEbg9gQBAABS + sI05ucVPAdaXq8V92EHVvuJqiNmL0NiZ4uqMqkuETZNuIug0iKATgLoRdKoi6ASHoNOgZeJqBeTyPHFz + Ez0/FFe3XBbKheLGhr57iasfMBc7iptvWLL0LHE1AzACtycIAACQgm3MyS1+CvEmcR92UHWBxK8kXQ0x + O/uJqzEGPUdcDdF+BJ0GEXQCUDeCTlUEneAcKW6+dNnl4moF5LBYLhU3N9Fzf3G1yyl+POfGhr5vi6sd + MBcEnaZ3griaARiB2xMEAABIwTbm5BY/hYgvxa4Q94EHVc8WV0MML55O9Gdx9UXV74VwXXcRdBpE0AlA + 3Qg6VRF0gvNJcfOly2Ld7moF5PBGcfMSPV8WV7fc5svp4saIvoeJqx8wKoJO0/uQuJoBGIHbEwQAAEjB + NubkFj8FYUN9OBfL6uJqiOG8VlxtMegJ4mqIbuB9eRBBJwB1I+hURdAJzlfFzZcui/CCqxVQt9vLteLm + JZYsXS7biqvdODxE3DjR93OJUJirHzAKgk7Te724mgEYgdsTBAAASME25uQWPwWJ8E6EeNyHHlRF+MDV + ECu3oVwjrq6oOkP4cq/bCDoNIugEoG4EnaoIOsH5sbj50mUniasVULcPi5uT6Pm4uLqN09fEjRV9e4ur + HTAKgk7Te764mgEYgdsTBAAASME25uQWP4V5prgPPaj6m8Rxf66GmBlfwg5vV3E1RHcQdBpE0AlA3Qg6 + VRF0gnOOuPnSZUeKqxVQp60lnljk5iSWLL1eNhVXu3HaTrhuMztPOMYfqRB0mt4+4moGYARuTxAAACAF + 25iTW/wUJr5EOFfcBx9UxfFrroaY3l2FL/OG8z1xNUS3EHQCmoEnPbYLQacqgk5wrhQ3X7rszeJqBdTp + eHHzET3vEle3EkQ40o0Zfc8RVztgtgg6Te/h4moGYARuTxAAACAF25iTW/wU6AniPvigKjbBeLLI7HxF + XC0xaIm4GqJbCDoBzUDQqV0IOlURdMJUtxU3V7qODXnkdj9xcxE9V0nJ39lsLNeKGzt6LpFF4uoHzAZB + p+ntIK5mAEbg9gQBAABSsI05ucVPgebLGeI+/KDq7eJqiEEPEVdDDPqiuBqiewg6Ac1A0KldCDpVEXTC + VPcQN1e6bndx9QLq8iNxcxE9rxRXt5LEk+Dc2NH3anG1A2aDoNP0SjzeE2gstycIAACQgm3MyS1+CvVI + cR9+UBW/vru9uBqiL8JzvxBXQ1TF0X7biKsjuoegE9AMBJ3ahaBTFUEnTLWnuLnSdduLqxdQh8eKm4fo + +bM04UlAi+Uyca8BPTxNHSkQdJoe9xeQkNsTBAAASME25uQWPwU7RdwHIFQdJq5+6HuquNph0FHiaohu + IugENANBp3Yh6FRF0AlTvUXcXOm624irF5DaAvmduHmInmeKq12J9hf3GtD3TnG1A4ZF0Gl6BJ2AhNye + IAAAQAq2MSe3+CnY/cV9AELVf2RzcTXEkqVrSGyQudqh6nq5g7g6opsIOgHNQNCpXQg6VRF0wlRfFzdX + uuxicbUC6vAccfMQPedIhMFc7UoUYz1X3GtBT3xXwvFamAuCTtNbTVzNAIzA7QkCAACkYBtzcoufwn1V + 3IcgVH1cXP2wZOmrxNUMg94rroboLoJOQDMQdGoXgk5VBJ0w1aXi5kqXnSSuVkBqawr34Mz+V1ztShZj + dq8FfUeKqx0wDIJO03P1AjAitycIAACQgm3MyS1+Cnd3uVncByH0LZetxNWwy9YXNguHE3WKerk6orsI + OgHNQNCpXVi7VBF0wmT3EDdPuu5QcfUCUnu9uDmInp+Iq1sT/Ejca0JPfO92V3G1A1aGoNP0XL265hRx + tQFS2MXtEwIAAMyWbcxJC5smmhC3SEPV58TVr8s+KK5WGBRfWLsaotsIOgHNQNCpXQg6VRF0wmQ8rdV7 + prh6ASltINeIm4PoeZC42jXBfcW9JvQdL652wMoQdPKuFlevriHohDoRdAIAAEnYxpy0sGmieFLRMnEL + NfTFk6/iF86uhl10F7lRXK1QdZksFldHdBtBJ6AZCDq1C0GnKoJOmCyeluLmSdfdT1y9gJT4IdHMviau + bk3yeXGvDX07iasdMBOCTl587nH16hqCTqgTQScAAJCEbcxJC5um+oi4hRqqThBXvy76orgaYdCLxNUQ + IOgENANBp3Yh6FRF0AkrbCtujnTdTcKPFlA3foA2s/jh2d3E1a5JthSu88xOFlc7YCYEnTyCTj0EnVAn + gk4AACAJ25iTFjZNtbFcL26xhip+zdt7XLyrDQZdKAvF1REg6AQ0A0GndiHoVEXQCSscKm6OdN3Z4uoF + pPQFcfMPPZ8QV7cmer+414i+3cTVDpgOQSePoFMPQSfUiaATAABIwjbmpIVNkx0ibrGGqu+Jq19XzJfT + xNUGg54qro5AIOgENANBp3Yh6FRF0Akhfvhynbg50nUfE1czIJU4qsvNPfTEj/I2F1e7JlpfWIvM7JcS + 3z25+gEOQSePoFMPQSfUiaATAABIwjbmpIVNk60rfNkynIeKq2EX7CuuJhgUv/5eRVwdgUDQCWgGgk7t + wnq3iqATwhHi5gf44QLqxwbszN4rrm5NdpC414q++O7J1Q5wCDp5BJ16+O8s6kTQCQAAJGEbc9LCpule + J27BhqpTxdWv7eIItjiKzdUEgx4tro7ACgSdgGYg6NQuBJ2qCDrhwXKzuPmBJUs3E1c3IIX4zOjmHXri + v9m3E1e7Jlskfxb3mtFzgawmrn7AVASdPIJOPQSdUCeCTgAAIAnbmJMWNk23WC4Vt2hD1WPF1bDNXi6u + Fhj0I3E1BCYj6AQ0A0GndiHoVEXQqdsixMPnv+n9TlzdgBRWld+Im3voea242rXB/4l7zeh7gbjaAVMR + dPIIOvUQdEKdCDoBAIAkbGNOWti0wQHiFm2oOku6dCzZenKVuFpg0APF1RGYjKAT0AwEndqFoFMVQafu + ipDTueLmBXraeGQWyvEscfMOPX+VePKRq10bxPdJcdy9e+3oiSDuWuLqB0xG0Mkj6NRD0Al1IugEAACS + sI05aWHTBnE8WWx4uIUbqvYVV8M2ep+4GmDQ18TVEJiKoBPQDASd2oWgUxVBp266r3Bs0so9VFz9gLmK + AM8l4uYdep4jrnZtspu4146+14urHTAZQSePoFMPQSfUiaATAABIwjbmpIVNWzxd3MINVefLAnE1bJMt + ZZm4GqDqZrm7uDoCUxF0ApqBoFO7EHSqIujULevIO2W5uPmAvssljhZzdQTmKo5kc/MOPedJF75rCd8W + VwP0xLptfXG1A1Yg6OQRdOoh6IQ6EXQCAABJ2MactLBpi3iE9jniFm+oisfNuxq2yefFvXYM+rS4GgIO + QSegGQg6tQtBpyqCTt2woRwkV4ibBxh0uLhaAnMVoQ3+WzSzx4urXRvtIPGDKVcH9HCMKFaGoJNH0KmH + oBPqRNAJAAAkYRtz0sKmTfYUt3hD1cUSx/25GrbB/cW9bgyKp17dSVwdAYegE9AMBJ3ahc3lKoJO7bWp + PFO+LDeKu/6Y3gPF1RWYq8PEzTn0nCbzxdWurT4prhbouV42F1c7IBB08gg69RB0Qp0IOgEAgCRsY05a + 2LRJfLEUXzC5BRyq2roBGnPgJ+JeMwZ9QFwdgekQdAKagaBTuxB0qiLo1DxxnFMcQXc72ULuJo+UOH78 + zXKC/EHc9cZwzhVXe2Cu7iwcCz+zh4irXZvdQSLM4+qBnk+Iqx0QCDp5BJ16CDqhTgSdAABAErYxJy1s + 2ubh4hZwqLpMFourYZPtLe71YtC1cntxdQSmQ9AJaAaCTu1C0AnAyvC+j7p8TtycQ883xNWtCw4RVxP0 + 3CTbiasdQNDJI+jUQ9AJdSLoBAAAkrCNOWlh00bfE7eIQ9VrxNWvqeI4vgvEvVYMeou4OgIzIegENAMb + 3u1C0AnATK6R24p7/wDm4j7i5hx6bpYdxNWuC+JJfVeIqw164omFrnYAQSePoFMPQSfUiaATAABIwjbm + pIVNGy0Rt4hDVXx4jC+mXA2b6MXiXicGxZeRbIZgFASdgGYg6NQuBJ0AzCSequLeO4C54kdkM/u0uLp1 + Cd/DrNwDxNUO3UbQySPo1EPQCXUi6AQAAJKwjTlpYdNWXxa3kEPVweLq1zQR2PqHuNeIQS8TV0dgZQg6 + Ac1A0KldCDoBmE4cR72+uPcOYC7+R9ycQ88y2UJc7boknqz9B3E1Qs8PxdUO3UbQySPo1EPQCXUi6AQA + AJKwjTlpYdNWcQ5+PEbcLebQF1+MbyCuhk3yHnGvD4MuljXE1RFYGYJOQDMQdGoXgk4AptOWH66gLKvI + r8TNOfS8T1ztumgfcTVC3x7iaofuIujkEXTqIeiEOhF0AgAASdjGnLSwabNjxC3mUHWYuPo1xZ3kP+Je + GwY9U1wdgWEQdAKagaBTuxB0AuD8VRaLe98A5uLp4uYceq4RnqTWN19OE1cr9JwtESB09UM3EXTyCDr1 + EHRCnQg6AQCAJGxjTlrYtNkdJR4n7hZ06LteNhdXwyb4rLjXhUHnyAJxdQSGQdAJaAaCTu1C0AmA80Rx + 7xnAXCySP4ubc+h5g7jaddnO4mqFvv3E1Q7dRNDJI+jUQ9AJdSLoBAAAkrCNOWlh03YfELegQ9XHxNWv + dDuJez3wHieujsCwCDoBzUDQqV0IOgGY6gRx7xfAXL1a3JxDz6XCk9S8r4irGXr+KAvF1Q7dQ9DJI+jU + Q9AJdSLoBAAAkrCNOWlh03YbybXiFnXoWy5biathyX4k7vVgUDxKPh4p7+oIDIugE9AMBJ3ahaATgMni + yLoNxL1fAHOxnvDfnJm9QFztsGTpNhLfLbm6oedAcbVD9xB08gg69RB0Qp0IOgEAgCRsY05a2HTB28Qt + 6lAVR8C5+pUqnk7kXge8h4qrIzAbBJ2AZiDo1C5sOgNYIUIErOtRl/eKm3fouUA4Cn5mh4urHXouF54I + hkDQySPo1EPQCXUi6AQAAJKwjTlpYdMF68iV4hZ26LtZ7i6uhqWJLxd/L+51YNC3xNURmC2CTkAzEHRq + F4JOAFZ4kbj3CWCutpD/iJt36NlHXO3Qx1PVV26puNqhWwg6eQSdegg6oU4EnQAAQBK2MSctbLri1eIW + dqg6QVz9ShNf8Lvxw7uXuDoCs0XQCWgGgk7tQtAJQIin7bj3CCCFCXHzDj2/EI6CH86bxNUQPREE4/hR + EHTyCDr1EHRCnQg6AQCAJGxjTlrYdMUiuVTc4g5V9xNXw1KsLX8XN3YMOk5cHYFREHQCmoGgU7sQdAJw + hBCyQF3ihzHxhGc399DzcHG1w6A4mo3v32b2fnG1Q3cQdPIIOvUQdEKdCDoBAIAkbGNOWth0yfPFLe5Q + 9V1x9SvFIeLGjUHL5S7i6giMgqAT0AwEndqFoBPQbR8VQk6oU3wH4OYeer4trm6Y3nPF1RI9yySOi3S1 + QzcQdPIIOvUQdEKdCDoBAIAkbGNOWth0yUK5QNwCD1W7iKvhuN1Rrhc3ZgyKX367OgKjIugENANBp3Yh + 6AR011Ih5IQ67SZu7qHvnuJqh+ktkHPE1RM9nxZXO3QDQSePoFMPQSfUiaATAABIwjbmpIVN1zxF3AIP + VaeKq9+4xRdBbrwYFIGwjcXVERgVQSegGQg6tQtBJ6B7rpOnintPAFJZRc4SNwfR81lxtcPKPUZcTdET + x0XeQ1zt0H4EnTyCTj0EnVAngk4AACAJ25iTFjZdE1/k/UrcIg9V8aWUq+G43FviiyA3Vgx6p7g6AnNB + 0AloBoJO7ULQCeiW84TNb+Swn7g5iJ44XmxLcbXDcH4grrboOVFc3dB+BJ08gk49BJ1QJ4JOAAAgCduY + kxY2XfRYcYs8VJ0pEQxzNRyH74sbJwbFFwPriKsjMBcEnYBmIOjULgSdgO74kKwp7r0ASGkN+ZO4eYie + D4qrHYa3k7jaom9ncbVDuxF08gg69RB0Qp0IOgEAgCRsY05a2HTVT8Ut9FC1r7j65cYjz2fnIHF1BOaK + oBPQDASd2oWgE9B+v5UHinsPAOrwCnFzET3XyobiaofZOVZcjdET30+6uqHdCDp5BJ16CDqhTgSdAABA + ErYxJy1sumoXcQs9VMWxCQvE1TCX6P9ccePDoEtlkbhaAnNF0AloBoJO7ULQCWivv8uLZNyfudAt68pV + 4uYket4srnaYvTtLHAPo6oye/xVXO7QXQScv3itcvbqGoBPqRNAJAAAkYRtz0sKmy04St9hD1TPE1S+X + /cWNC17Uy9URSIGgE9AMBJ3ahaAT0D5XSDyFdbG4+x6o07vFzUv0XC7cm2m9T1yt0RNP9VtFXO3QTgSd + pufq1TUEnVAngk4AACAJ25iTFjZddi9xiz1UXSwLxdWwbreRv4kbFwZdIPwaHHUi6AQ0A0GndiHoBLTH + 7yWe4ESIAuOyuVwvbn6i5wBxtcPobiesZ2Y27h8ZIi+CTtNbQ1zNuoSgE+pE0AkAACRhG3PSwqbrviBu + wYeqA8XVr24HixsPvCeKqyOQCkEnoBkIOrULG4NAs0Wo5HPycJkv7j4HcvmUuHkKYLziR4YEPLqDoNP0 + 1hFXsy4h6IQ6EXQCAABJ2MactLDpurvKcnGLPvRdKmuJq2FdNhN+aTq8M4WNE9SNoBPQDASd2oWgE9A8 + /5YT5CnC05tQih3kZnFzFsD4vUzcvYv2Ieg0vduLq1mXEHRCnQg6AQCAJGxjTlrYYMnSo8Qt+lB1kLj6 + 1eUYceOA90hxdQRSIugENANBp3Yh6AQ0w9nyHol1+eri7mdgnL4lbu4CKMMVsra4+xftQtBpeluJq1mX + EHRCnQg6AQCAJGxjTlrYYMnSzeUGcQs/9F0luR4fzC9NZ+f74uoIpEbQadAdJd4bgZKwwd4uBJ2AZrha + viwvlK3F3c/AuDxC3LwFUJaDxd3DaBeCTtO7r7iadQlBJ9SJoBMAAEjCNuakhQ16DhO38EPVW8XVL7Xv + iusf3v3E1RFIjaDToAiVuFoBQCoEnYBm+oMcIvEjDndvA7nEEee/FDdPAZTlWtlY3L2M9iDoNL09xNWs + Swg6oU4EnQAAQBK2MSctbNCzvsSXCW7xh76oUdTK1TCVR4nrG178atzVEagDQadBBJ0A1I2gE9B858ob + hc1rjMNTxM1LAGX6sLh7Ge1B0Gl6zxFXsy4h6IQ6EXQCAABJ2MactLBB31Jxiz9UxdOvXP1SWCC/Edcv + Bt0k24mrJVAHgk6DCDoBqBtBJ6A9bpTj5CHi7ncgtYXyR3HzEUCZlslW4u5ptANBp+nlOk2gZASdUCeC + TgAAIAnbmJMWNui7rVwhbgGIvuvlDuJqOFfxqx3XJ7xPiKsjUBeCToMIOgGoG0EnoJ1Old3F3fdAKi8T + N/8AlO1z4u5ptANBp+kdI65mXULQCXUi6AQAAJKwjTlpYYOql4tbAKLqCHH1m4vFcqm4/jDoBtlcXC2B + uhB0GkTQCUDdCDoB7fYTebC4+x+Yi1in/kPcvANQvnuKu7fRfASdpvczcTXrkviOPP4bjtHcXdzcQg9B + JwAAkIRtzEkLG1Qtkr+IWwSib7mkfoz2m8X1Be994uoI1Img06D4EsXVCgBSIegEdMOE3F7c+wAwineK + m2sAmuFb4u5tNB9Bp+ldJa5mwLBWFze30EPQCQAAJGEbc9LCBoM4Pm04nxFXv1FsIv8W1w8GXSPri6sl + UCeCToMIOgGoG0EnoDtic+95Ml/c+wEwrM0kjp138wxAczxM3D2OZiPoNLNNxdUNGNZl4uYWCDoBAIBE + bGNOWthg0AI5X9xCEH03y93E1XC2jhLXB7w3iqsjUDeCToMIOgGoG0EnoHu+KRuKe08AhnG0uLkFoFl+ + LoRf24eg08weK65uwLBOFTe3QNAJAAAkYhtz0sIG3r7iFoKoOkFc/WYjzs2O0JT7+xh0ucRZ7a6WQN0I + Og0i6ASgbgSdgG66RO4v7n0BmAmfsYF2eby4ex3NRdBpZm8VVzdgWJ8XN7dA0AkAACRiG3PSwgZe/Frq + THGLQVQtEVfDYZ0k7u/CO1BcHYEcCDoNIugEoG4EnYDuWiZPFffeAEzn6+LmE4BmOlfi6fPufkczEXSa + 2Sni6gYM62Pi5hYIOgEAgERsY05a2GB6/yNuMYiqb4ur3zB2E/c34V0kC8XVEsiBoNMggk4A6kbQCcAr + xL0/AFM9TNwcAtBszxF3z6OZthZ3ndFzgywSVztgGO8SN7dA0AkAACRiG3PSwgYz+6G4BSGqdhFXv5ms + Ir8S9/fgPU1cLYFcCDoNIugEoG4EnQCEg8S9RwArxJOpfyFu/gBotjjOlOBHe2wh7jqjbw9xtQOGcai4 + eQWCTgAAIBHbmJMWNpjZg8QtCFH1U3H1m8mzxP0teL+WCIe5WgK5EHQaRNAJQN0IOgFY4aXi3ieAsK+4 + eQOgHV4l7t5H8xB0WrkjxNUOGMbHxc0rEHQCAACJ2MactLDByn1d3KIQVbP5pc2aEr9Gc38H3mPF1RLI + iaDTIIJOAOpG0AnACjfL48W9V6Db4ojzP4ibNwDa4Srh82c7EHRauctlNXH1A1bmOHHzCgSdAABAIrYx + Jy1ssHI7Snyh7BaG6DtT4lH5roZTvUHc34D3E3F1BHIj6DSIL5oB1I2gE4DJ/i33EPd+ge46UNx8AdAu + 7xT3HoBmWU/c9UXVo8XVD1iZH4ibUyDoBAAAErGNOWlhg+F8TtzCEFVPFFe/yTaSa8X9+/AeLK6WQG4E + nQYRdAJQN4JOAKb6vSwW956B7llbrhA3VwC0y/Wyibj3AjTH6uKuL6q+Jq5+wMpcJm5OgaATAABIxDbm + pIUNhrOVLBe3OETfubJAXA1X+Ji4fxdeHJ3o6giMA0GnQQSdANSNoBMAJz5XufcMdM/bxM0RAO3E+387 + 3Cju+qIvTljYUlz9gOlsKm4+oYegEwAASMI25qSFDYZ3hLjFIaqeLq5+YXshMDa8+EC/g7haAuNA0GkQ + QScAdSPoBGA6Dxf3voHuiM28eMKLmx8A2im+V9ta3HsCmuNKcdcXVUeJqx8wnaeKm0voIegEAACSsI05 + aWGD4fEF4nAuloXianiiuH8H3mfE1REYF4JOgwg6AagbQScA0zlPVhP33oFuiA1gNzcAtNvx4t4T0BwX + ibu2qIpg313E1RBwjhU3l9BD0AkAACRhG3PSwgaz825xC0RUHSBTaxe/Nnb/LLxlwuOZURqCToMIOgGo + G0EnADN5sbj3DrQfT0wGum0nce8NaIazxV1XDPq6uBoCU91GrhM3j9BD0AkAACRhG3PSwgazs76w2bRy + l8qasqJuq8iZ4v5ZeB+SyXMPKAFBp0EEnQDUjbUngJnEZ681xL1/oN2+Jm5OAOiG74l7b0AzfF/cdYX3 + OHF1BCZ7qbj5gz6CTgAAIAnbmJMWNpi9N4pbJKLqIFlRs/+7tQ3DuVY2lsnzDigBQadBBJ0A1I2gE4CV + 2V/c+wfa68Hi5gKAbtlV3HsEysfxWrPzd+G7UsxkLYkfALj5gz6CTgAAIAnbmJMWNpi9xXK5uIUi+q6U + CAAskj/f2obhHCxu7gHjRtBpEEEnAHUj6ARgZf4kq4p7D0H7zJefi5sLALrllxLvCe69AmV7v7hriun9 + UBaKqyfwdnHzBlUEnQAAQBK2MSctbDAaNvuH8xZ57ZQ2zOwfQnACpeK9bxD3K4C6EXQCMIxHiXsPQfs8 + QdwcANBNTxT3XoGyvUbc9cTMjhbCfZjqfrJc3JxBFUEnAACQhG3MSQsbjCZ+PXKxuMUi+uIItmumtGFm + rxA354ASEHQaRNAJQN0IOgEYxnHi3kPQLqvJBeLmAIBuiveEBeLeM1CuZ4m7nli5jwphJ6ywqXCaxPAI + OgEAgCRsY05a2GB0zxC3WARGFR/K4qg/N9+AEhB0GkTQCUDdCDoBGMYNwrqk/V4k7voD6LYXiHvPQLke + Ke5aYjjHyuriaovu2EB+LW6OwCPoBAAAkrCNOWlhg9HFr6V+J27BCIzi2eLmGlAKgk6D2FAEUDeCTgCG + tZ+49xG0w23kcnHXHkC3XSpriXvvQJnuIu5aYnhnyJbi6ov2i2vP3szsEXQCAABJ2MactLDB3Dxe3IIR + mK1zhUeNo3QEnQYRdAJQN4JOAIb1KXHvI2iHt4q77gAQXifuvQNlWig3ibuWGN6/5RXCd6rdspdcKW5O + YGYEnQAAQBK2MSctbDA3cR74L8QtGoHZiNCcm2NASQg6DSLoBKBuBJ0ADCue6BGfUd17CZptY4nNXHfd + ASDEmvF24t5DUKY/ibuWmL1zJMIvrIPabVOJYwvdHMBwCDoBAIAkbGNOWthg7nYTt2gEhnW68EEcTUDQ + aRBBJwB1I+gEYDbuJu69BM12pLjrDQCTvVfcewjK9H1x1xGj+408S9YQV3M00ybybrle3HXH8Ag6AQCA + JGxjTlrYII1TxC0cgWE8XNy8AkpD0GkQQScAdSPoVHWxxHsvyraRbCF3lwfJHvIUebV8UL4oZ8kN4q4z + Rvd0ce8laK5tZbm46w0Ak0UIYHNx7yUoz8fEXUfMXXyG+qg8UFYRV3+ULY4jjB+YxxOclom7zpg9gk4A + ACAJ25iTFjZI437iFo7AynxX3JwCSkTQaVBs5rpaAUAqBJ2qLhJXJzTTqrK17CMfkl/LzeKuPYZzmLha + o7lOEHetAcA5Wtx7CcpzgLhriLT+KofL42RtcdcCZVhXniyflavEXU/MDUEnAACQhG3MSQsbpMOXjxjF + fcTNJ6BEBJ0GEXQCUDeCTlUEndovjqaINcfPxc0BzCyOwXF1RTPFE9HcdQaA6cQT4LYT956CsjxE3DVE + fW6SX8gH5EkSgXue+DQeCyWe/vpc+bicI/zgoX4EnQAAQBK2MSctbJDO3YTFOGbjC+LmElAqgk6DCDoB + qBtBpyqCTt3yAPmmuLkA73JxtUTzzJefirvOADCT+DGme19BWeL7BHf9kNe18jP5hMQxy/Hkp50kjmKO + /xa7a4fhrCXbyK7yDDlE4v3pPOFY3vEg6AQAAJKwjTlpYYO0Pi1uAQlMFR/m7ipuHgGlIugEtNfTxd33 + GD+CTlUEnbrpkXKJuDmBQauLqyOa5fHiri8ADOP+4t5bUJY/ibt+KMMyic8fP5FjJZ4E9VZ5hTxHniC7 + yX1lR9lStrhVPKU0wmwrlPzkqNVk8ljDerLitcTritcXP0LYRfaUOHr6WfJKeYccIfGj3u/Jb4Sj58p0 + T7dPCAAAMFu2MSctbJBWLPrjA5BbRAKTHSluDgElI+gEtBdBp3IRdKoi6NRdt5c4asTNC1TdWVwN0RwL + 5Pfiri8ADOMH4t5fUJYvibt+AFCHHd0+IQAAwGzZxpy0sEF6Hxa3iARWuF42FTd/gJIRdALai6BTuQg6 + VRF06ra15dfi5gb6HiSufmiOF4i7tgAwG3uIe49BOV4u7toBQB22c/uEAAAAs2Ubc9LCBultLNeJW0gC + 4d3i5g5QOoJOQHsRdCoXQacqgk6IpxVdI25+oCeOPHO1QzMslsvEXVsAmI2zpeTjstA78sxdOwCow0Zu + nxAAAGC2bGNOWtigHoeIW0gCsVkZZ5y7eQOUjqAT0F4EncpF0KmKoBPCAeLmB3p4T2+2peKuKwCM4qni + 3mtQhtWEH8wCyGWh2ycEAACYLduYkxY2qMc6wqYUnNeJmzNAExB0AtqLTfFysaasIuiEsEDOEzdHsGTp + c8TVDeXbSK4Vd10BYBQXykJx7zkow/fFXTsASOlfbo8QAABgFLYxJy1uUJ/XiFtQorsulbXEzRegCQg6 + Ae1F0KlcBJ2qCDphhWeImyPordlczVC+j4q7pgAwFweKe89BGV4t7roBQEoXuD1CAACAUdjGnLS4QX0i + 0BLBFreoRDe9QNxcAZqCoBPQXgSdykXQqYqgE1ZYU7g/vIPE1Qxlu6ssF3dNAWAuLpfF4t57MH53F3fd + ACCl77k9QgAAgFHYxpy0uEG9XiRuUYnuuUB4VDiajqAT0F4EncpFkKOKoBMmO0rcPOm6peLqhbJ9Sdz1 + BIAU3iTuvQdluFjcdQOAVD7u9ggBAABGYRtz0uIG9Ypgyx/FLSzRLU8WN0eAJiHoBLQXQadyEXSqIuiE + yfYWN0+6jqBT8zxA3LUEgFT+JeuLew/C+HF0KYC6vd7tEQIAAIzCNuakxQ3q9zRxC0t0x5myirj5ATQJ + QSegvQg6lYugUxVBJ0y2jtwsbq50GUGn5vmxuGsJACm9X9x7EMbvEeKuGQCk8ni3RwgAADAK25iTFjeo + XwRcfitucYlueJS4uQE0DUEnoL0IOpWLoFMVQSdMFUdEu7nSZQSdmmVPcdcRAFJbJluIey/CeMX3x5eI + u24AkMJWbo8QAABgFLYxJy1ukAdfXHbXD8TNCaCJCDoB7UXQqVwEnaoIOmGqL4qbK11G0Kk5Fsi54q4j + ANThU+LejzB+7xZ3zQBgruL40vlujxAAAGAUtjEnLW6Qx3w5VdwiE+32AHFzAmgigk5AexF0KhdBpyqC + TpjqYHFzpcsIOjXH88RdQwCoSxz5endx70kYrx3FXTMAmKsfuf1BAACAUdnGnLTAQT4PE7fIRHt9Rdxc + AJqKoBPQXgSdykXQqYqgE6Z6vri50mUEnZphsVwq7hoCQJ1OFPe+hPH7ubhrBgBzcbDbHwQAABiVbcxJ + Cxzk9R1xC020T/xCbntx8wBoKoJOQHsRdCoXQacqgk6YimPCBxF0aoY3iLt+AJDDzuLemzBeTxV3vQBg + Lh7h9gcBAABGZRtz0gIHee0kbqGJ9vmkuDkANBlBJ6C9CDqVi6BTFUEnTPVgcXOlywg6lW9D+Ze464dB + f5WNZR1gGuvLheLmD7yfiHt/wngtFJ72ByCl/8iabn8QAABgVLYxJy1wkN+XxC040R7L5I7irj/QZASd + gPYi6FQugk5VBJ0w1Y7i5kqXEXQq34fEXTt4rFMwjL3EzR9M77HiaonxeqO46wUAo/im2xsEAACYC9uY + kxY5yG87WS5u0Yl2OEzctQeajqAT0F5sIJaLoFMVQSdMtYO4udJlBJ3Kdhe5Udy1w6DTZRVxtQSmOkXc + PIL3W+H+Kk88pYzPAABSeY7bGwQAAJgL25iTFjkYj2PELTrRfNfKBuKuO9B0BJ2A9iLoVC42OaoIOmGq + LcTNlS4j6FS248VdN3gPEFdHwImn/N0sbi7B43NAmeK/5e56AcBsxH8TN3R7gwAAAHNhG3PSIgfjsbnE + 8WZu8YlmY1MBbUbQCWgvNjjKRdCpiqATpiLoNIjPJOW6r7hrBu9z4uoIzORIcfMJ3sWyurhaYnxuK1eI + u2YAMKxvuH1BAACAubKNOWmhg/F5v7jFJ5orvoC4jbjrDbQBQSegvQg6lYugUxVBJ0xF0GkQQady/VDc + NcOg6+QO4uoIzOT2co24eQXvZeJqifF6pbjrBQDDerzbFwQAAJgr25iTFjoYn/jiJY45cwtQNFOEQNy1 + BtqCoBPQXgSdykXQqYqgE6Yi6DSIoFOZHiPuesFjHmMuXi1uXsGLH+6tLa6WGJ+Fcq64awYAK3OZrOb2 + BQEAAObKNuakhQ7G663iFqFonnjUd3wB4a4z0BYEnYD2IuhULoJOVQSdMBVBp0EERMqzQH4r7nph0J9l + TXG1BIYRR7FdKG5+wYvvKF0tMV67irteALAyr3d7ggAAACnYxpy02MF4rSP/ELcQRbOwQYwuIOgEtBf/ + HSsXQacqgk6YiqDTIIJO5Xm2uGsF70ni6gjMxl7i5he8eOr8RuJqifH6grhrBgDTiSNc13F7ggAAACnY + xpy02MH4vUrcYhTNEb/MXUXc9QXahKAT0F4EncpF0KmKoBOmIug0iKBTWeLJRH8Vd60w6KcyX1wtgdk6 + Rdw8g/dhcXXEeG0s/FAWwGwcInZPEAAAIAXbmFMsdjB2i+RScQtSNMOe4q4t0DYEnYD2IuhULoJOVQSd + MBVBp0EEncryenHXCYNuliXi6giMYkeJeeXmGwYtk63E1RLj9Xhx1wwApopg5Lpi9wQBAABSsI05xWIH + Rdhf3KIU5fuZuGsKtBFBJ6C9CDqVi6BTFUEnTEXQaRBBp3KsL1eLu04YdIy4OgJzcaS4+Qbvs+LqiPH7 + pLhrBgCTvUhued9we4IAAAAp2MacVix4MHYL5AJxC1OUbRdx1xRoI4JOQHsRdCoXQacqgk6YiqDTIIJO + 5fiAuGuEQdfKJuLqCMzF7eUacfMOg+IJWPcUV0uM122F748BzOQ3EntNt7xvuD1BAACAFGxjTisWPCjC + k8UtTlGub4q7lkBbEXQC2ougU7kIOlURdMJUBJ0GEXQqw5YSx0C5a4RBrxFXRyCFV4ubd/C+Ja6OGL+7 + SQRD3XUD0G3L5T7y3/cMtycIAACQgm3MafKiB2O3ipwtbpGK8vALN3QRQSegvQg6lYugUxVBJ0xF0GkQ + QacyHCfu+mDQH2UNcXUEUlhdLhQ3/+A9VFwtMX57i7tmALrtbVJ5v3B7ggAAACnYxpymLnwwdo8Rt0hF + eT4n7hoCbUbQCWgvgk7lIuhURdAJUxF0GkTQafx2Endt4MWmvasjkNJe4uYfvNNkvrhaYvzeKu66Aeim + eM9eKJX3CrcnCAAAkIJtzGnqwgdF+Im4xSrKcaNsJe76AW1G0AloL4JO5SLoVEXQCVMRdBpE0Gn8vi/u + 2mDQKeJqCNQh5pubh/AeL66OGL8IoR0t7roB6Ja/yWYy8F7h9gQBAABSsI05ucUPxu4h4hasKMdHxV07 + oO0IOgHtRdCpXASdqgg6YSqCToMIOo3XHuKuCwbFkfA7iqsjUIeYbzHv3HzEoHNlgbhaYvxWlRPEXTsA + 3bBMpj1q1O0JAgAApGAbc3KLHxThJHELV4zfdbKxuOsGtB1BJ6C9CDqVi6BTFUEnTEXQaRBBp/FZRX4t + 7rpg0BHi6gjU6Uhx8xHes8XVEWVYJCeLu3YA2i2Cu/uKe2+4hdsTBAAASME25uQWPyjCPcUtXjF+bxd3 + zYAuIOgEtBdBp3IRdKoi6ISpCDoNIug0Ps8Ud00w6GrZUFwdgTrdXq4RNy8x6C8SYRpXS5RhTSHsBHTP + geLeE/7L7QkCAACkYBtzcosfFOM4cQtYjM9Vso646wV0AUEnoL0IOpWLoFMVQSdMRdBpEEGn8YggQAQC + 3DXBoFeKqyOQw6vFzUt4rxJXR5Qjwk6cEAB0x0pDTsHtCQIAAKRgG3Nyix8UY2tZLm4hi/Hgix10HUEn + oL0IOpWLoFMVQSdMRdBpEEGn8XiNuOuBQb+XheLqCOSwulwobn5iED/8a4Z4X/2cuGsIoB1ukniCqHsP + GOD2BAEAAFKwjTm5xQ+K8nFxC1rkd4nwqG50HUEnoL0IOpWLoFMVQSdMRdBpEEGn/NYX3q+H91hxdQRy + 2kvc/IT3DnF1RFnmy1vEXUMAzRbHrj5a3L1vuT1BAACAFGxjTm7xg6JsLteLW9gir+eKu0ZAlxB0AtqL + oFO52DivIuiEqQg6DSLolN+h4q4FBn1bXA2BcThF3DzFoPh+cmNxdUR5niw3iLuWAJrnAtlO3P0+Lbcn + CAAAkIJtzMktflAcvjAdv3is/gJx1wfoEoJOQHsRdCoXQacqgk6YiqDTIIJOed1Jlom7FqiK4/m3F1dH + YBx2lJvFzVcM+pi4OqJM95eLxV1LAM1xrIx0fKjbEwQAAEjBNubkFj8oTjwC/1/iFrnIYx9x1wboGoJO + QHsRdCoXQacqgk6YiqDTIIJOeX1G3HXAoA+LqyEwTkeKm68YFGHFrcXVEWVaT74s7noCKFscVbefuHt7 + KG5PEAAAIAXbmJNb/KBI8UW1W+yifmdInG/vrgvQNQSdgPYi6FQugk5VBJ0wFUGnQQSd8rm3uGuAQVdK + bLi7OgLjdHuJzWQ3bzHoC+LqiHLF95ovlH+Lu6YAyhPvtZuJu6eH5vYEAQAAUrCNObnFD4p0G7lC3KIX + 9dpV3DUBuoigE9BeBJ3KRdCpiqATpiLoNIigUz7fE3cNMOhAcTUESvBqcfMW3n3E1RFli6NWvy3umgIo + w/myu7h7eNbcniAAAEAKtjEnt/hBsV4mbvGL+pws7loAXUXQCWgvgk7lIuhURdAJUxF0GkTQKY//EVd/ + DPqdLBBXR6AEq8uF4uYvBkXI09UR5YunO8Vnv7+Ju7YAxuPP8hxJul5ye4IAAAAp2Mac3OIHxVokF4tb + CKMeS8RdC6CrCDoB7UXQqVwEnaoIOmEqgk6DCDrVbxU5W1z9MeiR4uoIlGQvcfMXHk9Ab7bbyjvkenHX + F0Aef5QDJPZ+3L06J25PEAAAIAXbmJNb/KBozxa3IEZ6XxR3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhU + v6eJqz0GfV1cDYES/UDcPMagMySeDuTqiOaIddQxslzcdQZQj1PlCVLrEy/dniAAAEAKtjEnt/hB0WLh + +3txi2OkEx/utxV3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhUL562PLxlcldxdQRKdC+5Wdx8xqB9xNUR + zbOVHCHxvu2uNYC5u1I+KDuIuw+Tc3uCAAAAKdjGnNziB8WLLxHcQhnpHCWu9kDXEXQC2ougU7kIOlUR + dMJUBJ0GEXSq1yvF1R2DDhVXQ6BkR4ubzxh0gdT6NBJkdwd5u1wu7poDmJ04HjJOjniirCHuvquN2xME + AABIwTbm5BY/KF48FvpMcQtnzF18+NhcXO2BriPoBLQXQadyEXSqIuiEqQg6DSLoVJ/1hPfl4fxd1hFX + R6BkG8m/xM1rDHq+uDqi2VaXOKb1x+KuO4DpXSXHyb6yWNw9loXbEwQAAEjBNubkFj9ohN3FLaIxd+8V + V3MABJ2ANiPoVC421KsIOmEqgk6DCDrVJz4vuppj0PPE1RBogteIm9cYdKmsKa6OaIc7y+vlPHFzAOi6 + m+QX8g55kKwq7l7Kzu0JAgAApGAbc3KLHzTGD8QtrDG62EhcX1y9ARB0AtqMoFO5CDpVEXTCVASdBhF0 + qscd5QZxNUfVr6SYTT5gBHG80B/FzW8Mep24OqJ97iFxvU+Tm8XNB6DtbpSfy3vk0bK2uPtl7NyeIAAA + QAq2MSe3+EFjPFDcQhuje4O4WgPoIegEtBdBp3IRdKoi6ISpCDoNIuhUj0+LqzcGPVRcDYEmeYK4+Y1B + sV69nbg6or3imMenysflAnFzA2i6eFrT72RCDpD7SRzt6O6J4rg9QQAAgBRsY05u8YNG+Zq4BThm7zIZ + 65nZQAMQdALai6BTuQg6VRF0wlQEnQYRdEpvR+HJFcP5krgaAk30Q3HzHIPiySauhuiOzeSJcoh8R64U + N1eAEsU670/ybXmfPEPuLYvEzfdGcHuCAAAAKdjGnNziB40Svx5YB0msJa7GAPp4zwHaa6G4+x7jF4/B + d9esq24rrk7orlXEzZUuiyOXXK0wOtbBw2NNgTbh3h/ebcTVEN0WgfT/kfjh3EfkZPmzEB7GOMQRxOfK + SfIxeY08XuJIxkYHmqbj9gQBAABSsI05ucUPAAAAAAAAAABADVaTCEHtLE+RCJx8WD4vp0gcFfZ3cWEV + YKqr5Hw5VU6UIySecPo8ebTcR+KoRTcXW83tCQIAAKRgG3Nyix8AAAAAAAAAAIAxWiC3l7vKfWU32Uee + K6+UN8thcrgcI1+Wb0iEpc6Qs+S3Esdfh8skjgYPy8WFZlCPm2RF7f8mK65JXJ+4Tj+WeOLXCfI5iesZ + 1/bt8mrZX54se8iDZHuJ8FKE5tzcgbg9QQAAgBRsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAA + QElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAA + AAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYC + AAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAA + AACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAA + AAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQEls + IwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAA + AAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAA + AAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACU + xDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAA + AAAAAACUxDYCAAAAAICqeUuW5raxPESeJa+TD8hn5dtyipwmZ03xMzlZviRHy7vlpfIEWSLriOsLAAAA + 5bmt3FueKK+SQyXWg1+XH8vUteBPJNaJ35D452It+Ep5sjxQWAtiaO4zUZdMTEwAdVtH7iP7yCvl3RL/ + +6qcImcZ0f59OV6OkLfJi2QPuassFNfXrLh7AgBKYhsBAAAAAECV+/I/oY1kb3mPxKbVv+T/1eQSibDU + 2+TRcjtxY2q7Y2Tq5mAJfimxQRniOn1BPi6xsfkmeYH8r8Sm5+3FvbY2+Zy4OnXZ12QNcfXK5URxY8sp + NvO/IyfIJyXCoBEK3V/iHtlR1hU3fvTUeX99SFyfdYjwhxsDen4qEZ52tatDW+bVOCyQ+0kEkyK0fqG4 + tdxc/UVOkoPlEbKmuPF0Ra61xi7i+s8hfjzhxjSKW95T3OeltnHhj8K9Rlwwpi5LxY0D3trySIm6fUP+ + LP+vBjfJb+VTcoDsIPPFjWla7p4AgJLYRgAAAAAAUDXPbxrMxT0kgiuni9uEyuVmiadDLZV7ihtr26wm + 14mrR9PcIGdKBD1eIQ+XtmxYxutYJu51d11sTLua5bCBuDGV6kr5oRwuz5MdZFVxr61LctxfMVdc36md + Kq5/9L1YXO1Sa9O8ymVt2U+Ol2vEvea6xTX7vhwgOUNxJci51jhDVhE3jrpFqM2NaVQvcZ+X2saFPwp2 + X1kuLvhSl9+IGwv67i4RbPqJ5L4+k/1NPi1PkDXEjbXC3RMAUBLbCAAAAAAAqub5TYPZuo08V2Kjw20a + lOAceY1sKO41tEE8LcG99rb4j8STGiLUEUfeuBo0QTz5wL2+rlsui8XVLIc9xY2rSeKpeV+V58tm4l5n + 29V9f50vrt/UCEQOZydx9UutLfOqbhF2eaTEU5viv9nutY7LTfI9eYpEMNyNv01yrzX+T9w46hZBNjee + Ud3XfV5qGxf+KFQEV84VF3Cp23rixtRld5IIN/1BXM3G7Wo5WpaIG/8t3D0BACWxjQAAAAAAoGqe3zQY + 1joST0z6p7jNghLFk4KOkm3EvaYmiycfudfcRv+Wj8qW4mpRsteLe01d9wtx9coljth042qqeKpdbAA/ + XVYX95rbqO776xPi+k3toeL6R9+1EkeiufqlVve8Olpcv02xSF4ofxD3+koTR9zFMXqxjnWvpw1yrzWi + pjEP3FjqkvpJpvG3FrjPS23jwh+Fere4QEsOjxE3pq6Jo+EeJSeJq1OpfiyPlYGj7dw9AQAlsY0AAAAA + AKBqnt84WJk4Hukl0qSA01Tx9JiPy6biXmMTnSDutbZZXMcPyXrialKieCqVey1d915x9cqlzceEXS5v + lCY/CW1Ydd9fzxTXb2pvENc/+uJau9rVoS3zKrWFcqBcJu51le4qicBTG8Og41hrRLjKjaUuqZ9kerL7 + rNRGU4Mfhbqf3CQuxJLDu8SNqytWkX0ljvFz9WmK0+RB8t/X5u4JACiJbQQAAAAAAFXz/MbBTHaQ08Vt + EDRRHPX0IonjVtzrbYr5coW419gFf5e9xNWmJBESvEbca+i6ODrO1SyHOCbsRnHjapN4j3i55HoKTm45 + 7q+txfWd2rfF9Y++XKGKNs2rlPaQpjzBaWXi6MBdxb3OJhrXWiPW1BuJG1MdUj/J9C3us1IbTQ59FGqc + R9atcKq4sXXBrnK2uLo0VfzvdmLvCQAoiW0EAAAAAABV8/zGwXTiWJJl4jYHmu6Hsom4190E24p7XV3z + YYknTLgaleCe4saN8T6Vq2vHhP1aHiCuFk1W9/31N3H9phYhhTiWzY0BfTuLq19q9xLXfyq55lUqEWT5 + srjX0nQfkdzHr9VhnGuNj4kbUx1Sz8Pd3GelNoqwR+HGeWTdCstkTXHja6vN5QRx9WiDy2QPd08AQEls + IwAAAAAAqJrnNw6miqedfEbcpkCbxGZjBB5cDUr3XHGvqYt+IGuLq9O4xRE/bsxd9xtx9coljnVz42qz + m+RgadPTneq+v74ort/U7iOuf/TdIGuIq19qbZlXKcST9/4h7nW0RQRBm/iErcnGudaII4XvJm5cqcXT + PN0YRhH/TVzsPiu10YQPuZRi3EfWTfZQcWNsm/nyArlWXB3a5s0y390bAFAC2wgAAAAAAKrm+Y2DySIw + coq4TYE2iidWPUFcLUr2KXGvp6vOlhLDTp8XN96ui6douHrl0uVjwiIYuL64ujRN3ffXS8X1m9pLxPWP + vngKo6tdHdoyr+ZiNTlM3Pjb6CppavA9jHutcZK4caW0jbi+R3WG+5zUVhM+7FKCEo6sm+wN4sbZJhvK + SeJef5t9QRa5+wMAxs02AgAAAACAqnl+82CFCIqcIW5DoM3iV91PF1eTUl0o7rV02amS64kfw7pU3Fi7 + bl9x9cqBY8KWLP2jxKaxq0+T1H1/7SSu39SOF9c/+uJpZK52dWjLvBrVOvJdcWNvswi+7yWuJqUrYa2x + m7ixpfJscf2O6v3uc1JbTfjASwlKOLJusm+LG2dbPEguEffau+BkWdPdIwAwTrYRAAAAAABUzfObB2Gh + nCxuM6ALIuz0WHG1Kc0m4l4Dliw9WlzNxmFLcWNEbw67muVwb3Fj6po4AmgHcTVqgrrvrwjD5TrmL45R + dWNA3yPF1S61Ns2rUWwmvxM39i5o0lpwhVLWGr+SVcSNMYVjxPU7qr3d56S2mvChl3Er6ci6FeIotwXi + xtt0z5Bl4l53l3xdVnX3CQCMi20EAAAAAABV8/zmQThK3EZAl1wnO4qrT0meKG786Cllk/L/xI2v6y4Q + V69cXixuXF0UxzXdXVydSlf3/RVPtHH9pra1uP7Rt1wWi6tfam2ZV6PYSuJpb27cXRJPdtpZXI1KVNJa + I5665MaYwvni+hzVRu5zUltN+ODLOJV2ZN1k9xE35iZ7q7jX2lWHuvsEAMbFNgIAAAAAgKp5fvMgjupw + mwBdFBspcYSfq1MpPihu7Oi5SOIJZa52OR0pbnxd9wlx9crlC+LG1VWXyJ3E1apkdd9fS8X1m9qzxPWP + vtPF1a4Odc+rN4nrd9zuKH8RN+Yu+odsIa5WpSlprRFH6NURStxIXH+jOt99RmqzCR9+GafSjqyb7KXi + xtxE8+Uj4l5n1z3F3SsAMA62EQAAAAAAVM0b3DxYR+III7cRULf41fyVEsGUCBjF/xv//+vF/fO5jDuI + sTJnihs3+vYXV7uczhU3tq57urh65XKZuHGlEEc+nbUSv5V4r4vjyuI90P2d3H4juZ6Yk0rd99fDxfWb + GoHIlXuPuNrVoS3zajZuL/GkPTfenK6WCFutWA+Oa226wmmymrialaS0tcabxY1zLvYW19eoPuE+I7XZ + hA/BjMvOcrO48EkJvihu3E0TIaePinuN43CFXCTny1/kX+L+uVz+KZu6+wUAcrONAAAAAACgat7g5sFb + xW0CpHaznCpvkUdKPEFkVXFjCrHxdn95phwjfxL3d+vyUHHjGrfbyk3ixpxC/G0XzphOBDtiQzJcIf8R + 93dzO1tc/XLZQNy4Uoqau2tSujuLq1kOcTSTq2UKEVpaJK7fmawv95SnyLsk3ifjqC7XR52+JG58Jar7 + /or6ryWu79R2kgivunslhXhil3uNqfxTXL8p7Squdqm1aV4NKwKOZ4gbb50i1P4ZeYbEPTBd0DKezril + 7CmHyC/F/b265Hqy26hyrDVm69+yqbjxjuowcX2N6lnuM1KbTfggzDisKRF0ccGTUlwubuxN80Fxry+H + C+QD8iTZTuKoQjfGVWVLeZzEU77OEff36vIVd78AQG62EQAAAAAAVM2rbhxEaOZacZsAqcTG3uFyV5na + /2w9UCL0lOMpKPHUlVXEjWOcdhc33lRiw931OxuxYRnXezc5QOKaxRMaXH91upu48eUQm7JuTCndW1zf + mF48TcrVMoWfietzFOvJc+QX4vqqS/TpxlOauu+vn4vrt4k+JO41pvIOcf020ePEvcZUSptX8+Ur4sZa + lx/L/8pMQfeV2U6OkBvF9ZFShLcjIOvGUYIca41RpH4yahxf6foZ1V3dZ6Q2m/Ahk3E4TFzgpDTbiBt/ + U7xa3Ouq0/USx+TdW9yYhrWTHCeujzrs4u4ZAMjJNgIAAAAAgKp51Y2D+CW92wBIJY7TuI9M7Xeu4okw + 3xLXZ0r7iet/nA4WN9ZUPiiu3xS2lfj7OTYnw0vEjSOH94obUyr/krlsFHfVUeLqmUI8jcn1OVePkDha + zvWZWgRftxA3jpLUfX8dKq7fJoonIrnXmMqjxPXbRF2bV3HEmBtnHeLpj6mP7dtecjzh6cvi+i9B3XN2 + VPEU1x3EjXm2Ijyf8imHl7vPR2034QMluZV+ZN1kzxb3Gpogno7kXlOdPi4bixvPqGK+xJOhXH8p/czd + MwCQk20EAAAAAABV86qbB3WGheIJPnGkxtQ+U4knEcSRIq7vVE4U1/c4nSJurKnsI67flOJJRH8R139K + nxPXfw6niRtTKnHvun4xs/PE1TOFx4rrM4UFEkEq129qTTjCru77ay9x/TbN2lLnUacRZlhHXN9N1KV5 + FaGjuH5unKl9VNYQN465WlO+Kq7flOJ4Udf/uNU9Z+fie+LGPFsR9nV/f1Rfcp+P2m7CB0lyquPIut+b + tlQ+Ke51lC6OifuXuNdUh7/Ig8WNJYX15DRxfafEU50AjJVtBAAAAAAAVfP6GwdxLNs14jYBUniMTO6v + Lm8S1/+oYuPvj/J1iaPyXJ/jslCuEzfuVDYW13dqcRTM38SNIZUzxPVdt9h4Tfn0AecN4vrG9DYUV8tU + 4rg5129KT5U6gysrPERc/yXIcX/FXHF9N03dR53+Sly/TdSleXU7+au4MaYU71VxfK0bQ0qLJI4FdGNI + ZUJc3+OUY87O1aPFjX02Uv+o4aXu81HbTfgQSU6pj6w7Rfad0pbSheJeR8lWl1+Jez11+LGsL24sKa0t + Z4sbQyqfdfcNAORiGwEAAAAAQNW8/sbBXW/9wr8uq8vk/uoST3b6prgxzCSOT4uj9eLpJXEc3FMkfrEf + G0eunxLcT9xrSeUP4vqtyx7ixpHKn8T1W7eHiRtPSruI6xvTi6epuFqm8FtxfdbhReLGkNLJ4vouQd33 + Vzz1y/XbRG8T9xpT+Yi4fpuo7nkV6w3X7zh8RtwYU3u+uP7rEOHpG8SNI4X/SATEXN/jkmOtMVfnSDyR + 0I1/WN8R97dHtZP7fNR2Ez5AkkvqI+uWSTy56M6T2uqwibjXU6pDxb2OOnxVFokbRx3uIteJG0sK/5H1 + 3L0DADnYRgAAAAAAUDWvv3FQ9wZJzicX3EmWiRvH9XKWfFbeKBF22F5WE/e3SvZKca8xlU+K67dOPxM3 + lhT+Ka7PusU8c+NJJeZ6yYG8Uh0qrp4pHC6uz7p8Xtw4UtpJXN/jVvf99XFx/TbRD8S9xlSeJK7fJurK + vNpV3PhSi5Cd679Odb7Hh/3F9Tsudc/ZVOYSeIuQ1LXi/u4o4m8tcJ+P2m7Ch0dyqOPIurfLir9/xa1t + dYgnRk1+LSXbSW4S9zpS+54sFDeOOr1W3HhSeaq7dwAgB9sIAAAAAACq5vU3Dx4vbhMglefI5P7qFkGD + U+UYiUBQHJ13Z4kj+tw/30RfEVfrVJ4trt86vVXcWFK4Ulyfdfu2uPGkEvPc9YuZ1Xm0URwp5/qsy6aS + cvPX+Zi4vset7vvr6eL6bZo46rTOJ9yEO4jru4m6MK8i4B1PlnLjS+nHsqq4MdQpQu9x/LAbUwrfEtfv + uNQ9Z1O5XG4r7jWszH3E/c1Rfdd9NuqCCR8cySH1kXV/lAhPrfj7J4n751L4kEx+LaVaRc4U9xpS+53E + UXJuHHWL6/4PceNKYcLdOwCQg20EAAAAAABV8/qbB3UHna4RjtdKJ47o+4e4Wqeyjbi+63SguLGkcL64 + PusUm7t1B1DeJa5vTG8tWS6unilsIa7fOtX99JKrZZG4vsclx/0VR2C5vpvmAeJeXyrjOhq0Dl2ZV/Fk + HTe2lGLtF4Ej138Op4kbVwoRHFxDXL+5pZ6zcZyza0/l7eJex8q8WNzfG9VS99moCyZ8cKRuqY+sC4+S + yX0cLO6fS+FsmdxXqZ4hbvypxdFx24gbQy7vFje2FH7o7h0AyME2AgAAAACAqnn9zYPdbv3Sv26fkB1l + ct+Yve3E1TeVv4vrt251PtHp++L6rFPqpw84jxXXN6b3CHG1TOEv4vqs25bixpPSHuL6Hpe676/LxPXb + RK8W9xpT+Yy4fpuoC/MqQouXihtfSi8T138uda4pwoPE9Ztb6jn7BqnzaVhxjPTm4l7LTI4T9/dG9Qj3 + 2agLJnxopE51HFl3vEzt57Hi/tkUIqS1jkztsyRxhNzF4saf2gvEjSGne4sb22z9S86ReCLYkfIGuYu7 + dwAgB9sIAAAAAACq5vU3D+LpAm4ToC5ny9sknjIRx6dMHgtW7nni6prKl8X1W7c44saNJ4UPiOuzTi8R + N5aUbieub0xvqbhapnCsuD5zOFPcmFIZxz00k7rvry+I67eJvibuNaayv7h+m6gL8yrH05x+L3Fkous/ + l73EjS2VqKPrN7fUczaeSnj0lLbUJsS9lplcJO5vjSKe6rjYfTbqggkfGqnTB8QFTEYVwZTNZGo/G4v7 + 51OZ+gSp0uwvbtypnSZxRJ4bQ07z5e/ixrjCjRJHHP5QPiPvkOfLHnIPWdfdIwAwTrYRAAAAAABUzetv + Hqwi/xS3GVC36ySetnOw7Cmj/Mq7az4trpapvFxcv3W6v7ixpLKvuH7rdLy4saTyW3H9YmbfFVfPFF4o + rs8cDhE3plQioOr6HZe67684Jsn12zRx1OmV4l5jKncT13cTtX1exXyIEJIbW0p7i+s/p7uLG1sqh4nr + N7eUczbW5DFHNpJ/3dpWl3gSlXs9zsbi/saoTnefi7piwodG6vJQcQGUuXipuL7CJeL+nRQOEddnCSL0 + k/qpWdO5v7gxjMNRcrp8Sd4vL5d95H6yiQwEstw9AQAlsY0AAAAAAKBqXnUT4YviNgPGITZlI4zwHnmK + bC+rytQxd9UfxdUtlSXi+q3LbSRCO24sKdwk64vru05xRJEbTyqHi+sX01sg14qrZwr3ENdvDo8XN6ZU + 4gkYq4vrexzqvr/uLa7fpon/frrXl0r89zrC0q7vJmr7vNpV3LhSOkdKmBPx3303vlS+Ka7f3FLO2dNl + xd99za1tdfmhTH4dM3mcuL8xqve5z0VdMTX4UaPFEk/TcWGZUZ0lC8T1F04Q9++l8GNxfZZgd3FjTu2r + 4vpvDHdPAEBJbCMAAAAAAKiaV91EiF/fu82AUlwvp8lHZD/ZWqa+hi7YVFx9Uvm3RBjE9V2HteVkcWNJ + 5Tvi+q7TXcSNJaW/ylmFiSOy1hBXkxLsJK6WKcRT8ca5ub+tuHGldC9xfedW9/0VYbi2hGvjWDn3GlM5 + UVy/TdSFeRXHa7qxpRQBddd3bnE0shtfKvHfPNdvTqnn7BGy4m/Hf8vrDtZHgGny65nOO8X9+6Pay30u + 6goX/qjJh8WFZUZ1s8STelxfK7xO3L+bwn9kDXH9jtvnxY05tZ3F9d8Y7p4AgJLYRgAAAAAAUDWvuokQ + 4ZaLxW0IlOoK+YYcJPeTLjz1KY5gc7VI5Xvi+q1DPDmqrUfoPEPcWLognhjialKCl4obcwrxXuT6zGUt + ceNKadhN6brVfX99W1y/TTQh7jWmEv/9df02Ud3z6lvi+s1lsdT5RLtwuSwU1/84uDGmcoG4PnNKPWcj + GDn57z9R3D+XSqwBI5A2uU/nB+L+/VFt6D4XdYULf9SgjiPrjhDX12S7ift3U3mwuH7HaW25Xtx4U/ql + uP4bxd0TAFAS2wgAAAAAAKrmDW4kxJOS3IZAU1wt8XSJF8udxb3GpvuQuNeeypvF9ZvKfHmQHCc3ixtD + SrERmfMJVSscJW48bRfXdB1xNSlBnUd0xjE/rs+c4sl3bmypHCCu39zqvr/eIK7fJrpI3GtM5YHi+m2i + ts+rvcSNK6V3iet7HOoOf8aRca7fnFLP2Xjq4eS/H2u2H4v7Z1M5UCb3OVWs4eJpo+7fHcV57jNRl7jw + R2J1HFl3uawrrr/J1hP376fyWnH9jtO+4saa2gHi+m8Ud08AQElsIwAAAAAAqJo3uJkQGxrfF7cx0ES/ + kbfJPcW93iaKo1Lca03lEeL6HUXMp40lNsLjKQHHyJ/F9VuXeNqBG1vdzhM3nrY7R1w9SvE3ceNOYWdx + feZ0pbixpbJUXL+51X1/PVRcv02zmbjXl8oNsrq4vpuo7fPq4+LGldLdxfU9DhuIG2MqcVyp6zenlHP2 + RnH3832kzmD6P2SmgHQcmer+vVEd5T4TdYkLfySW+si6sJ+4vpzzxf2NFE4S1+c4fVrcWFO6STYU13+j + uHsCAEpiGwEAAAAAQNU8v6GwicSv1N3mQJNF6CmeRnIbca+7CdaWm8S9vlQiqBJhqlH9QeIJInGsYN1j + XZlfyirialmnDcWNpwuOFFeTEmwtbswp/EfWENdvTrFh7MaXSglPa6n7/orN/jXF9d00dR91+iNx/TZR + F+ZV/PfZjS2VOIbM9TsudxM3zlTGHXRKPWfPENdPiKC6+3dSeY+4fsPzxf07o3qG+0zUJS78kVAdR9Z9 + X+aL6885VtzfSeFqWVVcv+NyqbixpvQjcX03jrsnAKAkthEAAAAAAFTN8xsKIY6u+Je4DYKmi42peCpJ + hIbcay/Z7uJeEwYtl3gKgatj3R4vbkxd8ExxNSnBs8SNOYU42sf1mVvd79uHies3p7rvr1PF9dtEHxb3 + GlN5h7h+m6jt82ojceNKqaRj60Lda6Y/ies3l9RzNo5Gdv2E+BHEteL+vRQiLHwncX1/Sty/M6q7uM9E + XeLCH4nUcWTdMtlWXH/Tebm4v5XKPcX1Ow5bihtjaq8S1/+w7iFnNcAZsr27bwAgF9sIAAAAAACq5vkN + hRUeJFeL2yRog8slgg9xvJp7/SWKY/jca8Gg14urYQ7vEzemLthWXE1K8AlxY07hEHF95rSauLGlNNNT + N3Kp+/4q4TWmcra415jK/4jrt4naPq8eLW5cKUWwyPU9LvEUTzfOVOJJoa7fXFLP2SeL62eFN4j791L5 + vLh+Ux7PF0+stZ+JumTCB1FSqOPIureJ62smDxb3t1I5UFy/4/AkcWNMbTtx/Q8raub+bone5+4bAMjF + NgIAAAAAgKr4sn8l7iFxDJnbLGiLb0k86cC9/tL8QNxrQNUXZRxH1q1wurhxtV0cm1ZycPB8ceNOYQ9x + feYUT8NwY0spnobn+s6p7vtrT3H9Nk08tfBmca8xhfjbTXwy4nTaPq9eI25cqcRTFBeL63tcDhc31lRO + FtdvLqnn7J3F9bPCIrlY3L+byv1lcp/rivvnRnW82M9EXTLhgyhzVceRdX+QReL6m8lacpO4v5nC58X1 + Ow5vFzfGlC4S1/ds1HmcYGp7u/sGAHKxjQAAAAAAoCq+7B/CevIlcRsGbfFXGdcxZ8NaKNeLGz/6YuNx + TXE1zCE2emPD142t7b4hriYlqPPYpgh8xGas6zenh4obX0oHius7lxz31wbi+m6aeNqSe32pxNOiXL9N + 1IV5dbS4caVylrh+x+k0cWNNJY5Uc/3mkHrO/k1cP1M9Sdy/n8pPZXJgeldx/9yoXiz2M1GXTPggylzU + cWRd+B9x/Q3jt+L+ZgqXietzHL4kbowpxf9c37Nxsbi/XaIN3H0DALnYRgAAAAAAUBVf9s/C3lL3L7nH + 6Vp5mLjXXoL4lbsbN/pOknGGnMIjxI2tC14nriYliPcvN+YUfi2uz9xeJm58KT1RXN+51H1/nSuu3yZ6 + u7jXmMqHxfXbRF2YVxECdmNL5TPi+h2XWAvUHV57s7i+c0g9Z08Q189UEUKKMJL7G6nsIyv6i3WF+2dG + dW+xn4m6ZMIHUebiY+ICI3PxBXF9DesT4v5uKluJ6ze3X4obX0r7i+t7WJuJ+7sl+q27ZwAgJ9sIAAAA + AACq4sv+WYpjK14i8QQkt4HQdNfIvcS99nF7lbgxo+d9sqq42uUUR3u58XVByUHBw8SNOYWPiusztwga + uPGldF9xfedS9/31MXH9NtEPxb3GVPYV128TdWFe/U7c2FKJo/Fcv+OSI3Q8zuBn6jn7anH9OEvE/Y1U + LpR4imn09eVb21KIHzTcsk50n4m6ZMKHUUa1m7jAyFxcI5uK629YLxT3t1N5hrh+c/u7uPGldDdxfQ/r + ieL+bokOd/cMAORkGwEAAAAAQFV82T+i2ICITc7vyE3iNhSa6k9yO3Gve5y+Km68XRehu8eIq9k4fFfc + ONsu3gfiKB1XkxL8Qty4U3iyuD5ziqds5Aig3lZc/7nUfX89TVy/TRP/jb5B3GtMZTNxfTdRF+ZVHE3m + xpZKHGnm+h2XCD+7caa0rbi+c0g9Z3cW1890JsT9nVReLtHPJZPa5urbcsv43WeiLpnwYZRR3FbqOJLs + JeL6m42dxP3tVI4W129uN4sbXyo3ymri+h7W+8X97RLt6+4ZAMjJNgIAAAAAgKoVX/jP0YbyfDlFbhS3 + udA0nxL3WsclQgxXihtrV/1H3iNri6vZOCyQeGKAG2/bnSmuJiWIAFadRxhtLq7fnHYUN7aU/iiu71xy + 3F93Ftd30zxQ3OtL5SJx/TZRV+bVP8WNLZVdxPU7LvFUIDfOVK6SVcT1XbfUczbW7vHEVtfXdCLoeJ24 + v5dCzNe7T2mbqzfKLeN3n4m6ZMKHUUZxpLiwyFycKQvE9Tcbq0uEdFwfKZwvrt+c1hE3tpTOFdf3bPxc + 3N8u0UbungGAnGwjAAAAAACoWvGFf0LxtI/HyRFygbiNhqbYSdxrHIftxY2xi66X90sJ4ZKpYs64MXfB + R8TVpAS7ihtzCvEEONdnbm8XN76U4gkeru9c6r6/4olYrt8mOkjca0xl3HMhpbqP4SplXrmxpXRXcf2O + QxxB7MaY0oni+s4h9Xvhz8X1szJ1H/n4G9M2F/89Xtd9JuqSCR9Gma06jqyLpxPdV1x/ozhdXD+pbCSu + 31w2EDeulE4Q1/ew1pTl4v52ac5z9wsA5GYbAQAAAABA1Yov/Gu0sewjH5A4OqpJT3w6QdxrGof9xY2x + S/4ssam2vrgaleBl4sae0lmF+l9xNSnBW8TVMoXPiOszp3iqyMXixpfS88T1n0vd99dx4vptoghhuNeY + Svw3yfXbRF2ZV/EURDe+VLYQ1+84xJrTjTGlA8X1nUPqORv1cv2szJryF3F/szTxVMcY7y1jd5+JumTC + B1Jmo64j6z4qrr9RHS6un1T2FtdvLluIG1dK8dQu1/ewHiLu75bo4+5+AYDcbCMAAAAAAKha8YV/RqvL + feQ5cricLnVvvo0qNkU2Evc6counZ7gxtl0czRKbxI+RVcXVpiRfEvc6UvmduH4xs5PF1TOFEgIfjxY3 + ttTuIK7/XOq+vw4Q12/TRPCt7qNO4ymDru8m6sq8+oe48aWyrrh+c4t15hXixpjSOI8jTD1nnySun2E8 + RdzfLM2p8t9xu89EXTLhAymzUceRdSGOgzsrob+K6yeV94urTy7rixtXSu8R1/ewXiPu75boqe5+AYDc + bCMAAAAAAKia/KX/GK0mcczIivDTL+UmcRsVuT1b3Jhzu0jc+NrmBvmpvEsivBEblq4epbpc3OtK5WPi + +sX0Fsh14uqZwt3E9ZvTj8SNLaV4Ip/rO6e67697iuu3aWJOuteXSoSo5ovru4m6Mq/qXkesI67f3J4p + bnwpnSGu71xSz9m5PI0r3gtOE/d3S/Ie+e+43WeiLpnwgZRh1XFkXVP9UlyNclkkblwpLRXX97BOFPd3 + S7SZu18AIDfbCAAAAAAAqiZ/6V+YxbKrvEm+J+N66tOnxI0vp83EjS2VOE7QHUWWUvyS/hT5isQTmo6S + CDO9Sp4uD5c7SjyJxNWgCe4qrr4pPU1c35jefcXVMoUIfIx7zj5M3NhSe6m4/nOp+/66Wprw1Lhh1H3U + 6dfE9dtEXZpXESJ3Y0xlc3H95vYrceNL6SXi+s4h9ZyNo+dcP7PxAHF/uyR7yn/H7D4TdcmED6QMo64j + 65rqJomauFrlEmNwY0tlLk90mi//EPd3S3Ohu1cAYBxsIwAAAAAAqJr8pX/h1pI4viyeaHONuE2MOsSG + mRtPTvuKG1sq8TQY1y9m51ni6pvSncT1jem9XFwtUzhRXJ+5xJM04klLbmwpRdB0fXFjyKXu++skcf02 + 0WfEvcZUXi2u3ybq0rz6vLgxphJP5nT95rS7uLGlFE+eXE9c/zmknrPHiutntj4n7u+XYgP573jdZ6Iu + mfChlGHUdWRdk+0urla51H0832fF9TuMu4j7myU6xt0rADAOthEAAAAAAFRN/tK/QdaUl8m14jYzUrpK + 3Bhy+rC4saXyDnH9YnY+Ia6+qVwirl/M7Mvi6pnCQeL6zCVHuC6U8GS7uu+v14nrt4n+JO41phJPb3H9 + NlGX5tWbxY0xlceJ6zeXCH7+XNzYUjpaXP+5pJ6zLxTXz2zFE72uF9fHuJ0rlfG6z0RdMuFDKSvDkXXe + weLqlcsp4saVyq/E9TuMeKLTMXJWIv8UN8YUnu7uFQAYB9sIAAAAAACqpn7xP8mGcjd5pMRxWbGh/36J + Y8fiCUC/l43F/bu57CTxy3q3qZGS6zuns8WNK5X/EdcvZud8cfVNJdVTF7rm7+LqmcI4Ax8byT/FjSu1 + 7cWNIae676+HiOu3ae4g7vWlEv/NXSiu7ybq0rx6orgxpvIWcf3mEkErN66UbpZtxfWfS+o5u4O4fkYR + c8D1MW5HSmWs7jNRl0z4UMpM1hGOrPN+IK5muRwhblyp3Czries7p8VyhbgxprCFu1cAYBxsIwAAAAAA + XTZvydLVZFNZInEM3PNkqRwuX5XT5C+yTNxGwVTxVKXKxsEYfEDc2FJy/eaytsTGmhtXCvG3ow/XN4YX + oRNX35ReJK5vTG8bcbVMYZyBj3hyydfFjSu1L4obQ05131/x37xF4vpumieJe42p/FBcv03UtXm1mbhx + pvIDcf3msLrUHVoLcTyb6z+X1HM2wrKriOtrFHHM9F/F9TVO/yeVsbrPSV0y4YMkM4mn8rhwCCYmbpCF + 4uqWwwHixpXS88T1ndNbxY0thT+7+wQAxsU2AgAAAADQNfN6GxixUX25uC//5+JiGfeTHfYVN7ZUrhHX + by7xtCU3rlTiaVGuX8zOE8TVN6WUT13oiueIq2UK4wx8vE3cmFK7Ue4ibgw51X1//Uxcv030EXGvMZW3 + i+u3ibo4r84TN9YUbpII4rh+6xZH8LoxpRTvh1uJ6z+X1HP2G+L6mYuni+trnLaUyjjdZ6YumfBBkuns + IS4cgr4HiqtdDvcUN6aUzpE4hs71n8M2EoEyN7YUJtx9AgDjYhsBAAAAAOiaeb1NGfelfypxpF1l8yCz + uoNAfxTXby6xqezGlcqHxfWL2YljHV19U7laUj51oSs+Ka6eKYwj8BFPcnqzuPHU4VBx48it7vvrXeL6 + baJfiXuNqbTpqNMuzqsYkxtrKuM4vi6OWK7zyZcrvFtc/zmlnrOvEdfPXMRa5Rfi+huHS2VgnO4zU5dM + +DCJE0fWXSIuHIK+g8TVL4dV5HJx40rpmeL6r9vqcrq4MaXybHefAMC42EYAAAAAALpoXr3HefxH7isD + mwiZvF7cuFL5prh+c4mnxrhxpRJPxHL9YnbOEFffVMY9D5vqD+LqmULuwMc68gVxY6nDn2SxuLHkVvf9 + 9Vhx/TZNzJE6Ax/xxJ42HXXaxXl1D3FjTeVfsom4vusQryeCwG4sKcUTTG8jbgw5pZ6zO4vrZ64eJK6/ + cThOBsboPi91yYQPlDgcWTecE8XVL5cjxY0rpStlc3H91yWeIvUpceNJaSt3nwDAuNhGAAAAAAC6aN6S + pe8T9+V/Kn+XcRyrFZvwfxE3plTi6Smu7xziWMAbxI0rlU3F9Y3hxTyMAICrbyp1PHWh7TYWV8sUIkyS + K/ART8fYT+KpFG4sdYmnpLjx5Jbj/rqduL6b5lHiXl8qZ4nrt4m6PK9OEzfeVL4tq4rrO6V7Saw/3RhS + 203cGHJKPWdjfbmGuL5SiICR6ze3A2RgfO7zUpdM+FDJVBxZN7yrJJ6s5OqYw87ixpXaL2VtcWNILer5 + UXHjSOkyd48AwDjZRgAAAAAAumheL4TkvvxPKX7F/0QZ2EyoyerydXFjSenB4vrP4QHixpTKuI/la4vY + AHX1Tamupy602T7iapnC2eL6TGkteab8VtwY6hThWDemcaj7/or6un6b6B3iXmMqHxLXbxN1eV49QdyY + U/qMrCau/xSeLP8W13dqpcz71HP2x+L6SWULqTusP4x7ysD43OelLpnwwZLJOLJu9u4hrpY5xJOPfi1u + XKn9VNYXN45UIkz1VXH9p3asu0cAYJxsIwAAAAAAXTVvydIfiNsASO2rsp0MbCoktL3UfeRMuEjmixtD + Dq8WN65UPi2uX8zOW8TVN5U4HrLOpy601QfE1TOFuja+by9Pl8/LNeL6rtupEkFSN75xqPv+Olxcv030 + I3GvMZU2HXXa5XkVT4mLp3O5cacUR+/eWdwYRrW55DzCM9aapbwfpp6zh4jrJ6W6w5crE/8dtU8Xc5+V + umTCh0sm48i62XuhuFrm8n/ixlWHi+WR4sYxV3vJn8X1W4f93T0CAONkGwEAAAAA6Kp5S5Y+WtwmQB3i + WKd42lI8NSCeSjKwwTCiOKbkGFkurt/UloobRy4nihtXKs8T1y9m52Rx9U2l7qcutNUvxdUzhbkEPuJI + ytisv5/sJW+Q4+UCcX3l9FeJI//cuMel7vvrqeL6bZoIY3DU6fC6Pq8eJm7cqV0v8YS4uQaedpSPyTJx + /dThcrmjuPGMQ+o5u4e4flK6jVwmrv8cThI3LvtZqUsmfMBkhbqOrPuXnDVGV4obVyrHiqtnLqvKb8WN + rS6nyKNlNXFjGtbqso+cKq6fOm3j7hEAGCfbCAAAAABAl81bsvQ74jYC6hRPozlF4lfdT5MHySYysOkw + Rfwz8c/G000+KueL+/t1uVrWFze2HOKJC1eKG1sq24rrG8NbINeJq28qMQ/i6RtNc4C4muUQm6s3iatn + CueJe81OPBkuXCX/FPf3ShDveXHMqavnuOS4v+J4Jdd30zxQ3OtLpU1HnTKveibEjb0up8nBEsH7CD5N + d7RdhEHvIREojSfzxfun+3t1itBgSUfGpp6z8YOEdcT1lVocwerGkMPrxY3Jfk7qkgkfNgl1HlkXTxxy + febyZnHjSiXq5vrN6eHixla3v0sEvV4gD5YNJY7Tc2MM68ku8iI5Tq4S93frFuOe7+4RABgn2wgAAAAA + QJfNW7L0bnKjuM2AcYhN/0slNlAjyHTxrW11P5ViGC+VgY2RjOJauXGlcoWM81i+toin8rj6YsnSv4ir + WQ67ixsTvNhAL2lTf4W6769xztHUDhL3GlNp01GnzKuedSXG6l5DLvHUpAgyxRPtYiwRuHT/XE4Rkn28 + uJqNS+o5+ytx/dQhgvt1PmFxJruIG5P9nNQlEz58Euo6si6e/DNT8CWHup5UNdmdxPWd01HixpbbjfJX + uUh+JxfI5XKDuH9+HI539wcAjJttBAAAAACg6+YtWfo6cZsB6PuZrCoDGyMZ7S9ubKl8RVy/mJ1XiKsv + liw9VlzNcoinhrgxYVAEC0oMOYW6769xztHU4rhY9xpTadNRp8yrvgjQ5DwOrnQRcnqKuFqNU+o5+xFx + /dTlweLGUaeY12uKG4/9jNQlEz4gU1cQaJlsJ67PnDYSN76Uniau75wWy7nixoeqF7n7AwDGzTYCAAAA + ANB183q/rK57Q7TJ/i6by8CmSGafETe+VGLTzPWL2TlBXH2xZOmLxNUshzgu040JVfFEvfuIq2EJ6r6/ + Xiiu36aJ/67H0YjuNaaynbi+m4h5VbWfuNfRNRFyepa4Go1b6jkbxwK6fur0JXFjqUv8aMGN4xbuM1KX + TAyGY24nl4oLg8zV28T1OQ4XixtjKkeK6ze3beRqcWNE393d/QEA42YbAQAAAADALWGn28qZ4jYGuiyO + b3qADGyIjMGfxI0xlXiKg+sXw4uj/yIY5+qLJUvvLq5udVsocS+7MaEv/htQQqhzOjnurx3E9d00ca+5 + 15fKP6QtR50yr7w4rte9lq6Ip//sLa4241bHnN1MXF91urP8R9x46vAuceO4hft81CUTg8GYz4gLgszV + hbJIXJ/j8CVx40wlnqTk+h2HneU6cePExMSVsoq7PwBg3GwjAAAAAADombdk6QbyK3GbA10UwYiHycBm + yBjcQdwYU4nXupq4vjG8bcTVF0uWXinxlBlXt7pFiM+NCX2Hyxri6leKuu+vf8q45mhqzxf3GlP5qrh+ + m6jueRVHQTZ1Xr1E3Gtqu8sljlZzNSlB6jl7kbh+cninuDHV4bHixnAL99moSyaqgZg9xQVBUniUTO1v + nA4SN86UNhDX9zg8TAg7eSe4ewMASmAbAQAAAABA37wlS9eWk8VtEHRJ/FL+/jKwETImTxI3zlS+L65f + zM5zxNUXS5Z+RVzNcniluDFhydLLZC9xdStN3ffXN8T120SfFfcaU3mVuH6biHk1szjS7Hpxr62NzpAt + xNWiFKnn7IS4fnKIJ8r+Tdy4UruduDHcwn0u6pKJfhAmjqy7TFwQZK6Ol8l9lWBXcWNN6XHi+h6Xe0td + xxI22UvcvQEAJbCNAAAAAACgal7vyT7vlZvFbRS03elS2ibXR8SNNZW3iusXs/NJcfXFkqWvEFezHCJk + 5cbUZfH+frTMuPFbmLrvr9eI67eJLhb3GlMpKQg8V8yrldtJ4qk/7vW1yfskjjp1NShJ6jn7PHH95JIj + JH6OuL7/y30m6pKJfgimriPr/iWbyeS+SrC2uPGmdKi4vsdpE/mxuPE2Vbyet05pm417uXsDAEpgGwEA + AAAAQNWkL/0fKn8St2HQRjfJwVLiEW51Hym4m7h+MTt/EFdfLFm6RFzN6jZfrhA3pq76qYzresxF3ffX + zuL6bZrNxb2+VOLpPk0IgwyLeTWcdeXz4l5j050vTbpOqefsduL6yWVVqXude4S4vv/LfSbqkole+KXO + I+teKpODNiU5X9yYUzldXL/jtkBeJ/8RN+4meZ8slLtNapuNq2VVd28AQAlsIwAAAAAAqJryxf9tJMI/ + 14nbOGiLU6XUjf91pM6na0XAa7G4vjG8jcXVF0uWXisLxNWtbtuKG1MXnSmPEVen0tV9f/1H1hDXd9M8 + WdxrTOUH4vptIubV7O0tl4h7vU3zb3mtNOkapZ6z/5AIBLu+cnqYuPGlsp+4fv/LfSbqkol6j6w7SyJU + MzVoU4q6nmK1wnJZLK7vEmwjPxM39tJdLLvJitcyX/4m7p+dyYnuvgCAUthGAAAAAABQ5b78l03loxJP + cnAbCE0Vx/vE5kcJmzzTeZS4sadyhrh+MTtPFFdfLFn6bXE1yyGO5HFj6pKTZXcp+X1uZeq+v34irt8m + iv9Wu9eYytvE9dtEzKvRrAjBR4jVve7SRQDtMInQkHt9JUs9Z+NoV9fPOJwgbowp3Elcn//lPhN1yUR9 + YZ+b5X6yIohSonjalBt7SruK67sUERB6slwobvylWSbvltvI1NdyrLh/ZyavcPcFAJTCNgIAAAAAgCr3 + 5f8kG8ib5FJxGwlNEeGeeOrFuJ4yMxvvEPcaUnm/uH4xOx8UV18sWfp6cTXL4dPixtR28R59qMQTrVxd + mqbu++sQcf020a/FvcZUIjTn+m0i5tXc3F4i8NSU40GvlFhTbSLu9TRB6jn7SnH9jMNWskzcOOfiL+L6 + q3Cfibpiot4j646QqUGU0jxQ3NhTerO4vksTx78dIKUGniLgdLhsLm78YX9x/+5M7uvuDQAohW0EAAAA + AABV7st/Y1WJzc7PSlN+0f83iQ2i+4l7TaX6kbjXk0ocQ+P6xezEsWCuvliy9CHiapbDH8WNqY3Ol3hK + SRwBFO/Rrh5NVff99Whx/TbNulL3Uadri+u7iZhXaSyS58tp4uowTjFnvy9PlRinG3+TpJ6zpa2J3y1u + nHNxrLi+Ktxnoi6YqPfIustlXZkaRCnNWnKTuNeQysni+i7VKhIBuBh3PJXLvaacrpBDZaaA0wp3Efc3 + pnOtLHD3BwCUwjYCAAAAAIAq9+X/Sqwuu0k8Geh34jYZxiE2e38h75SmbvzHE6fqPi5wI3F9Y3hrSWym + uvp23Q2yhri61S3mthtT00VNz5UTJZ5Oso808QimYdV9f8V/K9YT13fTRADZvcZUzhLXbxMxr+qxpRwk + sf4a138X/y3x/ri/bChunE2Ues5eJwvF9TUu68jfxY13VC8U11eF+0zUBRMTE++YFPhIbT+ZGkIp1a/E + vYZU/i2riuu7dJvIy+VUyRl6ipp9RZ4g8aQpN7bp/EXc33ROcvcGAJTENgIAAAAAgCr35f8s3U72kDjO + 5ASJp4zUvdm1XC6QL8jr5FHSlg3Gt0hsLtfhm+L6xOzFUwhcjbtuQly9cjlCYhy/l4tm6U/yzxFEEMm9 + T4X4v03+Z+MopejrtxLBgFPka/I5iSfQxbF/sVn/BHmANPnIpbmo8/6K/065PpsonljzDXGvM4VxHkNZ + B+ZVveLpX/FUq/fIDyXe79z74lz9Qb4kr5YHSgTw3XjaIOWcPUZcH+P2DHHjHdX24vqpcJ+JumBiYmJH + OasGn5P5MjWAUqqDxb2OVN4ort+mWU/iSU8flDPkOnHhoVH8S34k75VHyOrixjCM+J/rwznI3RsAUBLb + CAAAAAAAqtyX/wnEE122lUfKs+WN8gH5tMSv7mNz/6cydXPidIn/W4hNw6MkNnleI8+UeFLTnWU1cf0C + AACgDPH0uUfIs+S18mGJkPp3JdZ6se6bvA6Mo9qi/SvyKYmndL5MHi87ymJx/QCz4j4TdcmED4sAKxNP + qYqj4vaSA+UQ+ZR8S06R02RF2OsXt7adJBGEe6ccII+Tu0ocl+f6GMXeMjloNpOd3D0BACWxjQAAAAAA + AAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWx + jQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAA + AAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQD+fztySAAADANBbP5NdwZewIGA + kAAAAAAAAAAAUDITAAAAAAAAAACgZCYAAAAAAAAAAEDJTAAAAAAAAAAAgJKZAAAAAAAAAAAAJTMBAAAA + AAAAAABKZgIAAAAAAAAAAJTMBAAAAAAAAAAAKJkJAAAAAAAAAABQMhMAAAAAAAAAAKBkJgAAAAAAAAAA + QMe9D/nIDJsB8H0BAAAAAElFTkSuQmCC + + + + 17, 17 + + + + AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA + AABmMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/5uDd///////////////////////39fT/dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP+AXUL///////////////////////////////////////////////////////// + /////////////////////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/3RJJv/39fT///////// + /////////////2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+AXUL///////////////////////// + //+YfWv/ZjMA/2YzAP9mMwD/ZjMA/3RJJv/u6+n/////////////////9/X0/3RJJv9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/39fT//////////////////////8Gzqv9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec/9TLxf//////////////////////y7+4/62a + jf9mMwD/ZjMA/5h9a////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/3RJJv////////////////////////////// + ///Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/u6+n///////// + ////////////////////////////////////////////////////////////////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+bg3f//////////////////////jG5Y/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/7ennP//////////////////////5uDd/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/5h9 + a///////////////////////wbOq/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm//// + ////////////////////////o4x9/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/rZqN//// + /////////////////////////////////////////////+bg3f+Mblj/t6ec////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/jG5Y//////////////////////////////////////+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/9TLxf////////////////////////////////////////////// + ///////////////////////////////////Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/wbOq//// + //////////////////+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/5uDd//////////////////// + //+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/9TLxf//////////////////////gF1C/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////////////////////////90SSb/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/8u/uP////////////////////////////////////////////// + //////////////f19P/m4N3///////////+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////// + /////////////93W0f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//// + ///////////////////39fT/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+jjH3//////////////////////8u/uP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/4BdQv///////////////////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/gF1C//f19P/////////////////Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7en + nP//////////////////////9/X0/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////// + ///////////////////Uy8X/gF1C/2YzAP9mMwD/t6ec//f19P///////////////////////////9TL + xf9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/8Gzqv//////////////////////7uvp/////////////////62ajf9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+Mblj///////////////////////////90SSb/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/4xu + WP//////////////////////5uDd/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//////////////////// + ///Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//////////////////// + ///////////////////////////////////////////////////////////////////Uy8X/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA//f19P//////////////////////y7+4/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/gF1C/+7r6f//////////////////////9/X0/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/5uDd//////////////////// + //+jjH3/////////////////7uvp/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/3RJ + Jv///////////////////////////6OMff9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA//f19P//////////////////////dEkm/2Yz + AP9mMwD/ZjMA/2YzAP/m4N3//////////////////////6OMff9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/7uvp//////////////////////////////////////////////////// + /////////////////////////////7ennP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+jjH3///////// + //////////////////+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/jG5Y//////////////////// + ////////dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP/39fT//////////////////////2YzAP/Lv7j/////////////////t6ec/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+bg3f//////////////////////wbOq/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/1MvF//////////////////////+YfWv/ZjMA/2YzAP9mMwD/gF1C//////////////////// + ///39fT/dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////// + ////////////////////////////////////////////////////////////////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP///////////////////////////2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/1MvF//////////////////////+jjH3/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/jG5Y//////////////////// + ///m4N3/ZjMA/4BdQv/39fT////////////39fT/gF1C/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/wbOq///////////////////////Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////// + /////////////////////////////////////////////+7r6f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Uy8X/////////////////7uvp/2YzAP9mMwD/ZjMA/2Yz + AP+Mblj///////////////////////////90SSb/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/t6ec//// + ////////////////////////ZjMA/2YzAP9mMwD/dEkm//////////////////////////////////// + /////////////7ennP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP+jjH3//////////////////////9TLxf9mMwD/ZjMA/7ennP////////////// + ///Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////// + /////////////////////////////////////////////+bg3f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/6OMff////////////////////////////////////////////////////////////// + ///////////////////d1tH/jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/4Bd + Qv//////////////////////rZqN/2YzAP9mMwD/ZjMA/62ajf//////////////////////5uDd/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////////90SSb/ZjMA/2Yz + AP9mMwD/5uDd////////////////////////////////////////////1MvF/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP////////////// + ////////t6ec/2YzAP9mMwD/dEkm//f19P////////////////+YfWv/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/4xuWP////////////////////////////////////////////////////////////// + /////////////2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm//////////////////// + ////////////////////////////////////////////////////////////////////////mH1r/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP/////////////////39fT/dEkm/2Yz + AP9mMwD/wbOq///////////////////////Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/6OM + ff///////////////////////////6OMff9mMwD/ZjMA/2YzAP/Bs6r///////////////////////// + ///////////////////39fT/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/1MvF//////////////////////+tmo3/ZjMA/2YzAP9mMwD/rZqN//// + /////////////+bg3f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA//f19P////////////// + ////////////////////////////////////////////////////////mH1r/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/7uvp//////////////////////90SSb/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP+jjH3/5uDd///////////////////////39fT/dEkm/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/+7r6f////////////////+3p5z/ZjMA/2YzAP/Uy8X//////////////////////7en + nP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm////////////////////////////wbOq/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/u6+n///////// + /////////////4xuWP9mMwD/ZjMA/2YzAP9mMwD/7uvp/////////////////62ajf9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/3dbR///////////////////////Bs6r/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Uy8X///////// + /////////////5h9a/9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP90SSb/7uvp//////////////////// + //+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/o4x9//////////////////f1 + 9P+AXUL/ZjMA//f19P//////////////////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/1MvF///////////////////////39fT/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/Bs6r//////9TLxf+3p5z/t6ec/5h9a/9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/dEkm////////////////////////////dEkm/2YzAP9mMwD/ZjMA/2Yz + AP+tmo3/////////////////7uvp/3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Bs6r///////// + /////////////+bg3f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP//////////////////////t6ec/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP/Lv7j//////////////////////8Gzqv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/1MvF/////////////////8u/uP90SSb///////////////////////// + //90SSb/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////////////////////// + //+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+7r6f//////////////////////o4x9/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+YfWv///////// + /////////////+7r6f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/d1tH/////////////////t6ec/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/6OMff///////////////////////////3RJJv9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/mH1r//// + ///////////////////Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/+bg3f////////////// + ////////t6ec/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+AXUL///////// + /////////////62ajf//////////////////////5uDd/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP/Bs6r///////////////////////////+YfWv/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP+tmo3//////////////////////+7r6f9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/7ennP//////////////////////1MvF/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/5h9a///////////////////////gF1C/2YzAP9mMwD/ZjMA/2YzAP9mMwD/gF1C//// + ////////////////////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP90SSb//////////////////////+7r6f9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/4BdQv/Lv7j///////////////////////////+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP+3p5z///////////////////////////////////////// + ///Lv7j/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/d1tH///////// + //////////////////+3p5z/dEkm/2YzAP9mMwD/t6ec////////////////////////////rZqN/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/y7+4//// + ///////////////////Bs6r/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/93W0f////////////// + ///Uy8X/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/9/X0//////////////////////////////////// + /////////////////////////////////////////////3RJJv9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/m4N3///////////////////////////////////////////////////////////////////////// + ////////wbOq/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/u6+n//////////////////////////////////////7ennP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/Uy8X///////////////////////////////////////// + /////////////////////////////8u/uP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP/m4N3//////////////////////62ajf9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/gF1C//////////////////////+YfWv/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP/Uy8X///////////////////////////////////////////////////////////////////////// + ////////mH1r/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/8u/uP////////////////////////////// + /////////////////////////////////////////////9TLxf9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/6OMff////////////////////////////// + ////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP+tmo3/9/X0//////////////////////////////////////////////////////+tmo3/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/dEkm//// + ////////////////////////jG5Y/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/y7+4//// + /////////////+7r6f90SSb/ZjMA/2YzAP9mMwD/ZjMA/7ennP////////////////////////////// + //////////////////////////////////////////////////+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/t6ec////////////////////////////////////////////////////////////5uDd/7en + nP+Mblj/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/93W0f////////////////////////////////9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/o4x9/7ennP/39fT///////// + /////////////9TLxf+3p5z/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2UzAP9lMwD/ZTMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAIAAAAEAQEBCAICAgwDAwMQAgICFAMDAxgDAwMWAgICDQEB + AQYAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAABAEBAQcCAgIOAwMDFwQE + BCIGBgYwBgYGPAUFBUMFBQVJBgYGTAUFBUcDAwM1AgICJAMDAxgCAgIMAAAABAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAgAAAAIAAAACAAAAAgAAAAIAAAADAAAAAwAAAAMAAAADAAAABAAA + AAgBAQEMAgICEgMDAxwFBQUpBQUFOAYGBksFBQVdBQUFawUFBXkFBQWBBQUFhAQEBIEDAwN9BgYGghMT + E5AXFxeQDQ0NcQMDA0MEBAQvAwMDGgEBAQoAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAACAAAAAgAAAAIAAAACAAAAAwAA + AAMAAAACAAAAAgAAAAIAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAQAAAAFAAAABQAAAAcAAAAIAAAADAEBARMCAgIaBAQEJwQEBDgFBQVHBQUFWQUFBWwFBQV6AwMEhwEB + Ao4AAACSAAAAkwAAAZUCAgOWDQ0NpyIiItA2NjbqSEhI/0FBQf81NTX4FBQUpgQEBGkFBQVUBQUFNAMD + Ax0CAgINAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAQAAAAEAAAABAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAMAAAADAAAAAwAAAAMAAAAEAAAABAAAAAUAAAAFAAAABQAAAAUAAAAFAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABwAAAAgAAAAJAQEBEwMDAx0FBQUpBgYGPAYG + BkwGBgZfBQUFcQICA3wAAACEAAAAjgAAAJcJCQifFRUUpi4rJbdDPTHKMSwjvwgIB6QdHR3uKioq/0ZG + Rv9FRUX/SkpK/zo6Ov8nJyf+Dg4OrQQEBIIFBQVxBQUFWAUFBTsEBAQfAgICDwAAAAUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAIAAAACAAAAAgAAAAIAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAUAAAAFAAAABgAA + AAcAAAAHAAAACAAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAGAAAABAAAAAMAAAACAAAAAgAA + AAAAAAAAAAAAAS0iCSUwJQtVKyILfygfCpsnHgm0Jh0HvyogCM0qIAjVMikS2UdALN1qZ1rYjIp75JyY + hfCknon5opmC/5CEa/+Gd1z/UUg49wcICf8UFBT/R0dH/1dXV/90dHT/wsPD/0hISP8VFRX2BwcHoQUF + BZMFBQWOBQUFfwYGBmYFBQVLBAQEMAMDAxcCAgIKAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAA + AAEAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAQAAAAEAAAABQAAAAYAAAAGAAAABwAAAAcAAAAHAAAABwAAAAcAAAAIAAAACAAA + AAgAAAAIAAAACAAAAAUAAAAFAAAABAAAAAMAAAACAAAAAwAAAAEAAAAECAYBCAgGAgsJBwIQCgcCEgsI + AhYLCAIYCwgCGUk3DSyieh1IonsdWauCH3WvhSCLs4cgpLWJILm2iSHP0Z4m3MKTI+aqgB/wkm8b93le + HP5yXCb/dmg//4mBZf+emor/u7mo/8/LtP/Jxa//wLuk/6+okP+YinL/gXFR/3dpR/+Fdl//dGpi/x0d + Hv9DQ0P/eXl5/3h4eP+urq//oqKi/xQUFP8LCwvFBAQElAUFBZkFBQWXBQUFkQUFBYQGBgZvBQUFUAUF + BTUDAwMcAQEBCwAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAADAAAAAwAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABwAAAAcAAAAIAAAACQAA + AAkAAAAKAAAACgAAAAcAAAAFAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAIRkGBigfBw0tIggaMCQJITIm + CS8yJgk1NCcJQlA8D03DlCRwxpUkfdGeJp3UoCet2aUnzNqlJ9rdpyj64qsp++mwKv7psSr/6rEq/+qx + K//rsiv/67Ir/+uyK//bpij/v5In/6SFOf+cilv/p6GK/768sv/b2tb/9PT0///////Myrz/uLSd/6ql + kP+XkHz/goBy/3OGfP9QZpT/REBz/4FzXf+unpD/U1BM/zo7O/95eXr/h4eJ/4ODg/+bm5v/JiYm/wkJ + Cd8EBASWBQUFmQUFBZkFBQWZBQUFmAUFBZIGBgaFBgYGcgUFBVYEBAQ2AwMDIAEBAQ4AAAAEAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAIAAAADAAAABAAAAAQAAAAFAAAABgAAAAYAAAAIAAAACAAAAAgAAAAIAAAABwAAAAkAAAAJAAAACQAA + AAkAAAAIAAAACQAAAAgAAAAGAAAABAAAAAMAAAACAAAAAQAAAAEAAAAAOSsLF1tFECRfSBE4YUoSQmVN + E1ZnThNiaE8TdmtRE4LLmiSb2aUnqOOsKcDoryrN67Iq5uyzK/DvtSz/7rQr/+WtKv/lrSn/5Kwp/+Ss + Kf/jrCn/46wp/+OsKf/jqyn/4qon/+KqJv/hqSP/4agi/+CnHv/Vt2f/vKt5/7Kog//GwKj/z8y1//X0 + 7f/////////9/+Xj3f+zr6X/gXxy/1hUS/9DQTz/amRe/7i5uP+m4vP/cuz//26k/P9HQrX/jIN0/6ma + jP+GfHP/Ojs8/1hYWf96enr/YGBg/2tra/8jIyP/BQUF5QUFBZICAwOYAAABlQMEBJgFBQWZBQUFmQUF + BZkFBQWWBQUFjQUFBXsFBQVmBQUFSQQEBCsCAgIYAQEBCQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAIAAAADAAAABAAAAAUAAAAHAAAABwAAAAgAAAAIAAAACAAA + AAgAAAAJAAAACAAAAAgAAAAJAAAACgAAAAsAAAALAAAADAAAAA0AAAAKOSsKIotpGT2MahlQk24aZJhz + HH6cdhyTn3gdqqB5HbjToCbK7LIr0u60K+Dwtivn8rcs9fS5LP71uS3/9bot/+evKf/lrSn/5Kwn/+Or + J//iqiX/4qok/+GpI//hqSP/4akj/+GpI//hqST/4akl/+KqJv/iqib/4qom/+KsK//ksDf/5bVC/+rA + Yf/rxGr/8dWT/8bCrf/Lx7H/zciy/8jErv+5tZ7/uLWp/4eDev9UUEf/NjQt/zIwLf8/Pj7/UlJS/1lZ + Wv9/fHr/zsjE/9Td4P/Y4eL/v7m5/3hxc/+Ce3T/oZSI/6yek/9QTkz/LCws/1BQUP9aWlr/R0dH/wwM + DP8DAwPzAAEBtw8ODaMkIRysCgoJmwAAAJMBAgKXBQUFmQUFBZoFBQWZBQUFlwUFBZEFBQWCBQUFagUF + BVAEBAQxAgICGQEBAQsAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAA + AAUAAAAGAAAABwAAAAoAAAAEAAAAARwVBRMcFQUaHhYFJR4XBSofGAYwOSwKPLaKIWK4iyFvwZMji8WV + JJ7LmSW/zJsl0M2bJenapSju67Ir9OuyK/jtsyv87rQr/++1K//vtSv/77Us/+evKf/jqyf/4qol/+Kp + I//hpx//4ace/+CmG//gpRr/4ace/+GnIP/iqyj/4qws/+SyOv/lsz3/5rZE/+e4Sv/pvln/6b9c/+7M + fv/w0o7/9eO5//jpx//89+v//fjs//357//9+vH//vz4//79+v//////vbmk/6ulkP+UlYX/XVtR/zs3 + MP8qJyP/Ly0s/0RCQv9RUFD/VlVV/1dXV/9SUVH/RERE/3Bsaf/Nxb//3NTR/+DZ1v++uLP/fXZu/352 + bv+dk4n/wLSq/4+Ig/8tLS7/GRoa/yIiIv8QEBD/BQUF/wAAAP8VFBH/eXBc+X9xV/5mW0btQj0yxhYW + E6IBAQKUAAAAlAQEBJkFBQWZBQUFmQUFBZcFBQWRBQUFhQUFBW0FBQVRBAQENgICAhoBAQELAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAMAAAAFAAAABwAAAAkAAAAMAAAABj0uCyJ+Xxdv4Kkord+o + KL/krSrg5q0q6umxKv/psCr/564q/+euKv/mrir/5q4q/+auKv/mrir/5q4q/+SsKP/iqyf/4qok/+Gp + I//hpx7/4KYb/+ClGf/goxb/4acf/+GpJP/jrzP/5bI8/+i9WP/pwF7/68Zt/+zJdf/uzoL/8NCJ//La + ov/04LH/+/Lb//z15v////////////////////////////////////////////////////////////// + //////////////////+Efof/ZqvX/3vV5v9aXF7/Mi8u/zMyMv9APz7/S0lI/1BPTv9ZV1f/XFxc/1BP + T/9KSkr/dXBt/8jAuv/Z1NH/3djV/723s/98dnD/fnZo/4mBdv+9tK3/z8bB/5KOi/9EQ0P/GBgX/wAA + Af8BAQH/AAAA/0VAM/+Cc1f/eGtS/4t+Zf9xZEz/aF1H+FxVRd0tKyWyBQUFlwQEBJgFBQWZBQUFmQUF + BZkEBASXAwMDjwICAoUGBgZ8CgoKagUFBUEDAwMnAwMDFQEBAQcAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAIAAAADAAAABAAA + AAcAAAAKAAAADQAAAAhVQQ8+568qyfC2LP/jrCn/46wo/+KrJ//iqyf/4qon/+KqJv/iqib/4akl/+Gp + JP/hqCL/4agh/+GnIP/hpx//4qsp/+OuMP/ltUL/6LpR/+zIc//w0Yr/8dic//PdqP/14bL/9eO4//jq + yf/57dL//fnx//78+P////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////7y7wv+wy+H/z9zZ/2Ba + V/80MjD/SEZE/05MSv9NS0r/S0pJ/0tLSv9QUFD/XVxc/19eXv9/e3j/ysK7/9jSz//c1tP/vbey/353 + cf+BeW7/fnZq/5mQiP/V0Mz/6eXk/9nV1P+sp6T/ZmJf/wQAAP8AAAD/LyMU/3xqTP+Shm3/s66X/4N5 + ZP9yZU//al1G/3lsU/9IQjbQAAAAkAAAAJUDAwOWBAQElQsLC58XFxe2IyMj0Tw8POo7Ozv3JiYm1AsL + C3cEBARGBQUFLQMDAxgBAQEIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAQAAAAFAAAACAAAAA0BAQAFWEMRQ+yyK+DosCr/4akk/+Go + Iv/irCv/464w/+OvMv/ksDX/5bI9/+e3SP/qwF//7Mh0//HVlP/14bL/+OrK//rw2v/68t3/+/Pg//z2 + 5//9+O3//v36//////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////xsTB/9fKv//XzMP/joqG/2RjYv9HRkX/Q0JB/0xKSf9VVFP/X15d/19e + Xv9WVlX/T09P/398ev/PyML/1tHN/9vW0/+9t7L/gHhy/4J6bv+FfXX/gHZr/5mRh//Sz8z/4d/d/9/Z + 1f+yqqT/CRwq/wAwUv8DK0//REU//4h8Yv+gkXT/o5d//6afiv+If2r/cWVO/21gS/5mXFPXKygkrAoK + CqUaGxzcMjMz9SYmJv81NTX/SkpK/1JSUv9CQkL/Hh4e7QcHB4YBAQFjAgICTAICAiwCAgIWAgICDAAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAABAAA + AAcAAAALAAAACh0WBRrbpSjB6bEr/+GpIv/ksDb/7ct6//Xjt//57tT/+/Tk///+/P///v3///79//// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////347v/DvbT/0MfA/9TM + xP+Niof/cXBw/3l3dv+Afn3/d3V0/2xrav9oaGf/W1pa/11dXP9oaGj/mJaU/9TOyP/Vz8v/2tXR/764 + sv+Ce3P/g3tw/4d/d/+IgHj/hXtx/4l/df+SiX3/lIh5/4GAev8JhNT/AJ///wB76f8AYcT/DmKx/yZX + fv9cZWP/hHde/6ucgP+hl3//oJaC/6WVh/+omIv+joF2+GZfWP80MjD/AgID/ywsLP9YWFj/fn9//8LC + wv9LS0v/DQ0N0BwcHLYyMjLTKSkpxg4ODncEBARABAQEKAICAhMAAAAHAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAIAAAAEAAAABwAAAAsEAwEKe10XZO2zLP/hqiX/464x//fp + xv////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////++/T//Pjr//nu0v/46sn/9eK3//Tg + r//x2Jz/8dWV/+7Ngf/tynj/6b5Z/7ifaP/Pxr//08zD/42Jhv93dnX/f359/4GAf/+FhIT/iYiI/4mJ + iP+MjIz/k5OT/5eXl/+8u7r/2tTP/9TNyf/a1ND/wry3/4V8df+Fe3D/iIB3/4qBef+Lgnr/jIJ6/4yC + ev+Qg3j/gYB5/wmBzv8Amf//AHni/wBv2f8Ac+D/AHXl/wBu1v8RZq7/N1px/2RlXP93aFb/rJaE/6mY + iv+qmo3/saCS/4h9c/8fICD/MTEx/2NjY/+IiYn/pKSk/4KCgv8SEhL/Q0ND/0tLS/9CQkL/JiYl+QwM + DJUEBARcBQUFPwICAhwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAA + AAUAAAAIAAAADAsIAhTZpSii46wp/+GpJP/ty3r///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////78+P/78t7/+e7T//Tgsf/z26T/79GL/+7N + f//rw2f/6sJj/+i7U//nuU3/5bM9/+SwN//irCv/4qom/+ClGv/gpBb/4KUa/+CmG//hpyD/tZZS/8/F + vv/TzMP/g4B8/2dmZf92dXP/goGA/4qIh/+Qj43/m5mX/6qnpP/Avbv/3dva//b29f/c19P/08zH/9nU + z//DvLj/hn53/4Z9cf+KgXj/i4J6/4yDev+OhHv/j4V8/5OGev+AgHv/CIDL/wCY//8Ae+T/AHDY/wB0 + 3P8Adt7/AHni/wB96/8AfOv/AGvL/ylvpv9ufIT/kIV6/6aQfv+xmob/loh9/zc3N/8+Pj7/S0tL/3h4 + eP9vb2//ampq/w8PD/8/Pz//X19f/6amp/9kZGT/ExMT5wUFBWsFBQVHBAQEIgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAABQAAAAgAAAAMCwgCGNGeJarkrCn/4qon//bk + vP////////////////////////////////////////////////////////////////////////////// + ///////////////////9+/T//fry//z36f/89eb/+/Pf//rw2v/25Lv/9OCv/+/Rif/ty3r/6sBg/+m/ + W//ksjz/5LE4/+OvM//jrjL/4qwr/+KrKf/hqST/4agi/+CnHv/gph3/4acg/+GoIf/hqSP/4akk/+Kq + Jv/iqif/4qso/+KrKf/iqyn/4qsp/+KrKf+1mFb/z8a//9TMxP+YlZL/l5WT/6+sqP+4saz/sqqj/62j + mv+4rqX/yL62/9LKw//Tzcf/0czF/9DKxP/Vzsr/2dPP/8O9uP+JgHj/iH5y/4yCef+Ng3v/joR7/4+F + fP+Rhn3/lYd6/36Bfv8Gf8v/AJj//wB+5v8AdNz/AHff/wB54f8AeuL/AH3l/wB/5/8AhO//AIf1/wCF + 7v8Og9z/K4PE/2WEl/95dXH/KyId/ykjIP86OTj/RUVF/1NTU/8rKyv/DQ0N/0JCQf96enr/kpKS/7Gx + sf8mJib/AwMDUAMDAxIBAQELAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAA + AAIAAAAFAAAACAAAAAsMCQIa16MnxeSsKf/iqif/9+jG//////////////////////////////////// + //////////////789//68dv/+u/V//fpxv/25sH/9eCx//Peqf/w1JD/7s6A/+rCYv/pv1z/5bVB/+Sx + Of/iqST/4acg/+GoIv/hqCL/4akj/+GpJP/hqSX/4akl/+KqJv/iqib/4qom/+KqJ//iqif/4qoo/+Kr + KP/iqyj/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/7eZ + Vf/TysT/1M7J/+zp5//x7uz/4t3Y/8/Hv//Bt67/uK6l/7mwpf/AuK//xr61/8vDuv/Nxr7/08zG/9XP + yv/a1ND/xL24/4uBeP+HfHH/j4V7/46FfP+QhXz/kIZ9/5KHfv+Wh3v/f4F+/waAy/8AmP//AIDo/wB3 + 3/8AeeH/AHvj/wB85P8Afub/AIHp/wCD6/8Ahu7/AIny/wCM9/8Aj/7/AJD8/wmM5f8RYJX/ECk6/yAd + G/8oIBr/Ew8N/wEAAP8kJCT/QUFB/2hpaf9xcnL/e3t7/zExMf8AAABAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAQAAAAHAAAACgwJAhrcpSjT46wp/+Kq + J//36MX///////////////////////////////////////379f/w04//6b5Z/+a2RP/lsz3/460v/+Kr + Kf/gpRn/4KQX/+ClG//gph3/4agh/+GoIf/iqSX/4qom/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/vJxR/9TOyP/a1dH/4NzZ/9TPyf/Mxb//zMW//9DJ + w//Vz8n/2NLN/9jTzP/c1tD/4NvW/+Tf2//m4t7/5uLe/+nk4P/Jwbz/joN6/29nXP9+dGz/koh+/5GG + ff+SiH7/lIl//5eIfP+Agn//BoDL/wCY//8Aguv/AHri/wB85P8AfeX/AH/n/wCB6f8Ag+v/AIXt/wCI + 8P8AivL/AI31/wCP9/8Akvv/AJb//wCe//8CmPz/BHnD/w9Ibf8fKzL/KScm/ykgG/83Mi//QUBA/1tb + W/9TU1P/FBQU/gAAACsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAACAAAAAwAAAAYAAAAIDAkCGdumKNDjrCn/4qon//foxf////////////////////////////// + ////////9+nE/+GqJv/gpRn/4agi/+GpI//hqiX/4qom/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf+5mU//19HM/97Z1v/b1dH/3NfT/+Hc2f/n4t//6+fl/+3q6P/t6uf/7enm/+zn5P/p5N//5eDc/9nU + 0f/Fwb7/rqup/7q0r/+Wi4H/dW5m/29pZf+ckon/mY2D/5OIfv+Qhn3/mot+/4GEf/8GgMv/AJj//wCF + 7f8AfeX/AH/n/wCA6P8Agur/AITs/wCG7v8Ah+//AIry/wCN9f8Aj/f/AJH5/wCU/P8Alv7/Apj//wSb + //8Fov//BqP//w2Z8f8akdr/FV6K/xcrN/8nIyD/KCAc/xUSEf8CAgL+AAAAgwAAABEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAIAAAADAAAABQAAAAYMCQIW26Yo0OOs + Kf/iqif/9+jF///////////////////////////////////////25bz/4qsq/+KqJv/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/72aS//Y08//5ODd/+fk4f/r5+X/7uvo//Lv + 7P/z7+3/7Onm/97a1//MycX/sKyq/5KPjP99eXb/bWhk/11YUv8+Ojb/nJeS/56Tif93bmX/hHlw/29r + Zv9/enf/npWP/3hxbP9/dGn/goWC/waAzP8AmP//AIfv/wCA6P8Agur/AIPr/wCE7P8Ahu7/AIjw/wCJ + 8f8AjPT/AI72/wCQ+P8Ak/v/AJb+/wCY//8Dmf//BZv//wec//8Jn///C6L//wul//8Oq///EKH3/xB+ + vP8TRWD/BxAW/wAAAP8AAAD/AAAAUQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAEAAAABAwJAhLbpijP46wp/+KqJ//36MX///////////////////////// + //////////////Tfrv/hpx7/4qso/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/vpg//9rV0v/u6uj/6ebk/+Hf3f/X1NL/sa+u/4yKiv9wbmz/VFFO/y0rKv8xLir/V1BJ/2hg + V/90a2L/eG9m/1ROSP+blZH/n5OJ/5SLg/+/tKv/dWxi/1ROSP9ST0z/cW5s/5eOiP+Hiof/B4DK/wCY + //8AifH/AIPr/wCF7f8Ahu7/AIfv/wCI8P8AivL/AIz0/wCO9v8AkPj/AJL6/wCV/f8Al///Apn//wSa + //8GnP//CJ3//wqf//8Mof//DqL//xCk//8Tp///E67//xOv//8UmuP/D2qa/wYnOf8CCg9TAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAMAAAADDQoCENyn + KM7jrCn/4qon//foxf//////////////////////////////////////89uk/+CjFv/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf+yjj7/3drX/4+Ojf81NDT/MTEx/yQk + I/8NDAz/FxUT/yIfHP8xLCn/Pjk1/1NNR/9hWlP/Zl5X/21lXf92bGP/YFlR/52YlP+iloz/oZqU/9nU + 0P9oYVv/SUQ+/z86Nv8qJyT/NDAt/3l+ff8Mhcz/AZn//wCL9P8Ah+//AIjw/wCJ8f8AivL/AIz0/wCN + 9f8Aj/f/AJH5/wCT+/8Alf3/AJf//wKZ//8Dmv//Bpv//wid//8Jnv//C6D//w6i//8Po///EaX//xOn + //8TqP//Fqr//xmw//8bt///HK///xug6HoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAINCgIO3KcozuOsKf/iqif/9+jF//////////////////// + ///////////////////z3Kb/4KQX/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/7Cadv/e2tf/dXV1/wYFBf8LCwv/Dg4O/xwbGv8lIyH/KSck/zs3M/9FPzv/TEZB/1VO + SP9eV1H/bWZe/4B5cf95cmv/npmV/6mckv+on5b/2NHL/3dybv9APDn/KSYk/yIfHv8iHRr/cXV0/xCI + zf8DnP//AY72/wCK8f8Ai/P/AIz0/wCN9f8Ajvb/AJD4/wCR+f8Ak/v/AJX9/wCX//8Bmf//A5r//wWb + //8HnP//CZ7//wuf//8Nof//D6P//xCk//8Tpv//E6f//xSp//8Xq///Gaz//xuu//8esf//ILX/gQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAA0K + AgveqCjN46wp/+KqJ//36MX///////////////////////////////////////Pcpv/gpBf/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/vamI/9jV0/+ZmJf/MDAw/zc2 + Nv8xMDD/Ly4t/zQzMv89Ojj/RkNA/1JOS/9hXVn/cm5q/4N+ef+Uj4r/o56Z/4yHgv+empb/tqqg/4J3 + bf9dWVb/bGln/2FeXf8+PDv/ISAf/x4aGP9zd3b/EonN/wae//8Bkfj/AIz1/wCO9v8Aj/f/AJD4/wCR + +f8Akvr/AJT8/wCV/f8Al///AZj//wOa//8Fm///Bpz//wme//8Kn///DKD//w6i//8Qo///EqX//xOn + //8UqP//Fqr//xir//8arf//HK7//x6w//8gsv+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQoCCt6oKMzjrCn/4qon//foxf////////////// + ////////////////////////89ym/+CkF//iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/GtZf/0s7L/7Gwr/8rKyv/NTQ0/zU0NP83Njb/Ozs6/0VDQ/9PTUv/VVNR/1tY + Vf9fXFn/Yl5b/2ZiXv9saGT/a2dj/7OvrP+9sqn/c2de/z05Nf83NjX/QEBA/1JRUv9XV1f/RUFA/3V5 + d/8Ui83/CqH//wKU+/8AkPn/AJH5/wCS+v8Ak/v/AJT8/wCV/v8Al///AZj//wKZ//8Emv//BZv//wec + //8Inv//Cp///wyh//8Nov//D6P//xGl//8Tpv//E6j//xWp//8Xq///Gaz//xuu//8dsP//H7H//yGz + /4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAANCgIJ3qgozOOsKf/iqif/9+jF///////////////////////////////////////z3Kb/4KQX/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/7meav+4rJX/v76+/yMj + I/8gHx//GhkZ/xkYGf8dHR3/Li4u/0dGRf9dXFv/eHZ1/5OQj/+npKH/ubWx/8fCvv/SzMj/29XQ/8G3 + sP+kl4z/n5CE/3xwZv9PSUP/NDIx/zk5Ov83NDP/gIN//xWMzP8Mo///A5f9/wCT/P8AlPz/AJX9/wCW + /v8Al///AZj//wGZ//8Dmf//BJv//wWb//8Hnf//CZ7//wqf//8MoP//DaL//w+j//8RpP//E6b//xOn + //8Uqf//Fqr//xis//8arf//HK///x6w//8hsv//IrT/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0KAgjeqCjM46wp/+KqJ//36MT///////// + //////////////////////////////Pcpv/gpBf/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/1KEq/4xxMP/JyMf/VldX/2ZmZ/+Af4D/oJ+e/7i2tf/Mycf/1tHO/9rU + z//X0Mr/0snC/8zDu//Gvbb/w7qz/8K6s//Fu7X/y8K9/83GwP/Eu7X/uKyj/62fkv+ThXn/c2dc/3lr + YP+SkYv/FYvK/w+k//8Dmf//AJb+/wCX//8AmP//AZj//wGZ//8Dmf//A5r//wWb//8GnP//B53//wme + //8Kn///C6D//w2i//8Po///EKT//xKl//8Tp///FKj//xaq//8Yq///Ga3//xyu//8dr///H7H//yKz + //8jtP+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAACN6oKMzjrCn/4qon//jpyf//////////////////////////////////////89ym/+Ck + F//iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/3agq/7ej + dv/Jwbn/yLyz/8W5rv++sab/t6me/7GkmP+un5T/rJ6U/6+imP+yp57/tqui/7uxqf+/ta//wrqy/8e9 + uP/Lwb3/zsjB/9bQzP/c1tP/3dPP/9zPyP/Rwbb/waqa/3eLj/8Pjc7/Eqb//wWc//8BmP//Apn//wOa + //8Dmv//BJr//wab//8GnP//B53//wmd//8Jn///CqD//wyh//8Oov//D6P//xGk//8Spf//E6f//xSo + //8Vqf//F6v//xms//8brv//Ha///x+x//8gsv//I7T//yS1/4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwhSAI4aopzOKrKf/iqyn//PXo//// + ///////////////////////////////////z3Kb/4KQX/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4agh/9GrVP/Iw7//samh/6OWiv+jk4b/qZqO/66g + lP+wopj/s6ed/7arov+5raT/v7Oq/8S4sf/JvbT/0MG6/9TEvv/Sx7//ycTA/7m+vf+ltrr/h6u4/2ig + t/9HkrH/HYe2/xKW2/8UqP//CJ3//wOa//8Fm///BZv//wWc//8HnP//B53//wid//8Jnv//Cp///wug + //8Nof//DqL//w+j//8RpP//Eqb//xOn//8TqP//Far//xeq//8ZrP//G67//xyv//8esP//ILL//yK0 + //8ktf//Jrb/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAO2zKwjiqynM4qsp/+KrKf/9+e////////////////////////////////////////Pc + pv/gpBf/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/hqSP/5bVC//z26P//////9PPz/9/d3P/JxMD/ta2n/6+lnP+yp53/tqid/7Wso/+vq6X/o6ai/5Sh + oP99mZ7/ZZGb/0+Lm/83hZ3/JoOj/xuHr/8Wj8L/FJfT/xag5P8Zp/L/GKr7/xSp//8Jn///Bpz//wec + //8Inf//CJ3//wme//8Jnv//Cp///wug//8Mof//DaH//w6i//8QpP//EaT//xKm//8Tp///FKj//xWp + //8Xq///GKz//xqt//8cr///HrD//yCx//8is///I7X//yW2//8nt/+AAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspC+KrKefiqyn/4qsp//34 + 7v//////////////////////////////////////89ym/+CkF//iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+GpI//ltUL//Pbn//////////////////// + ////////+fj4/+3r6v/f07D/fMK4/0Cjvv8zkqr/L5q4/y2kyf8trdj/L7Tl/zC57/8wu/b/L7z8/yu7 + //8luP//ILT//xqv//8Vq///E6j//wac//8Dmv//Bpz//wme//8Kn///C6D//wyg//8Mof//DaL//w+j + //8Po///EaT//xKl//8Tpv//E6f//xSo//8Vqf//F6v//xms//8arf//HK///x6w//8fsf//IbP//yO0 + //8ktv//J7f//yi5/4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADiqykO4qsp/uKrKf/iqyn//fju//////////////////////////////////// + ///z3Kb/4KQX/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4akj/+W1Qv/89uf///////////////////////////////////////nu0/95zL7/R9D5/0fS + +/9I1P//RdT//0HR//89zv//N8j//zLC//8wv///L73+/zG+//84wf//Q8f//0/O//9c1f//TMr//zG5 + //8cq///C6D//wed//8Hnv//C6D//w2i//8Po///EKT//xKl//8Tpv//E6f//xOo//8Uqf//Fqr//xer + //8ZrP//Gq3//xyu//8esP//H7H//yGz//8jtP//JLb//ya3//8ouP//Kbn/gAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKQ7iqyn74qsp/+Kr + Kf/9+O7///////////////////////////////////////Pcpv/gpBf/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/hqSP/5bVC//z25/////////////// + ////////////////////////+/Pe/4DLu/9R2///T9r//03X//9L1P7/SdL+/0vR/v9P0v//VtT//13Y + //9n3P//buH//3Pk//935v//eOf//3fn//966P//e+n//3Tk//9i2P//TMv//zO7//8drP//FKb//xCk + //8Nov//DqP//xCl//8TqP//Fan//xaq//8Yq///Gaz//xqu//8cr///HbD//x+x//8hs///IrT//yS1 + //8mt///KLj//ym5//8puf+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA4qspDuKrKfviqyn/4qsp//347v////////////////////////////// + ////////89ym/+CkF//iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+GpI//ltUL//Pbn///////////////////////////////////////78tz/07RN/5i9 + jv9sxM7/Wszr/1XU//9f2f//aN3//2/h//9z4///dOP//3Tk//905P//c+P//3Tk//905P//deT//3Xl + //925f//d+b//3ro//996v//e+n//3Pj//9o3f//X9f//0zL//82vv//I7L//xaq//8TqP//FKn//xer + //8arf//HK///x6w//8fsf//IbP//yO0//8ktf//Jrf//yi4//8puf//Kbn//ym5/4AAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqykO4qsp++Kr + Kf/iqyn//fju///////////////////////////////////////z3Kb/4KQX/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4akj/+W1Qv/89uf///////// + //////////////////////////////vy3P/ksDb/4akk/+SxOv/Zrzz/vLBZ/5q3h/98vrP/Zcre/1zU + +/9h2v//a9///3Di//905P//duX//3fl//935f//d+b//3fm//935v//d+b//3fm//935v//d+b//3jn + //955///eej//3jn//9w4v//YNj//0/N//84wP//KLb//x6x//8brv//HK///x6x//8is///JLX//ya2 + //8ouP//Kbn//ym5//8puf//Kbn/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKQ7iqyn74qsp/+KrKf/9+O7///////////////////////// + //////////////Pcpv/gpBf/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/hqSP/5bVC//z25///////////////////////////////////////+/Lc/+Sw + Nv/hqST/5LE6/+OuMP/iqyj/4qsp/+KrKf/erC7/x69L/623c/9iwdO7UdL/xlnW/+pj3P/7a+D//3Hi + //925f//eOb//3nn//955///eeb//3jm//935v//d+X//3bl//915P//dOT//3Pj//905P//dOX//3Lj + //9r3///YNj//07O//88w///MLz//yi3//8mt///Jbb//ya3//8nuP//KLn//ym5//8puf+AAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspDuKr + Kfviqyn/4qsp//347v//////////////////////////////////////89ym/+CkF//iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+GpI//ltUL//Pbn//// + ///////////////////////////////////78tz/5LA2/+GpJP/jrjH/460s/+KrKP/iqyn/4qsp/+Kr + Kf/iqyn/5q4q/8ybJVoAAAAAO7fnFUHC8yxGy/tBSs39b1LT/6ta2P/YY9z/+Gzg//9x4v//deX//3jm + //945v//eOb//3fl//915P//dOP//3Lj//9x4v//cOL//2/h//9v4f//buH//23g//9n3f//YNj//1rV + //9S0f//Q8j//zXA//8tu///Kbn//ym5/4gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqykO4qsp++KrKf/iqyn//fju//////////////////// + ///////////////////z3Kb/4KQX/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4akj/+W1Qv/89uf///////////////////////////////////////vy + 3P/ksDb/4qom/+KrKP/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/mrir/zZslWQAAAAAAAAABAAAAAQAA + AAEAAAABAAAAAEXN/wZGzf8mSc//XE7R/45V1f/AXdn/7mXd//9s4P//ceP//3Tk//905P//c+P//3Hi + //9u4f//bOD//2ne//9m3P//Ytr//13Y//9b1v//V9T//1PS//lOz//qSMv/1UDH/8Eyvv+gK7r/QwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKr + KQ7iqyn74qsp/+KrKf/9+O7///////////////////////////////////////Pcpv/gpBf/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/hqSP/5bVC//z2 + 5///////////////////////////////////////+/Lc/+SwNv/iqib/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+WuKv/PnSZYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AABEzP8XRc3/O0jO/29O0f+pVNT/0lvX/+xb1//tVdT/6U/R/9pNz//LSs3/u0PI/6NAx/+JPcX/cznD + /1Q6wv88NsD/JzbA/xE1v/8FAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspDuKrKfviqyn/4qsp//347v////////////// + ////////////////////////89ym/+CkF//iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+GpI//ltUL//Pbn//////////////////////////////////// + ///78tz/5LA2/+KqJv/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+qxKlcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADiqykO4qsp++KrKf/iqyn//fju///////////////////////////////////////z3an/4KQX/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4akj/+W1 + Qv/89uf///////////////////////////////////////vy3P/ksDb/4qom/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qspcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKQ7iqyn74qsp/+KrKf/9+O7///////// + //////////////////////////////HVk//gpRn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/hqSP/5bVC//z25/////////////////////////////// + ////////+/Lc/+SwNv/iqib/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqymNAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA4qspDeKrKfviqyn/4qsp//347v//////////////////////////////////////786B/+Cm + G//iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Gp + I//ltUL//Pbn///////////////////////////////////////78tz/5LA2/+KqJv/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKYoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqykO4qsp++KrKP/jsDT//fnw//// + ///////////////////////////////////vz4T/4KYb/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4akj/+W1Qf/89ub///////////////////////// + //////////////vy3P/ksDb/4qom/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qspigAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAOKrKSziqyn94qon/+WyPf/9+vL//////////////////////////////////////+/P + hP/gphv/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kq + KP/gpx//5bM9//357v//////////////////////////////////////+/Lb/+SwNv/iqib/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqymKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspQuKrKf7iqif/5bI8//36 + 8v//////////////////////////////////////78+E/+CmG//iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qso/+KrKP/iqif/4qon/+GqJf/hqSX/4akk/+GpI//hqSP/4akk/+Gp + JP/hqST/4akk/+GpJf/hqiX/4qol/+KqJf/iqif/5K8z/+azQP/0367////+//////////////////// + ///////////////////89OP/5LE3/+KqJf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + KYoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADiqyk/4qsp/uKqJ//lsjz//fry//////////////////////////////////// + ///vz4T/4KYb/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKP/iqif/4qol/+GpJP/hqCL/4acf/+CnHv/gphv/4KUa/+CmHf/hpx//4agj/+Kr + Kf/irCz/5LA3/+SyOv/ltD//5rZE/+a4Sv/pvVb/6b9c/+3Lev/uzoP/89ym//fmwP/468z//Pbo//z3 + 6v/9+O3//fnw/////////////////////////////////////////////////////v/lsz7/4akl/+Kr + Kf/iqyj/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qspigAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKT/iqyn+4qon/+Wy + PP/9+vL//////////////////////////////////////+/Ogf/gphv/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyj/4qom/+KqJf/hqSP/4agi/+GnH//gphv/4KUa/+CkF//gpBf/4ace/+GoIv/jrS3/5LE4/+W0 + Qv/ovlj/6cBd/+vFbP/syHH/7ct7/+/Og//v047/89ym//Tfr//67tT/+/Ti//368/////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////79/+WzPf/hqSX/4qsp/+OtLv/iqyj/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqymKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA4qspP+KrKf7iqif/5bI8//368v////////////////////////////// + ////////8dWS/+CjFP/hqSP/4agh/+GoIP/hpx//4aYd/+GpI//ksDT/5LI6/+a4Sf/ou1H/68Vq/+/P + g//v0Yv/8tuj//Pcp//14K//9eGz//bnwP/4683/+vDY//368//+/Pj///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////79OP/47E3/+Kq + Jv/iqyj/464v/+OtMP/iqyj/4qsp/+KrKf/iqyn/4qsp/+KrKYoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqyk/4qsp/uKq + J//lsjz//fry///////////////////////////////////////8+O7/8NKP/+zIcv/y2Z3/9N+v//bm + v//679f/+vDZ//vz4P/79OP//Pfp//347P/+/Pf///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////DTj//hqSX/4qom/+SwNf/jrS3/464v/+OuMP/iqij/4qsp/+Kr + Kf/iqyn/4qspigAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKT/iqyn+4qon/+WyPP/9+vL///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////++/X//Pfp//ry3f/x15j/460t/+Gq + Jf/irCr/464x/+KsKv/iqyj/460s/+KsLf/iqyn/4qsp/+KrKf/iqymGAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspP+Kr + Kf7iqif/5bI8//368v////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////9+vH//fnu//nt0f/468z/9uW8//Xhsv/0367/8deZ//HX + mv/uzX7/7sx8/+rDZv/nu1H/5LE6/+GpIv/iqyj/4qsp/+OuMP/jrS3/4qoo/+KrKf/iqyj/46ws/+Os + Lf/iqyn/4qsp/+KrKaEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqyk/4qsp/uKqJ//lsj3//fry//////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////+/fv/+/Ld//rw2f/147j/9N6q//LaoP/v0Yr/7s6E/+vGbv/qwmX/6b5b/+i7 + Uv/nulD/5bM8/+SyOf/irS7/4qon/+GpJf/foxb/36QX/+ClG//gpRv/4Kce/+GoIP/hqST/4qso/+Kr + Kf/jrjH/4qsq/+KrKP/iqyn/4qsp/+KrKf/iqyj/4qwr/+KrKf/iqyn/4qspvwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKr + KUHiqyn+4qon/+WxOv/+/Pf///////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////vz4//779P/9+vH//Pfq//z2 + 6f/78+H/+/Pg//jqy//14rX/9OCu/+7Og//uz4X/6sJk/+nBYP/ou1H/5LI7/+SyOv/krzT/4680/+Kt + Lf/iqyr/4qso/+GpJP/hqCP/4Kce/+CmHP/hpx7/4acg/+GnIP/hqSP/4agi/+GpI//hqSX/4qon/+Kr + Kf/iqyn/4qsp/+KrKv/jrS7/460v/+OtLf/iqyr/464x/+KsLf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqym4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspOeKrKf/iqyn/4aom//fpxf////////////// + /////////////////////////////////////////v36//358P/78+L/+vLe//jqy//36cf/9uW8//Xh + sf/z3aj/8NSQ/+/Rif/rxmz/6sBf/+i9Vv/ltED/5bM9/+KpJf/hqCH/4agi/+GoIv/hqCP/4akk/+Gp + JP/hqST/4akk/+GpJf/iqiX/4qol/+KqJv/hqST/4akk/+GpI//hqCD/4agh/+CmHf/gpRv/4qkl/+Kr + Kv/iqyn/4qsp/+KsLP/jrzP/4681/+OvNf/iqyn/4qsp/+KrKf/iqyj/46ws/+SxOP/ksjv/5LE3/+Ou + MP/iqif/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKckAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADiqykT4qsp5eKrKf/iqSb/5bVD//PbpP/68dr/9+nG//blvP/z3qv/8dea//HWlv/ty3z/7cx9/+vF + bP/qw2X/6b5a/+a4S//mt0f/468y/+KtLv/hqCL/4KQX/+ClGP/gphv/4KYc/+GnIP/hqCH/4agi/+Gp + Jf/iqib/4qsp/+KrKf/iqyn/4qsp/+KrKP/iqyn/4qsp/+KrKf/iqyj/4akj/+GoIf/hpx//4ace/+Ot + Lv/lsz3/5rZE/+m9V//pvVn/7Mp3//DSi//lsz7/4agi/+KrKf/iqyn/4qwt/+SxOP/jsDX/47A1/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qon/+KqJ//iqyj/460t/+KsKv/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp3QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqyls4qsp/+KrKf/hqST/4qon/+Wy + PP/jrzT/464w/+KsKv/hqST/4agi/+CkGP/gpRn/4KYc/+CmHP/gph3/4acg/+GoIP/hqST/4akl/+Kq + J//iqyn/4qsp/+KrKf/irCv/4qws/+KsLP/irCz/4qwr/+KrKf/iqyn/4qsp/+KrKP/jrS7/5LE5/+Kr + KP/iqyn/4qkl/+KpJP/v0Ib/9uW7//rw2f/68dv/+/Ti//Pbpv/5683//vv1//358P/+/vz///////js + 0P/ksjv/4agh/+KrKf/iqyn/4qwr/+OsKv/iqib/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/460u/+KrKv/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqym0AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAOKrKQziqymo4qsp/+KrKf/iqif/4akk/+GpJf/iqiX/4akl/+KqJv/iqij/4qsp/+Kr + Kf/iqyn/460u/+OvMv/jrjH/464y/+OuMf/irCv/4qsp/+KrKf/iqyn/4qsq/+SxOP/ksj3/5LI7/+Sy + Pf/jsTj/4qwq/+KrKP/iqyn/4qsp/+KrKf/iqyr/4qsp/+KrKP/gph3/7s6C/////v////////////// + ///258H/4qwr/+i9WP/9+e////////////////////////ru0//nuU3/4ace/+KrKf/iqyj/46ws/+Ks + LP/iqyj/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/460u/+KsKv/iqyj/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKRbiqymX4qsp/+Kr + Kf/iqyn/4qso/+KsK//ksDb/464w/+KrKP/iqyn/4qsp/+KrKf/jrjH/5LE5/+SwN//ksTj/5LA3/+Os + LP/iqyj/4qsp/+KrKf/iqyn/4qoo/+KqJ//iqif/4qon/+KqKP/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyr/4agf/+7Mf////fv/////////////////+OrL/+WxOv/hqSP/4Kce/+i8V//68dr///////// + //////////////vz4f/nuE3/4aYe/+KrKf/iqyn/46ws/+OuMP/iqyj/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/460u/+OsK//iqyj/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqynb4qspHgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqylc4qsp6OKrKf/iqyn/4qsq/+OuMf/jrS3/4qsp/+Kr + Kf/iqyn/4qsp/+KrKP/iqif/4qon/+KqJ//iqif/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qso/+GnHv/qwWP///35//////////////////nt + 0v/lsTf/4agg/+KrKf/iqyn/4acf/+W1RP/468////////////////////////z15v/qwmL/4agi/+Kr + KP/iqyn/460u/+OsLP/iqyj/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKP/iqyr/4qsq/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKVwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADiqykr4qspwuKrKf/iqyn/4qso/+KrKP/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + KP/hpx//6sFi//z36v/////////////////79OP/57hJ/+GoIf/iqyn/4qws/+KsK//iqyj/4KYe/+W0 + Qf/468v///////////////////////779P/rw2j/4KYd/+KqJv/iqyn/4qsq/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKe7iqylqAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqykM4qspkOKrKfjiqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4Kcf/+e4S//89uj/////////////////+/Ti/+a4 + TP/hqCH/4qso/+KtLv/jrzL/4680/+KsK//iqyj/4agh/+SxOf/147b///////////////////////35 + 8P/tyXf/4akk/+KqJv/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + KfXiqyn44qsp7+KrKdTiqymm4qspOgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA4qspUeKrKeDiqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Gp + I//ltUL/+e7T//////////////////347v/pv1z/4KYc/+KrKP/jrS7/464y/+KrKP/irCr/464v/+Ks + Kv/iqyr/4akj/+KtLf/04LD//////////////////////////v/w0oz/4agi/+KqJ//iqyn/4qsp/+Kr + Kf7iqynL4qspjOKrKYriqymC4qspZOKrKV/iqylR4qspQeKrKUPiqyk64qspIAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspI+Kr + Kbjiqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/hpx//5bQ///nu0v/////////////////++vP/68Nn/+Go + If/iqyf/460t/+OvMv/iqin/4qsp/+KrKP/iqyn/464w/+KrKv/iqyn/4agj/+KsLP/y2Z////////// + ///////////////+/f/w04//4qoo/+GpI//iqyr/4qsp/+KrKZYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspB+KrKYjiqyn54qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4agj/+Kr + K//25r////////////////////77/+zHcv/hqCD/4qoo/+KsLP/jrS7/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyr/46wt/+KrKv/iqyn/4qkl/+KpI//w1JH////////////////////////////0363/4qoo/+Gp + JP/iqyn/4qsp/uKrKZ/iqykHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAOKrKVLiqym/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp7OKrKeriqynS4qspxuKr + Kb3iqymh4qspn+KrKaniqyn64qsp/+KqJ//irS3/9eS6//////////////////79+v/v0on/4akj/+Kr + J//jrCz/460t/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyr/46wr/+KrKf/iqyn/4qoo/+Go + Iv/w0o3//v36///////////////////////w047/4akk/+KrKP/iqyn/4qsp/+KrKaHiqykNAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKRHiqylB4qspeeKr + KX3iqylI4qspP+KrKTniqykr4qspKeKrKRziqykV4qspEAAAAAAAAAAA4qspkuKrKfziqif/4qkk//Tf + r///////////////////////79GK/+GoH//iqiX/4qso/+OtL//irCv/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qon/+GmHf/tynj///78//////////////////z4 + 7v/lsz3/4akk/+KrKf/iqyn/4qsp/+KrKZ/iqykLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAOKrKS7iqyno4qso/+CmHv/x1ZX///////////////////////Teq//iqiX/4qol/+Kr + Kf/irC3/460s/+KrKP/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qon/+CmG//uynr//fnw/////////////Pbp/+WyOv/hqSX/4qsp/+KrKf/iqyn/4qsp/+Kr + KbniqykYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspbuKrKf/hqCD/57lL//z1 + 5f/////////////////03qz/4qsp/+KqJ//iqyj/460w/+OsLf/iqyj/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp6+KrKeviqyn/4qsp/+GoIP/pvln/9eO3//bm + wP/sx3D/4qkm/+KqJ//jrTD/4q0t/+KrKf/iqyn/4qsp/+KrKcbiqykeAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADiqyl94qsp/+CmHP/rw2X/////////////////9+bA/+KsK//hqCP/4qso/+Ou + MP/jrjH/4qso/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + KeviqylD4qspQ+KrKeziqyn/4qsp/+GoIf/hqST/4qwr/+GoIv/iqyj/4qsr/+OuMP/irCr/4qsp/+Kr + Kf/iqyn/4qsp/+KrKcXiqykgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKXTiqyn/4aok/+Sw + Nf/35sD//Pfs//DVkf/jrjH/4akk/+KrKP/jri//464w/+KrKP/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn84qspUAAAAAAAAAAA4qspR+KrKfbiqyn/4qsp/+Kq + J//iqib/4qsp/+KsKv/irC3/460t/+KrKP/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKbviqykRAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA4qspPuKrKfTiqyn/4qoo/+KqJv/iqif/4akl/+KqJv/iqyf/468x/+Ov + M//iqif/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp9eKr + KWYAAAAAAAAAAAAAAAAAAAAA4qspQOKrKdziqyn/4qsp/+KrKf/iqyn/468y/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKXUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqykD4qspo+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qso/+OuMf/jrjH/464x/+OtLP/iqyj/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKfziqyl0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspJuKr + KcDiqyn/4qsp/+KrKf/iqyj/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp1OKr + KQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiqykT4qsp2OKrKf/iqyn/4qsp/+KsK//jrCz/4q0s/+Kq + KP/irCr/460v/+KsKv/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qspkOKr + KQMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspEuKrKZ3iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyny4qspBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADiqykI4qspdeKrKfDiqyn/4qsp/+KrKf/iqyj/4qsp/+KrKf/iqyn/4qsq/+OtLv/iqyr/4qso/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKZTiqykBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA4qspBeKrKYbiqyn84qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + KfniqykXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspQuKrKc/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyj/46ws/+OvM//irCr/4qso/+KrKf/iqyn/4qsp/+KrKf/iqymx4qspCQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKXDiqynz4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp3uKrKQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA4qspHOKrKariqyn/4qsp/+KrKf/iqyn/4qsp/+KrKf/iqij/4qwt/+Ot + MP/jrC3/4qso/+KrKf/iqyn/4qspuOKrKRMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKVHiqyny4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyl5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4qspBuKr + KX7iqyn34qsp/+KrKf/iqyn/4qsp/+KrKf/iqyj/4qsq/+KrKv/iqyn/4qsp/+KrKc/iqykNAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKr + KUPiqynS4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qspreKrKQ0AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKUriqynZ4qsp/+KrKf/iqyn/4qsp/+Kr + Kf/iqyn/4qsp/+KrKf/iqynj4qspKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKRXiqymK4qspzuKrKeTiqynk4qsp0uKr + KYjiqykPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAOKrKSLiqymx4qsp/+KrKf/iqyn/4qsp/+KrKf/iqyn/4qspxuKrKTEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADiqykU4qspMuKrKTHiqykaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOKrKQriqylz4qsp3uKr + Kfbiqyn24qsp2+KrKXDiqykUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA//////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////AAAAA////////////////wAAAAP///////////8AAAAAAAAAP///////////AAAAAAAAAD//// + ///8AAAAAAAAAAAAAP///////AAAAAAAAAAAAAD////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAA + AD//8AAAAAAAAAAAAAAAAAAP//AAAAAAAAAAAAAAAAAAD//AAAAAAAAAAAAAAAAAAAP/wAAAAAAAAAAA + AAAAAAAD/wAAAAAAAAAAAAAAAAAAAP8AAAAAAAAAAAAAAAAAAAD8AAAAAAAAAAAAAAAAAAAA/AAAAAAA + AAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAADwAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAA + AAAAAAAAAAAAAAAAAADwAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAA + AADwAAAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAADwAAAAAAAAAAAA + AAAAAAAA8AAAAAAAAAAAAAAAAAAAAPwAAAAAAAAAAAAAAAAAAAD8AAAAAAAAAAAAAAAAAAAA/AAAAAAA + AAAAAAAAAAAAAPwAAAAAAAAAAAAAAAAAAAD/AAAAAAAAAAAAAAAAAAAA/wAAAAAAAAAAAAAAAAAAAP/A + AAAAAAAAAAAAAAAAAAD/wAAAAAAAAAAAAAAAAAAA//AAAAAAAAAAAAAAAAAAAP/wAAAAAAAAAAAAAAAA + AAD/+AAAAAAAAAAAAAAAAAAA//gAAAAAAAAAAAAAAAAAAP/4AAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAA + AAAAAAAA//gAAAAAAAAAAAAAAAAAAP/4AAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAAAAAAAAAA//gAAAAA + AAAAAAAAAAAAAP/4AAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAAAAAAAAAA//gAAAAAAAAAAAAAAAAAA//4 + AAAAAAAAAAAAAAAAAAP/+AAAAAAAAAAAAAAAAAA///gAAAAAAAAAAAAAAAAAP//4AAAAAAAAAAAAAAAA + H///+AAAAAAAAAAAAAAAAB////gAAAAAAAAAAAAAAAAf///4AAAAAAAAAAAAAAAAH///+AAAAAAAAAAA + AAAAAB////gAAAAAAAAAAAAAAAAf///4AAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAAB////AAAAAA + AAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAAB////AAAAAAAAAAAAAAAAAf///w + AAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAAB////AAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAA + H///8AAAAAAAAAAAAAAAAB////AAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///8AAAAAAAAAAA + AAAAAB////AAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///+AAAAAAAAAAAAAAAAB////gAAAAA + AAAAAAAAAAAf///8AAAAAAAAAAAAAAAAH////gAAAAAAAAAAAAAAAB////8AAAAAAAAAAAAAAAA///// + gAAAAAAAAAAAAAAAf////+AAAAAAAAAAAAAAAH/////wAAAAAAAAAAAAAAH/////+AAAAAAAAAAAAAAD + //////4AAAAAAAAAAAAP////////AAAAAAAAAAAA/////////4AAAAAAAAAAAH/////////gAAAAAAAA + AAA/////////8AAAAAAAAAAAH/////////4//AAAAAAAAA////////////wAAAAAAAAH///////////8 + AAAAAAAAA////////////AAAAAAAAAH///////////wAAAAAQAAA///////////8AAAAAOAAAH////// + /////AAAAAHwAAA///////////wAAAAD+AAAP//////////+AAAAB/4AAD///////////wAAAA//AAA/ + //////////+AAAAf/4AAH///////////wAAAP//AAD////////////AAAD//4AA////////////4AAB/ + //AAP////////////AAA///4AH////////////8AAf///gD/////////////gAP///+D//////////// + /8AH///////////////////wH/////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////8= + + + \ No newline at end of file diff --git a/DienstplanTV/DienstplanTV.vb b/DienstplanTV/DienstplanTV.vb new file mode 100644 index 0000000..1fd07f3 --- /dev/null +++ b/DienstplanTV/DienstplanTV.vb @@ -0,0 +1,588 @@ +Imports System.Data.SqlClient + +Public Class DienstplanTV + Public SQL As New sqlConn + Dim aktWoche = DateToWeek(Now).Substring(4, 2) + Dim aktJahr = DateToWeek(Now).Substring(0, 4) + Dim aktDate = Now + Dim aktpnl = "" + Dim SCHICHT As String = "ROT" + Dim cptmp As Point + Dim woTagWidthProz = 0.136 + Dim HeaderLeftWidthProz = 0.048 + Dim mousepos + Dim art As String = "ZOLL" + Dim niederlassung As String = "SUB" + + Dim SCHICHTEN_ARTEN As New List(Of ADMIN.cDienstplanSchicht) + Dim SETTINGS As ADMIN.cDienstSettings + + + Dim TVAnzeige = False 'True + Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load + + tbcntr.TabPages.Clear() + Dim s As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt As DataTable = s.loadDgvBySql("SELECT [dpset_id],[dpset_niederlassung] FROM [tblDienstSettings] order by dpset_reihenfolge", "ADMIN") + For Each r As DataRow In dt.Rows + Dim d As New TabPage() + d.Text = r("dpset_niederlassung") + d.Name = "tb" & r("dpset_niederlassung") + tbcntr.TabPages.Add(d) + Next + tbcntr.SelectedIndex = 0 + getNiederlassung() + + + If TVAnzeige Then + Timer1.Start() + Cursor.Position = Me.PointToScreen(New Point(Me.Width, Me.Height)) + Else + ' Me.WindowState = FormWindowState.Normal + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable + End If + If EvenNumber(aktWoche) = False Then + lblROTBLAU.ForeColor = Color.Red + lblROTBLAU.Text = "( ROT )" + SCHICHT = "ROT" + Else + lblROTBLAU.ForeColor = System.Drawing.Color.FromArgb(0, 54, 128) + lblROTBLAU.Text = "( BLAU )" + SCHICHT = "BLAU" + End If + initDienstplan() + End Sub + Sub getNiederlassung() + If tbcntr.TabPages.Count = 0 Then Exit Sub + niederlassung = tbcntr.SelectedTab.Name.Replace("tb", "") + MsgBox(niederlassung) + If niederlassung = "QS" Then art = "QS" Else art = "ZOLL" + End Sub + Sub initDienstplan() + GC.Collect() + lblKw.Text = "KW " & aktWoche + margin_left = 0 + If TVAnzeige Then mousepos = MousePosition + initGrundgeruest() + For Each o In pnlMain.Controls + If o.GetType.ToString = "System.Windows.Forms.Panel" And Not o.Name = aktpnl Then + o.Dispose() 'schließt das Panel und gibt den Arbeitsspeicher frei; vorher wurde der AS immer erhöht! + End If + Next + End Sub + + Sub DoToAllControls(ByVal m_Control As Control) + SQL = New sqlConn + For Each ctrl As Control In m_Control.Controls + If ctrl.Controls.Count > 0 Then + DoToAllControls(ctrl) + End If + + If ctrl.GetType.Name.Contains("DataGridView") Then + DirectCast(ctrl, DataGridView).Columns.Clear() + DirectCast(ctrl, DataGridView).DataSource = Nothing + + RemoveHandler DirectCast(ctrl, DataGridView).SelectionChanged, AddressOf dgv_SelectionChanged + End If + + Next + End Sub + + Private Sub pnlMain_MouseHover(sender As Object, e As EventArgs) + ' MsgBox("m") + Cursor.Show() + End Sub + + Private Sub Panel4_MouseMove(sender As Object, e As MouseEventArgs) Handles pnlMain.MouseMove + + End Sub + Public Function EvenNumber(ByVal n As Long) As Boolean + EvenNumber = (n And 1&) = 0& + End Function + + Dim margin_left As Integer = 0 + + Function getWochentagPanelZOLL(pnlMain As Panel, d As Date) As Panel + Dim p As New Panel + p.Width = pnlMain.Width * woTagWidthProz + p.Height = pnlMain.Height + p.Top = 0 + p.BorderStyle = BorderStyle.FixedSingle + p.Left = margin_left + p.HorizontalScroll.Visible = False + p.VerticalScroll.Visible = False + pnlMain.Controls.Add(p) + + p.Controls.Add(getPnlHeader(pnlMain, d)) + + + + Dim pVM As New Panel + pVM.Width = p.Width + pVM.Top = 30 + pVM.Height = CInt((p.Height - 30) * 0.4) + p.Controls.Add(pVM) + + + Dim pNM As New Panel + pNM.Width = p.Width + pNM.Height = CInt((p.Height - 30) * 0.4) + pNM.Top = pVM.Height + 30 + + p.Controls.Add(pNM) + + Dim pTAG As New Panel + pTAG.Width = p.Width + pTAG.Height = CInt((p.Height - 30) * 0.2) + pTAG.Top = pVM.Height + pNM.Height + 30 + + p.Controls.Add(pTAG) + + margin_left += p.Width + + Dim SCHICHTEN_ARTEN As New List(Of ADMIN.cDienstplanSchicht) + Dim SETTINGS As ADMIN.cDienstSettings + 'SCHICHTEN_ARTEN + + Dim Top_tmp = 0 + For Each s In SCHICHTEN_ARTEN + + Dim pTmp As New Panel + pTmp.Width = p.Width + pTmp.Top = Top_tmp + MsgBox(s.dedet_ProzentGrafik) + pTmp.Height = CInt((p.Height - 30) * s.dedet_ProzentGrafik) + p.Controls.Add(pTmp) + + ' p.BackColor = System.Drawing.Color.FromArgb(200, 200, 200) + addDGVtoPnl(pTmp, d, s.dedet_bezeichnungDP, "dgv_" & s.dedet_abt & d.ToString("ddd")) + ' pNM.Height = CInt((p.Height - 30) * 0.2) + ' pNM.Top = CInt((p.Height - 30) * 0.6) + 30 + Top_tmp += pTmp.Height + Next + If False Then + + + If d.DayOfWeek = 0 Then + p.BackColor = System.Drawing.Color.FromArgb(200, 200, 200) + addDGVtoPnl(pNM, d, "'ZOLL_NM', 'DBL'", "dgv_NM" & d.ToString("ddd")) + pNM.Height = CInt((p.Height - 30) * 0.2) + pNM.Top = CInt((p.Height - 30) * 0.6) + 30 + ElseIf d.DayOfWeek = 6 Then + p.BackColor = System.Drawing.Color.FromArgb(200, 200, 200) + addDGVtoPnl(pVM, d, "'ZOLL_VM','DBL'", "dgv_VM" & d.ToString("ddd")) + pVM.Height = CInt((p.Height - 30) * 0.5) + Else + addDGVtoPnl(pVM, d, "'ZOLL_VM','DBL'", "dgv_VM" & d.ToString("ddd")) + addDGVtoPnl(pNM, d, "'ZOLL_NM','DBL'", "dgv_NM" & d.ToString("ddd")) + addDGVtoPnl(pTAG, d, "'ZOLL_TAG'", "dgv_TAG" & d.ToString("ddd")) + End If + + End If + + + + Return p + End Function + + + Function getWochentagPanelQS(pnlMain As Panel, d As Date) As Panel + Dim p As New Panel + p.Width = pnlMain.Width * woTagWidthProz + p.Height = pnlMain.Height + p.Top = 0 + p.BorderStyle = BorderStyle.FixedSingle + p.Left = margin_left + p.HorizontalScroll.Visible = False + p.VerticalScroll.Visible = False + pnlMain.Controls.Add(p) + + p.Controls.Add(getPnlHeader(pnlMain, d)) + + Dim pVM As New Panel + pVM.Width = p.Width + pVM.Top = 30 + pVM.Height = CInt((p.Height - 30) * 1) '*1=100% + p.Controls.Add(pVM) + + + ' Dim pNM As New Panel + ' pNM.Width = p.Width + ' pNM.Height = CInt((p.Height - 30) * 0.4) + ' pNM.Top = pVM.Height + 30 + + ' p.Controls.Add(pNM) + + ' Dim pTAG As New Panel + ' pTAG.Width = p.Width + ' pTAG.Height = CInt((p.Height - 30) * 0.2) + ' pTAG.Top = pVM.Height + pNM.Height + 30 + + ' p.Controls.Add(pTAG) + + margin_left += p.Width + + + If d.DayOfWeek = 0 Then + p.BackColor = System.Drawing.Color.FromArgb(200, 200, 200) + ' addDGVtoPnl(pNM, d, "'ZOLL_NM','DBL'", "dgv_NM" & d.ToString("ddd")) + ' pNM.Height = CInt((p.Height - 30) * 0.2) + ' pNM.Top = CInt((p.Height - 30) * 0.6) + 30 + ElseIf d.DayOfWeek = 6 Then + p.BackColor = System.Drawing.Color.FromArgb(200, 200, 200) + addDGVtoPnl(pVM, d, "'QS'", "dgv_QS" & d.ToString("ddd")) + pVM.Height = CInt((p.Height - 30) * 0.5) + Else + addDGVtoPnl(pVM, d, "'QS'", "dgv_QS" & d.ToString("ddd")) + ' addDGVtoPnl(pNM, d, "'ZOLL_NM','DBL'", "dgv_NM" & d.ToString("ddd")) + ' addDGVtoPnl(pTAG, d, "'ZOLL_TAG'", "dgv_TAG" & d.ToString("ddd")) + End If + + + + + Return p + End Function + + + Function getPnlHeader(pnlMain As Panel, d As Date) As Panel + Dim p As New Panel + p.Width = pnlMain.Width * woTagWidthProz + p.Height = 30 + p.Top = 0 + + ' p.Dock = DockStyle.Top + p.BorderStyle = BorderStyle.FixedSingle + + Dim l As New Label + l.Font = New Font(l.Font.FontFamily, 12, FontStyle.Bold) + l.Top = 5 : l.Left = 5 + l.Text = d.ToString("ddd, dd.MMM") + p.Controls.Add(l) + + p.BackColor = System.Drawing.Color.FromArgb(240, 245, 255) + If d.ToShortDateString = Now.ToShortDateString Then + l.Font = New Font(l.Font, FontStyle.Bold Or FontStyle.Underline) + p.BackColor = System.Drawing.Color.FromArgb(255, 255, 255) + End If + + + + If d.DayOfWeek = 0 Then + Dim l_so As New Label + l_so.Font = New Font(l.Font.FontFamily, 9, FontStyle.Bold) + l_so.Top = 5 : l_so.Left = p.Width - 100 + If art = "ZOLL" Then l_so.Text = "(18-22 Uhr)" + If art = "QS" Then l_so.Text = "" + l_so.ForeColor = Color.White + p.Controls.Add(l_so) + + p.BackColor = System.Drawing.Color.FromArgb(255, 130, 130) + l.ForeColor = Color.White + ElseIf d.DayOfWeek = 6 Then + Dim l_sa As New Label + l_sa.Font = New Font(l.Font.FontFamily, 9, FontStyle.Bold) + l_sa.Top = 5 : l_sa.Left = p.Width - 100 + If art = "ZOLL" Then l_sa.Text = "(6-14 Uhr)" + If art = "QS" Then l_sa.Text = "(8-12 Uhr)" + p.Controls.Add(l_sa) + + End If + Return p + End Function + + Sub getLeftPanel(pnlMain As Panel) + Dim p As New Panel + p.Width = pnlMain.Width * HeaderLeftWidthProz + p.Height = pnlMain.Height + p.BackColor = System.Drawing.Color.FromArgb(240, 245, 255) + p.BorderStyle = BorderStyle.FixedSingle + p.Left = margin_left + pnlMain.Controls.Add(p) + margin_left += p.Width + + + + '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + For Each s In SCHICHTEN_ARTEN + Dim pnl As New Panel + pnl.Width = p.Width + pnl.Top = 30 + pnl.BorderStyle = BorderStyle.FixedSingle + pnl.Height = CInt((p.Height - 30) * s.dedet_ProzentGrafik) 'CInt((p.Height - 30) * 0.4) + pnl.Controls.Add(getLabel("VORM." & vbNewLine & "6-13 Uhr", pnl)) + p.Controls.Add(pnl) + + Next + + Exit Sub + 'p.Controls.Add(getPnlHeader(d)) + + Dim pVM As New Panel + pVM.Width = p.Width + pVM.Top = 30 + pVM.BorderStyle = BorderStyle.FixedSingle + pVM.Height = CInt((p.Height - 30) * 0.4) + pVM.Controls.Add(getLabel("VORM." & vbNewLine & "6-13 Uhr", pVM)) + p.Controls.Add(pVM) + + Dim pNM As New Panel + pNM.Width = p.Width + pNM.Height = CInt((p.Height - 30) * 0.4) + pNM.BorderStyle = BorderStyle.FixedSingle + pNM.Controls.Add(getLabel("NACHM." & vbNewLine & "13-22 Uhr", pVM)) + pNM.Top = pVM.Height + 30 + + p.Controls.Add(pNM) + + Dim pTAG As New Panel + pTAG.Width = p.Width + pTAG.Height = CInt((p.Height - 30) * 0.2) + pTAG.BorderStyle = BorderStyle.FixedSingle + pTAG.Controls.Add(getLabel("TAG" & vbNewLine & "8-17 Uhr", pTAG)) + pTAG.Top = pVM.Height + pNM.Height + 30 + + p.Controls.Add(pTAG) + + + End Sub + + Sub getLeftPanelQS(pnlMain As Panel) + Dim p As New Panel + p.Width = pnlMain.Width * HeaderLeftWidthProz + p.Height = pnlMain.Height + p.BackColor = System.Drawing.Color.FromArgb(240, 245, 255) + p.BorderStyle = BorderStyle.FixedSingle + p.Left = margin_left + pnlMain.Controls.Add(p) + margin_left += p.Width + + + 'p.Controls.Add(getPnlHeader(d)) + + Dim pVM As New Panel + pVM.Width = p.Width + pVM.Top = 30 + pVM.BorderStyle = BorderStyle.FixedSingle + pVM.Height = CInt((p.Height - 30) * 1) + pVM.Controls.Add(getLabel("QS" & vbNewLine & "8-12 Uhr", pVM)) + p.Controls.Add(pVM) + + End Sub + Function getLabel(t, p) As Label + Dim l As New Label + l.Font = New Font(l.Font.FontFamily, 10, FontStyle.Bold) + ' l.Top = 5 : l.Left = 5 + l.Text = t + l.TextAlign = ContentAlignment.MiddleCenter + l.AutoSize = True + l.Top = p.height / 2 - l.PreferredHeight / 2 + l.Left = p.width / 2 - l.PreferredWidth / 2 + Return l + End Function + Sub initGrundgeruest() + + Dim pnlMainNew = New Panel + pnlMainNew.Dock = DockStyle.Fill + pnlMainNew.Name = "pnlMain_" & Now.ToString("ddMMHHmmss") + aktpnl = pnlMainNew.Name + pnlMain.Controls.Add(pnlMainNew) + + Dim montag As Date = CalendarWeek(aktWoche, aktJahr) + + If art = "ZOLL" Then getLeftPanel(pnlMainNew) + If art = "QS" Then getLeftPanelQS(pnlMainNew) + + For i = 0 To 6 + Dim d As Date = montag.AddDays(i) + 'Wochentag + If art = "ZOLL" Then getWochentagPanelZOLL(pnlMainNew, d) + If art = "QS" Then getWochentagPanelQS(pnlMainNew, d) + Next + pnlMainNew.BringToFront() + + End Sub + + Sub addDGVtoPnl(p As Panel, d As Date, art As String, name As String) + Dim dgv As New DataGridView + With dgv + .AllowUserToAddRows = False + .AllowUserToDeleteRows = False + .ReadOnly = False + .AllowUserToResizeColumns = False + .AllowUserToResizeRows = False + .Name = name + AddHandler dgv.SelectionChanged, AddressOf dgv_SelectionChanged + .Dock = DockStyle.Fill + .RowHeadersVisible = False + .ColumnHeadersVisible = False + + If d.ToShortDateString = Now.ToShortDateString Then + .BackgroundColor = System.Drawing.Color.FromArgb(255, 255, 230) + .GridColor = System.Drawing.Color.FromArgb(255, 255, 230) + .DefaultCellStyle.BackColor = System.Drawing.Color.FromArgb(255, 255, 230) + Else + .BackgroundColor = Color.White + .GridColor = Color.White + .DefaultCellStyle.BackColor = Color.White + End If + + + .Dock = DockStyle.Fill + + p.Controls.Add(dgv) + + initMABinding(dgv, art, d) + 'AddHandler dgv.Paint, AddressOf + initDgv(dgv, d) + End With + End Sub + Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click + Me.Close() + End Sub + + + Public Sub initMABinding(dgv As DataGridView, art As String, d As Date) + + dgv.DataSource = SQL.getDatatableBySql("SELECT dstma_kuerzel + ' '+ dstetr_info,dstma_reihenfolge, dstma_farbe,[dstetr_von],[dstetr_bis],[dstetr_pause] FROM tblDienstplanEintraege,tblDienstMitarb,tblMitarbeiter WHERE dstetr_dstmaId=dstma_id AND mit_id=dstma_mitId AND dstetr_datum='" & d.ToShortDateString & "' AND dstetr_art IN(" & art & ") AND dstetr_niederlassung = '" & niederlassung & "' ORDER BY dstma_reihenfolge ASC") + + + End Sub + Public Function DateToWeek(ByVal dDate As Date) As String + ' Startdatum der ersten Kalenderwoche des Jahres und Folgejahres berechnen + Dim dThisYear As Date = CalendarWeek(1, dDate.Year) + Dim dNextYear As Date = CalendarWeek(1, dDate.Year + 1) + + ' Prüfen, ob Datum zur ersten Woche des Folgejahres gehört + If dDate >= dNextYear Then + ' Rückgabe: KW 1 des Folgejahres + Return dDate.Year + 1 & "01" + ElseIf dDate < dThisYear Then + ' Falls das Datum noch zu einer KW aus dem letzten Jahr zählt + Return dDate.Year - 1 & DatePart(DateInterval.WeekOfYear, _ + New Date(dDate.Year - 1, 12, 28), FirstDayOfWeek.Monday, _ + FirstWeekOfYear.FirstFourDays) + Else + ' KW = Differenz zum ersten Tag der ersten Woche + Return dDate.Year & Format$(dDate.Subtract(dThisYear).Days \ 7 + 1, "00") + End If + End Function + + Public Function CalendarWeek(ByVal nWeek As Integer, _ + ByVal nYear As Integer) As Date + + ' Wochentag des 4. Januar des Jahres ermitteln + Dim dStart As New Date(nYear, 1, 4) + Dim nDay As Integer = (dStart.DayOfWeek + 6) Mod 7 + 1 + + ' Beginn der 1. KW des Jahres + Dim dFirst As Date = dStart.AddDays(1 - nDay) + + ' Gesuchte KW ermitteln + Return dFirst.AddDays((nWeek - 1) * 7) + End Function + + Private Sub dgv_SelectionChanged(sender As Object, e As EventArgs) + sender.ClearSelection() + End Sub + Private Sub initDgv(dgv As DataGridView, d As Date) + dgv.DefaultCellStyle.Font = New Font(dgv.Font.FontFamily, 12) + If TVAnzeige Then + If art = "ZOLL" Then dgv.DefaultCellStyle.Font = New Font(dgv.Font.FontFamily, 12) + If art = "QS" Then dgv.DefaultCellStyle.Font = New Font(dgv.Font.FontFamily, 16) + End If + + ' Dim dgv As DataGridView = DirectCast(sender, DataGridView) + ' dgv.Columns(0).ReadOnly = False + If dgv.Rows.Count > 0 Then + dgv.Columns(0).Width = dgv.Parent.Width - 10 + For Each r As DataGridViewRow In dgv.Rows + Try : r.Cells(0).Style.ForeColor = ColorTranslator.FromHtml(r.Cells(2).Value) : Catch : End Try + Next + ' MsgBox(dgv.Rows(0).Cells(0).Value) + dgv.Columns("dstetr_von").Visible = False + dgv.Columns("dstetr_bis").Visible = False + dgv.Columns("dstetr_pause").Visible = False + If TVAnzeige Then + + If Not d.DayOfWeek = DayOfWeek.Sunday And (dgv.Name.ToString.Contains("dgv_VM") Or dgv.Name.ToString.Contains("dgv_NM")) Then + + dgv.Rows(0).Cells(0).Value = dgv.Rows(0).Cells(0).Value & " (SL)" + ' dgv.Rows(0).Cells(0).Style.ForeColor = Color.Red + dgv.Rows(0).Cells(0).Style.Font = New Font(dgv.Font.FontFamily, 12, FontStyle.Bold) + End If + + Else + dgv.Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill ' = dgv.Parent.Width - 10 + ' dgv.Rows(0).Cells(0).Value = dgv.Rows(0).Cells(0).Value & " " & dgv.Rows(0).Cells("dstetr_von").Value & "-" & dgv.Rows(0).Cells("dstetr_bis").Value + dgv.Columns("dstetr_von").Width = 50 + dgv.Columns("dstetr_bis").Width = 50 + dgv.Columns("dstetr_von").Visible = True + dgv.Columns("dstetr_bis").Visible = True + 'dgv.Columns("dstetr_pause").Visible = False + End If + dgv.Columns(1).Visible = False + dgv.Columns(2).Visible = False + + 'dgv.Rows(0).Cells(0).Style.Font.Bold = True + + dgv.ScrollBars = ScrollBars.None + Else + dgv.Columns.Clear() + End If + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Me.Cursor = Cursors.WaitCursor + aktDate = aktDate.AddDays(7) + aktWoche = DateToWeek(aktDate).Substring(4, 2) + aktJahr = DateToWeek(aktDate).Substring(0, 4) + initDienstplan() + Me.Cursor = Cursors.Default + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Me.Cursor = Cursors.WaitCursor + aktDate = aktDate.AddDays(-7) + aktWoche = DateToWeek(aktDate).Substring(4, 2) + aktJahr = DateToWeek(aktDate).Substring(0, 4) + initDienstplan() + Me.Cursor = Cursors.Default + End Sub + + Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick + If Cursor.Position = cptmp Then + Cursor.Position = Me.PointToScreen(New Point(0, Me.Height)) + End If + cptmp = Cursor.Position + + initDienstplan() + End Sub + + Private Sub pnlMain_Paint(sender As Object, e As PaintEventArgs) Handles pnlMain.Paint + + End Sub + + Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click + Exit Sub + If Label1.Text = "DIENSTPLAN - ATILLA" Then + art = "QS" + niederlassung = "SUB" + Label1.Text = "DIENSTPLAN - QS" + ElseIf Label1.Text = "DIENSTPLAN - QS" Then + art = "ZOLL" + niederlassung = "SUB" + Label1.Text = "DIENSTPLAN - ZOLL" + ElseIf Label1.Text = "DIENSTPLAN - ZOLL" Then + art = "ZOLL" + niederlassung = "ATILLA" + Label1.Text = "DIENSTPLAN - ATILLA" + End If + initDienstplan() + End Sub + + Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged + getNiederlassung() + initDienstplan() + End Sub +End Class diff --git a/DienstplanTV/DienstplanTV.vbproj b/DienstplanTV/DienstplanTV.vbproj new file mode 100644 index 0000000..9232dad --- /dev/null +++ b/DienstplanTV/DienstplanTV.vbproj @@ -0,0 +1,147 @@ + + + + + Debug + AnyCPU + {1F008363-5FCF-49A2-A953-18DEFED4D3BE} + WinExe + DienstplanTV.My.MyApplication + DienstplanTV + DienstplanTV + 512 + WindowsForms + v4.5 + + + + AnyCPU + true + full + true + true + bin\Debug\ + DienstplanTV.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + DienstplanTV.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false + + + On + + + Binary + + + Off + + + On + + + dp_tv.ico + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + DienstplanTV.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + DienstplanTV.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + {a3b497bd-842c-4a2b-b398-ed1976849df1} + VERAG_PROG_ALLGEMEIN + + + {6eb4d3a4-3cf2-4651-9af9-ad5f727df403} + ADMIN + + + + + \ No newline at end of file diff --git a/DienstplanTV/My Project/Application.Designer.vb b/DienstplanTV/My Project/Application.Designer.vb new file mode 100644 index 0000000..027b7ba --- /dev/null +++ b/DienstplanTV/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern + ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.DienstplanTV.DienstplanTV + End Sub + End Class +End Namespace diff --git a/DienstplanTV/My Project/Application.myapp b/DienstplanTV/My Project/Application.myapp new file mode 100644 index 0000000..605d028 --- /dev/null +++ b/DienstplanTV/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + DienstplanTV + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/DienstplanTV/My Project/AssemblyInfo.vb b/DienstplanTV/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..b728866 --- /dev/null +++ b/DienstplanTV/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die mit einer Assembly verknüpft sind. + +' Die Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/DienstplanTV/My Project/Resources.Designer.vb b/DienstplanTV/My Project/Resources.Designer.vb new file mode 100644 index 0000000..0a15f92 --- /dev/null +++ b/DienstplanTV/My Project/Resources.Designer.vb @@ -0,0 +1,72 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DienstplanTV.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt. + ''' + Friend ReadOnly Property connStringAdmin() As String + Get + Return ResourceManager.GetString("connStringAdmin", resourceCulture) + End Get + End Property + End Module +End Namespace diff --git a/DienstplanTV/My Project/Resources.resx b/DienstplanTV/My Project/Resources.resx new file mode 100644 index 0000000..565f754 --- /dev/null +++ b/DienstplanTV/My Project/Resources.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; + + \ No newline at end of file diff --git a/DienstplanTV/My Project/Settings.Designer.vb b/DienstplanTV/My Project/Settings.Designer.vb new file mode 100644 index 0000000..bcf4b40 --- /dev/null +++ b/DienstplanTV/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funktion zum automatischen Speichern von My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DienstplanTV.My.MySettings + Get + Return Global.DienstplanTV.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/DienstplanTV/My Project/Settings.settings b/DienstplanTV/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/DienstplanTV/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/DienstplanTV/cSqlDb.vb b/DienstplanTV/cSqlDb.vb new file mode 100644 index 0000000..615007c --- /dev/null +++ b/DienstplanTV/cSqlDb.vb @@ -0,0 +1,68 @@ + +Imports System.Data +Imports System.IO +Imports System.Data.SqlClient +Imports System.Globalization + + +Public Class cSqlDb + Public Shared Function GetNewOpenConnection() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = My.Resources.connStringAdmin + cn.Open() + Return cn + End Function +End Class +Public Class sqlConn + Public Function getDataSQL(ByVal selectCommand As String) As SqlDataAdapter + + Dim d As New SqlDataAdapter() + + Try + ' Specify a connection string. Replace the given value with a + ' valid connection string for a Northwind SQL Server sample + ' database accessible to your system. + ' Dim connectionString As String = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" + + ' Create a new data adapter based on the specified query. + d = New SqlDataAdapter(selectCommand, My.Resources.connStringAdmin) + Return d + ' Resize the DataGridView columns to fit the newly loaded content. + + Catch ex As SqlException + MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.") + End Try + Return Nothing + End Function + + + + Public Function getDatatableBySql(hSQL As String) As DataTable + + Try + Dim myTable = New DataTable() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(hSQL, conn) + Dim dr = cmd.ExecuteReader() + myTable.Load(dr) + myTable.Columns(0).ReadOnly = False + dr.Close() + End Using + conn.Close() + End Using + + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'AnzeigeTabelle'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + + End Function +End Class diff --git a/DienstplanTV/dp_tv.ico b/DienstplanTV/dp_tv.ico new file mode 100644 index 0000000..f22a1be Binary files /dev/null and b/DienstplanTV/dp_tv.ico differ diff --git a/FastColoredTextBox/AutocompleteItem.cs b/FastColoredTextBox/AutocompleteItem.cs new file mode 100644 index 0000000..59feec4 --- /dev/null +++ b/FastColoredTextBox/AutocompleteItem.cs @@ -0,0 +1,266 @@ +using System; +using System.Drawing; +using System.Drawing.Printing; + +namespace FastColoredTextBoxNS +{ + /// + /// Item of autocomplete menu + /// + public class AutocompleteItem + { + public string Text; + public int ImageIndex = -1; + public object Tag; + string toolTipTitle; + string toolTipText; + string menuText; + public AutocompleteMenu Parent { get; internal set; } + + + public AutocompleteItem() + { + } + + public AutocompleteItem(string text) + { + Text = text; + } + + public AutocompleteItem(string text, int imageIndex) + : this(text) + { + this.ImageIndex = imageIndex; + } + + public AutocompleteItem(string text, int imageIndex, string menuText) + : this(text, imageIndex) + { + this.menuText = menuText; + } + + public AutocompleteItem(string text, int imageIndex, string menuText, string toolTipTitle, string toolTipText) + : this(text, imageIndex, menuText) + { + this.toolTipTitle = toolTipTitle; + this.toolTipText = toolTipText; + } + + /// + /// Returns text for inserting into Textbox + /// + public virtual string GetTextForReplace() + { + return Text; + } + + /// + /// Compares fragment text with this item + /// + public virtual CompareResult Compare(string fragmentText) + { + if (Text.StartsWith(fragmentText, StringComparison.InvariantCultureIgnoreCase) && + Text != fragmentText) + return CompareResult.VisibleAndSelected; + + return CompareResult.Hidden; + } + + /// + /// Returns text for display into popup menu + /// + public override string ToString() + { + return menuText ?? Text; + } + + /// + /// This method is called after item inserted into text + /// + public virtual void OnSelected(AutocompleteMenu popupMenu, SelectedEventArgs e) + { + ; + } + + /// + /// Title for tooltip. + /// + /// Return null for disable tooltip for this item + public virtual string ToolTipTitle + { + get { return toolTipTitle; } + set { toolTipTitle = value; } + } + + /// + /// Tooltip text. + /// + /// For display tooltip text, ToolTipTitle must be not null + public virtual string ToolTipText + { + get{ return toolTipText; } + set { toolTipText = value; } + } + + /// + /// Menu text. This text is displayed in the drop-down menu. + /// + public virtual string MenuText + { + get { return menuText; } + set { menuText = value; } + } + + /// + /// Fore color of text of item + /// + public virtual Color ForeColor + { + get { return Color.Transparent; } + set { throw new NotImplementedException("Override this property to change color"); } + } + + /// + /// Back color of item + /// + public virtual Color BackColor + { + get { return Color.Transparent; } + set { throw new NotImplementedException("Override this property to change color"); } + } + } + + public enum CompareResult + { + /// + /// Item do not appears + /// + Hidden, + /// + /// Item appears + /// + Visible, + /// + /// Item appears and will selected + /// + VisibleAndSelected + } + + /// + /// Autocomplete item for code snippets + /// + /// Snippet can contain special char ^ for caret position. + public class SnippetAutocompleteItem : AutocompleteItem + { + public SnippetAutocompleteItem(string snippet) + { + Text = snippet.Replace("\r", ""); + ToolTipTitle = "Code snippet:"; + ToolTipText = Text; + } + + public override string ToString() + { + return MenuText ?? Text.Replace("\n", " ").Replace("^", ""); + } + + public override string GetTextForReplace() + { + return Text; + } + + public override void OnSelected(AutocompleteMenu popupMenu, SelectedEventArgs e) + { + e.Tb.BeginUpdate(); + e.Tb.Selection.BeginUpdate(); + //remember places + var p1 = popupMenu.Fragment.Start; + var p2 = e.Tb.Selection.Start; + //do auto indent + if (e.Tb.AutoIndent) + { + for (int iLine = p1.iLine + 1; iLine <= p2.iLine; iLine++) + { + e.Tb.Selection.Start = new Place(0, iLine); + e.Tb.DoAutoIndent(iLine); + } + } + e.Tb.Selection.Start = p1; + //move caret position right and find char ^ + while (e.Tb.Selection.CharBeforeStart != '^') + if (!e.Tb.Selection.GoRightThroughFolded()) + break; + //remove char ^ + e.Tb.Selection.GoLeft(true); + e.Tb.InsertText(""); + // + e.Tb.Selection.EndUpdate(); + e.Tb.EndUpdate(); + } + + /// + /// Compares fragment text with this item + /// + public override CompareResult Compare(string fragmentText) + { + if (Text.StartsWith(fragmentText, StringComparison.InvariantCultureIgnoreCase) && + Text != fragmentText) + return CompareResult.Visible; + + return CompareResult.Hidden; + } + } + + /// + /// This autocomplete item appears after dot + /// + public class MethodAutocompleteItem : AutocompleteItem + { + string firstPart; + string lowercaseText; + + public MethodAutocompleteItem(string text) + : base(text) + { + lowercaseText = Text.ToLower(); + } + + public override CompareResult Compare(string fragmentText) + { + int i = fragmentText.LastIndexOf('.'); + if (i < 0) + return CompareResult.Hidden; + string lastPart = fragmentText.Substring(i + 1); + firstPart = fragmentText.Substring(0, i); + + if(lastPart=="") return CompareResult.Visible; + if(Text.StartsWith(lastPart, StringComparison.InvariantCultureIgnoreCase)) + return CompareResult.VisibleAndSelected; + if(lowercaseText.Contains(lastPart.ToLower())) + return CompareResult.Visible; + + return CompareResult.Hidden; + } + + public override string GetTextForReplace() + { + return firstPart + "." + Text; + } + } + + /// + /// This Item does not check correspondence to current text fragment. + /// SuggestItem is intended for dynamic menus. + /// + public class SuggestItem : AutocompleteItem + { + public SuggestItem(string text, int imageIndex):base(text, imageIndex) + { + } + + public override CompareResult Compare(string fragmentText) + { + return CompareResult.Visible; + } + } +} diff --git a/FastColoredTextBox/AutocompleteMenu.cs b/FastColoredTextBox/AutocompleteMenu.cs new file mode 100644 index 0000000..0e4705a --- /dev/null +++ b/FastColoredTextBox/AutocompleteMenu.cs @@ -0,0 +1,723 @@ +using System; +using System.Collections.Generic; +using System.Windows.Forms; +using System.Drawing; +using System.ComponentModel; +using System.Drawing.Drawing2D; +using System.Text.RegularExpressions; + +namespace FastColoredTextBoxNS +{ + /// + /// Popup menu for autocomplete + /// + [Browsable(false)] + public class AutocompleteMenu : ToolStripDropDown + { + AutocompleteListView listView; + public ToolStripControlHost host; + public Range Fragment { get; internal set; } + + /// + /// Regex pattern for serach fragment around caret + /// + public string SearchPattern { get; set; } + /// + /// Minimum fragment length for popup + /// + public int MinFragmentLength { get; set; } + /// + /// User selects item + /// + public event EventHandler Selecting; + /// + /// It fires after item inserting + /// + public event EventHandler Selected; + /// + /// Occurs when popup menu is opening + /// + public new event EventHandler Opening; + /// + /// Allow TAB for select menu item + /// + public bool AllowTabKey { get { return listView.AllowTabKey; } set { listView.AllowTabKey = value; } } + /// + /// Interval of menu appear (ms) + /// + public int AppearInterval { get { return listView.AppearInterval; } set { listView.AppearInterval = value; } } + + /// + /// Back color of selected item + /// + [DefaultValue(typeof(Color), "Orange")] + public Color SelectedColor + { + get { return listView.SelectedColor; } + set { listView.SelectedColor = value; } + } + + /// + /// Border color of hovered item + /// + [DefaultValue(typeof(Color), "Red")] + public Color HoveredColor + { + get { return listView.HoveredColor; } + set { listView.HoveredColor = value; } + } + + public AutocompleteMenu(FastColoredTextBox tb) + { + // create a new popup and add the list view to it + AutoClose = false; + AutoSize = false; + Margin = Padding.Empty; + Padding = Padding.Empty; + BackColor = Color.White; + listView = new AutocompleteListView(tb); + host = new ToolStripControlHost(listView); + host.Margin = new Padding(2, 2, 2, 2); + host.Padding = Padding.Empty; + host.AutoSize = false; + host.AutoToolTip = false; + CalcSize(); + base.Items.Add(host); + listView.Parent = this; + SearchPattern = @"[\w\.]"; + MinFragmentLength = 2; + + } + + public new Font Font + { + get { return listView.Font; } + set { listView.Font = value; } + } + + new internal void OnOpening(CancelEventArgs args) + { + if (Opening != null) + Opening(this, args); + } + + public new void Close() + { + listView.toolTip.Hide(listView); + base.Close(); + } + + internal void CalcSize() + { + host.Size = listView.Size; + Size = new System.Drawing.Size(listView.Size.Width + 4, listView.Size.Height + 4); + } + + public virtual void OnSelecting() + { + listView.OnSelecting(); + } + + public void SelectNext(int shift) + { + listView.SelectNext(shift); + } + + internal void OnSelecting(SelectingEventArgs args) + { + if (Selecting != null) + Selecting(this, args); + } + + public void OnSelected(SelectedEventArgs args) + { + if (Selected != null) + Selected(this, args); + } + + public new AutocompleteListView Items + { + get { return listView; } + } + + /// + /// Shows popup menu immediately + /// + /// If True - MinFragmentLength will be ignored + public void Show(bool forced) + { + Items.DoAutocomplete(forced); + } + + /// + /// Minimal size of menu + /// + public new Size MinimumSize + { + get { return Items.MinimumSize; } + set { Items.MinimumSize = value; } + } + + /// + /// Image list of menu + /// + public new ImageList ImageList + { + get { return Items.ImageList; } + set { Items.ImageList = value; } + } + + /// + /// Tooltip duration (ms) + /// + public int ToolTipDuration + { + get { return Items.ToolTipDuration; } + set { Items.ToolTipDuration = value; } + } + + /// + /// Tooltip + /// + public ToolTip ToolTip + { + get { return Items.toolTip; } + set { Items.toolTip = value; } + } + } + + [System.ComponentModel.ToolboxItem(false)] + public class AutocompleteListView : UserControl + { + public event EventHandler FocussedItemIndexChanged; + + internal List visibleItems; + IEnumerable sourceItems = new List(); + int focussedItemIndex = 0; + int hoveredItemIndex = -1; + + private int ItemHeight + { + get { return Font.Height + 2; } + } + + AutocompleteMenu Menu { get { return Parent as AutocompleteMenu; } } + int oldItemCount = 0; + FastColoredTextBox tb; + internal ToolTip toolTip = new ToolTip(); + System.Windows.Forms.Timer timer = new System.Windows.Forms.Timer(); + + internal bool AllowTabKey { get; set; } + public ImageList ImageList { get; set; } + internal int AppearInterval { get { return timer.Interval; } set { timer.Interval = value; } } + internal int ToolTipDuration { get; set; } + + public Color SelectedColor { get; set; } + public Color HoveredColor { get; set; } + public int FocussedItemIndex + { + get { return focussedItemIndex; } + set + { + if (focussedItemIndex != value) + { + focussedItemIndex = value; + if (FocussedItemIndexChanged != null) + FocussedItemIndexChanged(this, EventArgs.Empty); + } + } + } + + public AutocompleteItem FocussedItem + { + get + { + if (FocussedItemIndex >= 0 && focussedItemIndex < visibleItems.Count) + return visibleItems[focussedItemIndex]; + return null; + } + set + { + FocussedItemIndex = visibleItems.IndexOf(value); + } + } + + internal AutocompleteListView(FastColoredTextBox tb) + { + SetStyle(ControlStyles.AllPaintingInWmPaint | ControlStyles.OptimizedDoubleBuffer | ControlStyles.UserPaint, true); + base.Font = new Font(FontFamily.GenericSansSerif, 9); + visibleItems = new List(); + VerticalScroll.SmallChange = ItemHeight; + MaximumSize = new Size(Size.Width, 180); + toolTip.ShowAlways = false; + AppearInterval = 500; + timer.Tick += new EventHandler(timer_Tick); + SelectedColor = Color.Orange; + HoveredColor = Color.Red; + ToolTipDuration = 3000; + + this.tb = tb; + + tb.KeyDown += new KeyEventHandler(tb_KeyDown); + tb.SelectionChanged += new EventHandler(tb_SelectionChanged); + tb.KeyPressed += new KeyPressEventHandler(tb_KeyPressed); + + Form form = tb.FindForm(); + if (form != null) + { + form.LocationChanged += (o, e) => Menu.Close(); + form.ResizeBegin += (o, e) => Menu.Close(); + form.FormClosing += (o, e) => Menu.Close(); + form.LostFocus += (o, e) => Menu.Close(); + } + + tb.LostFocus += (o, e) => + { + if (!Menu.Focused) Menu.Close(); + }; + + tb.Scroll += (o, e) => Menu.Close(); + + this.VisibleChanged += (o, e) => + { + if (this.Visible) + DoSelectedVisible(); + }; + } + + void tb_KeyPressed(object sender, KeyPressEventArgs e) + { + bool backspaceORdel = e.KeyChar == '\b' || e.KeyChar == 0xff; + + /* + if (backspaceORdel) + prevSelection = tb.Selection.Start;*/ + + if (Menu.Visible && !backspaceORdel) + DoAutocomplete(false); + else + ResetTimer(timer); + } + + void timer_Tick(object sender, EventArgs e) + { + timer.Stop(); + DoAutocomplete(false); + } + + void ResetTimer(System.Windows.Forms.Timer timer) + { + timer.Stop(); + timer.Start(); + } + + internal void DoAutocomplete() + { + DoAutocomplete(false); + } + + internal void DoAutocomplete(bool forced) + { + if (!Menu.Enabled) + { + Menu.Close(); + return; + } + + visibleItems.Clear(); + FocussedItemIndex = 0; + VerticalScroll.Value = 0; + //some magic for update scrolls + AutoScrollMinSize -= new Size(1, 0); + AutoScrollMinSize += new Size(1, 0); + //get fragment around caret + Range fragment = tb.Selection.GetFragment(Menu.SearchPattern); + string text = fragment.Text; + //calc screen point for popup menu + Point point = tb.PlaceToPoint(fragment.End); + point.Offset(2, tb.CharHeight); + // + if (forced || (text.Length >= Menu.MinFragmentLength + && tb.Selection.IsEmpty /*pops up only if selected range is empty*/ + && (tb.Selection.Start > fragment.Start || text.Length == 0/*pops up only if caret is after first letter*/))) + { + Menu.Fragment = fragment; + bool foundSelected = false; + //build popup menu + foreach (var item in sourceItems) + { + item.Parent = Menu; + CompareResult res = item.Compare(text); + if(res != CompareResult.Hidden) + visibleItems.Add(item); + if (res == CompareResult.VisibleAndSelected && !foundSelected) + { + foundSelected = true; + FocussedItemIndex = visibleItems.Count - 1; + } + } + + if (foundSelected) + { + AdjustScroll(); + DoSelectedVisible(); + } + } + + //show popup menu + if (Count > 0) + { + if (!Menu.Visible) + { + CancelEventArgs args = new CancelEventArgs(); + Menu.OnOpening(args); + if(!args.Cancel) + Menu.Show(tb, point); + } + else + Invalidate(); + } + else + Menu.Close(); + } + + void tb_SelectionChanged(object sender, EventArgs e) + { + /* + FastColoredTextBox tb = sender as FastColoredTextBox; + + if (Math.Abs(prevSelection.iChar - tb.Selection.Start.iChar) > 1 || + prevSelection.iLine != tb.Selection.Start.iLine) + Menu.Close(); + prevSelection = tb.Selection.Start;*/ + if (Menu.Visible) + { + bool needClose = false; + + if (!tb.Selection.IsEmpty) + needClose = true; + else + if (!Menu.Fragment.Contains(tb.Selection.Start)) + { + if (tb.Selection.Start.iLine == Menu.Fragment.End.iLine && tb.Selection.Start.iChar == Menu.Fragment.End.iChar + 1) + { + //user press key at end of fragment + char c = tb.Selection.CharBeforeStart; + if (!Regex.IsMatch(c.ToString(), Menu.SearchPattern))//check char + needClose = true; + } + else + needClose = true; + } + + if (needClose) + Menu.Close(); + } + + } + + void tb_KeyDown(object sender, KeyEventArgs e) + { + var tb = sender as FastColoredTextBox; + + if (Menu.Visible) + if (ProcessKey(e.KeyCode, e.Modifiers)) + e.Handled = true; + + if (!Menu.Visible) + { + if (tb.HotkeysMapping.ContainsKey(e.KeyData) && tb.HotkeysMapping[e.KeyData] == FCTBAction.AutocompleteMenu) + { + DoAutocomplete(); + e.Handled = true; + } + else + { + if (e.KeyCode == Keys.Escape && timer.Enabled) + timer.Stop(); + } + } + } + + void AdjustScroll() + { + if (oldItemCount == visibleItems.Count) + return; + + int needHeight = ItemHeight * visibleItems.Count + 1; + Height = Math.Min(needHeight, MaximumSize.Height); + Menu.CalcSize(); + + AutoScrollMinSize = new Size(0, needHeight); + oldItemCount = visibleItems.Count; + } + + protected override void OnPaint(PaintEventArgs e) + { + AdjustScroll(); + + var itemHeight = ItemHeight; + int startI = VerticalScroll.Value / itemHeight - 1; + int finishI = (VerticalScroll.Value + ClientSize.Height) / itemHeight + 1; + startI = Math.Max(startI, 0); + finishI = Math.Min(finishI, visibleItems.Count); + int y = 0; + int leftPadding = 18; + for (int i = startI; i < finishI; i++) + { + y = i * itemHeight - VerticalScroll.Value; + + var item = visibleItems[i]; + + if(item.BackColor != Color.Transparent) + using (var brush = new SolidBrush(item.BackColor)) + e.Graphics.FillRectangle(brush, 1, y, ClientSize.Width - 1 - 1, itemHeight - 1); + + if (ImageList != null && visibleItems[i].ImageIndex >= 0) + e.Graphics.DrawImage(ImageList.Images[item.ImageIndex], 1, y); + + if (i == FocussedItemIndex) + using (var selectedBrush = new LinearGradientBrush(new Point(0, y - 3), new Point(0, y + itemHeight), Color.Transparent, SelectedColor)) + using (var pen = new Pen(SelectedColor)) + { + e.Graphics.FillRectangle(selectedBrush, leftPadding, y, ClientSize.Width - 1 - leftPadding, itemHeight - 1); + e.Graphics.DrawRectangle(pen, leftPadding, y, ClientSize.Width - 1 - leftPadding, itemHeight - 1); + } + + if (i == hoveredItemIndex) + using(var pen = new Pen(HoveredColor)) + e.Graphics.DrawRectangle(pen, leftPadding, y, ClientSize.Width - 1 - leftPadding, itemHeight - 1); + + using (var brush = new SolidBrush(item.ForeColor != Color.Transparent ? item.ForeColor : ForeColor)) + e.Graphics.DrawString(item.ToString(), Font, brush, leftPadding, y); + } + } + + protected override void OnScroll(ScrollEventArgs se) + { + base.OnScroll(se); + Invalidate(); + } + + protected override void OnMouseClick(MouseEventArgs e) + { + base.OnMouseClick(e); + + if (e.Button == System.Windows.Forms.MouseButtons.Left) + { + FocussedItemIndex = PointToItemIndex(e.Location); + DoSelectedVisible(); + Invalidate(); + } + } + + protected override void OnMouseDoubleClick(MouseEventArgs e) + { + base.OnMouseDoubleClick(e); + FocussedItemIndex = PointToItemIndex(e.Location); + Invalidate(); + OnSelecting(); + } + + internal virtual void OnSelecting() + { + if (FocussedItemIndex < 0 || FocussedItemIndex >= visibleItems.Count) + return; + tb.TextSource.Manager.BeginAutoUndoCommands(); + try + { + AutocompleteItem item = FocussedItem; + SelectingEventArgs args = new SelectingEventArgs() + { + Item = item, + SelectedIndex = FocussedItemIndex + }; + + Menu.OnSelecting(args); + + if (args.Cancel) + { + FocussedItemIndex = args.SelectedIndex; + Invalidate(); + return; + } + + if (!args.Handled) + { + var fragment = Menu.Fragment; + DoAutocomplete(item, fragment); + } + + Menu.Close(); + // + SelectedEventArgs args2 = new SelectedEventArgs() + { + Item = item, + Tb = Menu.Fragment.tb + }; + item.OnSelected(Menu, args2); + Menu.OnSelected(args2); + } + finally + { + tb.TextSource.Manager.EndAutoUndoCommands(); + } + } + + private void DoAutocomplete(AutocompleteItem item, Range fragment) + { + string newText = item.GetTextForReplace(); + + //replace text of fragment + var tb = fragment.tb; + + tb.BeginAutoUndo(); + tb.TextSource.Manager.ExecuteCommand(new SelectCommand(tb.TextSource)); + if (tb.Selection.ColumnSelectionMode) + { + var start = tb.Selection.Start; + var end = tb.Selection.End; + start.iChar = fragment.Start.iChar; + end.iChar = fragment.End.iChar; + tb.Selection.Start = start; + tb.Selection.End = end; + } + else + { + tb.Selection.Start = fragment.Start; + tb.Selection.End = fragment.End; + } + tb.InsertText(newText); + tb.TextSource.Manager.ExecuteCommand(new SelectCommand(tb.TextSource)); + tb.EndAutoUndo(); + tb.Focus(); + } + + int PointToItemIndex(Point p) + { + return (p.Y + VerticalScroll.Value) / ItemHeight; + } + + protected override bool ProcessCmdKey(ref Message msg, Keys keyData) + { + ProcessKey(keyData, Keys.None); + + return base.ProcessCmdKey(ref msg, keyData); + } + + private bool ProcessKey(Keys keyData, Keys keyModifiers) + { + if (keyModifiers == Keys.None) + switch (keyData) + { + case Keys.Down: + SelectNext(+1); + return true; + case Keys.PageDown: + SelectNext(+10); + return true; + case Keys.Up: + SelectNext(-1); + return true; + case Keys.PageUp: + SelectNext(-10); + return true; + case Keys.Enter: + OnSelecting(); + return true; + case Keys.Tab: + if (!AllowTabKey) + break; + OnSelecting(); + return true; + case Keys.Escape: + Menu.Close(); + return true; + } + + return false; + } + + public void SelectNext(int shift) + { + FocussedItemIndex = Math.Max(0, Math.Min(FocussedItemIndex + shift, visibleItems.Count - 1)); + DoSelectedVisible(); + // + Invalidate(); + } + + private void DoSelectedVisible() + { + if (FocussedItem != null) + SetToolTip(FocussedItem); + + var y = FocussedItemIndex * ItemHeight - VerticalScroll.Value; + if (y < 0) + VerticalScroll.Value = FocussedItemIndex * ItemHeight; + if (y > ClientSize.Height - ItemHeight) + VerticalScroll.Value = Math.Min(VerticalScroll.Maximum, FocussedItemIndex * ItemHeight - ClientSize.Height + ItemHeight); + //some magic for update scrolls + AutoScrollMinSize -= new Size(1, 0); + AutoScrollMinSize += new Size(1, 0); + } + + private void SetToolTip(AutocompleteItem autocompleteItem) + { + var title = autocompleteItem.ToolTipTitle; + var text = autocompleteItem.ToolTipText; + + if (string.IsNullOrEmpty(title)) + { + toolTip.ToolTipTitle = null; + toolTip.SetToolTip(this, null); + return; + } + + IWin32Window window = this.Parent ?? this; + Point location = new Point((window == this ? Width : Right) + 3, 0); + + if (string.IsNullOrEmpty(text)) + { + toolTip.ToolTipTitle = null; + toolTip.Show(title, window, location.X, location.Y, ToolTipDuration); + } + else + { + toolTip.ToolTipTitle = title; + toolTip.Show(text, window, location.X, location.Y, ToolTipDuration); + } + } + + public int Count + { + get { return visibleItems.Count; } + } + + public void SetAutocompleteItems(ICollection items) + { + List list = new List(items.Count); + foreach (var item in items) + list.Add(new AutocompleteItem(item)); + SetAutocompleteItems(list); + } + + public void SetAutocompleteItems(IEnumerable items) + { + sourceItems = items; + } + } + + public class SelectingEventArgs : EventArgs + { + public AutocompleteItem Item { get; internal set; } + public bool Cancel {get;set;} + public int SelectedIndex{get;set;} + public bool Handled { get; set; } + } + + public class SelectedEventArgs : EventArgs + { + public AutocompleteItem Item { get; internal set; } + public FastColoredTextBox Tb { get; set; } + } +} diff --git a/FastColoredTextBox/Bookmarks.cs b/FastColoredTextBox/Bookmarks.cs new file mode 100644 index 0000000..ad220d9 --- /dev/null +++ b/FastColoredTextBox/Bookmarks.cs @@ -0,0 +1,256 @@ +using System; +using System.Collections.Generic; +using System.Drawing; +using System.Drawing.Drawing2D; +using System.Text; + +namespace FastColoredTextBoxNS +{ + /// + /// Base class for bookmark collection + /// + public abstract class BaseBookmarks : ICollection, IDisposable + { + #region ICollection + public abstract void Add(Bookmark item); + public abstract void Clear(); + public abstract bool Contains(Bookmark item); + public abstract void CopyTo(Bookmark[] array, int arrayIndex); + public abstract int Count { get; } + public abstract bool IsReadOnly { get; } + public abstract bool Remove(Bookmark item); + public abstract IEnumerator GetEnumerator(); + + System.Collections.IEnumerator System.Collections.IEnumerable.GetEnumerator() + { + return GetEnumerator(); + } + + #endregion + + #region IDisposable + public abstract void Dispose(); + #endregion + + #region Additional properties + + public abstract void Add(int lineIndex, string bookmarkName); + public abstract void Add(int lineIndex); + public abstract bool Contains(int lineIndex); + public abstract bool Remove(int lineIndex); + public abstract Bookmark GetBookmark(int i); + + #endregion + } + + /// + /// Collection of bookmarks + /// + public class Bookmarks : BaseBookmarks + { + protected FastColoredTextBox tb; + protected List items = new List(); + protected int counter; + + public Bookmarks(FastColoredTextBox tb) + { + this.tb = tb; + tb.LineInserted += tb_LineInserted; + tb.LineRemoved += tb_LineRemoved; + } + + protected virtual void tb_LineRemoved(object sender, LineRemovedEventArgs e) + { + for(int i=0; i= e.Index) + { + if (items[i].LineIndex >= e.Index + e.Count) + { + items[i].LineIndex = items[i].LineIndex - e.Count; + continue; + } + + var was = e.Index <= 0; + foreach (var b in items) + if (b.LineIndex == e.Index - 1) + was = true; + + if(was) + { + items.RemoveAt(i); + i--; + }else + items[i].LineIndex = e.Index - 1; + + //if (items[i].LineIndex == e.Index + e.Count - 1) + //{ + // items[i].LineIndex = items[i].LineIndex - e.Count; + // continue; + //} + // + //items.RemoveAt(i); + //i--; + } + } + + protected virtual void tb_LineInserted(object sender, LineInsertedEventArgs e) + { + for (int i = 0; i < Count; i++) + if (items[i].LineIndex >= e.Index) + { + items[i].LineIndex = items[i].LineIndex + e.Count; + }else + if (items[i].LineIndex == e.Index - 1 && e.Count == 1) + { + if(tb[e.Index - 1].StartSpacesCount == tb[e.Index - 1].Count) + items[i].LineIndex = items[i].LineIndex + e.Count; + } + } + + public override void Dispose() + { + tb.LineInserted -= tb_LineInserted; + tb.LineRemoved -= tb_LineRemoved; + } + + public override IEnumerator GetEnumerator() + { + foreach (var item in items) + yield return item; + } + + public override void Add(int lineIndex, string bookmarkName) + { + Add(new Bookmark(tb, bookmarkName ?? "Bookmark " + counter, lineIndex)); + } + + public override void Add(int lineIndex) + { + Add(new Bookmark(tb, "Bookmark " + counter, lineIndex)); + } + + public override void Clear() + { + items.Clear(); + counter = 0; + } + + public override void Add(Bookmark bookmark) + { + foreach (var bm in items) + if (bm.LineIndex == bookmark.LineIndex) + return; + + items.Add(bookmark); + counter++; + tb.Invalidate(); + } + + public override bool Contains(Bookmark item) + { + return items.Contains(item); + } + + public override bool Contains(int lineIndex) + { + foreach (var item in items) + if (item.LineIndex == lineIndex) + return true; + return false; + } + + public override void CopyTo(Bookmark[] array, int arrayIndex) + { + items.CopyTo(array, arrayIndex); + } + + public override int Count + { + get { return items.Count; } + } + + public override bool IsReadOnly + { + get { return false; } + } + + public override bool Remove(Bookmark item) + { + tb.Invalidate(); + return items.Remove(item); + } + + /// + /// Removes bookmark by line index + /// + public override bool Remove(int lineIndex) + { + bool was = false; + for (int i = 0; i < Count; i++) + if (items[i].LineIndex == lineIndex) + { + items.RemoveAt(i); + i--; + was = true; + } + tb.Invalidate(); + + return was; + } + + /// + /// Returns Bookmark by index. + /// + public override Bookmark GetBookmark(int i) + { + return items[i]; + } + } + + /// + /// Bookmark of FastColoredTextbox + /// + public class Bookmark + { + public FastColoredTextBox TB { get; private set; } + /// + /// Name of bookmark + /// + public string Name { get; set; } + /// + /// Line index + /// + public int LineIndex {get; set; } + /// + /// Color of bookmark sign + /// + public Color Color { get; set; } + + /// + /// Scroll textbox to the bookmark + /// + public virtual void DoVisible() + { + TB.Selection.Start = new Place(0, LineIndex); + TB.DoRangeVisible(TB.Selection, true); + TB.Invalidate(); + } + + public Bookmark(FastColoredTextBox tb, string name, int lineIndex) + { + this.TB = tb; + this.Name = name; + this.LineIndex = lineIndex; + Color = tb.BookmarkColor; + } + + public virtual void Paint(Graphics gr, Rectangle lineRect) + { + var size = TB.CharHeight - 1; + using (var brush = new LinearGradientBrush(new Rectangle(0, lineRect.Top, size, size), Color.White, Color, 45)) + gr.FillEllipse(brush, 0, lineRect.Top, size, size); + using (var pen = new Pen(Color)) + gr.DrawEllipse(pen, 0, lineRect.Top, size, size); + } + } +} diff --git a/FastColoredTextBox/Char.cs b/FastColoredTextBox/Char.cs new file mode 100644 index 0000000..9f848c9 --- /dev/null +++ b/FastColoredTextBox/Char.cs @@ -0,0 +1,26 @@ +using System; + +namespace FastColoredTextBoxNS +{ + /// + /// Char and style + /// + public struct Char + { + /// + /// Unicode character + /// + public char c; + /// + /// Style bit mask + /// + /// Bit 1 in position n means that this char will rendering by FastColoredTextBox.Styles[n] + public StyleIndex style; + + public Char(char c) + { + this.c = c; + style = StyleIndex.None; + } + } +} diff --git a/FastColoredTextBox/CommandManager.cs b/FastColoredTextBox/CommandManager.cs new file mode 100644 index 0000000..7e61a61 --- /dev/null +++ b/FastColoredTextBox/CommandManager.cs @@ -0,0 +1,239 @@ +using System.Collections.Generic; +using System; + +namespace FastColoredTextBoxNS +{ + public class CommandManager + { + readonly int maxHistoryLength = 200; + LimitedStack history; + Stack redoStack = new Stack(); + public TextSource TextSource{ get; private set; } + public bool UndoRedoStackIsEnabled { get; set; } + + public CommandManager(TextSource ts) + { + history = new LimitedStack(maxHistoryLength); + TextSource = ts; + UndoRedoStackIsEnabled = true; + } + + public virtual void ExecuteCommand(Command cmd) + { + if (disabledCommands > 0) + return; + + //multirange ? + if (cmd.ts.CurrentTB.Selection.ColumnSelectionMode) + if (cmd is UndoableCommand) + //make wrapper + cmd = new MultiRangeCommand((UndoableCommand)cmd); + + + if (cmd is UndoableCommand) + { + //if range is ColumnRange, then create wrapper + (cmd as UndoableCommand).autoUndo = autoUndoCommands > 0; + history.Push(cmd as UndoableCommand); + } + + try + { + cmd.Execute(); + } + catch (ArgumentOutOfRangeException) + { + //OnTextChanging cancels enter of the text + if (cmd is UndoableCommand) + history.Pop(); + } + // + if (!UndoRedoStackIsEnabled) + ClearHistory(); + // + redoStack.Clear(); + // + TextSource.CurrentTB.OnUndoRedoStateChanged(); + } + + public void Undo() + { + if (history.Count > 0) + { + var cmd = history.Pop(); + // + BeginDisableCommands();//prevent text changing into handlers + try + { + cmd.Undo(); + } + finally + { + EndDisableCommands(); + } + // + redoStack.Push(cmd); + } + + //undo next autoUndo command + if (history.Count > 0) + { + if (history.Peek().autoUndo) + Undo(); + } + + TextSource.CurrentTB.OnUndoRedoStateChanged(); + } + + protected int disabledCommands = 0; + + private void EndDisableCommands() + { + disabledCommands--; + } + + private void BeginDisableCommands() + { + disabledCommands++; + } + + int autoUndoCommands = 0; + + public void EndAutoUndoCommands() + { + autoUndoCommands--; + if (autoUndoCommands == 0) + if (history.Count > 0) + history.Peek().autoUndo = false; + } + + public void BeginAutoUndoCommands() + { + autoUndoCommands++; + } + + internal void ClearHistory() + { + history.Clear(); + redoStack.Clear(); + TextSource.CurrentTB.OnUndoRedoStateChanged(); + } + + internal void Redo() + { + if (redoStack.Count == 0) + return; + UndoableCommand cmd; + BeginDisableCommands();//prevent text changing into handlers + try + { + cmd = redoStack.Pop(); + if (TextSource.CurrentTB.Selection.ColumnSelectionMode) + TextSource.CurrentTB.Selection.ColumnSelectionMode = false; + TextSource.CurrentTB.Selection.Start = cmd.sel.Start; + TextSource.CurrentTB.Selection.End = cmd.sel.End; + cmd.Execute(); + history.Push(cmd); + } + finally + { + EndDisableCommands(); + } + + //redo command after autoUndoable command + if (cmd.autoUndo) + Redo(); + + TextSource.CurrentTB.OnUndoRedoStateChanged(); + } + + public bool UndoEnabled + { + get + { + return history.Count > 0; + } + } + + public bool RedoEnabled + { + get + { + return redoStack.Count > 0; + } + } + } + + public abstract class Command + { + public TextSource ts; + public abstract void Execute(); + } + + internal class RangeInfo + { + public Place Start { get; set; } + public Place End { get; set; } + + public RangeInfo(Range r) + { + Start = r.Start; + End = r.End; + } + + internal int FromX + { + get + { + if (End.iLine < Start.iLine) return End.iChar; + if (End.iLine > Start.iLine) return Start.iChar; + return Math.Min(End.iChar, Start.iChar); + } + } + } + + public abstract class UndoableCommand : Command + { + internal RangeInfo sel; + internal RangeInfo lastSel; + internal bool autoUndo; + + public UndoableCommand(TextSource ts) + { + this.ts = ts; + sel = new RangeInfo(ts.CurrentTB.Selection); + } + + public virtual void Undo() + { + OnTextChanged(true); + } + + public override void Execute() + { + lastSel = new RangeInfo(ts.CurrentTB.Selection); + OnTextChanged(false); + } + + protected virtual void OnTextChanged(bool invert) + { + bool b = sel.Start.iLine < lastSel.Start.iLine; + if (invert) + { + if (b) + ts.OnTextChanged(sel.Start.iLine, sel.Start.iLine); + else + ts.OnTextChanged(sel.Start.iLine, lastSel.Start.iLine); + } + else + { + if (b) + ts.OnTextChanged(sel.Start.iLine, lastSel.Start.iLine); + else + ts.OnTextChanged(lastSel.Start.iLine, lastSel.Start.iLine); + } + } + + public abstract UndoableCommand Clone(); + } +} \ No newline at end of file diff --git a/FastColoredTextBox/Commands.cs b/FastColoredTextBox/Commands.cs new file mode 100644 index 0000000..c83ac96 --- /dev/null +++ b/FastColoredTextBox/Commands.cs @@ -0,0 +1,809 @@ +using System; +using System.Collections.Generic; + +namespace FastColoredTextBoxNS +{ + /// + /// Insert single char + /// + /// This operation includes also insertion of new line and removing char by backspace + public class InsertCharCommand : UndoableCommand + { + public char c; + char deletedChar = '\x0'; + + /// + /// Constructor + /// + /// Underlaying textbox + /// Inserting char + public InsertCharCommand(TextSource ts, char c): base(ts) + { + this.c = c; + } + + /// + /// Undo operation + /// + public override void Undo() + { + ts.OnTextChanging(); + switch (c) + { + case '\n': MergeLines(sel.Start.iLine, ts); break; + case '\r': break; + case '\b': + ts.CurrentTB.Selection.Start = lastSel.Start; + char cc = '\x0'; + if (deletedChar != '\x0') + { + ts.CurrentTB.ExpandBlock(ts.CurrentTB.Selection.Start.iLine); + InsertChar(deletedChar, ref cc, ts); + } + break; + case '\t': + ts.CurrentTB.ExpandBlock(sel.Start.iLine); + for (int i = sel.FromX; i < lastSel.FromX; i++) + ts[sel.Start.iLine].RemoveAt(sel.Start.iChar); + ts.CurrentTB.Selection.Start = sel.Start; + break; + default: + ts.CurrentTB.ExpandBlock(sel.Start.iLine); + ts[sel.Start.iLine].RemoveAt(sel.Start.iChar); + ts.CurrentTB.Selection.Start = sel.Start; + break; + } + + ts.NeedRecalc(new TextSource.TextChangedEventArgs(sel.Start.iLine, sel.Start.iLine)); + + base.Undo(); + } + + /// + /// Execute operation + /// + public override void Execute() + { + ts.CurrentTB.ExpandBlock(ts.CurrentTB.Selection.Start.iLine); + string s = c.ToString(); + ts.OnTextChanging(ref s); + if (s.Length == 1) + c = s[0]; + + if (String.IsNullOrEmpty(s)) + throw new ArgumentOutOfRangeException(); + + + if (ts.Count == 0) + InsertLine(ts); + InsertChar(c, ref deletedChar, ts); + + ts.NeedRecalc(new TextSource.TextChangedEventArgs(ts.CurrentTB.Selection.Start.iLine, ts.CurrentTB.Selection.Start.iLine)); + base.Execute(); + } + + internal static void InsertChar(char c, ref char deletedChar, TextSource ts) + { + var tb = ts.CurrentTB; + + switch (c) + { + case '\n': + if (!ts.CurrentTB.AllowInsertRemoveLines) + throw new ArgumentOutOfRangeException("Cant insert this char in ColumnRange mode"); + if (ts.Count == 0) + InsertLine(ts); + InsertLine(ts); + break; + case '\r': break; + case '\b'://backspace + if (tb.Selection.Start.iChar == 0 && tb.Selection.Start.iLine == 0) + return; + if (tb.Selection.Start.iChar == 0) + { + if (!ts.CurrentTB.AllowInsertRemoveLines) + throw new ArgumentOutOfRangeException("Cant insert this char in ColumnRange mode"); + if (tb.LineInfos[tb.Selection.Start.iLine - 1].VisibleState != VisibleState.Visible) + tb.ExpandBlock(tb.Selection.Start.iLine - 1); + deletedChar = '\n'; + MergeLines(tb.Selection.Start.iLine - 1, ts); + } + else + { + deletedChar = ts[tb.Selection.Start.iLine][tb.Selection.Start.iChar - 1].c; + ts[tb.Selection.Start.iLine].RemoveAt(tb.Selection.Start.iChar - 1); + tb.Selection.Start = new Place(tb.Selection.Start.iChar - 1, tb.Selection.Start.iLine); + } + break; + case '\t': + int spaceCountNextTabStop = tb.TabLength - (tb.Selection.Start.iChar % tb.TabLength); + if (spaceCountNextTabStop == 0) + spaceCountNextTabStop = tb.TabLength; + + for (int i = 0; i < spaceCountNextTabStop; i++) + ts[tb.Selection.Start.iLine].Insert(tb.Selection.Start.iChar, new Char(' ')); + + tb.Selection.Start = new Place(tb.Selection.Start.iChar + spaceCountNextTabStop, tb.Selection.Start.iLine); + break; + default: + ts[tb.Selection.Start.iLine].Insert(tb.Selection.Start.iChar, new Char(c)); + tb.Selection.Start = new Place(tb.Selection.Start.iChar + 1, tb.Selection.Start.iLine); + break; + } + } + + internal static void InsertLine(TextSource ts) + { + var tb = ts.CurrentTB; + + if (!tb.Multiline && tb.LinesCount > 0) + return; + + if (ts.Count == 0) + ts.InsertLine(0, ts.CreateLine()); + else + BreakLines(tb.Selection.Start.iLine, tb.Selection.Start.iChar, ts); + + tb.Selection.Start = new Place(0, tb.Selection.Start.iLine + 1); + ts.NeedRecalc(new TextSource.TextChangedEventArgs(0, 1)); + } + + /// + /// Merge lines i and i+1 + /// + internal static void MergeLines(int i, TextSource ts) + { + var tb = ts.CurrentTB; + + if (i + 1 >= ts.Count) + return; + tb.ExpandBlock(i); + tb.ExpandBlock(i + 1); + int pos = ts[i].Count; + // + /* + if(ts[i].Count == 0) + ts.RemoveLine(i); + else*/ + if (ts[i + 1].Count == 0) + ts.RemoveLine(i + 1); + else + { + ts[i].AddRange(ts[i + 1]); + ts.RemoveLine(i + 1); + } + tb.Selection.Start = new Place(pos, i); + ts.NeedRecalc(new TextSource.TextChangedEventArgs(0, 1)); + } + + internal static void BreakLines(int iLine, int pos, TextSource ts) + { + Line newLine = ts.CreateLine(); + for(int i=pos;i + /// Insert text + /// + public class InsertTextCommand : UndoableCommand + { + public string InsertedText; + + /// + /// Constructor + /// + /// Underlaying textbox + /// Text for inserting + public InsertTextCommand(TextSource ts, string insertedText): base(ts) + { + this.InsertedText = insertedText; + } + + /// + /// Undo operation + /// + public override void Undo() + { + ts.CurrentTB.Selection.Start = sel.Start; + ts.CurrentTB.Selection.End = lastSel.Start; + ts.OnTextChanging(); + ClearSelectedCommand.ClearSelected(ts); + base.Undo(); + } + + /// + /// Execute operation + /// + public override void Execute() + { + ts.OnTextChanging(ref InsertedText); + InsertText(InsertedText, ts); + base.Execute(); + } + + internal static void InsertText(string insertedText, TextSource ts) + { + var tb = ts.CurrentTB; + try + { + tb.Selection.BeginUpdate(); + char cc = '\x0'; + + if (ts.Count == 0) + { + InsertCharCommand.InsertLine(ts); + tb.Selection.Start = Place.Empty; + } + tb.ExpandBlock(tb.Selection.Start.iLine); + var len = insertedText.Length; + for (int i = 0; i < len; i++) + { + var c = insertedText[i]; + if(c == '\r' && (i >= len - 1 || insertedText[i + 1] != '\n')) + InsertCharCommand.InsertChar('\n', ref cc, ts); + else + InsertCharCommand.InsertChar(c, ref cc, ts); + } + ts.NeedRecalc(new TextSource.TextChangedEventArgs(0, 1)); + } + finally { + tb.Selection.EndUpdate(); + } + } + + public override UndoableCommand Clone() + { + return new InsertTextCommand(ts, InsertedText); + } + } + + /// + /// Insert text into given ranges + /// + public class ReplaceTextCommand : UndoableCommand + { + string insertedText; + List ranges; + List prevText = new List(); + + /// + /// Constructor + /// + /// Underlaying textbox + /// List of ranges for replace + /// Text for inserting + public ReplaceTextCommand(TextSource ts, List ranges, string insertedText) + : base(ts) + { + //sort ranges by place + ranges.Sort((r1, r2)=> + { + if (r1.Start.iLine == r2.Start.iLine) + return r1.Start.iChar.CompareTo(r2.Start.iChar); + return r1.Start.iLine.CompareTo(r2.Start.iLine); + }); + // + this.ranges = ranges; + this.insertedText = insertedText; + lastSel = sel = new RangeInfo(ts.CurrentTB.Selection); + } + + /// + /// Undo operation + /// + public override void Undo() + { + var tb = ts.CurrentTB; + + ts.OnTextChanging(); + tb.BeginUpdate(); + + tb.Selection.BeginUpdate(); + for (int i = 0; i 0) + ts.OnTextChanged(ranges[0].Start.iLine, ranges[ranges.Count - 1].End.iLine); + + ts.NeedRecalc(new TextSource.TextChangedEventArgs(0, 1)); + } + + /// + /// Execute operation + /// + public override void Execute() + { + var tb = ts.CurrentTB; + prevText.Clear(); + + ts.OnTextChanging(ref insertedText); + + tb.Selection.BeginUpdate(); + tb.BeginUpdate(); + for (int i = ranges.Count - 1; i >= 0; i--) + { + tb.Selection.Start = ranges[i].Start; + tb.Selection.End = ranges[i].End; + prevText.Add(tb.Selection.Text); + ClearSelected(ts); + if (insertedText != "") + InsertTextCommand.InsertText(insertedText, ts); + } + if(ranges.Count > 0) + ts.OnTextChanged(ranges[0].Start.iLine, ranges[ranges.Count - 1].End.iLine); + tb.EndUpdate(); + tb.Selection.EndUpdate(); + ts.NeedRecalc(new TextSource.TextChangedEventArgs(0, 1)); + + lastSel = new RangeInfo(tb.Selection); + } + + public override UndoableCommand Clone() + { + return new ReplaceTextCommand(ts, new List(ranges), insertedText); + } + + internal static void ClearSelected(TextSource ts) + { + var tb = ts.CurrentTB; + + tb.Selection.Normalize(); + + Place start = tb.Selection.Start; + Place end = tb.Selection.End; + int fromLine = Math.Min(end.iLine, start.iLine); + int toLine = Math.Max(end.iLine, start.iLine); + int fromChar = tb.Selection.FromX; + int toChar = tb.Selection.ToX; + if (fromLine < 0) return; + // + if (fromLine == toLine) + ts[fromLine].RemoveRange(fromChar, toChar - fromChar); + else + { + ts[fromLine].RemoveRange(fromChar, ts[fromLine].Count - fromChar); + ts[toLine].RemoveRange(0, toChar); + ts.RemoveLine(fromLine + 1, toLine - fromLine - 1); + InsertCharCommand.MergeLines(fromLine, ts); + } + } + } + + /// + /// Clear selected text + /// + public class ClearSelectedCommand : UndoableCommand + { + string deletedText; + + /// + /// Construstor + /// + /// Underlaying textbox + public ClearSelectedCommand(TextSource ts): base(ts) + { + } + + /// + /// Undo operation + /// + public override void Undo() + { + ts.CurrentTB.Selection.Start = new Place(sel.FromX, Math.Min(sel.Start.iLine, sel.End.iLine)); + ts.OnTextChanging(); + InsertTextCommand.InsertText(deletedText, ts); + ts.OnTextChanged(sel.Start.iLine, sel.End.iLine); + ts.CurrentTB.Selection.Start = sel.Start; + ts.CurrentTB.Selection.End = sel.End; + } + + /// + /// Execute operation + /// + public override void Execute() + { + var tb = ts.CurrentTB; + + string temp = null; + ts.OnTextChanging(ref temp); + if (temp == "") + throw new ArgumentOutOfRangeException(); + + deletedText = tb.Selection.Text; + ClearSelected(ts); + lastSel = new RangeInfo(tb.Selection); + ts.OnTextChanged(lastSel.Start.iLine, lastSel.Start.iLine); + } + + internal static void ClearSelected(TextSource ts) + { + var tb = ts.CurrentTB; + + Place start = tb.Selection.Start; + Place end = tb.Selection.End; + int fromLine = Math.Min(end.iLine, start.iLine); + int toLine = Math.Max(end.iLine, start.iLine); + int fromChar = tb.Selection.FromX; + int toChar = tb.Selection.ToX; + if (fromLine < 0) return; + // + if (fromLine == toLine) + ts[fromLine].RemoveRange(fromChar, toChar - fromChar); + else + { + ts[fromLine].RemoveRange(fromChar, ts[fromLine].Count - fromChar); + ts[toLine].RemoveRange(0, toChar); + ts.RemoveLine(fromLine + 1, toLine - fromLine - 1); + InsertCharCommand.MergeLines(fromLine, ts); + } + // + tb.Selection.Start = new Place(fromChar, fromLine); + // + ts.NeedRecalc(new TextSource.TextChangedEventArgs(fromLine, toLine)); + } + + public override UndoableCommand Clone() + { + return new ClearSelectedCommand(ts); + } + } + + /// + /// Replaces text + /// + public class ReplaceMultipleTextCommand : UndoableCommand + { + List ranges; + List prevText = new List(); + + public class ReplaceRange + { + public Range ReplacedRange { get; set; } + public String ReplaceText { get; set; } + } + + /// + /// Constructor + /// + /// Underlaying textsource + /// List of ranges for replace + public ReplaceMultipleTextCommand(TextSource ts, List ranges) + : base(ts) + { + //sort ranges by place + ranges.Sort((r1, r2) => + { + if (r1.ReplacedRange.Start.iLine == r2.ReplacedRange.Start.iLine) + return r1.ReplacedRange.Start.iChar.CompareTo(r2.ReplacedRange.Start.iChar); + return r1.ReplacedRange.Start.iLine.CompareTo(r2.ReplacedRange.Start.iLine); + }); + // + this.ranges = ranges; + lastSel = sel = new RangeInfo(ts.CurrentTB.Selection); + } + + /// + /// Undo operation + /// + public override void Undo() + { + var tb = ts.CurrentTB; + + ts.OnTextChanging(); + + tb.Selection.BeginUpdate(); + for (int i = 0; i < ranges.Count; i++) + { + tb.Selection.Start = ranges[i].ReplacedRange.Start; + for (int j = 0; j < ranges[i].ReplaceText.Length; j++) + tb.Selection.GoRight(true); + ClearSelectedCommand.ClearSelected(ts); + var prevTextIndex = ranges.Count - 1 - i; + InsertTextCommand.InsertText(prevText[prevTextIndex], ts); + ts.OnTextChanged(ranges[i].ReplacedRange.Start.iLine, ranges[i].ReplacedRange.Start.iLine); + } + tb.Selection.EndUpdate(); + + ts.NeedRecalc(new TextSource.TextChangedEventArgs(0, 1)); + } + + /// + /// Execute operation + /// + public override void Execute() + { + var tb = ts.CurrentTB; + prevText.Clear(); + + ts.OnTextChanging(); + + tb.Selection.BeginUpdate(); + for (int i = ranges.Count - 1; i >= 0; i--) + { + tb.Selection.Start = ranges[i].ReplacedRange.Start; + tb.Selection.End = ranges[i].ReplacedRange.End; + prevText.Add(tb.Selection.Text); + ClearSelectedCommand.ClearSelected(ts); + InsertTextCommand.InsertText(ranges[i].ReplaceText, ts); + ts.OnTextChanged(ranges[i].ReplacedRange.Start.iLine, ranges[i].ReplacedRange.End.iLine); + } + tb.Selection.EndUpdate(); + ts.NeedRecalc(new TextSource.TextChangedEventArgs(0, 1)); + + lastSel = new RangeInfo(tb.Selection); + } + + public override UndoableCommand Clone() + { + return new ReplaceMultipleTextCommand(ts, new List(ranges)); + } + } + + /// + /// Removes lines + /// + public class RemoveLinesCommand : UndoableCommand + { + List iLines; + List prevText = new List(); + + /// + /// Constructor + /// + /// Underlaying textbox + /// List of ranges for replace + /// Text for inserting + public RemoveLinesCommand(TextSource ts, List iLines) + : base(ts) + { + //sort iLines + iLines.Sort(); + // + this.iLines = iLines; + lastSel = sel = new RangeInfo(ts.CurrentTB.Selection); + } + + /// + /// Undo operation + /// + public override void Undo() + { + var tb = ts.CurrentTB; + + ts.OnTextChanging(); + + tb.Selection.BeginUpdate(); + //tb.BeginUpdate(); + for (int i = 0; i < iLines.Count; i++) + { + var iLine = iLines[i]; + + if(iLine < ts.Count) + tb.Selection.Start = new Place(0, iLine); + else + tb.Selection.Start = new Place(ts[ts.Count - 1].Count, ts.Count - 1); + + InsertCharCommand.InsertLine(ts); + tb.Selection.Start = new Place(0, iLine); + var text = prevText[prevText.Count - i - 1]; + InsertTextCommand.InsertText(text, ts); + ts[iLine].IsChanged = true; + if (iLine < ts.Count - 1) + ts[iLine + 1].IsChanged = true; + else + ts[iLine - 1].IsChanged = true; + if(text.Trim() != string.Empty) + ts.OnTextChanged(iLine, iLine); + } + //tb.EndUpdate(); + tb.Selection.EndUpdate(); + + ts.NeedRecalc(new TextSource.TextChangedEventArgs(0, 1)); + } + + /// + /// Execute operation + /// + public override void Execute() + { + var tb = ts.CurrentTB; + prevText.Clear(); + + ts.OnTextChanging(); + + tb.Selection.BeginUpdate(); + for(int i = iLines.Count - 1; i >= 0; i--) + { + var iLine = iLines[i]; + + prevText.Add(ts[iLine].Text);//backward + ts.RemoveLine(iLine); + //ts.OnTextChanged(ranges[i].Start.iLine, ranges[i].End.iLine); + } + tb.Selection.Start = new Place(0, 0); + tb.Selection.EndUpdate(); + ts.NeedRecalc(new TextSource.TextChangedEventArgs(0, 1)); + + lastSel = new RangeInfo(tb.Selection); + } + + public override UndoableCommand Clone() + { + return new RemoveLinesCommand(ts, new List(iLines)); + } + } + + /// + /// Wrapper for multirange commands + /// + public class MultiRangeCommand : UndoableCommand + { + private UndoableCommand cmd; + private Range range; + private List commandsByRanges = new List(); + + public MultiRangeCommand(UndoableCommand command):base(command.ts) + { + this.cmd = command; + range = ts.CurrentTB.Selection.Clone(); + } + + public override void Execute() + { + commandsByRanges.Clear(); + var prevSelection = range.Clone(); + var iChar = -1; + var iStartLine = prevSelection.Start.iLine; + var iEndLine = prevSelection.End.iLine; + ts.CurrentTB.Selection.ColumnSelectionMode = false; + ts.CurrentTB.Selection.BeginUpdate(); + ts.CurrentTB.BeginUpdate(); + ts.CurrentTB.AllowInsertRemoveLines = false; + try + { + if (cmd is InsertTextCommand) + ExecuteInsertTextCommand(ref iChar, (cmd as InsertTextCommand).InsertedText); + else + if (cmd is InsertCharCommand && (cmd as InsertCharCommand).c != '\x0' && (cmd as InsertCharCommand).c != '\b')//if not DEL or BACKSPACE + ExecuteInsertTextCommand(ref iChar, (cmd as InsertCharCommand).c.ToString()); + else + ExecuteCommand(ref iChar); + } + catch (ArgumentOutOfRangeException) + { + } + finally + { + ts.CurrentTB.AllowInsertRemoveLines = true; + ts.CurrentTB.EndUpdate(); + + ts.CurrentTB.Selection = range; + if (iChar >= 0) + { + ts.CurrentTB.Selection.Start = new Place(iChar, iStartLine); + ts.CurrentTB.Selection.End = new Place(iChar, iEndLine); + } + ts.CurrentTB.Selection.ColumnSelectionMode = true; + ts.CurrentTB.Selection.EndUpdate(); + } + } + + private void ExecuteInsertTextCommand(ref int iChar, string text) + { + var lines = text.Split('\n'); + var iLine = 0; + foreach (var r in range.GetSubRanges(true)) + { + var line = ts.CurrentTB[r.Start.iLine]; + var lineIsEmpty = r.End < r.Start && line.StartSpacesCount == line.Count; + if (!lineIsEmpty) + { + var insertedText = lines[iLine%lines.Length]; + if (r.End < r.Start && insertedText!="") + { + //add forwarding spaces + insertedText = new string(' ', r.Start.iChar - r.End.iChar) + insertedText; + r.Start = r.End; + } + ts.CurrentTB.Selection = r; + var c = new InsertTextCommand(ts, insertedText); + c.Execute(); + if (ts.CurrentTB.Selection.End.iChar > iChar) + iChar = ts.CurrentTB.Selection.End.iChar; + commandsByRanges.Add(c); + } + iLine++; + } + } + + private void ExecuteCommand(ref int iChar) + { + foreach (var r in range.GetSubRanges(false)) + { + ts.CurrentTB.Selection = r; + var c = cmd.Clone(); + c.Execute(); + if (ts.CurrentTB.Selection.End.iChar > iChar) + iChar = ts.CurrentTB.Selection.End.iChar; + commandsByRanges.Add(c); + } + } + + public override void Undo() + { + ts.CurrentTB.BeginUpdate(); + ts.CurrentTB.Selection.BeginUpdate(); + try + { + for (int i = commandsByRanges.Count - 1; i >= 0; i--) + commandsByRanges[i].Undo(); + } + finally + { + ts.CurrentTB.Selection.EndUpdate(); + ts.CurrentTB.EndUpdate(); + } + ts.CurrentTB.Selection = range.Clone(); + ts.CurrentTB.OnTextChanged(range); + ts.CurrentTB.OnSelectionChanged(); + ts.CurrentTB.Selection.ColumnSelectionMode = true; + } + + public override UndoableCommand Clone() + { + throw new NotImplementedException(); + } + } + + /// + /// Remembers current selection and restore it after Undo + /// + public class SelectCommand : UndoableCommand + { + public SelectCommand(TextSource ts):base(ts) + { + } + + public override void Execute() + { + //remember selection + lastSel = new RangeInfo(ts.CurrentTB.Selection); + } + + protected override void OnTextChanged(bool invert) + { + } + + public override void Undo() + { + //restore selection + ts.CurrentTB.Selection = new Range(ts.CurrentTB, lastSel.Start, lastSel.End); + } + + public override UndoableCommand Clone() + { + var result = new SelectCommand(ts); + if(lastSel!=null) + result.lastSel = new RangeInfo(new Range(ts.CurrentTB, lastSel.Start, lastSel.End)); + return result; + } + } +} diff --git a/FastColoredTextBox/DocumentMap.cs b/FastColoredTextBox/DocumentMap.cs new file mode 100644 index 0000000..f3eb38a --- /dev/null +++ b/FastColoredTextBox/DocumentMap.cs @@ -0,0 +1,250 @@ +using System; +using System.Collections.Generic; +using System.ComponentModel; +using System.Drawing; +using System.Data; +using System.Drawing.Drawing2D; +using System.Text; +using System.Windows.Forms; + +namespace FastColoredTextBoxNS +{ + /// + /// Shows document map of FCTB + /// + public class DocumentMap : Control + { + public EventHandler TargetChanged; + + FastColoredTextBox target; + private float scale = 0.3f; + private bool needRepaint = true; + private Place startPlace = Place.Empty; + private bool scrollbarVisible = true; + + [Description("Target FastColoredTextBox")] + public FastColoredTextBox Target + { + get { return target; } + set + { + if (target != null) + UnSubscribe(target); + + target = value; + if (value != null) + { + Subscribe(target); + } + OnTargetChanged(); + } + } + + /// + /// Scale + /// + [Description("Scale")] + [DefaultValue(0.3f)] + public float Scale + { + get { return scale; } + set + { + scale = value; + NeedRepaint(); + } + } + + /// + /// Scrollbar visibility + /// + [Description("Scrollbar visibility")] + [DefaultValue(true)] + public bool ScrollbarVisible + { + get { return scrollbarVisible; } + set + { + scrollbarVisible = value; + NeedRepaint(); + } + } + + public DocumentMap() + { + ForeColor = Color.Maroon; + SetStyle(ControlStyles.AllPaintingInWmPaint | ControlStyles.OptimizedDoubleBuffer | ControlStyles.UserPaint | ControlStyles.ResizeRedraw, true); + Application.Idle += Application_Idle; + } + + void Application_Idle(object sender, EventArgs e) + { + if(needRepaint) + Invalidate(); + } + + protected virtual void OnTargetChanged() + { + NeedRepaint(); + + if (TargetChanged != null) + TargetChanged(this, EventArgs.Empty); + } + + protected virtual void UnSubscribe(FastColoredTextBox target) + { + target.Scroll -= new ScrollEventHandler(Target_Scroll); + target.SelectionChangedDelayed -= new EventHandler(Target_SelectionChanged); + target.VisibleRangeChanged -= new EventHandler(Target_VisibleRangeChanged); + } + + protected virtual void Subscribe(FastColoredTextBox target) + { + target.Scroll += new ScrollEventHandler(Target_Scroll); + target.SelectionChangedDelayed += new EventHandler(Target_SelectionChanged); + target.VisibleRangeChanged += new EventHandler(Target_VisibleRangeChanged); + } + + protected virtual void Target_VisibleRangeChanged(object sender, EventArgs e) + { + NeedRepaint(); + } + + protected virtual void Target_SelectionChanged(object sender, EventArgs e) + { + NeedRepaint(); + } + + protected virtual void Target_Scroll(object sender, ScrollEventArgs e) + { + NeedRepaint(); + } + + protected override void OnResize(EventArgs e) + { + base.OnResize(e); + NeedRepaint(); + } + + public void NeedRepaint() + { + needRepaint = true; + } + + protected override void OnPaint(PaintEventArgs e) + { + if (target == null) + return; + + var zoom = this.Scale * 100 / target.Zoom; + + if (zoom <= float.Epsilon) + return; + + //calc startPlace + var r = target.VisibleRange; + if (startPlace.iLine > r.Start.iLine) + startPlace.iLine = r.Start.iLine; + else + { + var endP = target.PlaceToPoint(r.End); + endP.Offset(0, -(int)(ClientSize.Height / zoom) + target.CharHeight); + var pp = target.PointToPlace(endP); + if (pp.iLine > startPlace.iLine) + startPlace.iLine = pp.iLine; + } + startPlace.iChar = 0; + //calc scroll pos + var linesCount = target.Lines.Count; + var sp1 = (float)r.Start.iLine / linesCount; + var sp2 = (float)r.End.iLine / linesCount; + + //scale graphics + e.Graphics.ScaleTransform(zoom, zoom); + //draw text + var size = new SizeF(ClientSize.Width / zoom, ClientSize.Height / zoom); + target.DrawText(e.Graphics, startPlace, size.ToSize()); + + //draw visible rect + var p0 = target.PlaceToPoint(startPlace); + var p1 = target.PlaceToPoint(r.Start); + var p2 = target.PlaceToPoint(r.End); + var y1 = p1.Y - p0.Y; + var y2 = p2.Y + target.CharHeight - p0.Y; + + e.Graphics.SmoothingMode = SmoothingMode.HighQuality; + + using (var brush = new SolidBrush(Color.FromArgb(50, ForeColor))) + using (var pen = new Pen(brush, 1 / zoom)) + { + var rect = new Rectangle(0, y1, (int)((ClientSize.Width - 1) / zoom), y2 - y1); + e.Graphics.FillRectangle(brush, rect); + e.Graphics.DrawRectangle(pen, rect); + } + + //draw scrollbar + if (scrollbarVisible) + { + e.Graphics.ResetTransform(); + e.Graphics.SmoothingMode = SmoothingMode.None; + + using (var brush = new SolidBrush(Color.FromArgb(200, ForeColor))) + { + var rect = new RectangleF(ClientSize.Width - 3, ClientSize.Height*sp1, 2, + ClientSize.Height*(sp2 - sp1)); + e.Graphics.FillRectangle(brush, rect); + } + } + + needRepaint = false; + } + + protected override void OnMouseDown(MouseEventArgs e) + { + if (e.Button == System.Windows.Forms.MouseButtons.Left) + Scroll(e.Location); + base.OnMouseDown(e); + } + + protected override void OnMouseMove(MouseEventArgs e) + { + if (e.Button == System.Windows.Forms.MouseButtons.Left) + Scroll(e.Location); + base.OnMouseMove(e); + } + + private void Scroll(Point point) + { + if (target == null) + return; + + var zoom = this.Scale*100/target.Zoom; + + if (zoom <= float.Epsilon) + return; + + var p0 = target.PlaceToPoint(startPlace); + p0 = new Point(0, p0.Y + (int) (point.Y/zoom)); + var pp = target.PointToPlace(p0); + target.DoRangeVisible(new Range(target, pp, pp), true); + BeginInvoke((MethodInvoker)OnScroll); + } + + private void OnScroll() + { + Refresh(); + target.Refresh(); + } + + protected override void Dispose(bool disposing) + { + if (disposing) + { + Application.Idle -= Application_Idle; + if (target != null) + UnSubscribe(target); + } + base.Dispose(disposing); + } + } +} diff --git a/FastColoredTextBox/EncodingDetector.cs b/FastColoredTextBox/EncodingDetector.cs new file mode 100644 index 0000000..2dc202d --- /dev/null +++ b/FastColoredTextBox/EncodingDetector.cs @@ -0,0 +1,363 @@ +// Copyright Tao Klerks, 2010-2012, tao@klerks.biz +// Licensed under the modified BSD license. + + +using System; +using System.IO; +using System.Text; +using System.Text.RegularExpressions; + +namespace FastColoredTextBoxNS +{ + public static class EncodingDetector + { + const long _defaultHeuristicSampleSize = 0x10000; //completely arbitrary - inappropriate for high numbers of files / high speed requirements + + public static Encoding DetectTextFileEncoding(string InputFilename) + { + using (FileStream textfileStream = File.OpenRead(InputFilename)) + { + return DetectTextFileEncoding(textfileStream, _defaultHeuristicSampleSize); + } + } + + public static Encoding DetectTextFileEncoding(FileStream InputFileStream, long HeuristicSampleSize) + { + bool uselessBool = false; + return DetectTextFileEncoding(InputFileStream, _defaultHeuristicSampleSize, out uselessBool); + } + + public static Encoding DetectTextFileEncoding(FileStream InputFileStream, long HeuristicSampleSize, out bool HasBOM) + { + Encoding encodingFound = null; + + long originalPos = InputFileStream.Position; + + InputFileStream.Position = 0; + + + //First read only what we need for BOM detection + byte[] bomBytes = new byte[InputFileStream.Length > 4 ? 4 : InputFileStream.Length]; + InputFileStream.Read(bomBytes, 0, bomBytes.Length); + + encodingFound = DetectBOMBytes(bomBytes); + + if (encodingFound != null) + { + InputFileStream.Position = originalPos; + HasBOM = true; + return encodingFound; + } + + + //BOM Detection failed, going for heuristics now. + // create sample byte array and populate it + byte[] sampleBytes = new byte[HeuristicSampleSize > InputFileStream.Length ? InputFileStream.Length : HeuristicSampleSize]; + Array.Copy(bomBytes, sampleBytes, bomBytes.Length); + if (InputFileStream.Length > bomBytes.Length) + InputFileStream.Read(sampleBytes, bomBytes.Length, sampleBytes.Length - bomBytes.Length); + InputFileStream.Position = originalPos; + + //test byte array content + encodingFound = DetectUnicodeInByteSampleByHeuristics(sampleBytes); + + HasBOM = false; + return encodingFound; + } + + public static Encoding DetectBOMBytes(byte[] BOMBytes) + { + if (BOMBytes.Length < 2) + return null; + + if (BOMBytes[0] == 0xff + && BOMBytes[1] == 0xfe + && (BOMBytes.Length < 4 + || BOMBytes[2] != 0 + || BOMBytes[3] != 0 + ) + ) + return Encoding.Unicode; + + if (BOMBytes[0] == 0xfe + && BOMBytes[1] == 0xff + ) + return Encoding.BigEndianUnicode; + + if (BOMBytes.Length < 3) + return null; + + if (BOMBytes[0] == 0xef && BOMBytes[1] == 0xbb && BOMBytes[2] == 0xbf) + return Encoding.UTF8; + + if (BOMBytes[0] == 0x2b && BOMBytes[1] == 0x2f && BOMBytes[2] == 0x76) + return Encoding.UTF7; + + if (BOMBytes.Length < 4) + return null; + + if (BOMBytes[0] == 0xff && BOMBytes[1] == 0xfe && BOMBytes[2] == 0 && BOMBytes[3] == 0) + return Encoding.UTF32; + + if (BOMBytes[0] == 0 && BOMBytes[1] == 0 && BOMBytes[2] == 0xfe && BOMBytes[3] == 0xff) + return Encoding.GetEncoding(12001); + + return null; + } + + public static Encoding DetectUnicodeInByteSampleByHeuristics(byte[] SampleBytes) + { + long oddBinaryNullsInSample = 0; + long evenBinaryNullsInSample = 0; + long suspiciousUTF8SequenceCount = 0; + long suspiciousUTF8BytesTotal = 0; + long likelyUSASCIIBytesInSample = 0; + + //Cycle through, keeping count of binary null positions, possible UTF-8 + // sequences from upper ranges of Windows-1252, and probable US-ASCII + // character counts. + + long currentPos = 0; + int skipUTF8Bytes = 0; + + while (currentPos < SampleBytes.Length) + { + //binary null distribution + if (SampleBytes[currentPos] == 0) + { + if (currentPos % 2 == 0) + evenBinaryNullsInSample++; + else + oddBinaryNullsInSample++; + } + + //likely US-ASCII characters + if (IsCommonUSASCIIByte(SampleBytes[currentPos])) + likelyUSASCIIBytesInSample++; + + //suspicious sequences (look like UTF-8) + if (skipUTF8Bytes == 0) + { + int lengthFound = DetectSuspiciousUTF8SequenceLength(SampleBytes, currentPos); + + if (lengthFound > 0) + { + suspiciousUTF8SequenceCount++; + suspiciousUTF8BytesTotal += lengthFound; + skipUTF8Bytes = lengthFound - 1; + } + } + else + { + skipUTF8Bytes--; + } + + currentPos++; + } + + //1: UTF-16 LE - in english / european environments, this is usually characterized by a + // high proportion of odd binary nulls (starting at 0), with (as this is text) a low + // proportion of even binary nulls. + // The thresholds here used (less than 20% nulls where you expect non-nulls, and more than + // 60% nulls where you do expect nulls) are completely arbitrary. + + if (((evenBinaryNullsInSample * 2.0) / SampleBytes.Length) < 0.2 + && ((oddBinaryNullsInSample * 2.0) / SampleBytes.Length) > 0.6 + ) + return Encoding.Unicode; + + + //2: UTF-16 BE - in english / european environments, this is usually characterized by a + // high proportion of even binary nulls (starting at 0), with (as this is text) a low + // proportion of odd binary nulls. + // The thresholds here used (less than 20% nulls where you expect non-nulls, and more than + // 60% nulls where you do expect nulls) are completely arbitrary. + + if (((oddBinaryNullsInSample * 2.0) / SampleBytes.Length) < 0.2 + && ((evenBinaryNullsInSample * 2.0) / SampleBytes.Length) > 0.6 + ) + return Encoding.BigEndianUnicode; + + + //3: UTF-8 - Martin Dürst outlines a method for detecting whether something CAN be UTF-8 content + // using regexp, in his w3c.org unicode FAQ entry: + // http://www.w3.org/International/questions/qa-forms-utf-8 + // adapted here for C#. + string potentiallyMangledString = Encoding.ASCII.GetString(SampleBytes); + Regex UTF8Validator = new Regex(@"\A(" + + @"[\x09\x0A\x0D\x20-\x7E]" + + @"|[\xC2-\xDF][\x80-\xBF]" + + @"|\xE0[\xA0-\xBF][\x80-\xBF]" + + @"|[\xE1-\xEC\xEE\xEF][\x80-\xBF]{2}" + + @"|\xED[\x80-\x9F][\x80-\xBF]" + + @"|\xF0[\x90-\xBF][\x80-\xBF]{2}" + + @"|[\xF1-\xF3][\x80-\xBF]{3}" + + @"|\xF4[\x80-\x8F][\x80-\xBF]{2}" + + @")*\z"); + if (UTF8Validator.IsMatch(potentiallyMangledString)) + { + //Unfortunately, just the fact that it CAN be UTF-8 doesn't tell you much about probabilities. + //If all the characters are in the 0-127 range, no harm done, most western charsets are same as UTF-8 in these ranges. + //If some of the characters were in the upper range (western accented characters), however, they would likely be mangled to 2-byte by the UTF-8 encoding process. + // So, we need to play stats. + + // The "Random" likelihood of any pair of randomly generated characters being one + // of these "suspicious" character sequences is: + // 128 / (256 * 256) = 0.2%. + // + // In western text data, that is SIGNIFICANTLY reduced - most text data stays in the <127 + // character range, so we assume that more than 1 in 500,000 of these character + // sequences indicates UTF-8. The number 500,000 is completely arbitrary - so sue me. + // + // We can only assume these character sequences will be rare if we ALSO assume that this + // IS in fact western text - in which case the bulk of the UTF-8 encoded data (that is + // not already suspicious sequences) should be plain US-ASCII bytes. This, I + // arbitrarily decided, should be 80% (a random distribution, eg binary data, would yield + // approx 40%, so the chances of hitting this threshold by accident in random data are + // VERY low). + + if ((suspiciousUTF8SequenceCount * 500000.0 / SampleBytes.Length >= 1) //suspicious sequences + && ( + //all suspicious, so cannot evaluate proportion of US-Ascii + SampleBytes.Length - suspiciousUTF8BytesTotal == 0 + || + likelyUSASCIIBytesInSample * 1.0 / (SampleBytes.Length - suspiciousUTF8BytesTotal) >= 0.8 + ) + ) + return Encoding.UTF8; + } + + return null; + } + + private static bool IsCommonUSASCIIByte(byte testByte) + { + if (testByte == 0x0A //lf + || testByte == 0x0D //cr + || testByte == 0x09 //tab + || (testByte >= 0x20 && testByte <= 0x2F) //common punctuation + || (testByte >= 0x30 && testByte <= 0x39) //digits + || (testByte >= 0x3A && testByte <= 0x40) //common punctuation + || (testByte >= 0x41 && testByte <= 0x5A) //capital letters + || (testByte >= 0x5B && testByte <= 0x60) //common punctuation + || (testByte >= 0x61 && testByte <= 0x7A) //lowercase letters + || (testByte >= 0x7B && testByte <= 0x7E) //common punctuation + ) + return true; + else + return false; + } + + private static int DetectSuspiciousUTF8SequenceLength(byte[] SampleBytes, long currentPos) + { + int lengthFound = 0; + + if (SampleBytes.Length >= currentPos + 1 + && SampleBytes[currentPos] == 0xC2 + ) + { + if (SampleBytes[currentPos + 1] == 0x81 + || SampleBytes[currentPos + 1] == 0x8D + || SampleBytes[currentPos + 1] == 0x8F + ) + lengthFound = 2; + else if (SampleBytes[currentPos + 1] == 0x90 + || SampleBytes[currentPos + 1] == 0x9D + ) + lengthFound = 2; + else if (SampleBytes[currentPos + 1] >= 0xA0 + && SampleBytes[currentPos + 1] <= 0xBF + ) + lengthFound = 2; + } + else if (SampleBytes.Length >= currentPos + 1 + && SampleBytes[currentPos] == 0xC3 + ) + { + if (SampleBytes[currentPos + 1] >= 0x80 + && SampleBytes[currentPos + 1] <= 0xBF + ) + lengthFound = 2; + } + else if (SampleBytes.Length >= currentPos + 1 + && SampleBytes[currentPos] == 0xC5 + ) + { + if (SampleBytes[currentPos + 1] == 0x92 + || SampleBytes[currentPos + 1] == 0x93 + ) + lengthFound = 2; + else if (SampleBytes[currentPos + 1] == 0xA0 + || SampleBytes[currentPos + 1] == 0xA1 + ) + lengthFound = 2; + else if (SampleBytes[currentPos + 1] == 0xB8 + || SampleBytes[currentPos + 1] == 0xBD + || SampleBytes[currentPos + 1] == 0xBE + ) + lengthFound = 2; + } + else if (SampleBytes.Length >= currentPos + 1 + && SampleBytes[currentPos] == 0xC6 + ) + { + if (SampleBytes[currentPos + 1] == 0x92) + lengthFound = 2; + } + else if (SampleBytes.Length >= currentPos + 1 + && SampleBytes[currentPos] == 0xCB + ) + { + if (SampleBytes[currentPos + 1] == 0x86 + || SampleBytes[currentPos + 1] == 0x9C + ) + lengthFound = 2; + } + else if (SampleBytes.Length >= currentPos + 2 + && SampleBytes[currentPos] == 0xE2 + ) + { + if (SampleBytes[currentPos + 1] == 0x80) + { + if (SampleBytes[currentPos + 2] == 0x93 + || SampleBytes[currentPos + 2] == 0x94 + ) + lengthFound = 3; + if (SampleBytes[currentPos + 2] == 0x98 + || SampleBytes[currentPos + 2] == 0x99 + || SampleBytes[currentPos + 2] == 0x9A + ) + lengthFound = 3; + if (SampleBytes[currentPos + 2] == 0x9C + || SampleBytes[currentPos + 2] == 0x9D + || SampleBytes[currentPos + 2] == 0x9E + ) + lengthFound = 3; + if (SampleBytes[currentPos + 2] == 0xA0 + || SampleBytes[currentPos + 2] == 0xA1 + || SampleBytes[currentPos + 2] == 0xA2 + ) + lengthFound = 3; + if (SampleBytes[currentPos + 2] == 0xA6) + lengthFound = 3; + if (SampleBytes[currentPos + 2] == 0xB0) + lengthFound = 3; + if (SampleBytes[currentPos + 2] == 0xB9 + || SampleBytes[currentPos + 2] == 0xBA + ) + lengthFound = 3; + } + else if (SampleBytes[currentPos + 1] == 0x82 + && SampleBytes[currentPos + 2] == 0xAC + ) + lengthFound = 3; + else if (SampleBytes[currentPos + 1] == 0x84 + && SampleBytes[currentPos + 2] == 0xA2 + ) + lengthFound = 3; + } + + return lengthFound; + } + } +} diff --git a/FastColoredTextBox/ExportToHTML.cs b/FastColoredTextBox/ExportToHTML.cs new file mode 100644 index 0000000..c2e07b9 --- /dev/null +++ b/FastColoredTextBox/ExportToHTML.cs @@ -0,0 +1,222 @@ +using System.Text; +using System.Drawing; +using System.Collections.Generic; + +namespace FastColoredTextBoxNS +{ + /// + /// Exports colored text as HTML + /// + /// At this time only TextStyle renderer is supported. Other styles is not exported. + public class ExportToHTML + { + public string LineNumbersCSS = ""; + + /// + /// Use nbsp; instead space + /// + public bool UseNbsp { get; set; } + /// + /// Use nbsp; instead space in beginning of line + /// + public bool UseForwardNbsp { get; set; } + /// + /// Use original font + /// + public bool UseOriginalFont { get; set; } + /// + /// Use style tag instead style attribute + /// + public bool UseStyleTag { get; set; } + /// + /// Use 'br' tag instead of '\n' + /// + public bool UseBr { get; set; } + /// + /// Includes line numbers + /// + public bool IncludeLineNumbers { get; set; } + + FastColoredTextBox tb; + + public ExportToHTML() + { + UseNbsp = true; + UseOriginalFont = true; + UseStyleTag = true; + UseBr = true; + } + + public string GetHtml(FastColoredTextBox tb) + { + this.tb = tb; + Range sel = new Range(tb); + sel.SelectAll(); + return GetHtml(sel); + } + + public string GetHtml(Range r) + { + this.tb = r.tb; + Dictionary styles = new Dictionary(); + StringBuilder sb = new StringBuilder(); + StringBuilder tempSB = new StringBuilder(); + StyleIndex currentStyleId = StyleIndex.None; + r.Normalize(); + int currentLine = r.Start.iLine; + styles[currentStyleId] = null; + // + if (UseOriginalFont) + sb.AppendFormat("", + r.tb.Font.Name, r.tb.Font.SizeInPoints, r.tb.CharHeight); + + // + if (IncludeLineNumbers) + tempSB.AppendFormat("{0} ", currentLine + 1); + // + bool hasNonSpace = false; + foreach (Place p in r) + { + Char c = r.tb[p.iLine][p.iChar]; + if (c.style != currentStyleId) + { + Flush(sb, tempSB, currentStyleId); + currentStyleId = c.style; + styles[currentStyleId] = null; + } + + if (p.iLine != currentLine) + { + for (int i = currentLine; i < p.iLine; i++) + { + tempSB.Append(UseBr ? "
" : "\r\n"); + if (IncludeLineNumbers) + tempSB.AppendFormat("{0} ", i + 2); + } + currentLine = p.iLine; + hasNonSpace = false; + } + switch (c.c) + { + case ' ': + if ((hasNonSpace || !UseForwardNbsp) && !UseNbsp) + goto default; + + tempSB.Append(" "); + break; + case '<': + tempSB.Append("<"); + break; + case '>': + tempSB.Append(">"); + break; + case '&': + tempSB.Append("&"); + break; + default: + hasNonSpace = true; + tempSB.Append(c.c); + break; + } + } + Flush(sb, tempSB, currentStyleId); + + if (UseOriginalFont) + sb.Append(""); + + //build styles + if (UseStyleTag) + { + tempSB.Length = 0; + tempSB.Append(""); + + sb.Insert(0, tempSB.ToString()); + } + + if (IncludeLineNumbers) + sb.Insert(0, LineNumbersCSS); + + return sb.ToString(); + } + + private string GetCss(StyleIndex styleIndex) + { + List") + .WriteLine(" ") + .WriteLine(" ") + .WriteLine(" ") + ' If DGV.Name = "Student" Then + .WriteLine(" ") 'SET NAMA SHEET + .WriteLine(" ") + .WriteLine(" ") 'No + .WriteLine(" ") 'NIK + .WriteLine(" ") 'Nama + .WriteLine(" ") 'Alamat + .WriteLine(" ") 'Telp + ' End If + 'AUTO SET HEADER + .WriteLine(" ") + For i As Integer = 0 To DGV.Columns.Count - 1 'SET HEADER + Application.DoEvents() + .WriteLine(" ") + .WriteLine(" {0}", DGV.Columns.Item(i).HeaderText) + .WriteLine(" ") + Next + .WriteLine(" ") + For intRow As Integer = 0 To DGV.RowCount - 1 + Application.DoEvents() + .WriteLine(" ") + For intCol As Integer = 0 To DGV.Columns.Count - 1 + Application.DoEvents() + .WriteLine(" ") + .WriteLine(" {0}", DGV.Item(intCol, intRow).Value.ToString) + .WriteLine(" ") + Next + .WriteLine(" ") + Next + .WriteLine("
") + .WriteLine(" ") + .WriteLine("") + .Close() + End With + End Sub + + Public Sub start(DGV As DataGridView) + + If DGV.RowCount = 0 Then Return + + ' BtnExport.Text = "Please Wait..." + ' BtnExport.Enabled = False + Application.DoEvents() + DGV.AllowUserToAddRows = False + + If False Then + + With DGV + .AllowUserToAddRows = False + .Name = "Student" + .Visible = False + .Columns.Clear() + .Columns.Add("No", "No") + .Columns.Add("NIK", "NIK") + .Columns.Add("Nama", "Nama") + .Columns.Add("Alamat", "Alamat") + .Columns.Add("Telp", "Telp") + End With + With DGV + If .Rows.Count > 0 Then + For i As Integer = 0 To .Rows.Count - 1 + Application.DoEvents() + DGV.Rows.Add(IIf(i = 0, 1, i + 1), .Rows(i).Cells("NIK").Value, _ + .Rows(i).Cells("Nama").Value, .Rows(i).Cells("Alamat").Value, _ + .Rows(i).Cells("Telp").Value) + Next + End If + End With + + End If + FlNm = "D:\TEST" & Now.Day & "-" & Now.Month & "-" & Now.Year & ".xml" + 'FlNm = Application.StartupPath & "\Student " _ + ' & Now.Day & "-" & Now.Month & "-" & Now.Year & ".xls" + If File.Exists(FlNm) Then File.Delete(FlNm) + ExportToExcel(DGV) + + DGV.Dispose() + DGV = Nothing + + Process.Start("EXCEL", "D:\TEST" & Now.Day & "-" & Now.Month & "-" & Now.Year & ".xml") + + ' BtnExport.Text = "Export" + ' BtnExport.Enabled = True + + End Sub + +End Class diff --git a/UID/cFileSystemWatcher.vb b/UID/cFileSystemWatcher.vb new file mode 100644 index 0000000..6ce3d2e --- /dev/null +++ b/UID/cFileSystemWatcher.vb @@ -0,0 +1,63 @@ +Imports System +Imports System.IO +Imports Microsoft.VisualBasic +Imports System.Security.Permissions + +Public Class cFileSystemWatcher + + Public Shared Sub Main() + + Run() + + End Sub + + _ + Private Shared Sub Run() + + 'Dim args() As String = System.Environment.GetCommandLineArgs() + Dim args As String = "C:\Users\DEVELOPER1\Desktop\test\" + ' If a directory is not specified, exit the program. + If args.Length <> 2 Then + ' Display the proper way to call the program. + Console.WriteLine("Usage: Watcher.exe (directory)") + Return + End If + + ' Create a new FileSystemWatcher and set its properties. + Dim watcher As New FileSystemWatcher() + watcher.Path = args + ' Watch for changes in LastAccess and LastWrite times, and + ' the renaming of files or directories. + watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName) + ' Only watch text files. + watcher.Filter = "*.txt" + + ' Add event handlers. + AddHandler watcher.Changed, AddressOf OnChanged + AddHandler watcher.Created, AddressOf OnChanged + AddHandler watcher.Deleted, AddressOf OnChanged + AddHandler watcher.Renamed, AddressOf OnRenamed + + ' Begin watching. + watcher.EnableRaisingEvents = True + + ' Wait for the user to quit the program. + Console.WriteLine("Press 'q' to quit the sample.") + While Chr(Console.Read()) <> "q"c + End While + End Sub + + ' Define the event handlers. + Private Shared Sub OnChanged(source As Object, e As FileSystemEventArgs) + ' Specify what is done when a file is changed, created, or deleted. + MsgBox("File: " & e.FullPath & " " & e.ChangeType) + End Sub + + Private Shared Sub OnRenamed(source As Object, e As RenamedEventArgs) + ' Specify what is done when a file is renamed. + MsgBox("File: {0} renamed to {1}", e.OldFullPath, e.FullPath) + End Sub + +End Class + + diff --git a/UID/cMeineFunktionen.vb b/UID/cMeineFunktionen.vb new file mode 100644 index 0000000..6dcb428 --- /dev/null +++ b/UID/cMeineFunktionen.vb @@ -0,0 +1,167 @@ +Public Class cMeineFunktionen + 'Diese Klasse beinhaltet alle meine Funktionen, die in allen Projekten verwendet werden können + + Public Const LeerDatum As Date = #12/30/1899# 'wird als leerer Datumswert verwendet, da sonst Probleme bei Null/Date + + Public Shared Function SQLDatum(dat As Date) As String + 'Datum für SQLAbfrage umwandeln (31.01.1998 --> #1/31/1998#) + SQLDatum = "" + + If Not IsDate(dat) Then Exit Function + SQLDatum = "'" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " 00:00:00'" + 'SQLDatum = dat.ToString + End Function + + Public Shared Function SQLDatumWithOutSemi(dat As Date) As String + 'Datum für SQLAbfrage umwandeln (31.01.1998 --> #1/31/1998#) + SQLDatumWithOutSemi = "" + + If Not IsDate(dat) Then Exit Function + SQLDatumWithOutSemi = "" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " 00:00:00" + 'SQLDatum = dat.ToString + End Function + + Public Shared Function SQLDatumZeit(dat As Date) As String + 'Datum inklusive Zeit für SQLAbfrage umwandeln (31.01.1998 10:15 Uhr --> #1/31/1998 10:15:00#) + SQLDatumZeit = "" + + + If Not IsDate(dat) Then Exit Function + SQLDatumZeit = "'" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " " & + DateAndTime.Hour(dat) & ":" & DateAndTime.Minute(dat) & ":" & DateAndTime.Second(dat) & "'" + + + End Function + + + Public Shared Function SQLDatumZeitWithOutSemi(dat As Date) As String + 'Datum inklusive Zeit für SQLAbfrage umwandeln (31.01.1998 10:15 Uhr --> #1/31/1998 10:15:00#) + SQLDatumZeitWithOutSemi = "" + + + If Not IsDate(dat) Then Exit Function + SQLDatumZeitWithOutSemi = "" & DateAndTime.Day(dat) & "." & DateAndTime.Month(dat) & "." & DateAndTime.Year(dat) & " " & + DateAndTime.Hour(dat) & ":" & DateAndTime.Minute(dat) & ":" & DateAndTime.Second(dat) & "" + + + End Function + + ' Public Shared Function GetProgrammIcon() As Drawing.Icon + 'Return My.Resources.uid + 'End Function + + Public Shared Function VarToInt(ByVal wert As Object) As Integer + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return 0 + Else + Return CInt(wert) + End If + Catch generatedExceptionName As Exception + Return 0 + End Try + End Function + + Public Shared Function VarToLng(ByVal wert As Object) As Long + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return 0 + Else + Return CLng(wert) + End If + Catch generatedExceptionName As Exception + Return 0 + End Try + End Function + + Public Shared Function VarToDbl(ByVal wert As Object) As Double + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return 0 + Else + Return CDbl(wert) + End If + Catch generatedExceptionName As Exception + Return 0 + End Try + End Function + + Public Shared Function VarToBool(ByVal wert As Object) As Boolean + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return False + Else + Return CBool(wert) + End If + Catch generatedExceptionName As Exception + Return False + End Try + End Function + + Public Shared Function VarToStr(ByVal wert As Object) As String + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return "" + Else + Return Trim(DirectCast(wert, String)) + End If + Catch generatedExceptionName As Exception + Return "" + End Try + End Function + + Public Shared Function VarToDate(ByVal wert As Object) As Nullable(Of DateTime) + Try + If wert Is Nothing OrElse wert Is DBNull.Value Then + Return LeerDatum 'Nothing + Else + Return DirectCast(wert, DateTime) + End If + Catch generatedExceptionName As Exception + Return Nothing + End Try + End Function + + Public Shared Function IstGleich(i As Integer, ParamArray list As Integer()) As Boolean + 'prüft, ob ein Wert in einer Liste enthalten ist - z.B. i = 5 or 7 or 11 or 29 + For x As Integer = 0 To list.Length - 1 + If list(x) = i Then + Return True + End If + On Error Resume Next + Next + Return False + End Function + + Public Shared Function Minuten_auf_Text(hMinuten As Long) As String + Dim hStunden As Long + Dim hMinus As Boolean + Dim hMin As Long + + Minuten_auf_Text = "" + hMin = hMinuten + + If hMin = 0 Then + Minuten_auf_Text = "0:00" + Exit Function + End If + + If hMin < 0 Then + hMinus = True + hMin = hMin * -1 + End If + + hStunden = CLng(Fix(hMin / 60)) + hMin = hMin - (hStunden * 60) + If hMinus Then Minuten_auf_Text = "-" 'Minus wird nur bei Stunden angezeigt + Minuten_auf_Text = Minuten_auf_Text & hStunden & ":" & Format(hMin, "00") + End Function + + Public Shared Function ZeitInMinuten(hDat As Date) As Long + ZeitInMinuten = 0 + If Not IsDate(hDat) Then Exit Function + ZeitInMinuten = Hour(hDat) * 60 + Minute(hDat) + End Function + + +End Class diff --git a/UID/cProgramFunctions.vb b/UID/cProgramFunctions.vb new file mode 100644 index 0000000..f81253c --- /dev/null +++ b/UID/cProgramFunctions.vb @@ -0,0 +1,1164 @@ +Imports System.Globalization +Imports System.Text.RegularExpressions +Imports ClosedXML.Excel +Imports System.IO.Compression + +Public Class cProgramFunctions + + + Shared Function getISO2Land(LandKz As String) + Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE Währungstabelle.LandKz='" & LandKz & "' " + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql(sqlstr, "FMZOLL") + End Function + + + Shared Function getISO1Land(LandKz As String) + Dim sqlstr = "SELECT TOP 1 isnull(Währungstabelle.LandKz,'') AS LandKzISO1 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE [Länderverzeichnis für die Außenhandelsstatistik].LandKz='" & LandKz & "' " + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql(sqlstr, "FMZOLL") + End Function + + + Sub EINLESEN(datvon As Date, datbis As Date) ' As cBuergschaft + + Try + Dim BRG As New cBrgDb + Dim brg_AT As String = "05AT510000G000FP7" + Dim brg_DE As String = "05DE0000000009345" + Dim brg_DE_NEU As String = "17DE0000000071678" + + ' BRG.getBrgFromFMZOLL(datEinlesenVon.Value.ToShortDateString, datEinlesenBis.Value.ToShortDateString, "50", "60","05AT510000G000FP7") + ' BRG.getBrgSumFromFMZOLL_Zolaris(datEinlesenVon.Value.ToShortDateString, "50", "60", "05AT510000G000FP7") + 'HIER + datvon = CDate(datvon.ToShortDateString & " 00:00:00") + datbis = CDate(datbis.ToShortDateString & " 00:00:00") + ' Dim datvon As Date = datEinlesenVon.Value + ' MsgBox(datvon.ToShortDateString & " - " & datbis.ToShortDateString) + While datvon <= datbis + ' MsgBox(datvon.ToShortDateString) + Dim AtWoche_atlas As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) + AtWoche_atlas += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS DAKOSY/ZODIAK EINLESEN + Dim DeWoche As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE) + 'DeWoche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE) + Dim De2Woche As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU) + De2Woche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN + + + ' MsgBox(BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU)) + ' Dim test As Double = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU) + + + + + Dim AtWoche_zolaris As String = BRG.getBrgSumFromFMZOLL_Zolaris(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) + AtWoche_zolaris += BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS TELOTEC EINLESEN + ' MsgBox(datvon.ToShortDateString & " AtWoche_atlas: " & AtWoche_atlas) + ' MsgBox(datvon.ToShortDateString & ": " & AtWoche_atlas & " - " & DeWoche & " - " & AtWoche_zolaris) + 'UPDATE + Dim buergschaft As cBuergschaft + buergschaft = BRG.getBrgbyDate(datvon) + If buergschaft Is Nothing Then buergschaft = New cBuergschaft + + ' MsgBox(datvon.ToString("dd.MM.yyyy")) + buergschaft.brg_datum = datvon.ToShortDateString + + ' buergschaft.brg_at_tag_atlas = "" + ' buergschaft.brg_at_tag_zolaris = "" + buergschaft.brg_at_woche_atlas = StrIntValue(toDec(AtWoche_atlas)) + buergschaft.brg_at_woche_zolaris = StrIntValue(toDec(AtWoche_zolaris)) + ' buergschaft.brg_de_tag_atlas = "" + buergschaft.brg_de_woche_atlas = StrIntValue(toDec(DeWoche)) + buergschaft.brg_de2_woche_atlas = StrIntValue(toDec(De2Woche)) + + ' buergschaft.brg_at_tag = "" + buergschaft.brg_at_woche = StrIntValue(toDec(buergschaft.brg_at_woche_atlas) + toDec(buergschaft.brg_at_woche_zolaris)) + + + + If datvon.ToShortDateString = Now.ToShortDateString Then + buergschaft.brg_de2_tag_atlas = + BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + + buergschaft.brg_de_tag_atlas = BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE) + buergschaft.brg_at_tag_atlas = + BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + + + buergschaft.brg_at_tag_zolaris = BRG.getBrgSumFromFMZOLL_Zolaris(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT, " AND DatumBestimmungErreicht IS NULL ") + buergschaft.brg_at_tag = StrIntValue(toDec(buergschaft.brg_at_tag_atlas) + toDec(buergschaft.brg_at_tag_zolaris)) + End If + buergschaft.brg_de_tag = buergschaft.brg_de_tag_atlas + buergschaft.brg_de_woche = buergschaft.brg_de_woche_atlas + + buergschaft.brg_de2_tag = buergschaft.brg_de2_tag_atlas + buergschaft.brg_de2_woche = buergschaft.brg_de2_woche_atlas + 'Update oder insert + ' MsgBox(buergschaft.brg_datum & " _ " & buergschaft.brg_at_woche_atlas & " _ " & buergschaft.brg_at_woche_atlas) + If Not BRG.setBrgUpdateInsertByDateAll(buergschaft) Then + Exit While + End If + + 'If Not BRG.setBrgUpdateInsertByDateOnlyWochenRef(buergschaft) Then + 'Exit While + ' End If + datvon = datvon.AddDays(1) + + ' EINLESEN = buergschaft + End While + + Catch ex As System.Exception + MsgBox("Problem beim Einlesen!" & vbNewLine & ex.Message) + MsgBox(ex.StackTrace) + End Try + ' EINLESEN = Nothing + End Sub + Private Function StrIntValue(ByVal d As Decimal) As String + If d = 0 Then + Return "" + Else : Return d.ToString + End If + End Function + + Private Function toDec(ByVal s As Object) As Decimal + Try + If s = "" Then Return 0 + Return CDec(s) + Catch ex As System.Exception + Return 0 + End Try + End Function + + Public Function copyProgram(ByRef sourcePfad As String, ByVal destPfad As String, Optional ZIP As Boolean = False) As Boolean + If ZIP Then + Return copyProgramZIP(sourcePfad, destPfad) + Else + Return copyProgramNOTZip(sourcePfad, destPfad) + End If + End Function + + Public Function copyProgramNOTZip(ByRef sourcePfad As String, ByVal destPfad As String) As Boolean + If destPfad.Trim = "" Then Return False + If sourcePfad.Trim = "" Then Return False + + If Not My.Computer.FileSystem.DirectoryExists(sourcePfad) Then + MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + If Not My.Computer.FileSystem.DirectoryExists(destPfad) Then + MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + + If delFiles(destPfad) Then Return FileCopier(sourcePfad, destPfad) + Return False + End Function + + + Public Function copyProgramZIP(ByRef sourcePfad As String, ByVal destPfad As String) As Boolean + If destPfad.Trim = "" Then Return False + If sourcePfad.Trim = "" Then Return False + + If Not My.Computer.FileSystem.DirectoryExists(sourcePfad) Then + MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + If Not My.Computer.FileSystem.DirectoryExists(destPfad) Then + MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False + End If + Dim zipPfad = "C:\Temp\Debug.zip" + If System.IO.File.Exists(zipPfad) Then System.IO.File.Delete(zipPfad) + ZipFile.CreateFromDirectory(sourcePfad, zipPfad, CompressionLevel.Optimal, False) + + If delFiles(destPfad) Then + System.IO.File.Copy(zipPfad, destPfad & "Debug.zip", True) + ZipFile.ExtractToDirectory(destPfad & "Debug.zip", destPfad) + System.IO.File.Delete(destPfad & "Debug.zip") + End If + ' If delFiles(destPfad) Then Return FileCopier(sourcePfad, destPfad) + Return False + End Function + + Private Function FileCopier(ByRef sourcePfad As String, ByVal destPfad As String) As Boolean + If Not destPfad.EndsWith("\") Then destPfad = destPfad & "\" + Try + For Each file As String In IO.Directory.GetFiles(sourcePfad) ' Ermittelt alle Dateien des Ordners + IO.File.Copy(file, destPfad & cut_file(file), True) ' Kopiert die Dateien Next + Next + For Each file As String In IO.Directory.GetDirectories(sourcePfad) ' Ermittelt alle Unterordner des Ordners + My.Computer.FileSystem.CopyDirectory(file, destPfad & cut_file(file), True) + Next + Catch ex As Exception + MsgBox("ERROR_COPY_04: Fehler beim Kopieren", MsgBoxStyle.Critical, "ERROR") + Return False + End Try + Return True + End Function + + + Public Function genEXCEL_Auswertungen(sPath, tage, startdate, ATAustellung, Gesamt, visible) As String + Try + Dim BRG As New cBrgDb + + 'Dim today As Date = Date.Today + 'Dim dayIndex As Integer = today.DayOfWeek + 'If dayIndex < DayOfWeek.Monday Then + ' dayIndex += 7 'Monday is first day of week, no day of week should have a smaller index + 'End If + 'Dim dayDiff As Integer = dayIndex - DayOfWeek.Monday + ' Dim monday As Date = today.AddDays(-dayDiff) + + ' + + + Dim aktdate As Date = startdate.AddDays(-(tage - 1)) + + Dim buergschaften As List(Of cBuergschaft) = BRG.getBrgVonBis(aktdate.ToShortDateString, startdate.ToShortDateString) + + Dim exclApp As Object 'as Application + Dim Datei As Object 'as WorkBook + Dim Blatt As Object 'as WorkSheet + exclApp = CreateObject("Excel.Application") + + ' Dim nWeek As Integer + ' nWeek = DatePart(DateInterval.WeekOfYear, New Date(2004, 3, 22), _ + ' FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays) + + + With exclApp + .Visible = False + + Try + My.Computer.FileSystem.WriteAllBytes(sPath & "Auswertung.xlsx", My.Resources.Bürgschaften_Vorlage, False) + Catch ex As System.Exception + ' MsgBox(ex.Message) + Return "ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace + End Try + + + Datei = .Workbooks.Open(sPath & "Auswertung.xlsx") 'Anpassen + Blatt = Datei.Worksheets("Auswertung") 'Anpassen + 'Blatt.Range("A1").Value = TextBox1.Text + + Blatt.Range("A4").Value = tage & " Tage" + Blatt.Range("A14").Value = "Gesamt " & tage & " Tage:" + ' Dim today As Date = Now + 'Dim aktdate As Date = today.AddDays(-6) + 'Dim cnt As Integer = 6 + For i As Integer = 6 To 6 + (tage - 1) + Blatt.Range("A" & i).Value = aktdate.ToString("ddd, dd.MM.yyyy") + ' MsgBox(aktdate.ToLongTimeString) + For Each b In buergschaften + If b.brg_datum = aktdate.ToShortDateString Then + Blatt.Range("B" & i).Value = toDec(b.brg_at_woche) ': MsgBox(b.brg_at_woche) + Blatt.Range("D" & i).Value = toDec(b.brg_at_tag) ': MsgBox(b.brg_at_tag) + ' Blatt.Range("F" & i).Value = toDec(b.brg_de_woche) ': MsgBox(b.brg_de_woche) + ' Blatt.Range("H" & i).Value = toDec(b.brg_de_tag) ': MsgBox(b.brg_de_tag) + Blatt.Range("F" & i).Value = toDec(b.brg_de2_woche) ': MsgBox(b.brg_de_woche) + Blatt.Range("H" & i).Value = toDec(b.brg_de2_tag) ': MsgBox(b.brg_de_tag) + Exit For + End If + Next + + aktdate = aktdate.AddDays(1) + Next + + If ATAustellung Then + Blatt.Range("A18").Value = "Bürgschaft AT:" + Blatt.Range("B19").Value = "ATLAS" + aktdate = startdate.AddDays(-(tage - 1)) + For i As Integer = 20 To 20 + (tage - 1) + Blatt.Range("A" & i).Value = aktdate.ToString("ddd, dd.MM.yyyy") + ' MsgBox(aktdate.ToLongTimeString) + For Each b In buergschaften + If b.brg_datum = aktdate.ToShortDateString Then + Blatt.Range("B" & i).Value = toDec(b.brg_at_woche_atlas) ': MsgBox(b.brg_at_woche) + Exit For + End If + Next + + aktdate = aktdate.AddDays(1) + Next + aktdate = startdate.AddDays(-(tage - 1)) + Blatt.Range("B28").Value = "ZOLARIS" + For i As Integer = 29 To 29 + (tage - 1) + Blatt.Range("A" & i).Value = aktdate.ToString("ddd, dd.MM.yyyy") + ' MsgBox(aktdate.ToLongTimeString) + For Each b In buergschaften + If b.brg_datum = aktdate.ToShortDateString Then + Blatt.Range("B" & i).Value = toDec(b.brg_at_woche_zolaris) ': MsgBox(b.brg_at_woche) + Exit For + End If + Next + + aktdate = aktdate.AddDays(1) + Next + End If + + If Gesamt Then + Dim sum As Decimal = 0 + Blatt.Range("H18").Value = "GESAMT" + Blatt.Range("F27").Value = "Gesamt-Summe:" + aktdate = startdate.AddDays(-(tage - 1)) + For i As Integer = 19 To 19 + (tage - 1) + Blatt.Range("F" & i).Value = aktdate.ToString("ddd, dd.MM.yyyy") + ' MsgBox(aktdate.ToLongTimeString) + For Each b In buergschaften + If b.brg_datum = aktdate.ToShortDateString Then + Blatt.Range("H" & i).Value = decSum(b.brg_at_woche, b.brg_de_woche, b.brg_de2_woche) ': MsgBox(b.brg_at_woche) + sum += decSum(b.brg_at_woche, b.brg_de_woche, b.brg_de2_woche) + Exit For + End If + Next + Blatt.Range("H27").Value = sum + aktdate = aktdate.AddDays(1) + Next + + End If + 'Datei.close(True) + '.quit() + ' Application.DisplayAlerts = False + Datei.Save() + + + 'If email Then + ' sendPerMail(sPath & "Auswertung.xlsx") + ' email = False + '.Visible = False + 'Datei.close(True) + ' .quit() + ' Else + .Visible = visible + If visible = False Then + Datei.Save() + .DisplayAlerts = False + .quit() + Try : Datei.close(True) : Catch : End Try + End If + 'End If + ' Application.DisplayAlerts = True + Return sPath & "Auswertung.xlsx" + End With + Catch ex As System.Exception + ' MsgBox(ex.Message) + Return "ERROR 02: " & ex.Message & vbNewLine & ex.StackTrace + End Try + + + + End Function + + + Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "") As String + Try + + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If + + Dim wb As New XLWorkbook + ' Dim dt As DataTable = (dgv.DataSource) + ' Dim dt As DataTable = TryCast(dgv., DataTable) + + wb.Worksheets.Add(dt, "DATEN") + wb.Worksheets(0).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter + + If rangeAsWaehrung IsNot Nothing Then + For Each r In rangeAsWaehrung + Try + wb.Worksheets(0).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 €") + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Next + End If + + If HeaderTxt <> "" Then + wb.Worksheets(0).FirstRow.InsertRowsAbove(2) + wb.Worksheets(0).Range("A1").Value = HeaderTxt + wb.Worksheets(0).Range("A1").Style.Font.Bold = True + If HeaderTxt2 <> "" Then + wb.Worksheets(0).Range("A2").Value = HeaderTxt2 + wb.Worksheets(0).Row(2).InsertRowsBelow(1) + End If + + End If + + + + Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + wb.SaveAs(filename) + + + Process.Start(filename) + + Return filename + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return Nothing + End Try + End Function + + Public Shared Function dgridViewTods(ByVal dgv As DataGridView) As DataTable + Dim dt As New DataTable + Try + ' Add Table + ' ds.Tables.Add("Invoices") + + ' Add Columns + Dim col As DataColumn + For Each dgvCol As DataGridViewColumn In dgv.Columns + col = New DataColumn(dgvCol.Name) + dt.Columns.Add(col) + Next + + 'Add Rows from the datagridview + Dim row As DataRow + Dim colcount As Integer = dgv.Columns.Count - 1 + For i As Integer = 0 To dgv.Rows.Count - 1 + row = dt.Rows.Add + For Each column As DataGridViewColumn In dgv.Columns + row.Item(column.Index) = dgv.Rows.Item(i).Cells(column.Index).Value + Next + Next + + Return dt + + Catch ex As Exception + + MsgBox("CRITICAL ERROR : Exception caught while converting dataGridView to DataSet (dgvtods).. " & Chr(10) & ex.Message) + Return Nothing + End Try + End Function + + Public Shared Sub genExcelFromDGV_NEW(dgv As DataGridView, Optional onlyVisible As Boolean = False) + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If + + Dim wb As New XLWorkbook + ' Dim dt As DataTable = (dgv.DataSource) + ' Dim dt As DataTable = TryCast(dgv., DataTable) + + wb.Worksheets.Add(dgridViewTods(dgv), "DATEN") + Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + wb.SaveAs(filename) + Process.Start(filename) + + Exit Sub + + + + Dim fn As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".csv" + Dim outFile As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False) + Dim clmns As String = "" + For i = 0 To dgv.ColumnCount - 1 + If Not onlyVisible Or (onlyVisible And dgv.Columns(i).Visible = True) Then + clmns &= dgv.Columns(i).HeaderText.ToString().Replace(";", ",") & ";" + End If + Next + outFile.WriteLine(clmns) + For i = 0 To dgv.RowCount - 1 + clmns = "" + For j = 0 To dgv.ColumnCount - 1 + If Not onlyVisible Or (onlyVisible And dgv.Columns(j).Visible = True) Then + clmns &= getValue(dgv(j, i)) & ";" + End If + Next + outFile.WriteLine(clmns) + Next + outFile.Close() + Try + Dim p As New Process + p.StartInfo.FileName = "Excel.exe" + p.StartInfo.Arguments = fn + p.EnableRaisingEvents = True + p.Start() + ' AddHandler p.Exited, AddressOf cleartmp 'Löscht die Temp-Dateien + + Catch ex As Exception + MsgBox("Excel konnte nicht gestartet werden!" & vbNewLine & vbNewLine & ex.Message) + End Try + End Sub + + Shared Function getValue(o As DataGridViewCell) As String + Try + If o.ValueType.ToString = "System.Boolean" Then + If o.Value Is DBNull.Value Then Return "NEIN" + Select Case o.Value + Case True : Return "JA" + Case False : Return "NEIN" + End Select + Else + Return o.Value.ToString().Replace(";", ",") + End If + Catch ex As Exception + End Try + Return "" + End Function + + Public Function genEXCEL_AuswertungenKW(sPath, KW, YEAR, visible) As String + Try + + Dim BRG As New cBrgDb + + + Dim monday As Date = CalendarWeek(KW, YEAR) + + + Dim sunday As Date = monday.AddDays(6) + Dim usrctlBuergschaft As New usrctlBuergschaft + Dim atilla_sum_at = BRG.getBrgSumFromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_AT, " AND veoant_beznr NOT LIKE 'DU%' AND basman_nl='SUW' ") + Dim atilla_sum_at_zol = BRG.getBrgSumFromFMZOLL_Zolaris(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_AT, " AND OperatorId IN ('5','6') ") + Dim atilla_sum_de = BRG.getBrgSumFromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE, " AND veoant_beznr NOT LIKE 'DU%' AND basman_nl='SUW' ") + Dim atilla_sum_de2 = BRG.getBrgSumFromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE_NEU, " AND veoant_beznr NOT LIKE 'DU%' AND basman_nl='SUW' ") + Dim atilla_sum_de2_DY = BRG.getBrgSumFromFMZOLL_Zodiak(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE_NEU, " AND ncts_ObjectName NOT LIKE 'DU%' ") + atilla_sum_de2 += atilla_sum_de2_DY + Dim durmaz_sum_at = BRG.getBrgSumFromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_AT, " AND veoant_beznr LIKE 'DU%' AND basman_nl='SUW' ") + Dim durmaz_sum_de = BRG.getBrgSumFromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE, " AND veoant_beznr LIKE 'DU%' AND basman_nl='SUW' ") + Dim durmaz_sum_de2 = BRG.getBrgSumFromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE_NEU, " AND veoant_beznr LIKE 'DU%' AND basman_nl='SUW' ") + Dim durmaz_sum_de2_DY = BRG.getBrgSumFromFMZOLL_Zodiak(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE_NEU, " AND ncts_ObjectName NOT LIKE 'DU%' ") + durmaz_sum_de2 += durmaz_sum_de2_DY + ' MsgBox(atilla_sum_at_zol) + Dim top_atilla_at As List(Of topValues) = BRG.getBrgTop5FromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_AT, " AND veoant_beznr NOT LIKE 'DU%' AND basman_nl='SUW' ") + Dim top_atilla_de As List(Of topValues) = BRG.getBrgTop5FromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE, " AND veoant_beznr NOT LIKE 'DU%' AND basman_nl='SUW' ") + Dim top_atilla_de_DY As List(Of topValues) = BRG.getBrgTop5FromFMZOLL_Zodiak(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE, " AND ncts_ObjectName NOT LIKE 'DU%' ") + Dim top_atilla_de2 As List(Of topValues) = BRG.getBrgTop5FromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE_NEU, " AND veoant_beznr NOT LIKE 'DU%' AND basman_nl='SUW' ") + Dim top_durmaz_at As List(Of topValues) = BRG.getBrgTop5FromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_AT, " AND veoant_beznr LIKE 'DU%' AND basman_nl='SUW' ") + Dim top_durmaz_de As List(Of topValues) = BRG.getBrgTop5FromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE, " AND veoant_beznr LIKE 'DU%' AND basman_nl='SUW' ") + Dim top_durmaz_de2 As List(Of topValues) = BRG.getBrgTop5FromFMZOLL_Zabis(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE_NEU, " AND veoant_beznr LIKE 'DU%' AND basman_nl='SUW' ") + Dim top_durmaz_de2_DY As List(Of topValues) = BRG.getBrgTop5FromFMZOLL_Zodiak(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_DE_NEU, " AND ncts_ObjectName LIKE 'DU%' ") + Dim top_atilla_at_zol As List(Of topValues) = BRG.getBrgTop5FromFMZOLL_Zolaris(monday.ToShortDateString, sunday.ToShortDateString, "50", "60", usrctlBuergschaft.brg_AT, " AND OperatorId IN ('5','6') ") + + Dim exclApp As Object 'as Application + Dim Datei As Object 'as WorkBook + Dim Blatt As Object 'as WorkSheet + exclApp = CreateObject("Excel.Application") + + Dim nWeek As Integer + nWeek = DatePart(DateInterval.WeekOfYear, New Date(2004, 3, 22), FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays) + + With exclApp + .Visible = False + 'Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\Bürgschaften\" ' My.Computer.FileSystem.GetTempFileName + 'If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + 'My.Computer.FileSystem.CreateDirectory(sPath) + 'End If + + Try + My.Computer.FileSystem.WriteAllBytes(sPath & "Auswertung_Atilla_Durmaz.xlsx", My.Resources.ATILLA_DURMAZ, False) + Catch ex As System.Exception + ' MsgBox(ex.Message) + Return "ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace + End Try + + Datei = .Workbooks.Open(sPath & "Auswertung_Atilla_Durmaz.xlsx") 'Anpassen + Blatt = Datei.Worksheets("Tabelle1") 'Anpassen + 'Blatt.Range("A1").Value = TextBox1.Text + + Blatt.Range("A2").Value = "KW" & KW + Blatt.Range("B2").Value = "( " & monday.ToShortDateString & " - " & sunday.ToShortDateString & " )" + + ' Blatt.Range("A2").Value = "Bürgschaft AT"" & cboAtillaDurmazKw.Text + Blatt.Range("B6").Value = toDec(atilla_sum_at) + Blatt.Range("B9").Value = toDec(atilla_sum_at_zol) + Blatt.Range("B7").Value = toDec(atilla_sum_de) + Blatt.Range("F6").Value = toDec(durmaz_sum_at) + Blatt.Range("F7").Value = toDec(durmaz_sum_de) + + + 'NEU: + Blatt.Range("B8").Value = toDec(atilla_sum_de2) + Blatt.Range("F8").Value = toDec(durmaz_sum_de2) + + + Dim cnt As Integer + + 'Atilla + cnt = 14 + For Each da In top_atilla_de + Blatt.Range("B" & cnt).Value = toDec(da.warenwert) + Blatt.Range("C" & cnt).Value = toDec(da.sicherheitsbetrag) + cnt += 1 + Next + + cnt = 19 + For Each da In top_atilla_at + Blatt.Range("B" & cnt).Value = toDec(da.warenwert) + Blatt.Range("C" & cnt).Value = toDec(da.sicherheitsbetrag) + cnt += 1 + Next + cnt = 29 + For Each da In top_atilla_de2 + Blatt.Range("B" & cnt).Value = toDec(da.warenwert) + Blatt.Range("C" & cnt).Value = toDec(da.sicherheitsbetrag) + cnt += 1 + Next + + + 'Durmaz + cnt = 14 + For Each da In top_durmaz_de + Blatt.Range("F" & cnt).Value = toDec(da.warenwert) + Blatt.Range("G" & cnt).Value = toDec(da.sicherheitsbetrag) + cnt += 1 + Next + + cnt = 19 + For Each da In top_durmaz_at + Blatt.Range("F" & cnt).Value = toDec(da.warenwert) + Blatt.Range("G" & cnt).Value = toDec(da.sicherheitsbetrag) + cnt += 1 + Next + cnt = 24 + For Each da In top_durmaz_de2 + Blatt.Range("F" & cnt).Value = toDec(da.warenwert) + Blatt.Range("G" & cnt).Value = toDec(da.sicherheitsbetrag) + cnt += 1 + Next + + + 'Zolaris + cnt = 24 + For Each da In top_atilla_at_zol + Blatt.Range("B" & cnt).Value = toDec(da.warenwert) + Blatt.Range("C" & cnt).Value = toDec(da.sicherheitsbetrag) + cnt += 1 + Next + + + .Visible = visible + If visible = False Then + Datei.Save() + .DisplayAlerts = False + .quit() + Try : Datei.close(True) : Catch : End Try + End If + 'End If + ' Application.DisplayAlerts = True + Return sPath & "Auswertung_Atilla_Durmaz.xlsx" + + ' Datei.close(True) + ' .quit() + End With + + Catch ex As System.Exception + ' MsgBox(ex.Message) + Return "ERROR 02: " & ex.Message & vbNewLine & ex.StackTrace + End Try + + End Function + + + + + + Public Function getKW(ByVal Datum As Date) As Short + Dim CUI As New CultureInfo(CultureInfo.CurrentCulture.Name) + Return CUI.Calendar.GetWeekOfYear(Datum, CUI.DateTimeFormat.CalendarWeekRule, CUI.DateTimeFormat.FirstDayOfWeek) + + End Function + Private Function decSum(ByVal s1 As String, ByVal s2 As String, Optional s3 As String = "0") As Decimal + Dim d1 As Decimal = 0 + Dim d2 As Decimal = 0 + Dim d3 As Decimal = 0 + + Try + d1 = CDec(s1) + Catch ex As System.Exception : End Try + + Try + d2 = CDec(s2) + Catch ex As System.Exception : End Try + Try + d3 = CDec(s3) + Catch ex As System.Exception : End Try + Return (d1 + d2 + d3) + End Function + Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function + While file.Contains("\") + file = file.Remove(0, 1) + End While + Return file + End Function + Private Function delFiles(ByVal delpfad As String) As Boolean + Try + For Each file As String In IO.Directory.GetFiles(delpfad) ' Ermittelt alle Dateien des Ordners + My.Computer.FileSystem.DeleteFile(file) 'Löscht das Programm + Next + For Each file As String In IO.Directory.GetDirectories(delpfad) ' Ermittelt alle Dateien des Ordners + System.IO.Directory.Delete(file, True) + Next + Catch ex As Exception + MsgBox("ERROR_COPY_03: Fehler beim Löschen", MsgBoxStyle.Critical, "ERROR") + Return False + End Try + Return True + End Function + + Public Sub screenshot() + Dim form As New Form + form = form.ActiveForm + Dim bounds As Rectangle + Dim screenshot As System.Drawing.Bitmap + Dim graph As Graphics + bounds = form.Bounds 'Screen.PrimaryScreen.Bounds + + screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) + graph = Graphics.FromImage(screenshot) + graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) + ' PictureBox1.Image = screenshot + If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Screenshots_" & My.Application.Info.AssemblyName & "\") Then + My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Screenshots_" & My.Application.Info.AssemblyName & "\") + End If + Dim cnt As Integer = 1 + Dim strname As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Screenshots_" & My.Application.Info.AssemblyName & "\" & form.Name & "_" & Now.ToString("ddMMyyyy_HHmm_") + While System.IO.File.Exists(strname & cnt & ".bmp") : cnt += 1 : End While + screenshot.Save(strname & cnt & ".bmp") + End Sub + + + + Public Function getDiff(von As String, bis As String, niederlassung As String, woTagIsSO As Boolean) As Double + + + Dim sum As Double = 0 + If von = "" Or bis = "" Then + Return 0 + End If + + 'If Not (isValidTime(von) And isValidTime(bis)) Then + 'MsgBox("Falsches Format, Zeitberechnung ist fehlerhaft!") + ' Return 0 + ' End If + + If von.Contains(":") And von.Length = 5 And bis.Contains(":") And bis.Length = 5 Then + If niederlassung = "ATILLA" Then sum += TimeDiff00To06(von, bis) / 60 ' ATILLA - Nacht Überstd. x2 + If woTagIsSO Then sum += TimeDiffSO06To24(von, bis) / 60 'VERAG + ATILLA - SONNTAG TAG Überstd. x2 + sum += TimeDiff(von, bis) / 60 + End If + Return sum + End Function + Public Function TimeDiff(ByVal sTime_von As String, ByVal sTime_bis As String) As Integer + ' Uhrzeiten in TimeSpan-Objekte überführen + Dim time1 As TimeSpan = TimeSpan.Parse(sTime_von) + Dim time2 As TimeSpan = TimeSpan.Parse(sTime_bis) + + ' Zeitdifferenz in Minuten berechnen + Dim nMin As Integer = 0 + With time2.Subtract(time1) + nMin = .Hours * 60 + .Minutes + + ' Falls negativ, 24 Stunden hinzuaddieren + If nMin < 0 Then nMin += 24 * 60 + End With + + Return (nMin) + End Function + + Public Function TimeDiffSO06To24(ByVal sTime_von As String, ByVal sTime_bis As String) As Integer + ' Uhrzeiten in TimeSpan-Objekte überführen + Dim time1 As TimeSpan = TimeSpan.Parse(sTime_von) + Dim time2 As TimeSpan = TimeSpan.Parse(sTime_bis) + + ' If time1 > time2 Then + 'time2 = TimeSpan.Parse("00:00") + 'End If + + ' Zeitdifferenz in Minuten berechnen + Dim nMin As Integer = 0 + With time2.Subtract(time1) + nMin = .Hours * 60 + .Minutes + + ' Falls negativ, 24 Stunden hinzuaddieren + If nMin < 0 Then nMin += 24 * 60 + End With + + Return (nMin) + End Function + + Function isValidTime(s) As Boolean + Dim rgx As New Regex("^\d{2}:\d{2}$") + ' If s.ToString.Contains("a") Then MsgBox(s & " - " & rgx.IsMatch(s)) + Return rgx.IsMatch(s) + End Function + + Public Function TimeDiff00To06(ByVal sTime1 As String, ByVal sTime2 As String) As Integer + ' Uhrzeiten in TimeSpan-Objekte überführen + Dim time1VON As TimeSpan = TimeSpan.Parse(sTime1) + Dim time2BIS As TimeSpan = TimeSpan.Parse(sTime2) + + 'Normalzeit + If time1VON > TimeSpan.Parse("06:00") And time2BIS > TimeSpan.Parse("06:00") And + time2BIS >= time1VON Then + Return 0 + End If + + + If time1VON <= TimeSpan.Parse("06:00") And time2BIS < TimeSpan.Parse("06:00") Then + Return TimeDiff(sTime1, "06:00") + TimeDiff("00:00", sTime2) + End If + + + 'Ganze Nacht: + If time1VON > TimeSpan.Parse("06:00") And time2BIS > TimeSpan.Parse("06:00") Then + time1VON = TimeSpan.Parse("00:00") + time2BIS = TimeSpan.Parse("06:00") + End If + + ' If time1VON <= TimeSpan.Parse("06:00") And time2BIS < TimeSpan.Parse("06:00") Then + 'Return TimeDiff(sTime1, "06:00") + TimeDiff("00:00", sTime2) + ' End If + + + If time1VON > TimeSpan.Parse("06:00") Then + time1VON = TimeSpan.Parse("00:00") + End If + If time2BIS > TimeSpan.Parse("06:00") Then + time2BIS = TimeSpan.Parse("06:00") + End If + + ' Zeitdifferenz in Minuten berechnen + Dim nMin As Integer = 0 + With time2BIS.Subtract(time1VON) + nMin = .Hours * 60 + .Minutes + + ' Falls negativ, 24 Stunden hinzuaddieren + If nMin < 0 Then nMin += 24 * 60 + End With + + Return (nMin) + End Function + + Public Function TimeDiff22To06(ByVal sTime1 As String, ByVal sTime2 As String) As Integer + ' Uhrzeiten in TimeSpan-Objekte überführen + Dim time1VON As TimeSpan = TimeSpan.Parse(sTime1) + Dim time2BIS As TimeSpan = TimeSpan.Parse(sTime2) + + 'Normalzeit + If time1VON > TimeSpan.Parse("06:00") And time1VON < TimeSpan.Parse("22:00") And + time2BIS > TimeSpan.Parse("06:00") And time2BIS < TimeSpan.Parse("22:00") And + time2BIS >= time1VON Then + Return 0 + End If + + If time1VON <= TimeSpan.Parse("06:00") And (time2BIS >= TimeSpan.Parse("22:00") Or time2BIS < TimeSpan.Parse("06:00")) Then + Return TimeDiff(sTime1, "06:00") + TimeDiff("22:00", sTime2) + End If + + + If time1VON > TimeSpan.Parse("06:00") And time1VON < TimeSpan.Parse("22:00") Then + time1VON = TimeSpan.Parse("22:00") + End If + If time2BIS > TimeSpan.Parse("06:00") And time2BIS < TimeSpan.Parse("22:00") Then + time2BIS = TimeSpan.Parse("06:00") + End If + + ' Zeitdifferenz in Minuten berechnen + Dim nMin As Integer = 0 + With time2BIS.Subtract(time1VON) + nMin = .Hours * 60 + .Minutes + + ' Falls negativ, 24 Stunden hinzuaddieren + If nMin < 0 Then nMin += 24 * 60 + End With + + Return (nMin) + End Function + + + Function getSchicht(aktWoche, aktJahr) As String + Dim SCHICHT As String = "" + Dim dStart As Date = CalendarWeek(aktWoche, aktJahr) + + If EvenNumber(dStart) = False Then + SCHICHT = "ROT" + Else + SCHICHT = "BLAU" + End If + + If EvenNumber2(dStart) = False Then + SCHICHT &= "1" + Else + SCHICHT &= "2" + End If + Return SCHICHT + End Function + + Public Function EvenNumber(aktDate) As Boolean + Dim RefDate As Date = CDate("01.08.2015") + Dim wD As Long = DateDiff(DateInterval.Weekday, aktDate, RefDate) + EvenNumber = (wD And 1&) = 0& + End Function + Public Function EvenNumber2(aktDate) As Boolean + Dim RefDate As Date = CDate("01.08.2015") + Dim wD As Long = DateDiff(DateInterval.Weekday, aktDate, RefDate) + EvenNumber2 = (wD And 2&) = 0& + End Function + + Dim SQLDienst As New cDienstplan + + Public Function getWochenstunden(Wochenstunden As Double, datum As Date, SCHICHT As String, dstma_id As Integer, dstma_muster As Boolean, dstma_WEStdRegelAZ As Boolean, dstma_arbvh As String, niederlassung As String, StdFeiertag As Object) As Double + getWochenstunden = Wochenstunden + Dim UrlStd As Double = 8 + If StdFeiertag IsNot Nothing Then UrlStd = StdFeiertag + + For i = 0 To 6 + ' Wochenstunden -= getWochenstundenTAG(datum, SCHICHT, dstma_id, dstma_muster, dstma_WEStdRegelAZ, dstma_arbvh, niederlassung) + Dim FT As New cFeiertage(datum.Year) + If FT.isFeiertag(datum) Or datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then 'Feiertag oder 1/2 Tag + Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper + + If dstma_muster Then 'Wenn Muster, dann muss Feiertag bei VZ und TZ berüchsichtigt werden.... + If (woTag <> "SA" And woTag <> "SO") Or dstma_WEStdRegelAZ Then ' ... aber nur wenn Wochendende teil der Regel-Arbeitszeit ist. + Dim tz As cDienstTeilzeit = SQLDienst.getDienstTeilzeitBySchicht(dstma_id, SCHICHT, woTag) + If tz IsNot Nothing Then ' EVtl gibt es den WoTag Nicht + 'Wochenstunden -= getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, (FT.isFeiertag(datum) Or woTag = "SO")) + + If datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then 'Weihnachten und Silvester ist ist nur 1/2 Tag!!! + getWochenstunden -= UrlStd / 2 + Else + If dstma_arbvh = "VZ" Then + getWochenstunden -= UrlStd 'bei vollzeit mit Muster werden 8 Std abgezogen + Else + If getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, False) > 0 Then 'Wenn an deisem Tag Stunden angefallen wären (lt. Muster) + getWochenstunden -= UrlStd + ' getWochenstunden -= getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, False) + ' If IsNumeric(tz.dsttz_pause) Then getWochenstunden += tz.dsttz_pause + End If + + End If + + End If + + End If + End If + Else + 'If dstma_arbvh = "VZ" And woTag <> "SA" And woTag <> "SO" Then 'Normaler Feiertag bei VZ unter der Woche --> 8 Std. + If woTag <> "SA" And woTag <> "SO" Then 'Normaler Feiertag bei VZ unter der Woche --> 8 Std. + If datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then + getWochenstunden -= (UrlStd / 2) + Else + getWochenstunden -= UrlStd + End If + End If + End If + 'tz. + 'SQLDienst.getDienstDetailsWoTagByArtAndWoTag(niederlassung, art) + + End If + + datum = datum.AddDays(1) + Next + Return getWochenstunden + End Function + + + Public Function getWochenstundenTAG(datum As Date, SCHICHT As String, dstma_id As Integer, dstma_muster As Boolean, dstma_WEStdRegelAZ As Boolean, dstma_arbvh As String, niederlassung As String) As Double + + Dim FT As New cFeiertage(datum.Year) + Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper + If FT.isFeiertag(datum) Then 'Feiertag oder 1/2 Tag + getWochenstundenTAG = 0 + ElseIf woTag = "SA" And woTag = "SO" Then + getWochenstundenTAG = 0 + Else + If datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then + getWochenstundenTAG = 4 + Else + getWochenstundenTAG = 8 + End If + End If + + Return getWochenstundenTAG + + 'If False Then + + ' getWochenstundenTAG = 0 + ' Dim FT As New cFeiertage(datum.Year) + ' If FT.isFeiertag(datum) Then 'Feiertag oder 1/2 Tag + ' getWochenstundenTAG = 0 + ' Else + + ' Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper + + ' If dstma_muster Then 'Wenn Muster, dann muss Feiertag bei VZ und TZ berüchsichtigt werden.... + ' If (woTag <> "SA" And woTag <> "SO") Or dstma_WEStdRegelAZ Then ' ... aber nur wenn Wochendende teil der Regel-Arbeitszeit ist. + ' Dim tz As cDienstTeilzeit = SQLDienst.getDienstTeilzeitBySchicht(dstma_id, SCHICHT, woTag) + ' If tz IsNot Nothing Then ' EVtl gibt es den WoTag Nicht + ' 'Wochenstunden -= getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, (FT.isFeiertag(datum) Or woTag = "SO")) + + ' If datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then 'Weihnachten und Silvester ist ist nur 1/2 Tag!!! + ' getWochenstundenTAG = 4 + ' Else + ' getWochenstundenTAG = getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, False) + ' If IsNumeric(tz.dsttz_pause) Then getWochenstundenTAG += tz.dsttz_pause + ' End If + + ' End If + ' End If + ' Else + ' If dstma_arbvh = "VZ" And woTag <> "SA" And woTag <> "SO" Then 'Normaler Feiertag bei VZ unter der Woche --> 8 Std. + ' If datum.ToString("dd.MM.") = "31.12." Or datum.ToString("dd.MM.") = "24.12." Then + ' getWochenstundenTAG = 4 + ' Else + ' getWochenstundenTAG = 8 + ' End If + ' End If + ' End If + ' 'tz. + ' 'SQLDienst.getDienstDetailsWoTagByArtAndWoTag(niederlassung, art) + + ' End If + + + 'End If + 'Return getWochenstundenTAG + End Function + + Public Function DateToWeek(ByVal dDate As Date) As String + ' Startdatum der ersten Kalenderwoche des Jahres und Folgejahres berechnen + Dim dThisYear As Date = CalendarWeek(1, dDate.Year) + Dim dNextYear As Date = CalendarWeek(1, dDate.Year + 1) + + ' Prüfen, ob Datum zur ersten Woche des Folgejahres gehört + If dDate >= dNextYear Then + ' Rückgabe: KW 1 des Folgejahres + Return dDate.Year + 1 & "01" + ElseIf dDate < dThisYear Then + ' Falls das Datum noch zu einer KW aus dem letzten Jahr zählt + Return dDate.Year - 1 & DatePart(DateInterval.WeekOfYear, + New Date(dDate.Year - 1, 12, 28), FirstDayOfWeek.Monday, + FirstWeekOfYear.FirstFourDays) + Else + ' KW = Differenz zum ersten Tag der ersten Woche + Return dDate.Year & Format$(dDate.Subtract(dThisYear).Days \ 7 + 1, "00") + End If + End Function + + Public Function GetWeekStartDate(weekNumber As Integer, year As Integer) As Date + Dim startDate As New DateTime(year, 1, 1) + Dim weekDate As DateTime = DateAdd(DateInterval.WeekOfYear, weekNumber - 1, startDate) + Return DateAdd(DateInterval.Day, (-weekDate.DayOfWeek) + 1, weekDate) + End Function + + + Public Sub KWAbschluss(niederlassung, aktJahr, aktWoche, SCHICHT) + Try + + Dim SQLDienst As New cDienstplan + ' If Not SQLDienst.existsEntryKWUeberstd(niederlassung, aktJahr, aktWoche) Then + Try + Dim datum_start As Date = CalendarWeek(aktWoche, aktJahr) + Dim datum_end As Date = datum_start.AddDays(6) + Dim table As DataTable = SQLDienst.loadDGV("SELECT dstma_abteilung AS ABT, dstma_kuerzel AS NAME,dstma_wochenStunden,dstma_arbvh, dstma_id,dstma_farbe,dstma_mitId,dstma_ueberstdCounter FROM tblDienstMitarb WHERE dstma_niederlassung='" & niederlassung & "' ORDER BY ABT DESC, dstma_arbvh DESC, NAME") + Dim cPF As New cProgramFunctions + With table + For Each r As DataRow In .Rows + If SQLDienst.getCountEntrys(r("dstma_id"), datum_start, datum_end) > 0 Then 'nur wenn der MA in dieser Woche Einträge hat.. + + Dim datum_montag As Date = CalendarWeek(aktWoche, aktJahr) + Dim thisMonth As New DateTime(DateTime.Today.Year, DateTime.Today.Month, 1) + Dim datum As Date = datum_montag + Dim ma As cDienstMA = SQLDienst.getDstMA(r("dstma_id")) + Dim Wochenstunden As Double = 0 + + If IsNumeric(ma.dstma_wochenStunden) Then Wochenstunden = ma.dstma_wochenStunden + ' MsgBox(Wochenstunden) + + Wochenstunden = cPF.getWochenstunden(Wochenstunden, datum, SCHICHT, r("dstma_id"), ma.dstma_muster, ma.dstma_WEStdRegelAZ, ma.dstma_arbvh, niederlassung, ma.dstma_TzFeiertageStd) + Dim tatStd As Double = SQLDienst.getDstStunden(r("dstma_id"), datum_montag, datum_montag.AddDays(6), niederlassung) + + ' : ANDERES ERG"""""!!!!!!!!!!!!!!!!!!!! + ' Wochenstunden = cPF.getWochenstunden(Wochenstunden, datum, SCHICHT, r.Cells("dstma_id").Value, ma.dstma_muster, ma.dstma_WEStdRegelAZ, ma.dstma_arbvh, niederlassung) + ' Dim tatStd As Double = SQLDienst.getDstStunden(r.Cells("dstma_id").Value, datum_montag, datum_montag.AddDays(6), niederlassung) + ' MsgBox(tatStd & " - " & Wochenstunden) + + ' SQLDienst.updateDienstMaStdADD(r("dstma_id"), (tatStd - Wochenstunden)) + + If datum_start >= CDate("24.12.2018") Then 'ab hier startet die Zählung + SQLDienst.insertupdateDienstplanUeberSdtMa(r("dstma_id"), aktWoche, aktJahr, (tatStd - Wochenstunden), niederlassung) + ' MsgBox(r("NAME") & ": " & tatStd & ": " & Wochenstunden) + End If + End If + Next + End With + + ' SQLDienst.insertifExistsDienstKWUeberstd(niederlassung, aktJahr, aktWoche) + + Catch ex As Exception + MsgBox("initStdMa-Error: " & ex.Message) + + End Try + + + ' Else + ' MsgBox("Die Woche wurde bereits abgeschlossen!") + ' End If + 'MsgBox("OK") + Catch ex As Exception + + End Try + End Sub + + Public Function CalendarWeek(ByVal nWeek As Integer, _ + ByVal nYear As Integer) As Date + + ' Wochentag des 4. Januar des Jahres ermitteln + Dim dStart As New Date(nYear, 1, 4) + Dim nDay As Integer = (dStart.DayOfWeek + 6) Mod 7 + 1 + + ' Beginn der 1. KW des Jahres + Dim dFirst As Date = dStart.AddDays(1 - nDay) + + ' Gesuchte KW ermitteln + Return dFirst.AddDays((nWeek - 1) * 7) + End Function +End Class + + +Public Class SQLVariable + Private TextSQLName As String + Private ValueSQLVALUE As Object + Private Scalarvariablename As String + Private primaryParam As Boolean + + Public Sub New(ByVal Text As String, ByVal Value As Object, Optional Scalarvariablename As String = "", Optional primaryParam As Boolean = False) + Me.TextSQLName = Text + Me.ValueSQLVALUE = Value + Me.primaryParam = primaryParam + + If Scalarvariablename <> "" Then Me.Scalarvariablename = Scalarvariablename Else Me.Scalarvariablename = Text + End Sub + + Public ReadOnly Property Text() As String + Get + Return TextSQLName + End Get + End Property + + Public ReadOnly Property Value() As Object + Get + Return ValueSQLVALUE + End Get + End Property + + Public ReadOnly Property Scalarvariable() As Object + Get + Return Scalarvariablename + End Get + End Property + + Public ReadOnly Property isPrimaryParam() As Boolean + Get + Return primaryParam + End Get + End Property + + + ' Public Overrides Function ToString() As Object + ' Return mText + ' End Function + + + +End Class \ No newline at end of file diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb new file mode 100644 index 0000000..7407fd3 --- /dev/null +++ b/UID/cSqlDb.vb @@ -0,0 +1,4007 @@ +Imports System.Data +Imports System.IO +Imports ADMIN.cMeineFunktionen +Imports System.Data.SqlClient +Imports System.Globalization +Imports System.Text.RegularExpressions + + +Public Class cSqlDb + Public Shared Function GetNewOpenConnection() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = My.Resources.connStringAdmin + cn.Open() + Return cn + End Function + Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = My.Resources.connStringFMZOLL + cn.Open() + Return cn + End Function + Public Shared Function GetNewOpenConnectionFMZOLL_DEV() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = My.Resources.connStringFMZOLL_DEV + cn.Open() + Return cn + End Function +End Class + +Public Class sqlMitarbeiter2 + Public Shared Function GetNewOpenConnection() As SqlConnection + Dim cn As New SqlConnection() + cn.ConnectionString = My.Resources.connStringAdmin + cn.Open() + Return cn + End Function +End Class +Public Class sqlConn + Public Function getDataSQL(ByVal selectCommand As String) As SqlDataAdapter + + Dim d As New SqlDataAdapter() + + Try + ' Specify a connection string. Replace the given value with a + ' valid connection string for a Northwind SQL Server sample + ' database accessible to your system. + Dim connectionString As String = _ + "Data Source=DEVELOPER\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" + + ' Create a new data adapter based on the specified query. + d = New SqlDataAdapter(selectCommand, connectionString) + Return d + ' Resize the DataGridView columns to fit the newly loaded content. + + Catch ex As SqlException + MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.") + End Try + Return Nothing + End Function + + Sub dotest() + Dim cn As New SqlConnection() + Dim CustomersDataSet As New DataSet() + Dim da As SqlDataAdapter + Dim cmdBuilder As SqlCommandBuilder + cn.ConnectionString = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" + cn.Open() + da = New SqlDataAdapter("select * from tblBerechtigungen", cn) + + cmdBuilder = New SqlCommandBuilder(da) + + 'Populate the dataset by running the Fill method of the SqlDataAdapter. + da.Fill(CustomersDataSet, "tblBerechtigungen") + + 'Modify the value of the CustName field. + CustomersDataSet.Tables("tblBerechtigungen").Rows(0)("ber_name") = "Administrator" + + 'Post the data modification to the database. + da.Update(CustomersDataSet, "tblBerechtigungen") + + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": tblBerechtigungen ber_name updated successfully") + + 'Close the database connection. + cn.Close() + + Console.ReadLine() + + End Sub + + Public Function setBerechtigungenNEU(userId As Integer, bepr_berId As Integer, bepr_programm As String, allowed As Boolean) As Boolean + + + Dim sql As String = " begin tran" & + " if exists (select * from tblBerProg with (updlock,serializable) where bepr_userId=@userId and bepr_berId=@bepr_berId and bepr_programm=@bepr_programm) " & + " begin " & + " UPDATE tblBerProg " & + " SET ber_allowed=@allowed " & + " WHERE bepr_userId = @userId and bepr_berId=@bepr_berId and bepr_programm=@bepr_programm " & + " End " & + " Else " & + " begin " & + " INSERT INTO tblBerProg " & + " ( bepr_userId,bepr_berId,bepr_programm,ber_allowed) VALUES " & + " ( @userId,@bepr_berId,@bepr_programm,@allowed) " & + "End " & + " commit tran " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@userId", userId) + cmd.Parameters.AddWithValue("@bepr_berId", bepr_berId) + cmd.Parameters.AddWithValue("@bepr_programm", bepr_programm) + cmd.Parameters.AddWithValue("@allowed", allowed) + Try + cmd.ExecuteNonQuery() + + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function +End Class + +Public Class cBrgDb + + Public Function getBrgFromFMZOLL(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String) As List(Of cBuergschaft) + + Dim sql As String = "SELECT ID_NCTS, basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veoant_stat, veoant_arbnr, veoant_mrn, veoant_abgdst, veoant_bedst, veoant_wgdat, veoant_anzpos, veoant_andat, veoant_korant, veoant_vrbdat, veoant_sb, veopos_posnr, veopos_stat, veopos_wbsch1, veopos_rohmas, veoerz_sicbsc, veoerz_basbtg, veoerz_sicbtg " & + " FROM tblZabis_Atlas_NCTS WHERE ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of cBuergschaft) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + While dr.Read + cnt += 1 + End While + ' MsgBox(cnt) + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + Public Function getBrgSumFromFMZOLL_Zabis(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double + + Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " & + " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of cBuergschaft) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + ' MsgBox(sql) + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + If dr.Read Then + If Not dr.GetValue(0) Is DBNull.Value Then + Return dr.GetValue(0) + End If + End If + Return "" + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + Public Function getBrgSumFromFMZOLL_Zodiak(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double + + ' Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " & + ' " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where + Dim sql As String = "SELECT ISNULL(sum(nctsSA_AbgabenBetrag),0) " + sql &= " from tblDakosy_NCTSOut_Sicherheitsangaben inner join [tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId" + sql &= " where ncts_Trans_DatumZeit BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND ncts_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND nctsSA_GRN = '" & buergschaft & "' " & where + + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of cBuergschaft) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + ' MsgBox(sql) + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + If dr.Read Then + If Not dr.GetValue(0) Is DBNull.Value Then + Return dr.GetValue(0) + End If + End If + Return "" + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + Public Function getBrgSumFromFMZOLL_TELOTEC(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double + + ' Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " & + ' " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where + Dim sql As String = " SELECT ISNULL(sum(GVal),0) + from [tblTelotec_Sicherheit] inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId + where dec_CreateDate BETWEEN '" & datumVon & "' AND '" & datumBis & "' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " & where + + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of cBuergschaft) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + ' MsgBox(sql) + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + If dr.Read Then + If Not dr.GetValue(0) Is DBNull.Value Then + Return dr.GetValue(0) + End If + End If + Return "" + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + Public Function getBrgFromFMZOLL_Zabis(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, ByVal nl As String) As DataTable + + + Dim sql As String = "SELECT ID_NCTS,basman_nr,basman_nl,veoant_beznr,veoant_lfdnr,veoant_stat,veoant_arbnr,veoant_mrn, veoant_abgdst, veoant_bedst, veoant_wgdat, veoant_anzpos, veoant_andat, veoant_korant, veoant_vrbdat, veoant_sb, veopos_posnr, veopos_stat, veopos_wbsch1, veopos_rohmas, veoerz_sicbsc, veoerz_basbtg, veoerz_sicbtg, vegdat_erldat, History " & + " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " + If nl <> "" Then sql &= " AND basman_nl= '" & nl & "' " + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim myTable = New DataTable() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + myTable.Load(dr) + Return myTable + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + Public Function getBrgFromFMZOLL_Zolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String) As DataTable + + Dim sql As String = "SELECT * " & + " FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " 'AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim myTable = New DataTable() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + myTable.Load(dr) + Return myTable + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + Public Function getBrgSumFromFMZOLL_Zolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String + + Dim sql As String = "SELECT ISNULL(SUM(GarantieWert),0) " & + " FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of cBuergschaft) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + If dr.Read Then + If Not dr.GetValue(0) Is DBNull.Value Then + Return dr.GetValue(0) + End If + End If + Return "" + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + + Public Function getBrgTop5FromFMZOLL_Zolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As List(Of topValues) + + Dim sql As String = "SELECT TOP 5 GarantieWert " & + " FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where & " ORDER BY GarantieWert DESC " + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of topValues) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + While dr.Read + Dim d As New topValues + d.warenwert = 0 ' Gibt es in der Auswertung nicht + d.sicherheitsbetrag = dr.Item("GarantieWert") + daten.Add(d) + End While + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + Public Function getBrgTop5FromFMZOLL_Zabis(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As List(Of topValues) + + Dim sql As String = "SELECT TOP 5 veoerz_basbtg, veoerz_sicbtg " & + " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where & " ORDER BY veoerz_sicbtg DESC " + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of topValues) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + While dr.Read + Dim d As New topValues + d.warenwert = dr.Item("veoerz_basbtg") + d.sicherheitsbetrag = dr.Item("veoerz_sicbtg") + daten.Add(d) + End While + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + + + Public Function getBrgTop5FromFMZOLL_Zodiak(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As List(Of topValues) + + ' Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " & + ' " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where + Dim sql As String = "SELECT TOP 5 nctsSA_AbgabenBetrag,0 as SiB " + sql &= " from tblDakosy_NCTSOut_Sicherheitsangaben inner join [tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId" + sql &= " where ncts_Trans_DatumZeit BETWEEN '" & datumVon & "' AND '" & datumBis & "' AND ncts_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND nctsSA_GRN = '" & buergschaft & "' " & where + + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of topValues) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + While dr.Read + Dim d As New topValues + d.warenwert = dr.Item("nctsSA_AbgabenBetrag") + d.sicherheitsbetrag = dr.Item("SiB") + daten.Add(d) + End While + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + + + Public Function getBrgTop5FromFMZOLL_TELOTEC(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As List(Of topValues) + + ' Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " & + ' " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where + Dim sql As String = " SELECT TOP 5 tblTelotec_Sicherheit.GVal,0 as SiB + from [tblTelotec_Sicherheit] inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId + where dec_CreateDate BETWEEN '" & datumVon & "' AND '" & datumBis & "' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " & where + + ' MsgBox(sql) + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of topValues) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + Dim cnt As Integer = 0 + While dr.Read + Dim d As New topValues + d.warenwert = dr.Item("nctsSA_AbgabenBetrag") + d.sicherheitsbetrag = dr.Item("SiB") + daten.Add(d) + End While + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + + Public Function setBrgUpdateInsertByDateAll(ByVal daten As cBuergschaft) As Boolean + Dim sql As String = " begin tran" & + " if exists (select * from tblBuergschaft with (updlock,serializable) where brg_datum = @brg_datum) " & + " begin " & + " UPDATE tblBuergschaft " & + " SET brg_datum=@brg_datum, brg_at_tag=@brg_at_tag, brg_at_woche=@brg_at_woche, brg_de_tag=@brg_de_tag, brg_de_woche=@brg_de_woche, brg_at_tag_atlas=@brg_at_tag_atlas, brg_at_tag_zolaris=@brg_at_tag_zolaris, brg_at_woche_atlas=@brg_at_woche_atlas, brg_at_woche_zolaris=@brg_at_woche_zolaris, brg_de_tag_atlas=@brg_de_tag_atlas,brg_de_woche_atlas=@brg_de_woche_atlas, " & + " brg_de2_tag=@brg_de2_tag, brg_de2_woche=@brg_de2_woche, brg_de2_tag_atlas=@brg_de2_tag_atlas, brg_de2_woche_atlas=@brg_de2_woche_atlas " & + " WHERE brg_datum=@brg_datum " & + " End " & + " Else " & + " begin " & + "INSERT INTO tblBuergschaft " & + "(brg_datum, brg_at_tag, brg_at_woche, brg_de_tag, brg_de_woche, brg_at_tag_atlas, brg_at_tag_zolaris, brg_at_woche_atlas, brg_at_woche_zolaris, brg_de_tag_atlas,brg_de_woche_atlas,brg_de2_tag,brg_de2_woche,brg_de2_tag_atlas,brg_de2_woche_atlas) VALUES " & + "(@brg_datum, @brg_at_tag, @brg_at_woche, @brg_de_tag, @brg_de_woche, @brg_at_tag_atlas, @brg_at_tag_zolaris, @brg_at_woche_atlas, @brg_at_woche_zolaris, @brg_de_tag_atlas, @brg_de_woche_atlas,@brg_de2_tag,@brg_de2_woche,@brg_de2_tag_atlas,@brg_de2_woche_atlas)" & + " End " & + " commit tran " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@brg_datum", daten.brg_datum) + cmd.Parameters.AddWithValue("@brg_at_tag", daten.brg_at_tag) + cmd.Parameters.AddWithValue("@brg_at_woche", daten.brg_at_woche) + cmd.Parameters.AddWithValue("@brg_de_tag", daten.brg_de_tag) + cmd.Parameters.AddWithValue("@brg_de_woche", daten.brg_de_woche) + cmd.Parameters.AddWithValue("@brg_at_tag_atlas", daten.brg_at_tag_atlas) + cmd.Parameters.AddWithValue("@brg_at_tag_zolaris", daten.brg_at_tag_zolaris) + cmd.Parameters.AddWithValue("@brg_at_woche_atlas", daten.brg_at_woche_atlas) + cmd.Parameters.AddWithValue("@brg_at_woche_zolaris", daten.brg_at_woche_zolaris) + cmd.Parameters.AddWithValue("@brg_de_tag_atlas", daten.brg_de_tag_atlas) + cmd.Parameters.AddWithValue("@brg_de_woche_atlas", daten.brg_de_woche_atlas) + cmd.Parameters.AddWithValue("@brg_id", daten.brg_id) + + cmd.Parameters.AddWithValue("@brg_de2_tag", daten.brg_de2_tag) + cmd.Parameters.AddWithValue("@brg_de2_woche", daten.brg_de2_woche) + cmd.Parameters.AddWithValue("@brg_de2_tag_atlas", daten.brg_de2_tag_atlas) + cmd.Parameters.AddWithValue("@brg_de2_woche_atlas", daten.brg_de2_woche_atlas) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + Public Function setBrgUpdateInsertByDateOnlyWochenRef_OLD(ByVal daten As cBuergschaft) As Boolean + Dim sql As String = " begin tran" & + " if exists (select * from tblBuergschaft with (updlock,serializable) where brg_datum = @brg_datum) " & + " begin " & + " UPDATE tblBuergschaft " & + " SET brg_datum=@brg_datum, brg_at_woche=@brg_at_woche, brg_de_woche=@brg_de_woche, brg_at_woche_atlas=@brg_at_woche_atlas, brg_at_woche_zolaris=@brg_at_woche_zolaris, brg_de_woche_atlas=@brg_de_woche_atlas " & + " WHERE brg_id=@brg_id " & + " End " & + " Else " & + " begin " & + "INSERT INTO tblBuergschaft " & + "(brg_datum, brg_at_tag, brg_at_woche, brg_de_tag, brg_de_woche, brg_at_tag_atlas, brg_at_tag_zolaris, brg_at_woche_atlas, brg_at_woche_zolaris, brg_de_tag_atlas,brg_de_woche_atlas) VALUES " & + "(@brg_datum, @brg_at_tag, @brg_at_woche, @brg_de_tag, @brg_de_woche, @brg_at_tag_atlas, @brg_at_tag_zolaris, @brg_at_woche_atlas, @brg_at_woche_zolaris, @brg_de_tag_atlas, @brg_de_woche_atlas)" & + " End " & + " commit tran " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@brg_datum", daten.brg_datum) + cmd.Parameters.AddWithValue("@brg_at_tag", daten.brg_at_tag) + cmd.Parameters.AddWithValue("@brg_at_woche", daten.brg_at_woche) + cmd.Parameters.AddWithValue("@brg_de_tag", daten.brg_de_tag) + cmd.Parameters.AddWithValue("@brg_de_woche", daten.brg_de_woche) + cmd.Parameters.AddWithValue("@brg_at_tag_atlas", daten.brg_at_tag_atlas) + cmd.Parameters.AddWithValue("@brg_at_tag_zolaris", daten.brg_at_tag_zolaris) + cmd.Parameters.AddWithValue("@brg_at_woche_atlas", daten.brg_at_woche_atlas) + cmd.Parameters.AddWithValue("@brg_at_woche_zolaris", daten.brg_at_woche_zolaris) + cmd.Parameters.AddWithValue("@brg_de_tag_atlas", daten.brg_de_tag_atlas) + cmd.Parameters.AddWithValue("@brg_de_woche_atlas", daten.brg_de_woche_atlas) + cmd.Parameters.AddWithValue("@brg_id", daten.brg_id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + Public Function getBrg(ByVal brg_datum As DateTime) As List(Of cBuergschaft) + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim myCal As Calendar = CultureInfo.InvariantCulture.Calendar + ' MsgBox(brg_datum.Month & brg_datum.Year) + Dim von As DateTime = "01" & brg_datum.ToString(".MM.yyyy") + Dim bis As DateTime = myCal.GetDaysInMonth(brg_datum.Year, brg_datum.Month) & brg_datum.ToString(".MM.yyyy") + 'MsgBox("SELECT * FROM tblBuergschaft WHERE brg_datum <= '" & bis & "' and brg_datum >= '" & von & "'") + Dim sql As String = "SELECT * FROM tblBuergschaft WHERE brg_datum <= '" & bis & "' and brg_datum >= '" & von & "'" + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New List(Of cBuergschaft) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + While dr.Read + Dim d As New cBuergschaft + d.brg_id = dr.Item("brg_id") + d.brg_datum = dr.Item("brg_datum") + d.brg_at_tag = dr.Item("brg_at_tag") + d.brg_at_woche = dr.Item("brg_at_woche") + d.brg_de_tag = dr.Item("brg_de_tag") + d.brg_de_woche = dr.Item("brg_de_woche") + d.brg_at_tag_atlas = dr.Item("brg_at_tag_atlas") + d.brg_at_tag_zolaris = dr.Item("brg_at_tag_zolaris") + d.brg_at_woche_atlas = dr.Item("brg_at_woche_atlas") + d.brg_at_woche_zolaris = dr.Item("brg_at_woche_zolaris") + d.brg_de_tag_atlas = dr.Item("brg_de_tag_atlas") + d.brg_de_woche_atlas = dr.Item("brg_de_woche_atlas") + + d.brg_de2_tag = dr.Item("brg_de2_tag") + d.brg_de2_woche = dr.Item("brg_de2_woche") + d.brg_de2_tag_atlas = dr.Item("brg_de2_tag_atlas") + d.brg_de2_woche_atlas = dr.Item("brg_de2_woche_atlas") + + daten.Add(d) + End While + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + + Public Function getBrgVonBis(ByVal von As DateTime, ByVal bis As DateTime) As List(Of cBuergschaft) + Dim sql As String = "SELECT * FROM tblBuergschaft WHERE brg_datum <= '" & bis & "' and brg_datum >= '" & von & "'" + + Dim dr As SqlDataReader + Dim daten As New List(Of cBuergschaft) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + While dr.Read + Dim d As New cBuergschaft + d.brg_id = dr.Item("brg_id") + d.brg_datum = dr.Item("brg_datum") + d.brg_at_tag = dr.Item("brg_at_tag") + d.brg_at_woche = dr.Item("brg_at_woche") + d.brg_de_tag = dr.Item("brg_de_tag") + d.brg_de_woche = dr.Item("brg_de_woche") + d.brg_at_tag_atlas = dr.Item("brg_at_tag_atlas") + d.brg_at_tag_zolaris = dr.Item("brg_at_tag_zolaris") + d.brg_at_woche_atlas = dr.Item("brg_at_woche_atlas") + d.brg_at_woche_zolaris = dr.Item("brg_at_woche_zolaris") + d.brg_de_tag_atlas = dr.Item("brg_de_tag_atlas") + d.brg_de_woche_atlas = dr.Item("brg_de_woche_atlas") + + d.brg_de2_tag = dr.Item("brg_de2_tag") + d.brg_de2_woche = dr.Item("brg_de2_woche") + d.brg_de2_tag_atlas = dr.Item("brg_de2_tag_atlas") + d.brg_de2_woche_atlas = dr.Item("brg_de2_woche_atlas") + + daten.Add(d) + End While + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + + Public Function getBrgbyDate(ByVal brg_datum As DateTime) As cBuergschaft + + 'MsgBox("SELECT * FROM tblBuergschaft WHERE brg_datum <= '" & bis & "' and brg_datum >= '" & von & "'") + Dim sql As String = "SELECT * FROM tblBuergschaft WHERE brg_datum = '" & brg_datum & "' " + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + Try + If dr.Read Then + Dim d As New cBuergschaft + d.brg_id = dr.Item("brg_id") + d.brg_datum = dr.Item("brg_datum") + d.brg_at_tag = dr.Item("brg_at_tag") + d.brg_at_woche = dr.Item("brg_at_woche") + d.brg_de_tag = dr.Item("brg_de_tag") + d.brg_de_woche = dr.Item("brg_de_woche") + d.brg_at_tag_atlas = dr.Item("brg_at_tag_atlas") + d.brg_at_tag_zolaris = dr.Item("brg_at_tag_zolaris") + d.brg_at_woche_atlas = dr.Item("brg_at_woche_atlas") + d.brg_at_woche_zolaris = dr.Item("brg_at_woche_zolaris") + d.brg_de_tag_atlas = dr.Item("brg_de_tag_atlas") + d.brg_de_woche_atlas = dr.Item("brg_de_woche_atlas") + + + d.brg_de2_tag = dr.Item("brg_de2_tag") + d.brg_de2_woche = dr.Item("brg_de2_woche") + d.brg_de2_tag_atlas = dr.Item("brg_de2_tag_atlas") + d.brg_de2_woche_atlas = dr.Item("brg_de2_woche_atlas") + + Return d + End If + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + + Public Function setBuergschaft_OLD(ByVal daten As cBuergschaft) As Boolean + Dim sql = "" + If daten.brg_id >= 0 Then + sql = "UPDATE tblBuergschaft " & + "SET brg_datum=@brg_datum, brg_at_tag=@brg_at_tag, brg_at_woche=@brg_at_woche, brg_de_tag=@brg_de_tag, brg_de_woche=@brg_de_woche, brg_at_tag_atlas=@brg_at_tag_atlas, brg_at_tag_zolaris=@brg_at_tag_zolaris, brg_at_woche_atlas=@brg_at_woche_atlas, brg_at_woche_zolaris=@brg_at_woche_zolaris, brg_de_tag_atlas=@brg_de_tag_atlas,brg_de_woche_atlas=@brg_de_woche_atlas " & + "WHERE brg_id=@brg_id" + Else + sql = "INSERT INTO tblBuergschaft " & + "(brg_datum, brg_at_tag, brg_at_woche, brg_de_tag, brg_de_woche, brg_at_tag_atlas, brg_at_tag_zolaris, brg_at_woche_atlas, brg_at_woche_zolaris, brg_de_tag_atlas,brg_de_woche_atlas) VALUES " & + "(@brg_datum, @brg_at_tag, @brg_at_woche, @brg_de_tag, @brg_de_woche, @brg_at_tag_atlas, @brg_at_tag_zolaris, @brg_at_woche_atlas, @brg_at_woche_zolaris, @brg_de_tag_atlas, @brg_de_woche_atlas)" + End If + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@brg_datum", daten.brg_datum) + cmd.Parameters.AddWithValue("@brg_at_tag", daten.brg_at_tag) + cmd.Parameters.AddWithValue("@brg_at_woche", daten.brg_at_woche) + cmd.Parameters.AddWithValue("@brg_de_tag", daten.brg_de_tag) + cmd.Parameters.AddWithValue("@brg_de_woche", daten.brg_de_woche) + cmd.Parameters.AddWithValue("@brg_at_tag_atlas", daten.brg_at_tag_atlas) + cmd.Parameters.AddWithValue("@brg_at_tag_zolaris", daten.brg_at_tag_zolaris) + cmd.Parameters.AddWithValue("@brg_at_woche_atlas", daten.brg_at_woche_atlas) + cmd.Parameters.AddWithValue("@brg_at_woche_zolaris", daten.brg_at_woche_zolaris) + cmd.Parameters.AddWithValue("@brg_de_tag_atlas", daten.brg_de_tag_atlas) + cmd.Parameters.AddWithValue("@brg_de_woche_atlas", daten.brg_de_woche_atlas) + If daten.brg_id >= 0 Then cmd.Parameters.AddWithValue("@brg_id", daten.brg_id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function +End Class + + + + +Public Class cProgramme + + + Public ADMIN_VERSION As String + Public UID_VERSION As String + Public DISPO_VERSION As String + Public PARKZEIT_VERSION As String + Public ZOLL_VERSION As String + Public SDL_VERSION As String + Public AVISO_VERSION As String + Public AVISO_ATILLA_VERSION As String + + Public MONITORING_VERSION As String + Public DOKU_VERSION As String + + Public ADMIN_ID As String + Public UID_ID As String + Public DISPO_ID As String + Public PARKZEIT_ID As String + Public ZOLL_ID As String + Public SDL_ID As String + + Public AVISO_ID As String + Public AVISO_ATILLA_ID As String + Public MONITORING_ID As String + Public DOKU_ID As String + + + Public Function AnzeigeProgBer(ByVal id As Integer) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim myTable = New DataTable() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungen WHERE ber_progId=" & id & "", conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + conn.Close() + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'AnzeigeTabelle'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + Public Function getProgrammByCodeName(ByVal codename As String) As cProgramm + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String = "SELECT * FROM tblProgramme WHERE prog_codename=@prog_codename" + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New cProgramm + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@prog_codename", codename) + dr = cmd.ExecuteReader() + Try + If dr.Read Then + daten.prog_id = dr.Item("prog_id") + daten.prog_codename = dr.Item("prog_codename") + daten.prog_name = dr.Item("prog_name") + daten.prog_aktuelleVersion = dr.Item("prog_aktuelleVersion") + daten.prog_info = dr.Item("prog_info") + daten.prog_source_path = dr.Item("prog_source_path") + daten.prog_dev_path = dr.Item("prog_dev_path") + daten.prog_prod_path = dr.Item("prog_prod_path") + daten.prog_installer_source_path = dr.Item("prog_installer_source_path") + daten.prog_installer_dev_path = dr.Item("prog_installer_dev_path") + daten.prog_installer_prod_path = dr.Item("prog_installer_prod_path") + If Not dr.Item("prog_installer_prod_path_atilla") Is DBNull.Value Then daten.prog_installer_prod_path_atilla = dr.Item("prog_installer_prod_path_atilla") + If Not dr.Item("prog_prod_path_atilla") Is DBNull.Value Then daten.prog_prod_path_atilla = dr.Item("prog_prod_path_atilla") + If Not dr.Item("prog_prod_path_imex") Is DBNull.Value Then daten.prog_prod_path_imex = dr.Item("prog_prod_path_imex") + If Not dr.Item("prog_installer_prod_path_imex") Is DBNull.Value Then daten.prog_installer_prod_path_imex = dr.Item("prog_installer_prod_path_imex") + If Not dr.Item("prog_prod_path_SBG") Is DBNull.Value Then daten.prog_prod_path_SBG = dr.Item("prog_prod_path_SBG") + If Not dr.Item("prog_installer_prod_path_SBG") Is DBNull.Value Then daten.prog_installer_prod_path_SBG = dr.Item("prog_installer_prod_path_SBG") + If Not dr.Item("prog_prod_path_WAI") Is DBNull.Value Then daten.prog_prod_path_WAI = dr.Item("prog_prod_path_WAI") + If Not dr.Item("prog_installer_prod_path_WAI") Is DBNull.Value Then daten.prog_installer_prod_path_WAI = dr.Item("prog_installer_prod_path_WAI") + If Not dr.Item("prog_prod_path_NKD") Is DBNull.Value Then daten.prog_prod_path_NKD = dr.Item("prog_prod_path_NKD") + If Not dr.Item("prog_installer_prod_path_NKD") Is DBNull.Value Then daten.prog_installer_prod_path_NKD = dr.Item("prog_installer_prod_path_NKD") + If Not dr.Item("prog_prod_path_NEU") Is DBNull.Value Then daten.prog_prod_path_NEU = dr.Item("prog_prod_path_NEU") + If Not dr.Item("prog_installer_prod_path_NEU") Is DBNull.Value Then daten.prog_installer_prod_path_NEU = dr.Item("prog_installer_prod_path_NEU") + + Return daten + End If + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + Public Function insertProgramm(ByVal daten As cProgramm) As Boolean + Dim sql = "INSERT INTO tblProgramme " & + "(prog_codename, prog_name, prog_aktuelleVersion, prog_info, prog_source_path, prog_dev_path,prog_prod_path,prog_installer_source_path,prog_installer_dev_path,prog_installer_prod_path,prog_installer_prod_path_atilla,prog_prod_path_atilla,prog_prod_path_imex,prog_installer_prod_path_imex,prog_prod_path_SBG,prog_installer_prod_path_SBG,prog_prod_path_WAI,prog_installer_prod_path_WAI,prog_prod_path_NKD,prog_installer_prod_path_NKD,prog_prod_path_NEU,prog_installer_prod_path_NEU) VALUES " & + "(@prog_codename,@prog_name,@prog_aktuelleVersion,@prog_info,@prog_source_path,@prog_dev_path,@prog_prod_path,@prog_installer_source_path,@prog_installer_dev_path,@prog_installer_prod_path,@prog_installer_prod_path_atilla,@prog_prod_path_atilla,@prog_prod_path_imex,@prog_installer_prod_path_imex,@prog_prod_path_SBG,@prog_installer_prod_path_SBG,@prog_prod_path_WAI,@prog_installer_prod_path_WAI,@prog_prod_path_NKD,@prog_installer_prod_path_NKD,@prog_prod_path_NEU,@prog_installer_prod_path_NEU)" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@prog_codename", daten.prog_codename) + cmd.Parameters.AddWithValue("@prog_name", daten.prog_name) + cmd.Parameters.AddWithValue("@prog_aktuelleVersion", daten.prog_aktuelleVersion) + cmd.Parameters.AddWithValue("@prog_info", daten.prog_info) + cmd.Parameters.AddWithValue("@prog_source_path", daten.prog_source_path) + cmd.Parameters.AddWithValue("@prog_dev_path", daten.prog_dev_path) + cmd.Parameters.AddWithValue("@prog_prod_path", daten.prog_prod_path) + cmd.Parameters.AddWithValue("@prog_installer_source_path", daten.prog_installer_source_path) + cmd.Parameters.AddWithValue("@prog_installer_dev_path", daten.prog_installer_dev_path) + cmd.Parameters.AddWithValue("@prog_installer_prod_path", daten.prog_installer_prod_path) + cmd.Parameters.AddWithValue("@prog_installer_prod_path_atilla", daten.prog_installer_prod_path_atilla) + cmd.Parameters.AddWithValue("@prog_prod_path_atilla", daten.prog_prod_path_atilla) + cmd.Parameters.AddWithValue("@prog_prod_path_imex", daten.prog_prod_path_imex) + cmd.Parameters.AddWithValue("@prog_installer_prod_path_imex", daten.prog_installer_prod_path_imex) + cmd.Parameters.AddWithValue("@prog_prod_path_SBG", daten.prog_prod_path_SBG) + cmd.Parameters.AddWithValue("@prog_installer_prod_path_SBG", daten.prog_installer_prod_path_SBG) + cmd.Parameters.AddWithValue("@prog_prod_path_WAI", daten.prog_prod_path_WAI) + cmd.Parameters.AddWithValue("@prog_installer_prod_path_WAI", daten.prog_installer_prod_path_WAI) + cmd.Parameters.AddWithValue("@prog_prod_path_NKD", daten.prog_prod_path_NKD) + cmd.Parameters.AddWithValue("@prog_installer_prod_path_NKD", daten.prog_installer_prod_path_NKD) + cmd.Parameters.AddWithValue("@prog_prod_path_NEU", daten.prog_prod_path_NEU) + cmd.Parameters.AddWithValue("@prog_installer_prod_path_NEU", daten.prog_installer_prod_path_NEU) + + + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + Public Function getProgrammVersions() As Boolean + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String = "SELECT prog_id, prog_codename, prog_aktuelleVersion FROM tblProgramme" + ' Dim daten As New List(Of cEntry) + Dim dr As SqlDataReader + Dim daten As New cProgramm + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + dr = cmd.ExecuteReader() + While dr.Read + Try + If dr.Item("prog_codename") = "ADMIN" Then ADMIN_VERSION = dr.Item("prog_aktuelleVersion") : ADMIN_ID = dr.Item("prog_id") + If dr.Item("prog_codename") = "UID" Then UID_VERSION = dr.Item("prog_aktuelleVersion") : UID_ID = dr.Item("prog_id") + If dr.Item("prog_codename") = "DISPO" Then DISPO_VERSION = dr.Item("prog_aktuelleVersion") : DISPO_ID = dr.Item("prog_id") + If dr.Item("prog_codename") = "PARKZEIT" Then PARKZEIT_VERSION = dr.Item("prog_aktuelleVersion") : PARKZEIT_ID = dr.Item("prog_id") + + If dr.Item("prog_codename") = "ZOLL" Then ZOLL_VERSION = dr.Item("prog_aktuelleVersion") : ZOLL_ID = dr.Item("prog_id") + If dr.Item("prog_codename") = "SDL" Then SDL_VERSION = dr.Item("prog_aktuelleVersion") : SDL_ID = dr.Item("prog_id") + If dr.Item("prog_codename") = "AVISO_NEW" Then AVISO_VERSION = dr.Item("prog_aktuelleVersion") : AVISO_ID = dr.Item("prog_id") + If dr.Item("prog_codename") = "AVISO_ATILLA" Then AVISO_ATILLA_VERSION = dr.Item("prog_aktuelleVersion") : AVISO_ATILLA_ID = dr.Item("prog_id") + + If dr.Item("prog_codename") = "MONITORING" Then MONITORING_VERSION = dr.Item("prog_aktuelleVersion") : MONITORING_ID = dr.Item("prog_id") + If dr.Item("prog_codename") = "DOKU" Then DOKU_VERSION = dr.Item("prog_aktuelleVersion") : DOKU_ID = dr.Item("prog_id") + + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + End Try + End While + Return True + dr.Close() + End Using + End Using + Return False + End Function + Public Function setProgrammVersion(ByVal codename As String, ByVal aktuelleVersion As String) As Boolean + Dim hAuswahl As String = "" + + 'Änderung + Dim sql = "UPDATE tblProgramme " & + "SET prog_aktuelleVersion=@prog_aktuelleVersion " & + "WHERE prog_codename=@prog_codename" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@prog_aktuelleVersion", aktuelleVersion) + cmd.Parameters.AddWithValue("@prog_codename", codename) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Die Version kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Version") + End Try + End Using + End Using + Return False + End Function + Public Function setParam(ByVal param As String, ByVal wert As String, ByVal codename As String) As Boolean + Dim hAuswahl As String = "" + + 'Änderung + Dim sql = "UPDATE tblProgramme " & + "SET " & param & "=@param " & + "WHERE prog_codename=@prog_codename" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@param", wert) + cmd.Parameters.AddWithValue("@prog_codename", codename) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Die Version kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Version") + End Try + End Using + End Using + Return False + End Function +End Class + +Public Class cOptionenDAL + + Public USERBER As Integer + Public USRNAME As String + Public USRID As String + Public USRFirma As String + + + + + Public Function getParameter(bezeichnung) As Object + Dim sql As String = "SELECT wert FROM tblParameter WHERE bezeichnung=@bezeichnung" + Dim dr As SqlDataReader + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@bezeichnung", bezeichnung) + dr = cmd.ExecuteReader() + Try + If dr.Read Then Return dr.Item("wert") + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return Nothing + End Function + + + Public Function setParameter(bezeichnung, wert) As Object + Dim sql As String = " begin tran" & + " if exists (select * from tblParameter with (updlock,serializable) where bezeichnung = @bezeichnung ) " & + " begin " & + " UPDATE tblParameter " & + " SET wert=@wert " & + " WHERE bezeichnung=@bezeichnung " & + " End " & + " Else " & + " begin " & + "INSERT INTO tblParameter " & + "( wert, bezeichnung ) VALUES " & + "( @wert, @bezeichnung ) " & + " End " & + " commit tran " + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@bezeichnung", bezeichnung) + cmd.Parameters.AddWithValue("@wert", wert) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Parameter kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + + + Public Function getAktuelleVersion() As String + Dim sql As String = "SELECT prog_aktuelleVersion FROM tblProgramme WHERE prog_codename=@codename" + Dim dr As SqlDataReader + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@codename", "ADMIN") + dr = cmd.ExecuteReader() + Try + If dr.Read Then Return CStr(dr.Item("prog_aktuelleVersion")) + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Finally + dr.Close() + End Try + End Using + End Using + Return "0" + End Function + + + + Public Function getAdminLogin(ByVal user As String) As String + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_firma FROM tblMitarbeiter where mit_username=@mit_username " + 'Dim daten As New List(Of cEntry) + Dim dr + + + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@mit_username", user) + dr = cmd.ExecuteReader() + + + 'If dr.Read Then USERBER = dr.Item("mit_berechtigung") : USRNAME = dr.Item("mit_vname") & " " & dr.Item("mit_nname") : Return True + If dr.Read Then USRNAME = dr.Item("mit_vname") & " " & dr.Item("mit_nname") : USRID = dr.Item("mit_id") : USRFirma = dr.item("mit_firma") : Return True + End Using + End Using + dr.Close() + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Return False + End Try + + Return False + End Function + + Public Function checkLogin(ByVal user As String, ByVal pwd As String) As String + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sqlstr As String = "SELECT mit_id,mit_vname,mit_nname,mit_firma,mit_username,mit_firmaFMZoll" & + " FROM tblMitarbeiter,tblBerProg WHERE bepr_programm='ADMIN' AND bepr_userId=mit_id AND mit_username=@mit_username and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS " + 'Dim daten As New List(Of cEntry) + Dim dr + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sqlstr, conn) + cmd.Parameters.AddWithValue("@mit_username", user) + cmd.Parameters.AddWithValue("@mit_pwd", pwd) + dr = cmd.ExecuteReader() + + + 'If dr.Read Then USERBER = dr.Item("mit_berechtigung") : USRNAME = dr.Item("mit_vname") & " " & dr.Item("mit_nname") : Return True + If dr.Read Then + USRNAME = dr.Item("mit_vname") & " " & dr.Item("mit_nname") + + USRID = dr.Item("mit_id") + USRFirma = dr.Item("mit_firma") + ' USERBER = dr.Item("ber_sicherheitsstufe") + + + + 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRBER = CInt(dr.Item("ber_sicherheitsstufe")) + VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = CInt(dr.Item("mit_id")) + VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME = CStr(dr.Item("mit_vname")) + VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME = CStr(dr.Item("mit_nname")) + VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname")) + VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = CStr(dr.Item("mit_username")) + If dr.Item("mit_firmaFMZoll") Is DBNull.Value Then + MsgBox("Benutzer muss einer Firma zugeordnet sein!") + Return False + End If + 'Ju18WA10 + 'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = CInt(dr.Item("mit_firmaFMZoll")) + ' VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = CInt(dr.Item("mit_firmaFMZoll")) + + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = CInt(dr.Item("mit_firmaFMZoll")) + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_NAME = SQL.getValueTxtBySql("SELECT Firma_Bez FROM tblFirma WHERE Firma_ID= " & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID, "FMZOLL") + VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA() + VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER() + + Return True + End If + End Using + End Using + dr.Close() + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message & ex.StackTrace, vbExclamation, "Datenbankfehler") + Return False + End Try + + Return False + End Function + + + Public Function AnzeigeTabelle(hSQL As String) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim myTable = New DataTable() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(hSQL, conn) + Dim dr = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'AnzeigeTabelle'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + Public Function getDataMitarb() As IList(Of VERAG_PROG_ALLGEMEIN.cMitarbeiter) + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt FROM tblUser " + Dim daten As New List(Of VERAG_PROG_ALLGEMEIN.cMitarbeiter) + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + While dr.Read + 'daten = New cEntry() + 'MsgBox(daten.Count) + Try + Dim d As New VERAG_PROG_ALLGEMEIN.cMitarbeiter + + d.mit_id = dr.Item("mit_id") + d.mit_username = dr.Item("mit_username") + ' d.mit_pwd = dr.Item("mit_pwd") + ' d.mit_affix = dr.Item("mit_affix") + d.mit_vname = dr.Item("mit_vname") + d.mit_nname = dr.Item("mit_nname") + ' d.mit_gebdat = dr.Item("mit_gebdat") + d.mit_niederlassung = dr.Item("mit_niederlassung") + d.mit_abteilung = dr.Item("mit_abteilung") + ' d.mit_position = dr.Item("mit_position") + d.mit_durchwahl = dr.Item("mit_durchwahl") + d.mit_email = dr.Item("mit_email") + ' d.mit_mobiltel = dr.Item("mit_mobiltel") + ' d.mit_info = dr.Item("mit_info") + ' d.mit_einstiegsdatum = dr.Item("mit_einstiegsdatum") + d.mit_gekuendigt = dr.Item("mit_gekuendigt") + ' d.mit_kuendigungsdatum = dr.Item("mit_kuendigungsdatum") + ' d.mit_foto = dr.Item("mit_foto") + + daten.Add(d) + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Optionen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) + End Try + End While + End If + dr.Close() + End Using + End Using + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Return Nothing + End Try + End Function + +End Class + +Public Class cMitarbeiter + + + Public Function loadCboBySqlWithListItem(ByVal sql As String, Optional showValueInText As Boolean = True, Optional conn_art As String = "AVISO") As List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + Dim o As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + Try + Dim conn As New SqlConnection + Select Case conn_art + Case "ADMIN" : conn = cSqlDb.GetNewOpenConnection() + Case "AVISO" : conn = cSqlDb.GetNewOpenConnection() + Case "FMZOLL" : conn = cSqlDb.GetNewOpenConnectionFMZOLL + End Select + + Using cmd As New SqlCommand(sql, conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + While dr.Read + If showValueInText Then + o.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(CStr(dr.Item(0)) & vbTab & " - " & CStr(dr.Item(1)), CStr(dr.Item(0)))) + Else + Try + o.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(CStr(dr.Item(1)), CStr(dr.Item(0)))) + Catch ex As Exception + o.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(CStr(dr.Item(0)), CStr(dr.Item(0)))) + End Try + End If + + End While + dr.Close() + End Using + conn.Close() + + Return o 'While Schleife wird hier verlassen + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + + Return Nothing + End Function + + Public Function AnzeigeTabelle(ByVal sql As String) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim myTable = New DataTable() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Dim dr = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'AnzeigeTabelle'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + + Public Function AnzeigeTabelleFirma(sql) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim myTable = New DataTable() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Dim dr = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'AnzeigeTabelle'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + Public Function getUserBerechtigungen(ByRef id As Integer) As IList(Of cUserBerechtigungen) + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String = "SELECT ber_id,ber_name,ber_sicherheitsstufe,bepr_programm FROM tblBerechtigungen, tblBerProg WHERE bepr_userId= '" & id & "' AND (bepr_berId=ber_id OR bepr_berId is null) " 'AND tblBerProg.bepr_berId= '" & id & "' " + Dim daten As New List(Of cUserBerechtigungen) + Dim i As Integer = 0 + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + While dr.Read + Try + Dim d = New cUserBerechtigungen + If Not IsDBNull(dr.Item("ber_id")) Then d.ber_id = dr.Item("ber_id") + If Not IsDBNull(dr.Item("ber_name")) Then d.ber_name = dr.Item("ber_name") + If Not IsDBNull(dr.Item("ber_sicherheitsstufe")) Then d.ber_sicherheitsstufe = dr.Item("ber_sicherheitsstufe") + If Not IsDBNull(dr.Item("bepr_programm")) Then d.bepr_programm = dr.Item("bepr_programm") + daten.Add(d) + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der UserBerechtigungen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) + End Try + i = i + 1 + End While + + End If + dr.Close() + End Using + End Using + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der UserBerechtigungen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Return Nothing + End Try + End Function + + Public Function getUserBerechtigungenNEU(ByRef id As Integer) As IList(Of cUserBerechtigungen) + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String = "SELECT [bepr_id],[bepr_userId],[bepr_berId],[bepr_programm],[ber_allowed] FROM [tblBerProg] WHERE bepr_userId= '" & id & "' and bepr_berId is null " 'AND tblBerProg.bepr_berId= '" & id & "' " + Dim daten As New List(Of cUserBerechtigungen) + Dim i As Integer = 0 + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + While dr.Read + Try + Dim d = New cUserBerechtigungen + d.ber_id = Nothing + d.ber_name = "" + d.ber_sicherheitsstufe = 0 + If Not IsDBNull(dr.Item("bepr_programm")) Then d.bepr_programm = dr.Item("bepr_programm") + daten.Add(d) + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der UserBerechtigungen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) + End Try + i = i + 1 + End While + + End If + dr.Close() + End Using + End Using + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der UserBerechtigungen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Return Nothing + End Try + End Function + + Public Function insertBerechtigungProg(ByVal bepr_userId As String, ByVal bepr_berId As String, ByVal bepr_programm As String, ber_allowed As Boolean) As Boolean + Dim sql = "INSERT INTO tblBerProg " & + "(bepr_userId, bepr_berId, bepr_programm,ber_allowed) VALUES " & + "(@bepr_userId, @bepr_berId, @bepr_programm,@ber_allowed)" + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@bepr_userId", bepr_userId) + cmd.Parameters.AddWithValue("@bepr_berId", If(bepr_berId, DBNull.Value)) + cmd.Parameters.AddWithValue("@bepr_programm", bepr_programm) + cmd.Parameters.AddWithValue("@ber_allowed", ber_allowed) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + + + Public Function insertUpdateBerechtigungProg(ByVal bepr_userId As String, ByVal bepr_berId As String, ByVal bepr_programm As String, ber_allowed As Boolean) As Boolean + Dim sql = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblBerProg] WITH(updlock,serializable) WHERE bepr_userId=@bepr_userId AND bepr_programm=@bepr_programm) " & + " BEGIN " & + " UPDATE [tblBerProg] " & + "SET bepr_berId=@bepr_berId " & + "WHERE bepr_userId=@bepr_userId AND bepr_programm=@bepr_programm" & + " END " & + " Else " & + " BEGIN " & + " INSERT INTO [tblBerProg] " & + "(bepr_userId, bepr_berId, bepr_programm,ber_allowed) VALUES " & + "(@bepr_userId, @bepr_berId, @bepr_programm,@ber_allowed)" & + " END " & + " commit tran " + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@bepr_userId", bepr_userId) + cmd.Parameters.AddWithValue("@bepr_berId", If(bepr_berId, DBNull.Value)) + cmd.Parameters.AddWithValue("@bepr_programm", bepr_programm) + cmd.Parameters.AddWithValue("@ber_allowed", ber_allowed) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + Public Function deleteBerechtigungProg(ByVal bepr_userId As String, ByVal bepr_programm As String) As Boolean + Dim sql = "DELETE FROM tblBerProg " & + "WHERE bepr_userId=@bepr_userId AND bepr_programm=@bepr_programm " + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@bepr_userId", bepr_userId) + cmd.Parameters.AddWithValue("@bepr_programm", bepr_programm) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + Public Function updateBerechtigungProg(ByVal bepr_userId As String, ByVal bepr_berId As String, ByVal bepr_programm As String) As Boolean + Dim sql = "UPDATE tblBerProg " & + "SET bepr_berId=@bepr_berId " & + "WHERE bepr_userId=@bepr_userId AND bepr_programm=@bepr_programm" + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@bepr_berId", bepr_berId) + cmd.Parameters.AddWithValue("@bepr_userId", bepr_userId) + cmd.Parameters.AddWithValue("@bepr_programm", bepr_programm) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + Public Function getBerechtigungen() As IList(Of cBerechtigungen) + 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen + Dim sql As String = "SELECT ber_name,ber_sicherheitsstufe,ber_progId,ber_id,prog_codename FROM tblBerechtigungen,tblProgramme WHERE ber_progId=prog_id ORDER BY prog_codename ASC, ber_sicherheitsstufe ASC" + Dim daten As New List(Of cBerechtigungen) + Dim i As Integer = 0 + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + While dr.Read + Try + Dim d = New cBerechtigungen + If Not IsDBNull(dr.Item("ber_name")) Then d.ber_name = dr.Item("ber_name") + If Not IsDBNull(dr.Item("ber_sicherheitsstufe")) Then d.ber_sicherheitsstufe = dr.Item("ber_sicherheitsstufe") + If Not IsDBNull(dr.Item("ber_progId")) Then d.ber_progId = dr.Item("ber_progId") + If Not IsDBNull(dr.Item("prog_codename")) Then d.prog_codename = dr.Item("prog_codename") + If Not IsDBNull(dr.Item("ber_id")) Then d.ber_id = dr.Item("ber_id") + daten.Add(d) + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Berechtigungen " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) + End Try + i = i + 1 + End While + + End If + dr.Close() + End Using + End Using + Return daten + Catch ex As Exception + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Berechtigungen: " & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") + Return Nothing + End Try + End Function + + Public Function getMitarbeiterById(ByVal id As Integer) As VERAG_PROG_ALLGEMEIN.cMitarbeiter + Dim m = New VERAG_PROG_ALLGEMEIN.cMitarbeiter + If m.LOAD(id) Then + Return m + End If + Return Nothing + End Function + + + Public Function insertMitarbeiter(ByVal m As VERAG_PROG_ALLGEMEIN.cMitarbeiter) As Boolean + Dim hAuswahl As String = "" + + 'Änderung + Dim sql = "INSERT INTO tblMitarbeiter " & + "(mit_username, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB) VALUES " & + "(@mit_username,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB)" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.AddWithValue("@mit_username", m.mit_username) + cmd.Parameters.AddWithValue("@mit_pwd", m.mit_pwd) + cmd.Parameters.AddWithValue("@mit_geschlecht", m.mit_geschlecht) + cmd.Parameters.AddWithValue("@mit_affix", m.mit_affix) + cmd.Parameters.AddWithValue("@mit_vname", m.mit_vname) + cmd.Parameters.AddWithValue("@mit_nname", m.mit_nname) + If m.mit_gebdat <> "" Then cmd.Parameters.AddWithValue("@mit_gebdat", m.mit_gebdat) Else cmd.Parameters.AddWithValue("@mit_gebdat", DBNull.Value) + cmd.Parameters.AddWithValue("@mit_strasse", m.mit_strasse) + cmd.Parameters.AddWithValue("@mit_hausnr", m.mit_hausnr) + cmd.Parameters.AddWithValue("@mit_land", m.mit_land) + cmd.Parameters.AddWithValue("@mit_plz", m.mit_plz) + cmd.Parameters.AddWithValue("@mit_ort", m.mit_ort) + cmd.Parameters.AddWithValue("@mit_niederlassung", m.mit_niederlassung) + cmd.Parameters.AddWithValue("@mit_abteilung", m.mit_abteilung) + cmd.Parameters.AddWithValue("@mit_position", m.mit_position) + cmd.Parameters.AddWithValue("@mit_durchwahl", m.mit_durchwahl) + cmd.Parameters.AddWithValue("@mit_email", m.mit_email) + cmd.Parameters.AddWithValue("@mit_mobiltel", m.mit_mobiltel) + cmd.Parameters.AddWithValue("@mit_allowAnruf", m.mit_allowAnruf) + cmd.Parameters.AddWithValue("@mit_FMZollPersID", m.mit_FMZollPersID) + cmd.Parameters.AddWithValue("@mit_FMZollPersIDSpedBuch", If(m.mit_FMZollPersIDSpedBuch, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_FMZollPersIDKasseIsnotSpedBuch", m.mit_FMZollPersIDKasseIsnotSpedBuch) + cmd.Parameters.AddWithValue("@mit_standartFiliale", m.mit_standartFiliale) + cmd.Parameters.AddWithValue("@mit_DpUserStandardDP", m.mit_DpUserStandardDP) + cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma", m.mit_DpUserStandardFirma) + cmd.Parameters.AddWithValue("@mit_info", m.mit_info) + If m.mit_einstiegsdatum <> "" Then cmd.Parameters.AddWithValue("@mit_einstiegsdatum", m.mit_einstiegsdatum) Else cmd.Parameters.AddWithValue("@mit_einstiegsdatum", DBNull.Value) + cmd.Parameters.AddWithValue("@mit_gekuendigt", m.mit_gekuendigt) + If m.mit_kuendigungsdatum <> "" Then cmd.Parameters.AddWithValue("@mit_kuendigungsdatum", m.mit_kuendigungsdatum) Else cmd.Parameters.AddWithValue("@mit_kuendigungsdatum", DBNull.Value) + If m.mit_foto <> "" Then cmd.Parameters.AddWithValue("@mit_foto", m.mit_foto) Else cmd.Parameters.AddWithValue("@mit_foto", DBNull.Value) + cmd.Parameters.AddWithValue("@mit_firma", m.mit_firma) + cmd.Parameters.AddWithValue("@mit_firmaFMZoll", If(m.mit_firmaFMZoll, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_EZOLL_SB", If(m.mit_EZOLL_SB, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_ATLAS_SB", If(m.mit_ATLAS_SB, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_DAKOSY_SB", If(m.mit_DAKOSY_SB, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_DAKOSY_SBFull", If(m.mit_DAKOSY_SBFull, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_FirmenDatenAnzeige", If(m.mit_FirmenDatenAnzeige, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_TESTonly", m.mit_TESTonly) + cmd.Parameters.AddWithValue("@mit_PasswortChanged", If(m.mit_PasswortChanged, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_TELOTEC_SB", If(m.mit_TELOTEC_SB, DBNull.Value)) + + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + + Public Function updateMitarbeiter(ByVal m As VERAG_PROG_ALLGEMEIN.cMitarbeiter) As Boolean + Dim hAuswahl As String = "" + + Dim sql = "UPDATE tblMitarbeiter " & + "SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB " & + " WHERE mit_id=@mit_id " + + + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@mit_username", m.mit_username) + cmd.Parameters.AddWithValue("@mit_pwd", m.mit_pwd) + cmd.Parameters.AddWithValue("@mit_geschlecht", m.mit_geschlecht) + cmd.Parameters.AddWithValue("@mit_affix", m.mit_affix) + cmd.Parameters.AddWithValue("@mit_vname", m.mit_vname) + cmd.Parameters.AddWithValue("@mit_nname", m.mit_nname) + If m.mit_gebdat <> "" Then cmd.Parameters.AddWithValue("@mit_gebdat", m.mit_gebdat) Else cmd.Parameters.AddWithValue("@mit_gebdat", DBNull.Value) + cmd.Parameters.AddWithValue("@mit_strasse", m.mit_strasse) + cmd.Parameters.AddWithValue("@mit_hausnr", m.mit_hausnr) + cmd.Parameters.AddWithValue("@mit_land", m.mit_land) + cmd.Parameters.AddWithValue("@mit_plz", m.mit_plz) + cmd.Parameters.AddWithValue("@mit_ort", m.mit_ort) + cmd.Parameters.AddWithValue("@mit_niederlassung", m.mit_niederlassung) + cmd.Parameters.AddWithValue("@mit_abteilung", m.mit_abteilung) + cmd.Parameters.AddWithValue("@mit_position", m.mit_position) + cmd.Parameters.AddWithValue("@mit_durchwahl", m.mit_durchwahl) + cmd.Parameters.AddWithValue("@mit_email", m.mit_email) + cmd.Parameters.AddWithValue("@mit_mobiltel", m.mit_mobiltel) + cmd.Parameters.AddWithValue("@mit_allowAnruf", m.mit_allowAnruf) + cmd.Parameters.AddWithValue("@mit_FMZollPersID", If(m.mit_FMZollPersID, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_FMZollPersIDSpedBuch", If(m.mit_FMZollPersIDSpedBuch, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_FMZollPersIDKasseIsnotSpedBuch", m.mit_FMZollPersIDKasseIsnotSpedBuch) + cmd.Parameters.AddWithValue("@mit_standartFiliale", m.mit_standartFiliale) + cmd.Parameters.AddWithValue("@mit_standardPreisliste", m.mit_standardPreisliste) + cmd.Parameters.AddWithValue("@mit_DpUserStandardDP", m.mit_DpUserStandardDP) + cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma", m.mit_DpUserStandardFirma) + + cmd.Parameters.AddWithValue("@mit_info", m.mit_info) + If m.mit_einstiegsdatum <> "" Then cmd.Parameters.AddWithValue("@mit_einstiegsdatum", m.mit_einstiegsdatum) Else cmd.Parameters.AddWithValue("@mit_einstiegsdatum", DBNull.Value) + cmd.Parameters.AddWithValue("@mit_gekuendigt", m.mit_gekuendigt) + If m.mit_kuendigungsdatum <> "" Then cmd.Parameters.AddWithValue("@mit_kuendigungsdatum", m.mit_kuendigungsdatum) Else cmd.Parameters.AddWithValue("@mit_kuendigungsdatum", DBNull.Value) + If m.mit_foto <> "" Then cmd.Parameters.AddWithValue("@mit_foto", m.mit_foto) Else cmd.Parameters.AddWithValue("@mit_foto", DBNull.Value) + cmd.Parameters.AddWithValue("@mit_firma", m.mit_firma) + cmd.Parameters.AddWithValue("@mit_firmaFMZoll", If(m.mit_firmaFMZoll, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_id", m.mit_id) + + cmd.Parameters.AddWithValue("@mit_EZOLL_SB", If(m.mit_EZOLL_SB, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_ATLAS_SB", If(m.mit_ATLAS_SB, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_DAKOSY_SB", If(m.mit_DAKOSY_SB, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_DAKOSY_SBFull", If(m.mit_DAKOSY_SBFull, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_FirmenDatenAnzeige", If(m.mit_FirmenDatenAnzeige, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_TESTonly", m.mit_TESTonly) + cmd.Parameters.AddWithValue("@mit_PasswortChanged", If(m.mit_PasswortChanged, DBNull.Value)) + cmd.Parameters.AddWithValue("@mit_TELOTEC_SB", If(m.mit_TELOTEC_SB, DBNull.Value)) + + Try + cmd.ExecuteNonQuery() + + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern tblMitarbeiter") + End Try + End Using + End Using + Return False + End Function + + Public Sub delData(ByVal usrID As Integer) + delUsrBerechtigung(usrID) + delUsrSeminar(usrID) + delUsr(usrID) + End Sub + Public Sub delUsr(ByVal usrID As Integer) + Dim sql As String = "DELETE FROM tblMitarbeiter WHERE mit_id = " & usrID + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + End Sub + Public Sub delUsrBerechtigung(ByVal usrID As Integer) + Dim sql As String = "DELETE FROM tblBerProg WHERE bepr_userId = " & usrID + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + End Sub + Public Sub delUsrSeminar(ByVal usrID As Integer) + Dim sql As String = "DELETE FROM tblSemMitarb WHERE semi_mitId = " & usrID + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + End Sub +End Class + + +Public Class cSeminare + + + Public Function insertSemMitarbeiter(ByVal semi_semId As Integer, ByVal semi_mitId As Integer) As Boolean + Dim hAuswahl As String = "" + + 'Änderung + Dim sql = "INSERT INTO tblSemMitarb " & + "(semi_semId, semi_mitId) VALUES " & + "(@semi_semId,@semi_mitId)" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@semi_semId", semi_semId) + cmd.Parameters.AddWithValue("@semi_mitId", semi_mitId) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + Public Function delSemMitarbeiter(ByVal id As Integer) As Boolean + Dim hAuswahl As String = "" + + 'Änderung + Dim sql = "DELETE FROM tblSemMitarb WHERE semi_id=@semi_id" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@semi_id", id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + Public Function getSeminarById(ByVal id As Integer) As cSeminar + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim d As New cSeminar + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblSeminare WHERE sem_id=@semi_id ", conn) + cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + d.sem_id = dr.Item("sem_id") + If Not dr.Item("sem_von") Is DBNull.Value Then d.sem_von = dr.Item("sem_von") + If Not dr.Item("sem_bis") Is DBNull.Value Then d.sem_bis = dr.Item("sem_bis") + If Not dr.Item("sem_dauer") Is DBNull.Value Then d.sem_dauer = dr.Item("sem_dauer") + d.sem_name = dr.Item("sem_name") + d.sem_vortragender = dr.Item("sem_vortragender") + If Not dr.Item("sem_vortragender_mitId") Is DBNull.Value Then d.sem_vortragender_mitId = dr.Item("sem_vortragender_mitId") + d.sem_ort = dr.Item("sem_ort") + d.sem_inhalt = dr.Item("sem_inhalt") + d.sem_inhalt2 = dr.Item("sem_inhalt2") + d.sem_info = dr.Item("sem_info") + If Not dr.Item("sem_isVeragSeminar") Is DBNull.Value Then d.sem_isVeragSeminar = dr.Item("sem_isVeragSeminar") + If Not dr.Item("sem_isIntAusbildung") Is DBNull.Value Then d.sem_isIntAusbildung = dr.Item("sem_isIntAusbildung") + If Not dr.Item("sem_bezeichnung") Is DBNull.Value Then d.sem_bezeichnung = dr.Item("sem_bezeichnung") + d.sem_type = dr.Item("sem_type") + End If + dr.Close() + End Using + End Using + Return d + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getSeminarById'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + Public Function insertSeminare(ByVal s As cSeminar) As Boolean + Dim sql = "INSERT INTO tblSeminare " & + "(sem_von,sem_bis,sem_dauer,sem_name,sem_vortragender,sem_vortragender_mitId,sem_ort,sem_inhalt,sem_inhalt2,sem_info,sem_isVeragSeminar,sem_type,sem_isIntAusbildung,sem_bezeichnung) VALUES " & + "(@sem_von,@sem_bis,@sem_dauer,@sem_name,@sem_vortragender,@sem_vortragender_mitId,@sem_ort,@sem_inhalt,@sem_inhalt2,@sem_info,@sem_isVeragSeminar,@sem_type,@sem_isIntAusbildung,@sem_bezeichnung)" + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@sem_von", s.sem_von) + cmd.Parameters.AddWithValue("@sem_bis", s.sem_bis) + cmd.Parameters.AddWithValue("@sem_dauer", s.sem_dauer) + cmd.Parameters.AddWithValue("@sem_name", s.sem_name) + cmd.Parameters.AddWithValue("@sem_vortragender", s.sem_vortragender) + cmd.Parameters.AddWithValue("@sem_vortragender_mitId", s.sem_vortragender_mitId) + cmd.Parameters.AddWithValue("@sem_ort", s.sem_ort) + cmd.Parameters.AddWithValue("@sem_inhalt", s.sem_inhalt) + cmd.Parameters.AddWithValue("@sem_inhalt2", s.sem_inhalt2) + cmd.Parameters.AddWithValue("@sem_info", s.sem_info) + cmd.Parameters.AddWithValue("@sem_isVeragSeminar", s.sem_isVeragSeminar) + cmd.Parameters.AddWithValue("@sem_isIntAusbildung", s.sem_isIntAusbildung) + cmd.Parameters.AddWithValue("@sem_bezeichnung", s.sem_bezeichnung) + cmd.Parameters.AddWithValue("@sem_type", s.sem_type) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + Public Function updateSeminare(ByVal s As cSeminar) As Boolean + Dim sql = "UPDATE tblSeminare " & + "SET sem_von=@sem_von, sem_bis=@sem_bis, sem_dauer=@sem_dauer, sem_name=@sem_name, sem_vortragender=@sem_vortragender, sem_vortragender_mitId=@sem_vortragender_mitId, sem_ort=@sem_ort, sem_inhalt=@sem_inhalt,sem_inhalt2=@sem_inhalt2, sem_info=@sem_info, sem_isVeragSeminar=@sem_isVeragSeminar, sem_type=@sem_type, sem_isIntAusbildung=@sem_isIntAusbildung,sem_bezeichnung=@sem_bezeichnung " & + "WHERE sem_id=@sem_id" + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@sem_von", s.sem_von) + cmd.Parameters.AddWithValue("@sem_bis", s.sem_bis) + cmd.Parameters.AddWithValue("@sem_dauer", s.sem_dauer) + cmd.Parameters.AddWithValue("@sem_name", s.sem_name) + cmd.Parameters.AddWithValue("@sem_vortragender", s.sem_vortragender) + cmd.Parameters.AddWithValue("@sem_vortragender_mitId", s.sem_vortragender_mitId) + cmd.Parameters.AddWithValue("@sem_ort", s.sem_ort) + cmd.Parameters.AddWithValue("@sem_inhalt", s.sem_inhalt) + cmd.Parameters.AddWithValue("@sem_inhalt2", s.sem_inhalt2) + cmd.Parameters.AddWithValue("@sem_info", s.sem_info) + cmd.Parameters.AddWithValue("@sem_isVeragSeminar", s.sem_isVeragSeminar) + cmd.Parameters.AddWithValue("@sem_isIntAusbildung", s.sem_isIntAusbildung) + cmd.Parameters.AddWithValue("@sem_bezeichnung", s.sem_bezeichnung) + cmd.Parameters.AddWithValue("@sem_type", s.sem_type) + cmd.Parameters.AddWithValue("@sem_id", s.sem_id) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function +End Class + + + +Public Class cDienstplan + + Public Function doSQLVarListID(ByVal id As Integer, ByVal sql As String, Optional conn_art As String = "ADMIN", Optional showErr As Boolean = True, Optional list As List(Of SQLVariable) = Nothing) As Integer + + Dim conn As New SqlConnection + Select Case conn_art + Case "ADMIN" : conn = cSqlDb.GetNewOpenConnection() + Case "FMZOLL" : conn = cSqlDb.GetNewOpenConnectionFMZOLL() + End Select + Try + Using cmd As New SqlCommand(sql, conn) + If list IsNot Nothing Then + For Each i In list + cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value)) + Next + End If + cmd.ExecuteNonQuery() + If id < 0 Then + Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) + id = CInt(newcmd.ExecuteScalar) + End If + + 'Return True + End Using + conn.Close() + + Catch ex As Exception + If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + End Try + Return id + End Function + + Public Function insertDienstMA(ByVal ma As cDienstMA, ByVal niederlassung As String) As Boolean + Dim hAuswahl As String = "" + + Dim sql As String = " begin tran" & + " if exists (select * from tblDienstMitarb with (updlock,serializable) where dstma_id = @dstma_id ) " & + " begin " & + " UPDATE tblDienstMitarb " & + " SET dstma_abteilung=@dstma_abteilung, dstma_funktion=@dstma_funktion, dstma_arbvh=@dstma_arbvh, dstma_wochenStunden=@dstma_wochenStunden, dstma_stammSchicht=@dstma_stammSchicht, dstma_kuerzel=@dstma_kuerzel, dstma_reihenfolge=@dstma_reihenfolge, dstma_farbe=@dstma_farbe, dstma_TageProWoche=@dstma_TageProWoche,dstma_niederlassung=@dstma_niederlassung,dstma_muster=@dstma_muster,dstma_4wo=@dstma_4wo,dstma_WEStdRegelAZ=@dstma_WEStdRegelAZ,dstma_inaktiv=@dstma_inaktiv,dstma_TzFeiertageStd=@dstma_TzFeiertageStd " & + " WHERE dstma_id=@dstma_id " & + " End " & + " Else " & + " begin " & + "INSERT INTO tblDienstMitarb " & + "( dstma_mitId, dstma_abteilung, dstma_funktion, dstma_arbvh, dstma_wochenStunden, dstma_stammSchicht,dstma_kuerzel,dstma_reihenfolge,dstma_farbe,dstma_TageProWoche,dstma_niederlassung, dstma_muster,dstma_4wo,dstma_WEStdRegelAZ,dstma_inaktiv ,dstma_TzFeiertageStd) VALUES " & + "( @dstma_mitId, @dstma_abteilung, @dstma_funktion, @dstma_arbvh, @dstma_wochenStunden, @dstma_stammSchicht,@dstma_kuerzel,@dstma_reihenfolge,@dstma_farbe,@dstma_TageProWoche,@dstma_niederlassung, @dstma_muster ,@dstma_4wo,@dstma_WEStdRegelAZ,@dstma_inaktiv,@dstma_TzFeiertageStd) " & + " End " & + " commit tran " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.AddWithValue("@dstma_id", ma.dstma_id) + cmd.Parameters.AddWithValue("@dstma_mitId", ma.dstma_mitId) + cmd.Parameters.AddWithValue("@dstma_niederlassung", niederlassung) + cmd.Parameters.AddWithValue("@dstma_abteilung", ma.dstma_abteilung) + cmd.Parameters.AddWithValue("@dstma_funktion", ma.dstma_funktion) + cmd.Parameters.AddWithValue("@dstma_arbvh", ma.dstma_arbvh) + cmd.Parameters.AddWithValue("@dstma_wochenStunden", ma.dstma_wochenStunden) + cmd.Parameters.AddWithValue("@dstma_stammSchicht", ma.dstma_stammSchicht) + cmd.Parameters.AddWithValue("@dstma_kuerzel", ma.dstma_kuerzel) + cmd.Parameters.AddWithValue("@dstma_reihenfolge", ma.dstma_reihenfolge) + cmd.Parameters.AddWithValue("@dstma_farbe", ma.dstma_farbe) + cmd.Parameters.AddWithValue("@dstma_TageProWoche", ma.dstma_TageProWoche) + cmd.Parameters.AddWithValue("@dstma_muster", ma.dstma_muster) + cmd.Parameters.AddWithValue("@dstma_4wo", ma.dstma_4wo) + cmd.Parameters.AddWithValue("@dstma_WEStdRegelAZ", ma.dstma_WEStdRegelAZ) + cmd.Parameters.AddWithValue("@dstma_inaktiv", ma.dstma_inaktiv) + cmd.Parameters.AddWithValue("@dstma_TzFeiertageStd", If(ma.dstma_TzFeiertageStd Is Nothing, DBNull.Value, ma.dstma_TzFeiertageStd)) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + + + + Public Function insertifExistsDienstKWUeberstd(dusa_niederlassung As String, dusa_jahr As Integer, dusa_kw As Integer) As Boolean + Dim sql = " if not exists(select * from tblDienstMitarb with (updlock,serializable) where dstma_mitId = @dstma_mitId ) " & + " Begin " & + "INSERT INTO tblDienstUeberstdAbgeschlossen " & + "(dusa_niederlassung, dusa_jahr, dusa_kw) VALUES " & + "(@dusa_niederlassung,@dusa_jahr,@dusa_kw)" & + " End " & + " commit tran " + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dusa_niederlassung", dusa_niederlassung) + cmd.Parameters.AddWithValue("@dusa_jahr", dusa_jahr) + cmd.Parameters.AddWithValue("@dusa_kw", dusa_kw) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + + Public Function existsEntryKWUeberstd(dusa_niederlassung As String, dusa_jahr As Integer, dusa_kw As Integer) As Boolean + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstUeberstdAbgeschlossen WHERE dusa_niederlassung= @dusa_niederlassung AND dusa_jahr= @dusa_jahr AND dusa_kw= @dusa_kw ", conn) + cmd.Parameters.AddWithValue("@dusa_niederlassung", dusa_niederlassung) + cmd.Parameters.AddWithValue("@dusa_jahr", dusa_jahr) + cmd.Parameters.AddWithValue("@dusa_kw", dusa_kw) + + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then Return True + + dr.Close() + End Using + End Using + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'existsEntryKWUeberstd'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return False + End Function + + Public Function getMaxEntryUestdAbgeschl(dusa_niederlassung As String) As String + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT TOP 1 [dusa_jahr],[dusa_kw] FROM tblDienstUeberstdAbgeschlossen WHERE dusa_niederlassung= @dusa_niederlassung ORDER BY [dusa_jahr] desc, [dusa_kw] desc ", conn) + cmd.Parameters.AddWithValue("@dusa_niederlassung", dusa_niederlassung) + + + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + Return dr.Item("dusa_jahr") & dr.Item("dusa_kw") + End If + dr.Close() + End Using + End Using + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'existsEntryKWUeberstd'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return False + End Function + + Public Function updateDienstMaStdADD(id, plus) As Boolean + + + Dim sql = "UPDATE [tblDienstMitarb] " & + "SET dstma_ueberstdCounter=(dstma_ueberstdCounter + @dstma_ueberstdCounter) " & + "WHERE dstma_id=@dstma_id" + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstma_id", id) + cmd.Parameters.AddWithValue("@dstma_ueberstdCounter", plus) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + + End Function + + + + Public Function updateDienstMaStd(id, dstma_ueberstdCounter) As Boolean + Dim sql = "UPDATE [tblDienstMitarb] " & + "SET dstma_ueberstdCounter=@dstma_ueberstdCounter " & + "WHERE dstma_id=@dstma_id" + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstma_id", id) + cmd.Parameters.AddWithValue("@dstma_ueberstdCounter", dstma_ueberstdCounter) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + + End Function + + + + + Public Function insertupdateDienstplanUeberSdtMa(usma_maId As Integer, usma_idKW As Integer, usma_idJahr As Integer, usma_stunden As Double, niederlassung As String) As Boolean + Dim sql As String = " begin tran" & + " if exists (select * from tblDienstplanUeberSdtMa with (updlock,serializable) WHERE usma_idKW=@usma_idKW AND usma_idJahr=@usma_idJahr AND usma_maId=@usma_maId ) " & + " begin " & + "UPDATE [tblDienstplanUeberSdtMa] " & + "SET usma_stunden=@usma_stunden " & + "WHERE usma_idKW=@usma_idKW AND usma_idJahr=@usma_idJahr AND usma_maId=@usma_maId" & + " End " & + " Else " & + " begin " & + "INSERT INTO [tblDienstplanUeberSdtMa] " & + "(usma_maId, usma_idKW, usma_idJahr, usma_stunden,usma_stdAuszahlung,usma_niederlassung) VALUES " & + "(@usma_maId,@usma_idKW,@usma_idJahr,@usma_stunden,@usma_stdAuszahlung,@usma_niederlassung)" & + " End " & + " commit tran " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@usma_maId", usma_maId) + cmd.Parameters.AddWithValue("@usma_idKW", usma_idKW) + cmd.Parameters.AddWithValue("@usma_idJahr", usma_idJahr) + cmd.Parameters.AddWithValue("@usma_stunden", usma_stunden) + cmd.Parameters.AddWithValue("@usma_stdAuszahlung", 0) + cmd.Parameters.AddWithValue("@usma_niederlassung", niederlassung) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + Public Function insertupdateDienstplanUeberSdtMaAuszahlung(usma_maId As Integer, usma_idKW As Integer, usma_idJahr As Integer, usma_stdAuszahlung As Double, niederlassung As String) As Boolean + Dim sql As String = " begin tran" & + " if exists (select * from tblDienstplanUeberSdtMa with (updlock,serializable) WHERE usma_idKW=@usma_idKW AND usma_idJahr=@usma_idJahr AND usma_maId=@usma_maId ) " & + " begin " & + "UPDATE [tblDienstplanUeberSdtMa] " & + "SET usma_stdAuszahlung=@usma_stdAuszahlung " & + "WHERE usma_idKW=@usma_idKW AND usma_idJahr=@usma_idJahr AND usma_maId=@usma_maId" & + " End " & + " Else " & + " begin " & + "INSERT INTO [tblDienstplanUeberSdtMa] " & + "(usma_maId, usma_idKW, usma_idJahr, usma_stunden,usma_stdAuszahlung,usma_niederlassung) VALUES " & + "(@usma_maId,@usma_idKW,@usma_idJahr,@usma_stunden,@usma_stdAuszahlung,@usma_niederlassung)" & + " End " & + " commit tran " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@usma_maId", usma_maId) + cmd.Parameters.AddWithValue("@usma_idKW", usma_idKW) + cmd.Parameters.AddWithValue("@usma_idJahr", usma_idJahr) + cmd.Parameters.AddWithValue("@usma_stunden", 0) + cmd.Parameters.AddWithValue("@usma_stdAuszahlung", usma_stdAuszahlung) + cmd.Parameters.AddWithValue("@usma_niederlassung", niederlassung) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + + Public Function getDienstplanUeberSdtMaSUMMEBisKW(usma_maId As Integer, usma_idKW As Integer, usma_idJahr As Integer, niederlassung As String, Optional inklAktKW As Boolean = False) As Double + Dim minKw = 40 + Dim minJahr = 2016 + + Dim DP_SETTINGS = New cDienstSettings(niederlassung) + minKw = DP_SETTINGS.dpset_startKW + minJahr = DP_SETTINGS.dpset_startJahr + + Dim sqlStr = "" + If inklAktKW Then + sqlStr = "SELECT isnull(sum(usma_stunden - usma_stdAuszahlung),0) as SUM FROM tblDienstplanUeberSdtMa WHERE usma_maId=@usma_maId AND ((usma_idJahr=@usma_idJahr AND usma_idKW<=@usma_idKW) OR usma_idJahr<@usma_idJahr ) " & + " AND ((usma_idJahr=@minJahr AND usma_idKW>=@minKW) OR usma_idJahr>@minJahr ) " + + Else + sqlStr = "SELECT isnull(sum(usma_stunden - usma_stdAuszahlung),0) as SUM FROM tblDienstplanUeberSdtMa WHERE usma_maId=@usma_maId AND ((usma_idJahr=@usma_idJahr AND usma_idKW<@usma_idKW) OR usma_idJahr<@usma_idJahr ) " & + " AND ((usma_idJahr=@minJahr AND usma_idKW>=@minKW) OR usma_idJahr>@minJahr ) " + + End If + Try + Dim d As New cDienstAbwesendheitenKW + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sqlStr, conn) + + cmd.Parameters.AddWithValue("@usma_maId", usma_maId) + cmd.Parameters.AddWithValue("@usma_idKW", usma_idKW) + cmd.Parameters.AddWithValue("@usma_idJahr", usma_idJahr) + cmd.Parameters.AddWithValue("@minJahr", minJahr) + cmd.Parameters.AddWithValue("@minKW", minKw) + + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + Return dr.Item("SUM") + End If + dr.Close() + End Using + End Using + + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return 0 + End Function + + Public Function getDienstplanUeberSdtMaSUMM_KW(usma_maId As Integer, usma_idKW As Integer, usma_idJahr As Integer) As Double + Try + Dim d As New cDienstAbwesendheitenKW + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT isnull(sum(usma_stunden - usma_stdAuszahlung),0) as SUM FROM tblDienstplanUeberSdtMa WHERE usma_maId=@usma_maId AND usma_idJahr=@usma_idJahr AND usma_idKW=@usma_idKW ", conn) + + cmd.Parameters.AddWithValue("@usma_maId", usma_maId) + cmd.Parameters.AddWithValue("@usma_idKW", usma_idKW) + cmd.Parameters.AddWithValue("@usma_idJahr", usma_idJahr) + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + Return dr.Item("SUM") + End If + dr.Close() + End Using + End Using + + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return 0 + End Function + + + + Public Function getDienstplanAuszSdtMaSUMM_KW(usma_maId As Integer, usma_idKW As Integer, usma_idJahr As Integer) As Double + Try + Dim d As New cDienstAbwesendheitenKW + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT isnull(usma_stdAuszahlung,0) as SUM FROM tblDienstplanUeberSdtMa WHERE usma_maId=@usma_maId AND usma_idJahr=@usma_idJahr AND usma_idKW=@usma_idKW ", conn) + + cmd.Parameters.AddWithValue("@usma_maId", usma_maId) + cmd.Parameters.AddWithValue("@usma_idKW", usma_idKW) + cmd.Parameters.AddWithValue("@usma_idJahr", usma_idJahr) + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + Return dr.Item("SUM") + End If + dr.Close() + End Using + End Using + + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return 0 + End Function + + Public Function insertDienstNA(dstna_dstmaId As Integer, dstna_datum_von As Date, dstna_datum_bis As Date, dstna_grund As String, dstna_info As String, dstna_niederlassung As String, dstna_dstnkId As Integer) As Boolean + Dim sql = "INSERT INTO tblDienstNichtAnwesend " & + "(dstna_dstmaId, dstna_datum_von, dstna_datum_bis, dstna_grund, dstna_info,dstna_niederlassung,dstna_dstnkId) VALUES " & + "(@dstna_dstmaId,@dstna_datum_von,@dstna_datum_bis,@dstna_grund,@dstna_info,@dstna_niederlassung,@dstna_dstnkId)" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstna_dstmaId", dstna_dstmaId) + cmd.Parameters.AddWithValue("@dstna_niederlassung", dstna_niederlassung) + cmd.Parameters.AddWithValue("@dstna_datum_von", dstna_datum_von.ToShortDateString) + cmd.Parameters.AddWithValue("@dstna_datum_bis", dstna_datum_bis.ToShortDateString) + cmd.Parameters.AddWithValue("@dstna_grund", dstna_grund) + cmd.Parameters.AddWithValue("@dstna_info", dstna_info) + cmd.Parameters.AddWithValue("@dstna_dstnkId", dstna_dstnkId) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + + Public Function insertDienstNA_KW(dstnk_dstmaId As Integer, dstnk_kw As Integer, dstnk_jahr As Integer, dstnk_grund As String, dstnk_info As String, dstnk_niederlassung As String) As Integer + Dim id As Integer = -1 + Dim sql = "INSERT INTO [tblDienstNichtAnwesendKW] " & + "(dstnk_dstmaId, dstnk_kw, dstnk_jahr, dstnk_grund, dstnk_info,dstnk_niederlassung) VALUES " & + "(@dstnk_dstmaId,@dstnk_kw,@dstnk_jahr,@dstnk_grund,@dstnk_info,@dstnk_niederlassung); SELECT CAST(scope_identity() AS int);" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstnk_dstmaId", dstnk_dstmaId) + cmd.Parameters.AddWithValue("@dstnk_niederlassung", dstnk_niederlassung) + cmd.Parameters.AddWithValue("@dstnk_kw", dstnk_kw) + cmd.Parameters.AddWithValue("@dstnk_jahr", dstnk_jahr) + cmd.Parameters.AddWithValue("@dstnk_grund", dstnk_grund) + cmd.Parameters.AddWithValue("@dstnk_info", dstnk_info) + + Try + + 'cmd.ExecuteNonQuery() + id = (Convert.ToInt32(cmd.ExecuteScalar())) + ' cmd.ExecuteNonQuery() + + ' Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + + + End Using + End Using + Return id + End Function + + + Public Function getDienstAbwesendheitenKW(kw As Integer, maId As Integer, jahr As Integer, ByVal niederlassung As String) As List(Of cDienstAbwesendheitenKW) + Try + Dim data As New List(Of cDienstAbwesendheitenKW) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstNichtAnwesendKW WHERE dstnk_dstmaId= '" & maId & "' AND dstnk_niederlassung= '" & niederlassung & "' AND dstnk_kw= '" & kw & "' AND dstnk_jahr= '" & jahr & "' ", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstAbwesendheitenKW + + d.dstnk_id = dr.Item("dstnk_id") + d.dstnk_mitId = dr.Item("dstnk_dstmaId") + d.dstnk_kw = dr.Item("dstnk_kw") + d.dstnk_jahr = dr.Item("dstnk_jahr") + d.dstnk_grund = dr.Item("dstnk_grund") + d.dstnk_info = dr.Item("dstnk_info") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getDienstAbwesendheiten'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + End Function + + Public Function getDienstAbwesendheitenKWByArt(kw As Integer, maId As Integer, jahr As Integer, ByVal niederlassung As String, dstnk_grund As String) As List(Of cDienstAbwesendheitenKW) + Try + Dim data As New List(Of cDienstAbwesendheitenKW) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstNichtAnwesendKW WHERE dstnk_dstmaId= '" & maId & "' AND dstnk_niederlassung= '" & niederlassung & "' AND dstnk_kw= '" & kw & "' AND dstnk_jahr= '" & jahr & "' AND dstnk_grund= '" & dstnk_grund & "'", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstAbwesendheitenKW + + d.dstnk_id = dr.Item("dstnk_id") + d.dstnk_mitId = dr.Item("dstnk_dstmaId") + d.dstnk_kw = dr.Item("dstnk_kw") + d.dstnk_jahr = dr.Item("dstnk_jahr") + d.dstnk_grund = dr.Item("dstnk_grund") + d.dstnk_info = dr.Item("dstnk_info") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getDienstAbwesendheiten'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + End Function + + + + Public Function getDienstAbwesendheitenKWByID(kwId As Integer) As cDienstAbwesendheitenKW + Try + Dim d As New cDienstAbwesendheitenKW + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDienstNichtAnwesendKW WHERE dstnk_id= " & kwId & " ", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + d.dstnk_id = dr.Item("dstnk_id") + d.dstnk_mitId = dr.Item("dstnk_dstmaId") + d.dstnk_kw = dr.Item("dstnk_kw") + d.dstnk_jahr = dr.Item("dstnk_jahr") + d.dstnk_grund = dr.Item("dstnk_grund") + d.dstnk_info = dr.Item("dstnk_info") + Return d + End If + dr.Close() + End Using + End Using + + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getDienstAbwesendheiten'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + End Function + + Public Function getDienstAbwesendheitenKWByMA(dstnk_dstmaId As Integer, kw As Integer, jahr As Integer, ByVal niederlassung As String) As List(Of cDienstAbwesendheitenKW) + Try + Dim data As New List(Of cDienstAbwesendheitenKW) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstNichtAnwesendKW WHERE dstnk_dstmaId= '" & dstnk_dstmaId & "' AND dstnk_niederlassung= '" & niederlassung & "' AND dstnk_kw= '" & kw & "' AND dstnk_jahr= '" & jahr & "' ", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstAbwesendheitenKW + + d.dstnk_id = dr.Item("dstnk_id") + d.dstnk_mitId = dr.Item("dstnk_dstmaId") + d.dstnk_kw = dr.Item("dstnk_kw") + d.dstnk_jahr = dr.Item("dstnk_jahr") + d.dstnk_grund = dr.Item("dstnk_grund") + d.dstnk_info = dr.Item("dstnk_info") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getDienstAbwesendheitenkw'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + End Function + + Public Function delDienstNichtAnwesendKW(ByVal dstnk_id As Integer) As Boolean + Dim sql = "DELETE FROM tblDienstNichtAnwesendKW WHERE dstnk_id=@dstnk_id" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstnk_id", dstnk_id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + Public Function delDienstplanEintraege(ByVal von As Date, ByVal bis As Date, niederlassung As String) As Boolean + Dim sql = "DELETE FROM [tblDienstplanEintraege] WHERE dstetr_datum BETWEEN @von AND @bis AND dstetr_niederlassung=@niederlassung" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@von", von) + cmd.Parameters.AddWithValue("@bis", bis) + cmd.Parameters.AddWithValue("@niederlassung", niederlassung) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + Public Function delDienstplanUeberSdtMa(ByVal kw As Integer, ByVal jahr As Integer, niederlassung As String) As Boolean + Dim sql = "DELETE FROM [tblDienstplanUeberSdtMa] WHERE [usma_idKW]=@kw AND [usma_idJahr]=@jahr AND usma_niederlassung=@niederlassung" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@jahr", jahr) + cmd.Parameters.AddWithValue("@kw", kw) + cmd.Parameters.AddWithValue("@niederlassung", niederlassung) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + + Public Function getDienstAbwesendheiten(von As Date, bis As Date, ByVal niederlassung As String) As List(Of cDienstAbwesendheiten) + Try + Dim data As New List(Of cDienstAbwesendheiten) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstNichtAnwesend WHERE dstna_niederlassung= '" & niederlassung & "' AND (dstna_datum_von <= '" & bis.ToShortDateString & "' AND dstna_datum_bis >= '" & von.ToShortDateString & "') OR (dstna_datum_von <= '" & von.ToShortDateString & "' AND dstna_datum_bis >= '" & von.ToShortDateString & "') ", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstAbwesendheiten + + d.dstna_id = dr.Item("dstna_id") + d.dstna_mitId = dr.Item("dstna_dstmaId") + d.dstna_datum_von = dr.Item("dstna_datum_von") + d.dstna_datum_bis = dr.Item("dstna_datum_bis") + d.dstna_grund = dr.Item("dstna_grund") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getDienstAbwesendheiten'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + End Function + + Public Function getDienstAbwesendheitenByID(von As Date, bis As Date, ByVal niederlassung As String, ByVal grund As String, maId As Integer) As List(Of cDienstAbwesendheiten) + Try + Dim data As New List(Of cDienstAbwesendheiten) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstNichtAnwesend WHERE dstna_niederlassung= @niederlassung AND dstna_dstmaId= @id AND dstna_grund = @grund AND (dstna_datum_von <= '" & bis.ToShortDateString & "' AND dstna_datum_bis >= '" & von.ToShortDateString & "') OR (dstna_datum_von <= '" & von.ToShortDateString & "' AND dstna_datum_bis >= '" & von.ToShortDateString & "') ", conn) + cmd.Parameters.AddWithValue("@niederlassung", niederlassung) + cmd.Parameters.AddWithValue("@id", maId) + cmd.Parameters.AddWithValue("@grund", grund) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstAbwesendheiten + + d.dstna_id = dr.Item("dstna_id") + d.dstna_mitId = dr.Item("dstna_dstmaId") + d.dstna_datum_von = dr.Item("dstna_datum_von") + d.dstna_datum_bis = dr.Item("dstna_datum_bis") + d.dstna_grund = dr.Item("dstna_grund") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getDienstAbwesendheiten'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + End Function + + + Public Function getDienstAbwesendheitenByKWID(kwId As Integer) As List(Of cDienstAbwesendheiten) + Try + Dim data As New List(Of cDienstAbwesendheiten) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstNichtAnwesend WHERE dstna_dstnkId= @kwId ", conn) + cmd.Parameters.AddWithValue("@kwId", kwId) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstAbwesendheiten + + d.dstna_id = dr.Item("dstna_id") + d.dstna_mitId = dr.Item("dstna_dstmaId") + d.dstna_datum_von = dr.Item("dstna_datum_von") + d.dstna_datum_bis = dr.Item("dstna_datum_bis") + d.dstna_grund = dr.Item("dstna_grund") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getDienstAbwesendheiten'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + End Function + + + Public Function delDienstNichtAnwesend(ByVal dstna_id As Integer) As Boolean + Dim sql = "DELETE FROM tblDienstNichtAnwesend WHERE dstna_id=@dstna_id" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstna_id", dstna_id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + + Public Function delDienstNichtAnwesendIdArtDatum(ByVal dstna_dstmaId As Integer, von As Date, bis As Date) As Boolean + Dim sql = "DELETE FROM tblDienstNichtAnwesend WHERE dstna_dstmaId=@dstna_dstmaId AND (dstna_datum_von between @dstna_datum_von AND @dstna_datum_bis) AND dstna_datum_von=dstna_datum_bis " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstna_dstmaId", dstna_dstmaId) + cmd.Parameters.AddWithValue("@dstna_datum_von", von.ToShortDateString) + cmd.Parameters.AddWithValue("@dstna_datum_bis", bis.ToShortDateString) + ' cmd.Parameters.AddWithValue("@dstna_grund", art) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + + Public Function delDienstNichtAnwesendKW_ByKW_ID(ByVal KW_ID As Integer) As Boolean + Dim sql = "DELETE FROM tblDienstNichtAnwesendKW WHERE dstnk_id=@KW_ID " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@KW_ID", KW_ID) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + Public Function delDienstNichtAnwesend_ByKW_ID(ByVal KW_ID As Integer) As Boolean + Dim sql = "DELETE FROM tblDienstNichtAnwesend WHERE dstna_dstnkID=@KW_ID " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@KW_ID", KW_ID) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + + Public Function delDienstNichtAnwesendKW_ByKwJahr(ByVal dstnk_dstmaId As Integer, kw As Integer, jahr As Integer) As Boolean + Dim sql = "DELETE FROM tblDienstNichtAnwesendKW WHERE dstnk_dstmaId=@dstnk_dstmaId AND dstnk_kw=@dstnk_kw AND dstnk_jahr=@dstnk_jahr " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstnk_dstmaId", dstnk_dstmaId) + cmd.Parameters.AddWithValue("@dstnk_kw", kw) + cmd.Parameters.AddWithValue("@dstnk_jahr", jahr) + ' cmd.Parameters.AddWithValue("@dstnk_grund", art) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + Public Function delDienstTeilzeit(ByVal id As Integer) As Boolean + Dim sql = "DELETE FROM tblDienstTeilzeit WHERE dsttz_maId=@dsttz_maId" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dsttz_maId", id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + + Public Function delDienstTeilzeitByDedetId(ByVal id As Integer) As Boolean + Dim sql = "DELETE FROM tblDienstplanSchichtenZeiten WHERE dsz_dedetId=@dsz_dedetId" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dsz_dedetId", id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + + Public Function delDienstNichtAnwesend2(ByVal id As Integer) As Boolean + Dim sql = "DELETE FROM tblDienstNichtAnwesend WHERE dstna_dstmaId=@dstna_dstmaId" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstna_dstmaId", id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + Public Function getAllDienstTeilzeit(id) As List(Of cDienstTeilzeit) + Try + Dim data As New List(Of cDienstTeilzeit) + 'MsgBox("id" & id) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstTeilzeit WHERE dsttz_maId=@dsttz_maId ", conn) + cmd.Parameters.AddWithValue("@dsttz_maId", id) + ' cmd.Parameters.AddWithValue("@dsttz_niederlassung", niederlassung) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstTeilzeit + + d.dsttz_maId = dr.Item("dsttz_maId") + d.dsttz_wotag = dr.Item("dsttz_wotag") + d.dsttz_abt = dr.Item("dsttz_abt") + d.dsttz_von = dr.Item("dsttz_von") + d.dsttz_bis = dr.Item("dsttz_bis") + d.dsttz_dienstplan = dr.Item("dsttz_dienstplan") + d.dsttz_pause = dr.Item("dsttz_pause") + d.dsttz_bemerkung = dr.Item("dsttz_bemerkung") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getSeminarById'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + End Function + + Public Function getDienstTeilzeitBySchicht(id, schicht, woTag) As cDienstTeilzeit + Try + Dim d As New cDienstTeilzeit + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDienstTeilzeit WHERE dsttz_maId=@dsttz_maId AND dsttz_dienstplan=@dsttz_dienstplan AND dsttz_woTag=dsttz_woTag", conn) + cmd.Parameters.AddWithValue("@dsttz_maId", id) + cmd.Parameters.AddWithValue("@dsttz_dienstplan", schicht) + cmd.Parameters.AddWithValue("@dsttz_woTag", woTag) + Dim dr = cmd.ExecuteReader() + While dr.Read + + d.dsttz_maId = dr.Item("dsttz_maId") + d.dsttz_wotag = dr.Item("dsttz_wotag") + d.dsttz_abt = dr.Item("dsttz_abt") + d.dsttz_von = dr.Item("dsttz_von") + d.dsttz_bis = dr.Item("dsttz_bis") + d.dsttz_dienstplan = dr.Item("dsttz_dienstplan") + d.dsttz_pause = dr.Item("dsttz_pause") + d.dsttz_bemerkung = dr.Item("dsttz_bemerkung") + + End While + dr.Close() + End Using + End Using + Return d + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getSeminarById'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + Return Nothing + End Function + + + Public Function insertDienstTeilzeit(ByVal ma As cDienstTeilzeit) As Boolean + Dim hAuswahl As String = "" + + Dim sql As String = "INSERT INTO tblDienstTeilzeit " & + "( dsttz_maId, dsttz_wotag, dsttz_abt, dsttz_von, dsttz_bis, dsttz_dienstplan, dsttz_pause,dsttz_bemerkung) VALUES " & + "( @dsttz_maId, @dsttz_wotag, @dsttz_abt, @dsttz_von, @dsttz_bis, @dsttz_dienstplan, @dsttz_pause,@dsttz_bemerkung) " + + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.AddWithValue("@dsttz_maId", ma.dsttz_maId) + cmd.Parameters.AddWithValue("@dsttz_wotag", ma.dsttz_wotag) + cmd.Parameters.AddWithValue("@dsttz_abt", ma.dsttz_abt) + cmd.Parameters.AddWithValue("@dsttz_von", ma.dsttz_von) + cmd.Parameters.AddWithValue("@dsttz_bis", ma.dsttz_bis) + cmd.Parameters.AddWithValue("@dsttz_dienstplan", ma.dsttz_dienstplan) + cmd.Parameters.AddWithValue("@dsttz_pause", ma.dsttz_pause) + cmd.Parameters.AddWithValue("@dsttz_bemerkung", ma.dsttz_bemerkung) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + + + Public Function insertDienstSchichtZeit(dsz_dedetId, dsz_von, dsz_bis, dsz_pause, dsz_wotag) As Boolean + Dim hAuswahl As String = "" + + Dim sql As String = "INSERT INTO [tblDienstplanSchichtenZeiten] " & + "( dsz_dedetId, dsz_wotag, dsz_von, dsz_bis, dsz_pause) VALUES " & + "( @dsz_dedetId, @dsz_wotag, @dsz_von, @dsz_bis, @dsz_pause) " + + + + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.AddWithValue("@dsz_dedetId", dsz_dedetId) + cmd.Parameters.AddWithValue("@dsz_von", dsz_von) + cmd.Parameters.AddWithValue("@dsz_bis", dsz_bis) + cmd.Parameters.AddWithValue("@dsz_pause", dsz_pause.replace(",", ".")) + cmd.Parameters.AddWithValue("@dsz_wotag", dsz_wotag) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + + Public Function updateEintraegeDetails_Benuterdef(dedet_id, dedet_bezeichnungDP, dedet_ProzentGrafik, dedet_bezeichnungExcel, dedet_bezeichnungExcel2, dedet_bezeichnungExcel3, dedet_ZeilenExcel, dedet_benutzerdefinierteSchicht, dedet_stdWieArbeitszeit, dedet_reihenfolge, dedet_TagesWechsel, dedet_WechselZuSchicht, dedet_HotKey, dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe, dedet_bezLeiter, dedet_ExcelMonatFarbe, dedet_ExcelMonatBezeichnung) As Boolean + Dim hAuswahl As String = "" + + Dim sql As String = "UPDATE tblDienstplanEintraegeDetails " & + "SET dedet_bezeichnungDP=@dedet_bezeichnungDP,dedet_ProzentGrafik=@dedet_ProzentGrafik,dedet_bezeichnungExcel=@dedet_bezeichnungExcel,dedet_bezeichnungExcel2=@dedet_bezeichnungExcel2,dedet_bezeichnungExcel3=@dedet_bezeichnungExcel3,dedet_ZeilenExcel=@dedet_ZeilenExcel,dedet_benutzerdefinierteSchicht=@dedet_benutzerdefinierteSchicht,dedet_stdWieArbeitszeit=@dedet_stdWieArbeitszeit, " & + " dedet_reihenfolge=@dedet_reihenfolge,dedet_TagesWechsel=@dedet_TagesWechsel,dedet_WechselZuSchicht=@dedet_WechselZuSchicht,dedet_HotKey=@dedet_HotKey ,dedet_bgAlternativeFarbe=@dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe=@dedet_ExcelBgFarbe,dedet_bezLeiter=@dedet_bezLeiter,dedet_ExcelMonatFarbe=@dedet_ExcelMonatFarbe,dedet_ExcelMonatBezeichnung=@dedet_ExcelMonatBezeichnung" & + " WHERE dedet_id=@dedet_id " + + + + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.AddWithValue("@dedet_id", dedet_id) + cmd.Parameters.AddWithValue("@dedet_bezeichnungDP", dedet_bezeichnungDP) + cmd.Parameters.AddWithValue("@dedet_ProzentGrafik", dedet_ProzentGrafik) + cmd.Parameters.AddWithValue("@dedet_bezeichnungExcel", dedet_bezeichnungExcel) + cmd.Parameters.AddWithValue("@dedet_bezeichnungExcel2", dedet_bezeichnungExcel2) + cmd.Parameters.AddWithValue("@dedet_bezeichnungExcel3", dedet_bezeichnungExcel3) + cmd.Parameters.AddWithValue("@dedet_ZeilenExcel", dedet_ZeilenExcel) + cmd.Parameters.AddWithValue("@dedet_benutzerdefinierteSchicht", dedet_benutzerdefinierteSchicht) + cmd.Parameters.AddWithValue("@dedet_stdWieArbeitszeit", dedet_stdWieArbeitszeit) + + cmd.Parameters.AddWithValue("@dedet_reihenfolge", dedet_reihenfolge) + cmd.Parameters.AddWithValue("@dedet_TagesWechsel", dedet_TagesWechsel) + cmd.Parameters.AddWithValue("@dedet_WechselZuSchicht", dedet_WechselZuSchicht) + cmd.Parameters.AddWithValue("@dedet_HotKey", dedet_HotKey) + cmd.Parameters.AddWithValue("@dedet_bgAlternativeFarbe", dedet_bgAlternativeFarbe) + cmd.Parameters.AddWithValue("@dedet_ExcelBgFarbe", dedet_ExcelBgFarbe) + cmd.Parameters.AddWithValue("@dedet_bezLeiter", dedet_bezLeiter) + cmd.Parameters.AddWithValue("@dedet_ExcelMonatFarbe", dedet_ExcelMonatFarbe) + cmd.Parameters.AddWithValue("@dedet_ExcelMonatBezeichnung", dedet_ExcelMonatBezeichnung) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + Public Function delDienstNichtAnwesendKW_ByMaID(ByVal id As Integer) As Boolean + Dim hAuswahl As String = "" + 'tblDienstNichtAnwesend + 'Änderung + Dim sql = "DELETE FROM tblDienstNichtAnwesendKW WHERE dstnk_dstmaId=@dstnk_dstmaId" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstnk_dstmaId", id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + Public Function delDienstNichtAnwesend_ByMaID(ByVal id As Integer) As Boolean + Dim hAuswahl As String = "" + 'tblDienstNichtAnwesend + 'Änderung + Dim sql = "DELETE FROM tblDienstNichtAnwesend WHERE dstna_dstmaId=@dstna_dstmaId" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstna_dstmaId", id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + + End Function + Public Function delDienstMitarbeiter(ByVal id As Integer) As Boolean + Dim hAuswahl As String = "" + + 'Änderung + Dim sql = "DELETE FROM tblDienstMitarb WHERE dstma_id=@dstma_id" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstma_id", id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + + + Public Function getAllDienstMA(ByVal niederlassung As String, ByVal montag As Date, Optional where As String = "") As List(Of cDienstMA) + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim data As New List(Of cDienstMA) + 'MsgBox("SELECT * FROM tblDienstMitarb WHERE dstma_niederlassung = '" & niederlassung & "' " & where & " ORDER BY dstma_kuerzel ASC") + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstMitarb INNER JOIN tblMitarbeiter ON mit_id=dstma_mitId WHERE dstma_inaktiv=0 AND (mit_gekuendigt =0 OR mit_kuendigungsdatum>='" & montag.ToShortDateString & "') AND dstma_niederlassung = '" & niederlassung & "' " & where & " ORDER BY dstma_kuerzel ASC", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstMA + + d.dstma_id = dr.Item("dstma_id") + d.dstma_mitId = dr.Item("dstma_mitId") + d.dstma_abteilung = dr.Item("dstma_abteilung") + d.dstma_funktion = dr.Item("dstma_funktion") + d.dstma_arbvh = dr.Item("dstma_arbvh") + d.dstma_wochenStunden = dr.Item("dstma_wochenStunden") + d.dstma_stammSchicht = dr.Item("dstma_stammSchicht") + d.dstma_kuerzel = dr.Item("dstma_kuerzel") + d.dstma_farbe = dr.Item("dstma_farbe") + d.dstma_muster = dr.Item("dstma_muster") + d.dstma_4wo = dr.Item("dstma_4wo") + d.dstma_WEStdRegelAZ = dr.Item("dstma_WEStdRegelAZ") + + + If Not dr.Item("dstma_TageProWoche") Is DBNull.Value Then d.dstma_TageProWoche = dr.Item("dstma_TageProWoche") + + + d.dstma_inaktiv = dr.Item("dstma_inaktiv") + If Not dr.Item("dstma_TzFeiertageStd") Is DBNull.Value Then d.dstma_TzFeiertageStd = dr.Item("dstma_TzFeiertageStd") + + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getAllDienstMA'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + Public Function getAllDienstDetails(niederlassung) As List(Of cDienstDetails) + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim data As New List(Of cDienstDetails) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstplanEintraegeDetails as det INNER JOIN [tblDienstplanSchichtenZeiten] as sz ON det.dedet_id=sz.dsz_dedetId WHERE dedet_niederlassung=@dedet_niederlassung ", conn) + cmd.Parameters.AddWithValue("@dedet_niederlassung", niederlassung) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstDetails + + d.dedet_id = dr.Item("dedet_id") + d.dedet_abt = dr.Item("dedet_abt") + d.dedet_info = dr.Item("dedet_info") + d.dedet_von = dr.Item("dsz_von") + d.dedet_bis = dr.Item("dsz_bis") + d.dedet_pause = IIf(IsNumeric(dr.Item("dsz_pause")), dr.Item("dsz_pause"), 0) + d.dedet_woTag = dr.Item("dsz_woTag") + + ' d.dedet_bezeichnungDP = dr.Item("dedet_bezeichnungDP") + ' d.dedet_ProzentGrafik = dr.Item("dedet_ProzentGrafik") + '' d.dedet_bezeichnungExcel = dr.Item("dedet_bezeichnungExcel") + ' d.dedet_ZeilenExcel = dr.Item("dedet_ZeilenExcel") + + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getAllDienstDetails'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + + + Public Function getDienstDetailsWoTagByArt(niederlassung, art) As List(Of cDienstDetails) + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim data As New List(Of cDienstDetails) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstplanEintraegeDetails as det INNER JOIN [tblDienstplanSchichtenZeiten] as sz ON det.dedet_id=sz.dsz_dedetId WHERE dedet_niederlassung=@dedet_niederlassung AND dedet_abt=@dedet_abt", conn) + cmd.Parameters.AddWithValue("@dedet_niederlassung", niederlassung) + cmd.Parameters.AddWithValue("@dedet_abt", art) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstDetails + + d.dedet_id = dr.Item("dedet_id") + d.dedet_abt = dr.Item("dedet_abt") + d.dedet_info = dr.Item("dedet_info") + d.dedet_von = dr.Item("dsz_von") + d.dedet_bis = dr.Item("dsz_bis") + d.dedet_pause = IIf(IsNumeric(dr.Item("dsz_pause")), dr.Item("dsz_pause"), 0) + d.dedet_woTag = dr.Item("dsz_woTag") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getAllDienstDetails'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + Public Function getDienstDetailsWoTagByArtAndWoTag(niederlassung, art, wotag) As cDienstDetails + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + ' MsgBox("SELECT TOP 1 * FROM tblDienstplanEintraegeDetails as det INNER JOIN [tblDienstplanSchichtenZeiten] as sz ON det.dedet_id=sz.dsz_dedetId WHERE dedet_niederlassung=" & niederlassung & " AND dedet_abt=" & art & " AND dsz_woTag=" & wotag & " ") + Dim d As New cDienstDetails + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDienstplanEintraegeDetails as det INNER JOIN [tblDienstplanSchichtenZeiten] as sz ON det.dedet_id=sz.dsz_dedetId WHERE dedet_niederlassung=@dedet_niederlassung AND dedet_abt=@dedet_abt AND dsz_woTag=@dsz_woTag", conn) + cmd.Parameters.AddWithValue("@dedet_niederlassung", niederlassung) + cmd.Parameters.AddWithValue("@dedet_abt", art) + cmd.Parameters.AddWithValue("@dsz_woTag", wotag) + Dim dr = cmd.ExecuteReader() + While dr.Read + + + d.dedet_id = dr.Item("dedet_id") + d.dedet_abt = dr.Item("dedet_abt") + d.dedet_info = dr.Item("dedet_info") + d.dedet_von = dr.Item("dsz_von") + d.dedet_bis = dr.Item("dsz_bis") + d.dedet_pause = IIf(IsNumeric(dr.Item("dsz_pause")), dr.Item("dsz_pause"), 0) + d.dedet_woTag = dr.Item("dsz_woTag") + + + End While + dr.Close() + End Using + End Using + Return d + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getAllDienstDetails'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + + End Function + Public Function getAllDienstDetailsNurSchichten2() As List(Of cDienstDetails) + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim data As New List(Of cDienstDetails) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblDienstplanEintraegeDetails ", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cDienstDetails + + d.dedet_id = dr.Item("dedet_id") + d.dedet_abt = dr.Item("dedet_abt") + d.dedet_info = dr.Item("dedet_info") + d.dedet_von = dr.Item("dedet_von") + d.dedet_bis = dr.Item("dedet_bis") + d.dedet_pause = IIf(IsNumeric(dr.Item("dsz_pause")), dr.Item("dsz_pause"), 0) + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'getAllDienstDetails'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + Public Function getAllMA(niederlassung) As List(Of cMAShort) + + If niederlassung = "BEIDE" Then + niederlassung = "" + ElseIf niederlassung <> "ATILLA" Then + niederlassung = "AND mit_firma='VERAG'" + Else + niederlassung = "AND mit_firma='ATILLA'" + End If + Try + Dim data As New List(Of cMAShort) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT * FROM tblMitarbeiter WHERE 1=1 " & niederlassung & " ORDER BY mit_nname DESC ", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cMAShort + + d.mit_id = dr.Item("mit_id") + d.mit_vname = dr.Item("mit_vname") + d.mit_nname = dr.Item("mit_nname") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'getAllMA'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + + + Return Nothing + End Function + + Public Function getDstMAShort() As List(Of cMAShort) + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim data As New List(Of cMAShort) + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand("SELECT mit_id,dstma_mitId,mit_vname,mit_nname,dstma_reihenfolge FROM tblDienstMitarb INNER JOIN tblMitarbeiter ON mit_id=dstma_mitId WHERE mit_firma='VERAG' ORDER BY dstma_reihenfolge DESC, mit_nname DESC ", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim d As New cMAShort + + d.mit_id = dr.Item("dstma_mitId") + d.mit_vname = dr.Item("mit_vname") + d.mit_nname = dr.Item("mit_nname") + + data.Add(d) + End While + dr.Close() + End Using + End Using + Return data + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'getAllMA'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + + Public Function getDstMA(maId) As cDienstMA + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim d As New cDienstMA + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(" SELECT dstma_id,dstma_mitId,dstma_kuerzel, dstma_abteilung,dstma_funktion,dstma_arbvh,dstma_wochenStunden,dstma_stammSchicht,dstma_reihenfolge,dstma_farbe,dstma_TageProWoche,dstma_muster,dstma_4wo,dstma_WEStdRegelAZ,dstma_inaktiv,dstma_TzFeiertageStd FROM tblDienstMitarb INNER JOIN tblMitarbeiter ON mit_id=dstma_mitId WHERE dstma_id=" & maId & " ", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + d.dstma_id = dr.Item("dstma_id") + d.dstma_mitId = dr.Item("dstma_mitId") + d.dstma_kuerzel = dr.Item("dstma_kuerzel") + d.dstma_abteilung = dr.Item("dstma_abteilung") + d.dstma_arbvh = dr.Item("dstma_arbvh") + d.dstma_stammSchicht = dr.Item("dstma_stammSchicht") + d.dstma_wochenStunden = dr.Item("dstma_wochenStunden") + d.dstma_reihenfolge = dr.Item("dstma_reihenfolge") + d.dstma_farbe = dr.Item("dstma_farbe") + d.dstma_muster = dr.Item("dstma_muster") + d.dstma_4wo = dr.Item("dstma_4wo") + d.dstma_WEStdRegelAZ = dr.Item("dstma_WEStdRegelAZ") + + If Not dr.Item("dstma_TageProWoche") Is DBNull.Value Then d.dstma_TageProWoche = dr.Item("dstma_TageProWoche") + + d.dstma_inaktiv = dr.Item("dstma_inaktiv") + If Not dr.Item("dstma_TzFeiertageStd") Is DBNull.Value Then d.dstma_TzFeiertageStd = dr.Item("dstma_TzFeiertageStd") + + End While + dr.Close() + End Using + End Using + Return d + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + + Public Function getDstMAByDstMaId(dstmaId) As cDienstMA + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim d As New cDienstMA + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(" SELECT dstma_id,dstma_mitId,dstma_kuerzel, dstma_abteilung,dstma_funktion,dstma_arbvh,dstma_wochenStunden,dstma_stammSchicht,dstma_reihenfolge,dstma_farbe,dstma_TageProWoche,dstma_inaktiv,dstma_TzFeiertageStd FROM tblDienstMitarb WHERE dstma_id=" & dstmaId & " ", conn) + 'cmd.Parameters.AddWithValue("@semi_id", id) + Dim dr = cmd.ExecuteReader() + While dr.Read + d.dstma_id = dr.Item("dstma_id") + d.dstma_mitId = dr.Item("dstma_mitId") + d.dstma_kuerzel = dr.Item("dstma_kuerzel") + d.dstma_abteilung = dr.Item("dstma_abteilung") + d.dstma_arbvh = dr.Item("dstma_arbvh") + d.dstma_stammSchicht = dr.Item("dstma_stammSchicht") + d.dstma_wochenStunden = dr.Item("dstma_wochenStunden") + d.dstma_reihenfolge = dr.Item("dstma_reihenfolge") + d.dstma_farbe = dr.Item("dstma_farbe") + If Not dr.Item("dstma_TageProWoche") Is DBNull.Value Then d.dstma_TageProWoche = dr.Item("dstma_TageProWoche") + + d.dstma_inaktiv = dr.Item("dstma_inaktiv") + If Not dr.Item("dstma_TzFeiertageStd") Is DBNull.Value Then d.dstma_TzFeiertageStd = dr.Item("dstma_TzFeiertageStd") + + End While + dr.Close() + End Using + End Using + Return d + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + Public Function delDstEintraege(von, bis, niederlassung) As Boolean + Dim sql = "DELETE FROM tblDienstplanEintraege " & + "WHERE dstetr_niederlassung= '" & niederlassung & "' AND dstetr_datum BETWEEN @von AND @bis " + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@von", von) + cmd.Parameters.AddWithValue("@bis", bis) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + Public Function delDstEintraegeMaId(von, bis, niederlassung, dstetr_dstmaId) As Boolean + Dim sql = "DELETE FROM tblDienstplanEintraege " & + "WHERE dstetr_niederlassung= '" & niederlassung & "' AND dstetr_datum BETWEEN @von AND @bis AND dstetr_dstmaId=@dstetr_dstmaId" + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@von", von) + cmd.Parameters.AddWithValue("@bis", bis) + cmd.Parameters.AddWithValue("@dstetr_dstmaId", dstetr_dstmaId) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + + Public Function getMaIDFromMitID(mit_id As Integer) As String + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.getValueTxtBySql("Select [dstma_id] FROM [tblDienstMitarb] INNER JOIN tblMitarbeiter On mit_id=dstma_mitId WHERE mit_id=" & mit_id, "ADMIN") + + End Function + + + + Public Function delDstEintraegeAllMaId(dstetr_dstmaId) As Boolean + Dim sql = "DELETE FROM tblDienstplanEintraege " & + "WHERE dstetr_dstmaId=@dstetr_dstmaId " + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstetr_dstmaId", dstetr_dstmaId) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") + End Try + End Using + End Using + Return False + End Function + + Public Function loadDGV(ByVal sql As String) As DataTable + While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() + Try + Dim myTable = New DataTable() + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Dim dr = cmd.ExecuteReader() + myTable.Load(dr) + dr.Close() + End Using + End Using + Return myTable 'While Schleife wird hier verlassen + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Problem in Function 'loadDGV'") + If antwort <> MsgBoxResult.Retry Then + 'Programm wird beendet + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + Environment.Exit(0) + End If + End Try + End While + + Return Nothing + End Function + + + Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL") As String + Dim s As String = "" + Try + 'MsgBox("1") + Dim conn As New SqlConnection + Select Case conn_art + Case "FMZOLL" : conn = cSqlDb.GetNewOpenConnectionFMZOLL() + Case "ADMIN" : conn = cSqlDb.GetNewOpenConnection() + End Select + + Using cmd As New SqlCommand(sql, conn) + Dim dr As SqlDataReader = cmd.ExecuteReader() + If dr.HasRows Then + dr.Read() + If Not dr.Item(0) Is DBNull.Value Then + s = CStr(dr.Item(0)) + End If + End If + dr.Close() + End Using + conn.Close() + + Return s + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + End Try + 'MsgBox("3") + Return "" + End Function + + + Public Function updateInsertByDienstEintrag(ByVal daten As cDienstEintrag, niederlassung As String) As Boolean + Dim sql As String = " begin tran" & + " if exists (select * from tblDienstplanEintraege with (updlock,serializable) where dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung) " & + " begin " & + " UPDATE tblDienstplanEintraege " & + " SET dstetr_dstmaId=@dstetr_dstmaId, dstetr_art=@dstetr_art, dstetr_von=@dstetr_von, dstetr_bis=@dstetr_bis, dstetr_grund=@dstetr_grund, dstetr_info=@dstetr_info,dstetr_niederlassung=@dstetr_niederlassung,dstetr_pause=@dstetr_pause " & + " WHERE dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung " & + " End " & + " Else " & + " begin " & + "INSERT INTO tblDienstplanEintraege " & + "( dstetr_dstmaId, dstetr_datum, dstetr_art, dstetr_von, dstetr_bis, dstetr_grund, dstetr_info, dstetr_niederlassung,dstetr_pause) VALUES " & + "( @dstetr_dstmaId, @dstetr_datum, @dstetr_art, @dstetr_von, @dstetr_bis, @dstetr_grund, @dstetr_info,@dstetr_niederlassung,@dstetr_pause )" & + " End " & + " commit tran " + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstetr_id", daten.dstetr_id) + cmd.Parameters.AddWithValue("@dstetr_dstmaId", daten.dstetr_dstmaId) + cmd.Parameters.AddWithValue("@dstetr_datum", daten.dstetr_datum) + cmd.Parameters.AddWithValue("@dstetr_art", daten.dstetr_art) + cmd.Parameters.AddWithValue("@dstetr_von", daten.dstetr_von) + cmd.Parameters.AddWithValue("@dstetr_bis", daten.dstetr_bis) + cmd.Parameters.AddWithValue("@dstetr_pause", CDbl(daten.dstetr_pause)) + cmd.Parameters.AddWithValue("@dstetr_grund", daten.dstetr_grund) + cmd.Parameters.AddWithValue("@dstetr_info", daten.dstetr_info) + cmd.Parameters.AddWithValue("@dstetr_niederlassung", niederlassung) + + 'MsgBox(daten.dstetr_dstmaId) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + + + Public Function getDienstEintragList(datum As Date, niederlassung As String) As List(Of cDienstEintrag) + Dim sql As String = " SELECT * FROM tblDienstplanEintraege WHERE dstetr_datum = @dstetr_datum AND dstetr_niederlassung=@dstetr_niederlassung " + Dim daten As List(Of cDienstEintrag) = Nothing + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.AddWithValue("@dstetr_datum", datum) + cmd.Parameters.AddWithValue("@dstetr_niederlassung", niederlassung) + + + 'MsgBox(daten.dstetr_dstmaId) + Try + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + While dr.Read() + Dim d As New cDienstEintrag + + d.dstetr_datum = dr.Item("dstetr_id") + d.dstetr_dstmaId = dr.Item("dstetr_dstmaId") + d.dstetr_datum = dr.Item("dstetr_datum") + d.dstetr_art = dr.Item("dstetr_art") + d.dstetr_von = dr.Item("dstetr_von") + d.dstetr_bis = dr.Item("dstetr_bis") + d.dstetr_pause = dr.Item("dstetr_pause") + d.dstetr_grund = dr.Item("dstetr_grund") + d.dstetr_info = dr.Item("dstetr_info") + ' d.dstetr_niederlassung = dr.Item("niederlassung") + + + dr.Item(0).ToString() + End While + + End If + dr.Close() + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return daten + End Function + + Public Function getDienstEintragListBenSchicht(datum As Date, niederlassung As String) As List(Of cDienstEintrag) + Dim sql As String = " SELECT * FROM tblDienstplanEintraege WHERE dstetr_datum = @dstetr_datum AND dstetr_niederlassung=@dstetr_niederlassung AND [dstetr_art] IN (SELECT case WHEN dedet_bezeichnungDP<>'' then dedet_bezeichnungDP ELSE dedet_abt END FROM [tblDienstplanEintraegeDetails] WHERE dedet_niederlassung=@dstetr_niederlassung AND dedet_benutzerdefinierteSchicht=1)" + + Dim daten As New List(Of cDienstEintrag) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + + cmd.Parameters.AddWithValue("@dstetr_datum", datum) + cmd.Parameters.AddWithValue("@dstetr_niederlassung", niederlassung) + + + 'MsgBox(daten.dstetr_dstmaId) + Try + Dim dr = cmd.ExecuteReader() + If dr.HasRows Then + While dr.Read() + Dim d As New cDienstEintrag + + d.dstetr_datum = dr.Item("dstetr_id") + d.dstetr_dstmaId = dr.Item("dstetr_dstmaId") + d.dstetr_datum = dr.Item("dstetr_datum") + d.dstetr_art = dr.Item("dstetr_art") + d.dstetr_von = dr.Item("dstetr_von") + d.dstetr_bis = dr.Item("dstetr_bis") + d.dstetr_pause = dr.Item("dstetr_pause") + d.dstetr_grund = dr.Item("dstetr_grund") + d.dstetr_info = dr.Item("dstetr_info") + ' d.dstetr_niederlassung = dr.Item("niederlassung") + daten.Add(d) + + End While + + End If + dr.Close() + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return daten + End Function + + + Public Function updateDienstEintragArtChange(ByVal dstetr_id As Integer, ByVal dstetr_datum As String, ByVal abteilung As String, ByVal von As String, ByVal bis As String, pause As String) As Boolean + Dim sql As String = " UPDATE tblDienstplanEintraege " & + " SET dstetr_art=@abteilung, dstetr_von=@von, dstetr_bis=@bis , dstetr_pause=@dstetr_pause" & + " WHERE dstetr_id=@dstetr_id " + 'dedet_abt + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@abteilung", abteilung) + cmd.Parameters.AddWithValue("@dstetr_datum", dstetr_datum) + cmd.Parameters.AddWithValue("@dstetr_id", dstetr_id) + cmd.Parameters.AddWithValue("@von", von) + cmd.Parameters.AddWithValue("@bis", bis) + cmd.Parameters.AddWithValue("@dstetr_pause", CDbl(pause)) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + Public Function updateDienstEintragInfo(ByVal dstetr_id As Integer, ByVal dstetr_info As String) As Boolean + Dim sql As String = " UPDATE tblDienstplanEintraege " & + " SET dstetr_info=@dstetr_info " & + " WHERE dstetr_id=@dstetr_id " + 'dedet_abt + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstetr_info", dstetr_info) + cmd.Parameters.AddWithValue("@dstetr_id", dstetr_id) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + Public Function updateDienstEintragArtChangeByDstMaId(ByVal dstetr_dstmaId As Integer, ByVal dstetr_datum As String, ByVal abteilung As String, ByVal von As String, ByVal bis As String, ByVal dstetr_info As String, ByVal pause As String) As Boolean + Dim sql As String = " UPDATE tblDienstplanEintraege " & + " SET dstetr_art=@abteilung, dstetr_von=@von, dstetr_bis=@bis, dstetr_info=@dstetr_info, dstetr_pause=@pause " & + " WHERE dstetr_datum=@dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId " + 'dedet_abt + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@abteilung", abteilung) + cmd.Parameters.AddWithValue("@dstetr_datum", dstetr_datum) + cmd.Parameters.AddWithValue("@dstetr_dstmaId", dstetr_dstmaId) + cmd.Parameters.AddWithValue("@dstetr_info", dstetr_info) + cmd.Parameters.AddWithValue("@von", von) + cmd.Parameters.AddWithValue("@bis", bis) + cmd.Parameters.AddWithValue("@pause", CDbl(pause)) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + + Public Function updateDienstEintragArtChangeByMitId(ByVal dstetr_dstmaId As Integer, ByVal dstetr_datum As Date, ByVal abteilung As String, ByVal von As String, ByVal bis As String, ByVal pause As String) As Boolean + Dim sql As String = " UPDATE tblDienstplanEintraege " & + " SET dstetr_art=@abteilung, dstetr_von=@von, dstetr_bis=@bis, dstetr_pause=@pause " & + " WHERE dstetr_dstmaId=@dstetr_dstmaId AND dstetr_datum=@dstetr_datum " + 'dedet_abt + ' MsgBox(" UPDATE tblDienstplanEintraege " & + ' " SET dstetr_art=" & abteilung & ", dstetr_von=" & von & ", dstetr_bis=" & bis & " " & + ' " WHERE dstetr_dstmaId=" & dstetr_dstmaId & " AND dstetr_datum=" & dstetr_datum.ToShortDateString & "") + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@abteilung", abteilung) + cmd.Parameters.AddWithValue("@dstetr_datum", dstetr_datum.ToShortDateString) + cmd.Parameters.AddWithValue("@dstetr_dstmaId", dstetr_dstmaId) + cmd.Parameters.AddWithValue("@von", von) + cmd.Parameters.AddWithValue("@bis", bis) + cmd.Parameters.AddWithValue("@pause", CDbl(pause)) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + Public Function updateDienstEintragVonBisBemWOCHEChangeByMitId(ByVal dstetr_dstmaId As Integer, ByVal dstetr_datum_von As Date, ByVal dstetr_datum_bis As Date, ByVal von As String, ByVal bis As String, ByVal dstetr_info As String, dstetr_pause As String, niederlassung As String) As Boolean + Dim sql As String = " UPDATE tblDienstplanEintraege " & + " SET dstetr_info=@dstetr_info, dstetr_von=@von, dstetr_bis=@bis , dstetr_pause=@dstetr_pause " & + " WHERE dstetr_dstmaId=@dstetr_dstmaId AND (dstetr_datum BETWEEN @dstetr_datum_von AND @dstetr_datum_bis) AND [dstetr_art] IN (SELECT case WHEN dedet_bezeichnungDP<>'' then dedet_bezeichnungDP ELSE dedet_abt END FROM [tblDienstplanEintraegeDetails] WHERE dedet_niederlassung=@dstetr_niederlassung AND dedet_benutzerdefinierteSchicht=1)" + 'dedet_abt + + + ' MsgBox(" UPDATE tblDienstplanEintraege " & + ' " SET dstetr_art=" & abteilung & ", dstetr_von=" & von & ", dstetr_bis=" & bis & " " & + ' " WHERE dstetr_dstmaId=" & dstetr_dstmaId & " AND dstetr_datum=" & dstetr_datum.ToShortDateString & "") + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstetr_datum_von", dstetr_datum_von.ToShortDateString) + cmd.Parameters.AddWithValue("@dstetr_datum_bis", dstetr_datum_bis.ToShortDateString) + cmd.Parameters.AddWithValue("@dstetr_pause", CDbl(dstetr_pause)) + cmd.Parameters.AddWithValue("@dstetr_dstmaId", dstetr_dstmaId) + cmd.Parameters.AddWithValue("@von", von) + cmd.Parameters.AddWithValue("@bis", bis) + cmd.Parameters.AddWithValue("@dstetr_info", dstetr_info) + cmd.Parameters.AddWithValue("@dstetr_niederlassung", niederlassung) + + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + Public Function updateDienstEintragArtBemerkungChange(ByVal dstetr_id As Integer, ByVal von As String, ByVal bis As String, ByVal dstetr_info As String, dstetr_pause As String) As Boolean + Dim sql As String = " UPDATE tblDienstplanEintraege " & + " SET dstetr_von=@von, dstetr_bis=@bis, dstetr_info=@dstetr_info ,dstetr_pause=@dstetr_pause" & + " WHERE dstetr_id=@dstetr_id " + 'dedet_abt + ' MsgBox(CDbl(dstetr_pause)) + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstetr_id", dstetr_id) + cmd.Parameters.AddWithValue("@von", von) + cmd.Parameters.AddWithValue("@bis", bis) + cmd.Parameters.AddWithValue("@dstetr_pause", CDbl(dstetr_pause)) + cmd.Parameters.AddWithValue("@dstetr_info", dstetr_info) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + Public Function getMaIdByEtrId(ByVal dstetr_id As Integer) As String + Dim sql As String = " SELECT dstetr_dstmaId" & + " FROM tblDienstplanEintraege " & + " WHERE dstetr_id=@dstetr_id " + Dim maId As String = "" + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstetr_id", dstetr_id) + Try + Dim dr = cmd.ExecuteReader() + Dim cPF As New cProgramFunctions + If dr.HasRows Then + dr.Read() + maId = dr.Item(0).ToString + End If + dr.Close() + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return maId + End Function + + + Public Function updateDienstBemerkungChange(dstetr_dstmaId As Integer, ByVal dstetr_datum_von As Date, ByVal dstetr_datum_bis As Date, ByVal dstetr_info As String, niederlassung As String) As Boolean + Dim sql As String = " UPDATE tblDienstplanEintraege " & + " SET dstetr_info=@dstetr_info " & + " WHERE dstetr_dstmaId=@dstetr_dstmaId AND (dstetr_datum BETWEEN @dstetr_datum_von AND @dstetr_datum_bis) AND [dstetr_art] IN (SELECT case WHEN dedet_bezeichnungDP<>'' then dedet_bezeichnungDP ELSE dedet_abt END FROM [tblDienstplanEintraegeDetails] WHERE dedet_niederlassung=@niederlassung AND dedet_benutzerdefinierteSchicht=1)" + 'dedet_abt + ' + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@dstetr_dstmaId", dstetr_dstmaId) + cmd.Parameters.AddWithValue("@dstetr_datum_von", dstetr_datum_von.ToShortDateString) + cmd.Parameters.AddWithValue("@dstetr_datum_bis", dstetr_datum_bis.ToShortDateString) + cmd.Parameters.AddWithValue("@dstetr_info", dstetr_info) + cmd.Parameters.AddWithValue("@niederlassung", niederlassung) + + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm") + End Try + End Using + End Using + Return False + End Function + + Public Function getDstStunden(maId As Integer, datum_von As Date, datum_bis As Date, niederlassung As String) As Double + Try + Dim stunden As Double + Dim rgx As New Regex("^\d{2}:\d{2}$") + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + 'Using cmd As New SqlCommand(" SELECT dstetr_datum,dstetr_von,dstetr_bis,dstetr_pause,dstetr_art FROM tblDienstplanEintraege WHERE dstetr_dstmaId=" & maId & " AND dstetr_datum BETWEEN '" & datum_von.ToShortDateString & "' AND '" & datum_bis.ToShortDateString & "' AND (dstetr_art LIKE 'ZOLL%' OR dstetr_art IN('QS','KS','URL','DBL' ,'NACHT','SO','BS','DR')) ", conn) + Using cmd As New SqlCommand(" SELECT dstetr_datum,dstetr_von,dstetr_bis,dstetr_pause,dstetr_art FROM tblDienstplanEintraege WHERE dstetr_dstmaId=" & maId & " AND dstetr_datum BETWEEN '" & datum_von.ToShortDateString & "' AND '" & datum_bis.ToShortDateString & "' AND replace( replace([dstetr_art] ,'BS','DR') ,'SO','DR') IN (SELECT case WHEN dedet_bezeichnungDP<>'' then dedet_bezeichnungDP ELSE dedet_abt END FROM [tblDienstplanEintraegeDetails] WHERE dedet_niederlassung=@niederlassung AND ( dedet_benutzerdefinierteSchicht=1 OR dedet_stdWieArbeitszeit=1 )) ", conn) + cmd.Parameters.AddWithValue("@niederlassung", niederlassung) + + Dim dr = cmd.ExecuteReader() + Dim cPF As New cProgramFunctions + While dr.Read + ' MsgBox(rgx.IsMatch(dsttz_von)) + Dim s As Double = 0 + + 'Feiertage: Wochenstunden abziehen + + ' + Dim datum As Date = CDate(dr.Item("dstetr_datum")) + Dim woTag = datum.ToString("ddd", New CultureInfo("de-DE")).ToUpper + + Dim FT As New cFeiertage() + ' If FT.isFeiertag(datum) And woTag <> "SO" And woTag <> "SA" Then + ' s += + ' End If + + + Dim von As String = dr.Item("dstetr_von") + Dim bis As String = dr.Item("dstetr_bis") + + If von <> "" And bis <> "" Then + + ' If False Then + + If Not von.Contains(":") AndAlso von.Length = 2 AndAlso IsNumeric(von) Then + + von &= ":00" + + End If + If Not bis.Contains(":") AndAlso bis.Length = 2 AndAlso IsNumeric(bis) Then + bis &= ":00" + End If + + 'End If + If cPF.isValidTime(von) And cPF.isValidTime(bis) Then ' Wenn Format stimmt + s += cPF.getDiff(von, bis, niederlassung, (FT.isFeiertag(datum) Or woTag = "SO")) + If IsNumeric(dr.Item("dstetr_pause")) Then + s -= CDbl(dr.Item("dstetr_pause")) + End If + Else + + MsgBox("Falsches Format, Zeitberechnung ist fehlerhaft!") + + End If + ' If dr.Item("dstetr_art") = "ZA" Then s *= -1 ' ZA wird abgezogen + ' If FT.isFeiertag(datum) Or woTag = "SO" Then s *= 2 ' An Sonn- und Feiertagen zählen die Stunden doppelt! + + End If + stunden += s + End While + dr.Close() + End Using + End Using + Return stunden + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'") + If antwort <> MsgBoxResult.Retry Then + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + + End If + End Try + + Return 0 + End Function + + Public Function getCountEntrys(maId As Integer, datum_von As Date, datum_bis As Date) As Integer + Try + Dim stunden As Integer + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(" SELECT COUNT(*) FROM tblDienstplanEintraege WHERE dstetr_dstmaId=" & maId & " AND dstetr_datum BETWEEN '" & datum_von.ToShortDateString & "' AND '" & datum_bis.ToShortDateString & "' ", conn) + Dim dr = cmd.ExecuteReader() + Dim cPF As New cProgramFunctions + If dr.HasRows Then + dr.Read() + Return CInt(dr.Item(0)) + End If + dr.Close() + End Using + End Using + Return stunden + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'") + If antwort <> MsgBoxResult.Retry Then + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + + End If + End Try + Return 0 + End Function + + + + Public Function getCountDays(maId As Integer, datum_von As Date, datum_bis As Date) As Integer + Try + Dim stunden As Integer + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(" SELECT COUNT (dstetr_dstmaId) FROM tblDienstplanEintraege WHERE dstetr_dstmaId=" & maId & " AND dstetr_datum BETWEEN '" & datum_von.ToShortDateString & "' AND '" & datum_bis.ToShortDateString & "' AND (dstetr_art LIKE 'ZOLL%' OR dstetr_art LIKE 'QS') ", conn) + Dim dr = cmd.ExecuteReader() + Dim cPF As New cProgramFunctions + If dr.HasRows Then + dr.Read() + Return CInt(dr.Item(0)) + End If + dr.Close() + End Using + End Using + Return stunden + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'") + If antwort <> MsgBoxResult.Retry Then + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + + End If + End Try + Return 0 + End Function + + Public Function getSchichtOnDate(maId As Integer, datum As Date) As String + Try + Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() + Using cmd As New SqlCommand(" SELECT dstetr_art FROM tblDienstplanEintraege WHERE dstetr_dstmaId=" & maId & " AND dstetr_datum = '" & datum.ToShortDateString & "' ", conn) + Dim dr = cmd.ExecuteReader() + Dim cPF As New cProgramFunctions + If dr.HasRows Then + dr.Read() + Return dr.Item("dstetr_art").ToString + End If + dr.Close() + End Using + End Using + + Catch ex As Exception + Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'") + If antwort <> MsgBoxResult.Retry Then + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) + End If + End Try + + Return "" + End Function + +End Class + + diff --git a/UID/frmActiveReprotViewer.Designer.vb b/UID/frmActiveReprotViewer.Designer.vb new file mode 100644 index 0000000..9898e9a --- /dev/null +++ b/UID/frmActiveReprotViewer.Designer.vb @@ -0,0 +1,78 @@ + _ +Partial Class frmActiveReprotViewer + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.Viewer1 = New GrapeCity.ActiveReports.Viewer.Win.Viewer() + Me.SuspendLayout() + ' + 'Viewer1 + ' + Me.Viewer1.CurrentPage = 0 + Me.Viewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Viewer1.Location = New System.Drawing.Point(0, 0) + Me.Viewer1.Name = "Viewer1" + Me.Viewer1.PreviewPages = 0 + ' + ' + ' + ' + ' + ' + Me.Viewer1.Sidebar.ParametersPanel.ContextMenu = Nothing + Me.Viewer1.Sidebar.ParametersPanel.Text = "Parameters" + Me.Viewer1.Sidebar.ParametersPanel.Width = 200 + ' + ' + ' + Me.Viewer1.Sidebar.SearchPanel.ContextMenu = Nothing + Me.Viewer1.Sidebar.SearchPanel.Text = "Search results" + Me.Viewer1.Sidebar.SearchPanel.Width = 200 + ' + ' + ' + Me.Viewer1.Sidebar.ThumbnailsPanel.ContextMenu = Nothing + Me.Viewer1.Sidebar.ThumbnailsPanel.Text = "Page thumbnails" + Me.Viewer1.Sidebar.ThumbnailsPanel.Width = 200 + ' + ' + ' + Me.Viewer1.Sidebar.TocPanel.ContextMenu = Nothing + Me.Viewer1.Sidebar.TocPanel.Text = "Document map" + Me.Viewer1.Sidebar.TocPanel.Width = 200 + Me.Viewer1.Sidebar.Width = 200 + Me.Viewer1.Size = New System.Drawing.Size(930, 665) + Me.Viewer1.TabIndex = 0 + ' + 'frmActiveReprotViewer + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(930, 665) + Me.Controls.Add(Me.Viewer1) + Me.Name = "frmActiveReprotViewer" + Me.Text = "frmActiveReprotViewer" + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Viewer1 As GrapeCity.ActiveReports.Viewer.Win.Viewer +End Class diff --git a/UID/frmActiveReprotViewer.resx b/UID/frmActiveReprotViewer.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/UID/frmActiveReprotViewer.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/UID/frmActiveReprotViewer.vb b/UID/frmActiveReprotViewer.vb new file mode 100644 index 0000000..016a168 --- /dev/null +++ b/UID/frmActiveReprotViewer.vb @@ -0,0 +1,88 @@ +Imports GrapeCity.ActiveReports.SectionReportModel +Imports GrapeCity.ActiveReports +Public Class frmActiveReprotViewer + 'Public semiCert As semiCert + Public report As String = "rptSeminatZert.rpx" + Public Sub BefüllenSeminarZertifikat(semiCert) + + Dim d As New GrapeCity.ActiveReports.Document.SectionDocument + For Each t As String In semiCert.teilnehmer + Dim rpt2 As New GrapeCity.ActiveReports.SectionReport + Dim xtr2 As New System.Xml.XmlTextReader(report) + rpt2.LoadLayout(xtr2) + xtr2.Close() + rpt2 = fillParams(rpt2, t, semiCert) + rpt2.Run() + d.Pages.Add(rpt2.Document.Pages(0)) + Next + + Viewer1.Document = d + + End Sub + + Public Sub BefüllenSeminarZertifikatIntern(semiCert) + + Dim d As New GrapeCity.ActiveReports.Document.SectionDocument + For Each t As String In semiCert.teilnehmer + Dim rpt2 As New GrapeCity.ActiveReports.SectionReport + Dim xtr2 As New System.Xml.XmlTextReader(report) + rpt2.LoadLayout(xtr2) + xtr2.Close() + rpt2 = fillParamsIntern(rpt2, t, semiCert) + rpt2.Run() + d.Pages.Add(rpt2.Document.Pages(0)) + Next + + Viewer1.Document = d + + End Sub + + + Private Sub frmActiveReprotViewer_Load(sender As Object, e As EventArgs) Handles Me.Load + ' BefüllenSeminarZertifikat() + ' BefüllenSeminarZertifikatIntern() + End Sub + + Private Function createParameterValue(ByVal name As String, ByVal value As String) As Parameter + Dim myParam1 As New Parameter() + myParam1.Key = name + myParam1.Type = Parameter.DataType.String + 'Set to False if you do not want input from user. + myParam1.PromptUser = True + myParam1.Prompt = value + myParam1.DefaultValue = "" + Return myParam1 + 'Dim s As New GrapeCity.ActiveReports.Expressions.ExpressionObjectModel.ParameterValue + ' s.Value = value + ' s.Label = value + ' Return s + End Function + + Private Function fillParams(ByVal p As GrapeCity.ActiveReports.SectionReport, ByVal t As String, ByVal semiCert As semiCert) As GrapeCity.ActiveReports.SectionReport + p.Parameters("name").Value = t + p.Parameters("date").Value = semiCert.datum + p.Parameters("titel").Value = semiCert.titel + p.Parameters("inhalt").Value = semiCert.inhalt + p.Parameters("inhalt2").Value = semiCert.inhalt2 + p.Parameters("referent").Value = semiCert.referent + + Return p + End Function + + Private Function fillParamsIntern(ByVal p As GrapeCity.ActiveReports.SectionReport, ByVal t As String, ByVal semiCert As semiCert) As GrapeCity.ActiveReports.SectionReport + p.Parameters("name").Value = t + p.Parameters("date").Value = semiCert.datum + p.Parameters("titel").Value = semiCert.titel + p.Parameters("inhalt").Value = semiCert.inhalt + 'p.Parameters("referent").Value = semiCert.referent + If semiCert.unterzeichnender = "" Then + Dim u As String = InputBox("Bitte geben Sie den Unterzeichnenden an:") + p.Parameters("unterz").Value = If(u <> "", u, "Johann Luxbauer") + Else + p.Parameters("unterz").Value = semiCert.unterzeichnender + End If + + p.Parameters("zeitraum").Value = semiCert.zeitraum + Return p + End Function +End Class \ No newline at end of file diff --git a/UID/frmLogin.Designer.vb b/UID/frmLogin.Designer.vb new file mode 100644 index 0000000..4ab7675 --- /dev/null +++ b/UID/frmLogin.Designer.vb @@ -0,0 +1,240 @@ + _ +Partial Class frmLogin + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLogin)) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label3 = New System.Windows.Forms.Label() + Me.lblVersion = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.btnLogin = New System.Windows.Forms.Button() + Me.lblAlertTxt = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtPwd = New System.Windows.Forms.TextBox() + Me.txtUser = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.ctxUpdate = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.Panel1.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ctxUpdate.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox2) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Controls.Add(Me.btnLogin) + Me.Panel1.Controls.Add(Me.lblAlertTxt) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.txtPwd) + Me.Panel1.Controls.Add(Me.txtUser) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(306, 218) + Me.Panel1.TabIndex = 14 + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel2.Controls.Add(Me.Label3) + Me.Panel2.Controls.Add(Me.lblVersion) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(0, 194) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(304, 22) + Me.Panel2.TabIndex = 13 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.ForeColor = System.Drawing.Color.White + Me.Label3.Location = New System.Drawing.Point(5, 5) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(71, 13) + Me.Label3.TabIndex = 7 + Me.Label3.Text = "ADMIN Tools" + ' + 'lblVersion + ' + Me.lblVersion.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblVersion.ForeColor = System.Drawing.Color.White + Me.lblVersion.Location = New System.Drawing.Point(197, 5) + Me.lblVersion.Name = "lblVersion" + Me.lblVersion.Size = New System.Drawing.Size(96, 13) + Me.lblVersion.TabIndex = 7 + Me.lblVersion.Text = "Version: " + Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'PictureBox1 + ' + Me.PictureBox1.Image = Global.ADMIN.My.Resources.Resources.Verag_AG_Logopng + Me.PictureBox1.Location = New System.Drawing.Point(8, 7) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(291, 50) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox1.TabIndex = 12 + Me.PictureBox1.TabStop = False + ' + 'btnLogin + ' + Me.btnLogin.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnLogin.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnLogin.Location = New System.Drawing.Point(112, 148) + Me.btnLogin.Name = "btnLogin" + Me.btnLogin.Size = New System.Drawing.Size(100, 29) + Me.btnLogin.TabIndex = 6 + Me.btnLogin.Text = "Login" + Me.btnLogin.UseVisualStyleBackColor = True + ' + 'lblAlertTxt + ' + Me.lblAlertTxt.AutoSize = True + Me.lblAlertTxt.ForeColor = System.Drawing.Color.Red + Me.lblAlertTxt.Location = New System.Drawing.Point(72, 132) + Me.lblAlertTxt.Name = "lblAlertTxt" + Me.lblAlertTxt.Size = New System.Drawing.Size(192, 13) + Me.lblAlertTxt.TabIndex = 11 + Me.lblAlertTxt.Text = "Benutzername oder Passwort ist falsch!" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label1.Location = New System.Drawing.Point(54, 84) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(52, 13) + Me.Label1.TabIndex = 7 + Me.Label1.Text = "Benutzer:" + ' + 'txtPwd + ' + Me.txtPwd.Location = New System.Drawing.Point(112, 111) + Me.txtPwd.Name = "txtPwd" + Me.txtPwd.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.txtPwd.Size = New System.Drawing.Size(100, 20) + Me.txtPwd.TabIndex = 10 + ' + 'txtUser + ' + Me.txtUser.Location = New System.Drawing.Point(112, 81) + Me.txtUser.Name = "txtUser" + Me.txtUser.Size = New System.Drawing.Size(100, 20) + Me.txtUser.TabIndex = 8 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label2.Location = New System.Drawing.Point(54, 114) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(53, 13) + Me.Label2.TabIndex = 9 + Me.Label2.Text = "Passwort:" + ' + 'ctxUpdate + ' + Me.ctxUpdate.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UpdateToolStripMenuItem}) + Me.ctxUpdate.Name = "ctxUpdate" + Me.ctxUpdate.Size = New System.Drawing.Size(113, 26) + ' + 'UpdateToolStripMenuItem + ' + Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem" + Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(112, 22) + Me.UpdateToolStripMenuItem.Text = "Update" + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1}) + Me.ContextMenuStrip1.Name = "ctxUpdate" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(113, 26) + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(112, 22) + Me.ToolStripMenuItem1.Text = "Update" + ' + 'PictureBox2 + ' + Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox2.Image = Global.ADMIN.My.Resources.Resources.del + Me.PictureBox2.Location = New System.Drawing.Point(279, 7) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(20, 20) + Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox2.TabIndex = 14 + Me.PictureBox2.TabStop = False + ' + 'frmLogin + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(306, 218) + Me.Controls.Add(Me.Panel1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmLogin" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Login" + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ctxUpdate.ResumeLayout(False) + Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents lblVersion As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents btnLogin As System.Windows.Forms.Button + Friend WithEvents lblAlertTxt As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtPwd As System.Windows.Forms.TextBox + Friend WithEvents txtUser As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents ctxUpdate As System.Windows.Forms.ContextMenuStrip + Friend WithEvents UpdateToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox +End Class diff --git a/UID/frmLogin.resx b/UID/frmLogin.resx new file mode 100644 index 0000000..d1ebb66 --- /dev/null +++ b/UID/frmLogin.resx @@ -0,0 +1,186 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 174, 17 + + + + + AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA + AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3 + 9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3 + 9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm + MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm + MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY + fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU + y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M + bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3///// + ///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////p6ffFxerp6ff////09PvFxerp6ffR0e/FxerFxerFxer09Pv////09PvFxer/ + ///R0e/p6ff////FxerR0e/////FxerR0e/////Fxer09Pv////p6ffR0e////////+4uOYDA71sbND0 + 9Pu4uOYDA72dnd1sbNADA70DA70DA70pKcLd3fPFxeoDA73p6fcpKcJERMfp6fcpKcIpKcL///8pKcIp + KcL///8pKcKrq+L///9sbNADA7309Pv///////9ERMcDA70DA70DA70DA73Fxeqdnd0DA72dnd2rq+Ip + KcIpKcL09PsDA724uOYDA70DA72dnd1ZWcsDA73p6fdZWcsDA73p6fdZWcuOjtnd3fMDA70DA73R0e// + //////+dnd0DA71ZWctZWcsDA73R0e+4uOYDA72dnd3///9+ftQDA73FxepERMeOjtkDA70pKcIpKcKO + jtkDA73FxeqOjtkDA73FxeqOjtlZWcudnd0DA70DA72rq+L////////p6fcDA70pKcJZWcsDA7309Pvd + 3fMDA71sbND///+OjtkDA73FxepZWctERMcDA72OjtkpKcJERMcDA72rq+Krq+IDA72rq+Krq+IDA71E + RMcpKcJZWct+ftT///////////9+ftQDA70DA70pKcL////09PsDA71ERMeOjtkpKcIpKcL09Pudnd0D + A70DA72rq+Kdnd0DA70DA71+ftTFxeoDA71+ftTFxeoDA70DA71+ftSdnd1ZWcv////////////FxeoD + A70DA71ZWcv///////9ZWcsDA70DA71ERMe4uOb///+4uOYDA70DA73Fxer09PspKcIDA71ZWcv09PsD + A71ZWcv09PsDA70DA73Fxeq4uOYDA7309Pv////////////09Pv09Pv////////////////09Pv09Pv/ + ///////////////09Pv09Pv////////////09Pv////////09Pv////////09Pv09Pv////////09Pv/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/UID/frmLogin.vb b/UID/frmLogin.vb new file mode 100644 index 0000000..e4991ea --- /dev/null +++ b/UID/frmLogin.vb @@ -0,0 +1,194 @@ +Imports System.IO + +Public Class frmLogin + Public ConnStrInfo As String + Public ConnStr As String + Public ConnStrMitarbeiter As String + Public USRNAME As String + ' Public USRBER As Integer + Public USRID As Integer + Public USRFirma As String + + Private ADMIN As New cOptionenDAL + + + ' Private Version As String = "0.9.0" + + + + Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click + ' normaler Login + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + If ADMIN.checkLogin(txtUser.Text, txtPwd.Text) Then + loginOK() + Else + lblAlertTxt.Visible = True + End If + End Sub + Private Sub loginOK() + ' USRNAME = txtUser.Text + ' USRBER = ADMIN.USERBER + USRNAME = ADMIN.USRNAME + USRID = ADMIN.USRID + USRFirma = ADMIN.USRFirma + + frmMain.Show() + Me.Hide() + End Sub + + + + Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles Me.Load + + ' UPDATEUpdater + If updateUpdater() Then + MsgBox("Der Admin-Installer wurde aktualisiert. Es muss ein Update durchgeführt werden.") + UpdateMe(True) + End If + + + + Dim parameter() As String = Environment.GetCommandLineArgs().ToArray + If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist + For i = 1 To parameter.Count - 1 + Dim pf As New cProgramFunctions + Dim kw As Integer = pf.DateToWeek(Now.AddDays(-1)).Substring(4) + Dim year As Integer = Now.AddDays(-1).Year + If parameter(i) = "initDP_ATILLA" Then pf.KWAbschluss("ATILLA", year, kw, pf.getSchicht(kw, year)) : Application.Exit() + If parameter(i) = "initDP_SUB" Then pf.KWAbschluss("SUB", year, kw, pf.getSchicht(kw, year)) : Application.Exit() + If parameter(i) = "initDP_WAI" Then pf.KWAbschluss("WAI", year, kw, pf.getSchicht(kw, year)) : Application.Exit() + Next + End If + + + ' Dim tmp As String + Me.Show() + txtUser.Focus() + lblAlertTxt.Visible = False + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None + lblVersion.Text = lblVersion.Text & " " & My.Resources.Version + lblVersion.ContextMenuStrip = ctxUpdate + + 'auf UPDATES prüfen: + UpdateMe() + + End Sub + + Sub UpdateMe(Optional doUpdateAnyway = False) + + If doUpdateAnyway OrElse CInt(ADMIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version.Replace(".", "")) Then + Me.Enabled = False + If doUpdateAnyway OrElse vbYes = MsgBox("Es ist eine neue Programm-Version verfügbar. Das Programm muss aktualisiert werden, bevor Sie es weiter verwenden können. " & vbNewLine & vbNewLine & "Update jetzt durchführen?", CType(vbQuestion + vbYesNo, MsgBoxStyle), "Update verfügbar") Then + UpdateADMIN() + Else + Application.Exit() + End If + End If + End Sub + Private Sub txtPwd_KeyDown(sender As Object, e As KeyEventArgs) Handles txtUser.KeyDown, txtPwd.KeyDown + If (e.KeyCode = Keys.Return) Then + btnLogin.PerformClick() : e.SuppressKeyPress = True + ElseIf (e.KeyCode = Keys.Escape) Then + Me.Close() + End If + End Sub + Public Sub UpdateADMIN() + If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "ADMINUPDATER.exe") Then + MsgBox("ERROR_UPDATE: Update konnte nicht fortgesetzt werden." & vbNewLine & vbNewLine & "Update-Datei existiert nicht.", vbCritical) + Application.Exit() + Else + Process.Start("ADMINUPDATER.exe") + Application.Exit() + End If + End Sub + + Private Sub frmLogin_Shown(sender As Object, e As EventArgs) Handles Me.Shown + 'ADMIN-Login über Windows Benutzer + ' MsgBox(Environment.UserDomainName & "/" & Environment.UserName) + If Environment.UserDomainName & "/" & Environment.UserName = "VERAGOST/developer1" Then + If vbYes = MsgBox("Autologin?", vbYesNoCancel) Then + ' If ADMIN.getAdminLogin("ADMIN") Then loginOK() + txtUser.Text = "ADMIN" + txtPwd.Text = "verag#2" + btnLogin.PerformClick() + End If + + End If + End Sub + Private Sub lblVersion_Click(sender As Object, e As MouseEventArgs) Handles lblVersion.MouseClick, lblVersion.Click + ctxUpdate.Show(lblVersion, e.Location) + End Sub + + Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click + UpdateADMIN() + End Sub + + Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click + Me.Close() + End Sub + + + + Shared Function updateUpdater() As Boolean + Try + Dim aktVersion = My.Resources.UpdaterVersion ' Aktuelle Updater Version + Dim F = "F:\Programme\ADMIN_install\" + + Select Case getStandort() + ' Case "ATILLA" + Case "IMEX" : F = "\\192.168.1.20\Daten\VERAG Programme\ADMIN_install\" + End Select + Dim doUpdaterUpdate = False + If IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\ADMINUPDATER_Version.txt") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt... + Dim fs As New FileStream(AppDomain.CurrentDomain.BaseDirectory & "\ADMINUPDATER_Version.txt", FileMode.Open, FileAccess.Read) + Dim strmReader As New StreamReader(fs) + Dim Version = strmReader.ReadLine + If IsNumeric(Version.Replace(".", "")) Then + If Version.Replace(".", "") < aktVersion.Replace(".", "") Then + doUpdaterUpdate = True + End If + End If + fs.Close() + strmReader.Close() + Else + doUpdaterUpdate = True + End If + If Not doUpdaterUpdate Then Return False + + If IO.Directory.Exists(F) And IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\ADMINUPDATER.exe") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt... + For Each file As String In IO.Directory.GetFiles(F) ' Ermittelt alle Dateien des Ordners + IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next + Next + For Each file As String In IO.Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners + My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) + Next + Return True + End If + Return False + Catch ex As Exception + Return False + End Try + End Function + + Shared Function getStandort() + Dim pfadDatei As String = System.AppDomain.CurrentDomain.BaseDirectory & "\Standort.txt" + getStandort = "VERAG" + + If File.Exists(pfadDatei) Then + Dim fs As New FileStream(pfadDatei, FileMode.Open, FileAccess.Read) + Dim strmReader As New StreamReader(fs) + getStandort = strmReader.ReadLine + fs.Dispose() + strmReader.Dispose() + End If + End Function + + + Shared Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function + While file.Contains("\") + file = file.Remove(0, 1) + End While + Return file + End Function + +End Class \ No newline at end of file diff --git a/UID/frmMain.Designer.vb b/UID/frmMain.Designer.vb new file mode 100644 index 0000000..1d85922 --- /dev/null +++ b/UID/frmMain.Designer.vb @@ -0,0 +1,287 @@ +Imports ADMIN.DataSetBerechtigungenTableAdapters + + _ +Partial Class frmMain + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) + Me.BottomToolStripPanel = New System.Windows.Forms.ToolStripPanel() + Me.TopToolStripPanel = New System.Windows.Forms.ToolStripPanel() + Me.RightToolStripPanel = New System.Windows.Forms.ToolStripPanel() + Me.LeftToolStripPanel = New System.Windows.Forms.ToolStripPanel() + Me.ContentPanel = New System.Windows.Forms.ToolStripContentPanel() + Me.TableAdapterManager1 = New ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager() + Me.pnlMain = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.btnHomepage = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnUpdate = New System.Windows.Forms.Button() + Me.btnSchulungen = New System.Windows.Forms.Button() + Me.btnDienstplan = New System.Windows.Forms.Button() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.btnProgramme = New System.Windows.Forms.Button() + Me.btnMitarbeiter = New System.Windows.Forms.Button() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Panel3.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'BottomToolStripPanel + ' + Me.BottomToolStripPanel.Location = New System.Drawing.Point(0, 0) + Me.BottomToolStripPanel.Name = "BottomToolStripPanel" + Me.BottomToolStripPanel.Orientation = System.Windows.Forms.Orientation.Horizontal + Me.BottomToolStripPanel.RowMargin = New System.Windows.Forms.Padding(3, 0, 0, 0) + Me.BottomToolStripPanel.Size = New System.Drawing.Size(0, 0) + ' + 'TopToolStripPanel + ' + Me.TopToolStripPanel.Location = New System.Drawing.Point(0, 0) + Me.TopToolStripPanel.Name = "TopToolStripPanel" + Me.TopToolStripPanel.Orientation = System.Windows.Forms.Orientation.Horizontal + Me.TopToolStripPanel.RowMargin = New System.Windows.Forms.Padding(3, 0, 0, 0) + Me.TopToolStripPanel.Size = New System.Drawing.Size(0, 0) + ' + 'RightToolStripPanel + ' + Me.RightToolStripPanel.Location = New System.Drawing.Point(0, 0) + Me.RightToolStripPanel.Name = "RightToolStripPanel" + Me.RightToolStripPanel.Orientation = System.Windows.Forms.Orientation.Horizontal + Me.RightToolStripPanel.RowMargin = New System.Windows.Forms.Padding(3, 0, 0, 0) + Me.RightToolStripPanel.Size = New System.Drawing.Size(0, 0) + ' + 'LeftToolStripPanel + ' + Me.LeftToolStripPanel.Location = New System.Drawing.Point(0, 0) + Me.LeftToolStripPanel.Name = "LeftToolStripPanel" + Me.LeftToolStripPanel.Orientation = System.Windows.Forms.Orientation.Horizontal + Me.LeftToolStripPanel.RowMargin = New System.Windows.Forms.Padding(3, 0, 0, 0) + Me.LeftToolStripPanel.Size = New System.Drawing.Size(0, 0) + ' + 'ContentPanel + ' + Me.ContentPanel.Size = New System.Drawing.Size(122, 761) + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.Connection = Nothing + Me.TableAdapterManager1.tblBerechtigungenTableAdapter = Nothing + Me.TableAdapterManager1.UpdateOrder = ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'pnlMain + ' + Me.pnlMain.BackColor = System.Drawing.Color.White + Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlMain.Location = New System.Drawing.Point(137, 70) + Me.pnlMain.Name = "pnlMain" + Me.pnlMain.Size = New System.Drawing.Size(1026, 801) + Me.pnlMain.TabIndex = 26 + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.White + Me.Panel3.Controls.Add(Me.btnHomepage) + Me.Panel3.Controls.Add(Me.Button1) + Me.Panel3.Controls.Add(Me.btnUpdate) + Me.Panel3.Controls.Add(Me.btnSchulungen) + Me.Panel3.Controls.Add(Me.btnDienstplan) + Me.Panel3.Controls.Add(Me.Button7) + Me.Panel3.Controls.Add(Me.Button6) + Me.Panel3.Controls.Add(Me.btnProgramme) + Me.Panel3.Controls.Add(Me.btnMitarbeiter) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel3.Location = New System.Drawing.Point(0, 70) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(137, 801) + Me.Panel3.TabIndex = 32 + ' + 'btnHomepage + ' + Me.btnHomepage.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnHomepage.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnHomepage.Location = New System.Drawing.Point(12, 372) + Me.btnHomepage.Name = "btnHomepage" + Me.btnHomepage.Size = New System.Drawing.Size(94, 33) + Me.btnHomepage.TabIndex = 38 + Me.btnHomepage.Text = "Homepage" + Me.btnHomepage.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnHomepage.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.Location = New System.Drawing.Point(12, 181) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(94, 33) + Me.Button1.TabIndex = 38 + Me.Button1.Text = "Bürgschaften" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnUpdate + ' + Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdate.Location = New System.Drawing.Point(12, 487) + Me.btnUpdate.Name = "btnUpdate" + Me.btnUpdate.Size = New System.Drawing.Size(94, 34) + Me.btnUpdate.TabIndex = 37 + Me.btnUpdate.Text = "Update" + Me.btnUpdate.UseVisualStyleBackColor = True + ' + 'btnSchulungen + ' + Me.btnSchulungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSchulungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSchulungen.Location = New System.Drawing.Point(12, 103) + Me.btnSchulungen.Name = "btnSchulungen" + Me.btnSchulungen.Size = New System.Drawing.Size(94, 33) + Me.btnSchulungen.TabIndex = 36 + Me.btnSchulungen.Text = "Schulungen" + Me.btnSchulungen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSchulungen.UseVisualStyleBackColor = True + ' + 'btnDienstplan + ' + Me.btnDienstplan.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnDienstplan.Location = New System.Drawing.Point(12, 142) + Me.btnDienstplan.Name = "btnDienstplan" + Me.btnDienstplan.Size = New System.Drawing.Size(94, 33) + Me.btnDienstplan.TabIndex = 35 + Me.btnDienstplan.Text = "Dienstplan" + Me.btnDienstplan.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDienstplan.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Location = New System.Drawing.Point(0, 767) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(137, 34) + Me.Button7.TabIndex = 34 + Me.Button7.Text = "Schließen" + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Location = New System.Drawing.Point(12, 411) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(94, 34) + Me.Button6.TabIndex = 33 + Me.Button6.Text = "Proezeduren" + Me.Button6.UseVisualStyleBackColor = True + ' + 'btnProgramme + ' + Me.btnProgramme.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnProgramme.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnProgramme.Location = New System.Drawing.Point(12, 39) + Me.btnProgramme.Name = "btnProgramme" + Me.btnProgramme.Size = New System.Drawing.Size(94, 33) + Me.btnProgramme.TabIndex = 31 + Me.btnProgramme.Text = "Programme" + Me.btnProgramme.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnProgramme.UseVisualStyleBackColor = True + ' + 'btnMitarbeiter + ' + Me.btnMitarbeiter.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMitarbeiter.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnMitarbeiter.Location = New System.Drawing.Point(12, 0) + Me.btnMitarbeiter.Name = "btnMitarbeiter" + Me.btnMitarbeiter.Size = New System.Drawing.Size(94, 33) + Me.btnMitarbeiter.TabIndex = 30 + Me.btnMitarbeiter.Text = "Mitarbeiter" + Me.btnMitarbeiter.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnMitarbeiter.UseVisualStyleBackColor = True + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.White + Me.Panel2.Controls.Add(Me.PictureBox1) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1163, 70) + Me.Panel2.TabIndex = 33 + ' + 'PictureBox1 + ' + Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox1.Image = Global.ADMIN.My.Resources.Resources.admin_logo + Me.PictureBox1.Location = New System.Drawing.Point(27, 17) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(209, 41) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox1.TabIndex = 31 + Me.PictureBox1.TabStop = False + ' + 'frmMain + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1163, 871) + Me.Controls.Add(Me.pnlMain) + Me.Controls.Add(Me.Panel3) + Me.Controls.Add(Me.Panel2) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.IsMdiContainer = True + Me.Name = "frmMain" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "VERAG ADMIN TOOL" + Me.Panel3.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents ctrpLeft As System.Windows.Forms.ToolStripContentPanel + Friend WithEvents TableAdapterManager1 As TableAdapterManager + Friend WithEvents ctrpTop As System.Windows.Forms.ToolStripContentPanel + Friend WithEvents pnlMain As System.Windows.Forms.Panel + Friend WithEvents BottomToolStripPanel As System.Windows.Forms.ToolStripPanel + Friend WithEvents TopToolStripPanel As System.Windows.Forms.ToolStripPanel + Friend WithEvents RightToolStripPanel As System.Windows.Forms.ToolStripPanel + Friend WithEvents LeftToolStripPanel As System.Windows.Forms.ToolStripPanel + Friend WithEvents ContentPanel As System.Windows.Forms.ToolStripContentPanel + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents btnProgramme As System.Windows.Forms.Button + Friend WithEvents btnMitarbeiter As System.Windows.Forms.Button + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents btnDienstplan As System.Windows.Forms.Button + Friend WithEvents btnSchulungen As System.Windows.Forms.Button + Friend WithEvents btnUpdate As System.Windows.Forms.Button + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents btnHomepage As System.Windows.Forms.Button + +End Class diff --git a/UID/frmMain.resx b/UID/frmMain.resx new file mode 100644 index 0000000..1d5d040 --- /dev/null +++ b/UID/frmMain.resx @@ -0,0 +1,186 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 124, 17 + + + 50 + + + + + AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA + AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3 + 9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3 + 9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm + MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm + MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY + fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU + y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M + bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3///// + ///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////p6ffFxerp6ff////09PvFxerp6ffR0e/FxerFxerFxer09Pv////09PvFxer/ + ///R0e/p6ff////FxerR0e/////FxerR0e/////Fxer09Pv////p6ffR0e////////+4uOYDA71sbND0 + 9Pu4uOYDA72dnd1sbNADA70DA70DA70pKcLd3fPFxeoDA73p6fcpKcJERMfp6fcpKcIpKcL///8pKcIp + KcL///8pKcKrq+L///9sbNADA7309Pv///////9ERMcDA70DA70DA70DA73Fxeqdnd0DA72dnd2rq+Ip + KcIpKcL09PsDA724uOYDA70DA72dnd1ZWcsDA73p6fdZWcsDA73p6fdZWcuOjtnd3fMDA70DA73R0e// + //////+dnd0DA71ZWctZWcsDA73R0e+4uOYDA72dnd3///9+ftQDA73FxepERMeOjtkDA70pKcIpKcKO + jtkDA73FxeqOjtkDA73FxeqOjtlZWcudnd0DA70DA72rq+L////////p6fcDA70pKcJZWcsDA7309Pvd + 3fMDA71sbND///+OjtkDA73FxepZWctERMcDA72OjtkpKcJERMcDA72rq+Krq+IDA72rq+Krq+IDA71E + RMcpKcJZWct+ftT///////////9+ftQDA70DA70pKcL////09PsDA71ERMeOjtkpKcIpKcL09Pudnd0D + A70DA72rq+Kdnd0DA70DA71+ftTFxeoDA71+ftTFxeoDA70DA71+ftSdnd1ZWcv////////////FxeoD + A70DA71ZWcv///////9ZWcsDA70DA71ERMe4uOb///+4uOYDA70DA73Fxer09PspKcIDA71ZWcv09PsD + A71ZWcv09PsDA70DA73Fxeq4uOYDA7309Pv////////////09Pv09Pv////////////////09Pv09Pv/ + ///////////////09Pv09Pv////////////09Pv////////09Pv////////09Pv09Pv////////09Pv/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/UID/frmMain.vb b/UID/frmMain.vb new file mode 100644 index 0000000..236a1a9 --- /dev/null +++ b/UID/frmMain.vb @@ -0,0 +1,198 @@ +Imports System.ComponentModel + +Public Class frmMain + Public Shared ConnStr As String + Public Shared ConnStrInfo As String + Private Grid_aktiv As Boolean = False + Private Anzahl As Integer + Private locZeilen As Integer = -1 + Private Suche_freigegeben As Boolean = False + Private DISPO As New cOptionenDAL + ' Public Shared rowId As Integer + Private hSQL As String + Private nochange As Boolean = False + + + + Private Sub frmMain_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed + frmLogin.Close() + End Sub + + Private Sub Main_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not frmLogin.USRNAME = "Andreas Luxbauer" Then btnHomepage.Visible = False + ' If frmLogin.USRBER > 5 Then btnMitarbeiter.Enabled = False : btnProgramme.Enabled = False + Grid_aktiv = True + btnMitarbeiter.Enabled = False + btnProgramme.Enabled = False + btnSchulungen.Enabled = False + btnDienstplan.Enabled = False + Button1.Enabled = False + btnHomepage.Enabled = False + Button6.Enabled = False + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then + btnDienstplan.Enabled = True + btnDienstplan.PerformClick() + End If + + ' Me.berechtigung = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMINFUNCTIONS", 1) + ' If Me.berechtigung = 99 Then Me.Close() : Exit Sub + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMINFUNCTIONS", 1) = 0 Then + btnMitarbeiter.Enabled = True + btnProgramme.Enabled = True + btnSchulungen.Enabled = True + btnDienstplan.Enabled = True + Button1.Enabled = True + btnHomepage.Enabled = True + Button6.Enabled = True + End If + + ' If frmLogin.USRBER >= 5 Then + 'btnDienstplan.Enabled = True + ' End If + + + + + Dim usrCntl As New usrCntlWelcome + pnlMain.Controls.Add(usrCntl) + End Sub + + + Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnMitarbeiter.Click + clrPnlMain() + Dim usrCntl As New usrCntlMitarbeiter + pnlMain.Controls.Add(usrCntl) + button_Click(sender) + End Sub + Private Sub clrPnlMain() + While pnlMain.HasChildren + pnlMain.Controls.RemoveAt(0) + End While + End Sub + + Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click + clrPnlMain() + Dim usrCntl As New usrCntlWelcome + pnlMain.Controls.Add(usrCntl) + End Sub + + Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnProgramme.Click + clrPnlMain() + Dim usrCntl As New usrCntlProgramme + pnlMain.Controls.Add(usrCntl) + button_Click(sender) + End Sub + + Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnDienstplan.Click + clrPnlMain() + Dim usrCntl As New usrCntlDienstplan + pnlMain.Controls.Add(usrCntl) + button_Click(sender) + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnSchulungen.Click + clrPnlMain() + Dim usrCntl As New usrCntlSeminare + pnlMain.Controls.Add(usrCntl) + button_Click(sender) + End Sub + + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + clrPnlMain() + Dim usrCntl As New usrctlBuergschaft + pnlMain.Controls.Add(usrCntl) + button_Click(sender) + End Sub + + Private Sub btnHomepage_Click_1(sender As Object, e As EventArgs) Handles btnHomepage.Click + clrPnlMain() + Dim usrCntl As New usrcntlHomepage + pnlMain.Controls.Add(usrCntl) + usrCntl.Dock = System.Windows.Forms.DockStyle.Fill + button_Click(sender) + End Sub + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + 'frmTest.Show() + clrPnlMain() + Dim usrCntl As New usrctlProcedures + pnlMain.Controls.Add(usrCntl) + button_Click(sender) + End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + Me.Close() + End Sub + + Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click + frmLogin.UpdateADMIN() + + End Sub + + Private Sub button_Click(sender As Object) + Button6.BackColor = Color.White : Button6.ForeColor = SystemColors.ControlText + Button1.BackColor = Color.White : Button1.ForeColor = SystemColors.ControlText + btnSchulungen.BackColor = Color.White : btnSchulungen.ForeColor = SystemColors.ControlText + btnDienstplan.BackColor = Color.White : btnDienstplan.ForeColor = SystemColors.ControlText + btnProgramme.BackColor = Color.White : btnProgramme.ForeColor = SystemColors.ControlText + btnMitarbeiter.BackColor = Color.White : btnMitarbeiter.ForeColor = SystemColors.ControlText + + sender.BackColor = System.Drawing.Color.FromArgb(0, 54, 128) 'Color.RoyalBlue + sender.ForeColor = Color.White + End Sub + + + + + Private Sub Button1_Click(sender As Object, e As EventArgs) + Dim c As New cProgramFunctions + c.screenshot() + End Sub + + Private WithEvents T As New Timers.Timer With {.Interval = 500, .Enabled = True, .AutoReset = True} + Private FormCount As Integer = 1 + Private Sub SomeForm_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyData = Keys.Escape Then + Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form) + If Not TheForm Is Nothing Then + TheForm.Close() + End If + End If + If e.KeyData = Keys.PrintScreen Then + Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form) + If Not TheForm Is Nothing Then + Dim c As New cProgramFunctions + c.screenshot() + End If + End If + End Sub + Private Sub HookControls(ByVal f As Control) + For Each Control As Control In f.Controls + AddHandler Control.KeyUp, AddressOf SomeForm_KeyUp + If Control.Controls.Count <> 0 Then + HookControls(Control) + End If + Next + End Sub + Private Sub T_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles T.Elapsed + If FormCount = 0 Then FormCount = 1 + Dim FormOpened As Integer = My.Application.OpenForms.Count + If FormCount <> FormOpened Then + If FormOpened > FormCount Then + For x As Integer = 1 To (FormOpened - FormCount) + Dim F As Form = My.Application.OpenForms.Item(FormOpened - x) + AddHandler F.KeyDown, AddressOf SomeForm_KeyUp + HookControls(F) + FormCount = My.Application.OpenForms.Count + Next + Else + FormCount = My.Application.OpenForms.Count + End If + End If + End Sub + + + +End Class diff --git a/UID/frmMitarbSuche.Designer.vb b/UID/frmMitarbSuche.Designer.vb new file mode 100644 index 0000000..207822b --- /dev/null +++ b/UID/frmMitarbSuche.Designer.vb @@ -0,0 +1,141 @@ + _ +Partial Class frmMitarbSuche + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMitarbSuche)) + Me.Button5 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.txtSuche = New System.Windows.Forms.TextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.dgvMitarb = New System.Windows.Forms.DataGridView() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + CType(Me.dgvMitarb, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Button5 + ' + Me.Button5.Image = Global.ADMIN.My.Resources.Resources.stift + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(84, 357) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(93, 32) + Me.Button5.TabIndex = 50 + Me.Button5.Text = "Bearbeiten" + Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.Image = Global.ADMIN.My.Resources.Resources.plus + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(16, 357) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(62, 32) + Me.Button4.TabIndex = 49 + Me.Button4.Text = "Neu" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(324, 357) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(236, 32) + Me.Button3.TabIndex = 48 + Me.Button3.Text = "ÜBERNEHMEN" + Me.Button3.UseVisualStyleBackColor = True + ' + 'txtSuche + ' + Me.txtSuche.Location = New System.Drawing.Point(99, 6) + Me.txtSuche.Name = "txtSuche" + Me.txtSuche.Size = New System.Drawing.Size(300, 20) + Me.txtSuche.TabIndex = 0 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(405, 3) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 1 + Me.Button1.Text = "Suche" + Me.Button1.UseVisualStyleBackColor = True + ' + 'dgvMitarb + ' + Me.dgvMitarb.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMitarb.Location = New System.Drawing.Point(15, 32) + Me.dgvMitarb.Name = "dgvMitarb" + Me.dgvMitarb.Size = New System.Drawing.Size(546, 316) + Me.dgvMitarb.TabIndex = 3 + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(486, 3) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 23) + Me.Button2.TabIndex = 2 + Me.Button2.Text = "Alle" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(60, 13) + Me.Label1.TabIndex = 46 + Me.Label1.Text = "MA-Suche:" + ' + 'frmMitarbSuche + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(569, 399) + Me.Controls.Add(Me.Button5) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.txtSuche) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.dgvMitarb) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Label1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMitarbSuche" + Me.Text = "Mitarbeiter Suche" + CType(Me.dgvMitarb, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents txtSuche As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents dgvMitarb As System.Windows.Forms.DataGridView + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label +End Class diff --git a/UID/frmMitarbSuche.resx b/UID/frmMitarbSuche.resx new file mode 100644 index 0000000..c7cf80d --- /dev/null +++ b/UID/frmMitarbSuche.resx @@ -0,0 +1,180 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA + AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3 + 9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3 + 9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm + MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm + MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY + fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU + y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M + bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3///// + ///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////p6ffFxerp6ff////09PvFxerp6ffR0e/FxerFxerFxer09Pv////09PvFxer/ + ///R0e/p6ff////FxerR0e/////FxerR0e/////Fxer09Pv////p6ffR0e////////+4uOYDA71sbND0 + 9Pu4uOYDA72dnd1sbNADA70DA70DA70pKcLd3fPFxeoDA73p6fcpKcJERMfp6fcpKcIpKcL///8pKcIp + KcL///8pKcKrq+L///9sbNADA7309Pv///////9ERMcDA70DA70DA70DA73Fxeqdnd0DA72dnd2rq+Ip + KcIpKcL09PsDA724uOYDA70DA72dnd1ZWcsDA73p6fdZWcsDA73p6fdZWcuOjtnd3fMDA70DA73R0e// + //////+dnd0DA71ZWctZWcsDA73R0e+4uOYDA72dnd3///9+ftQDA73FxepERMeOjtkDA70pKcIpKcKO + jtkDA73FxeqOjtkDA73FxeqOjtlZWcudnd0DA70DA72rq+L////////p6fcDA70pKcJZWcsDA7309Pvd + 3fMDA71sbND///+OjtkDA73FxepZWctERMcDA72OjtkpKcJERMcDA72rq+Krq+IDA72rq+Krq+IDA71E + RMcpKcJZWct+ftT///////////9+ftQDA70DA70pKcL////09PsDA71ERMeOjtkpKcIpKcL09Pudnd0D + A70DA72rq+Kdnd0DA70DA71+ftTFxeoDA71+ftTFxeoDA70DA71+ftSdnd1ZWcv////////////FxeoD + A70DA71ZWcv///////9ZWcsDA70DA71ERMe4uOb///+4uOYDA70DA73Fxer09PspKcIDA71ZWcv09PsD + A71ZWcv09PsDA70DA73Fxeq4uOYDA7309Pv////////////09Pv09Pv////////////////09Pv09Pv/ + ///////////////09Pv09Pv////////////09Pv////////09Pv////////09Pv09Pv////////09Pv/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/UID/frmMitarbSuche.vb b/UID/frmMitarbSuche.vb new file mode 100644 index 0000000..b397ac0 --- /dev/null +++ b/UID/frmMitarbSuche.vb @@ -0,0 +1,173 @@ +Imports System.ComponentModel + +Public Class frmMitarbSuche + Dim ConnStr As String + Private ADMIN As New cMitarbeiter + Private cOptionenDAL As New cOptionenDAL + Private Grid_aktiv As Boolean = False + Private Anzahl As Integer + Private locZeilen As Integer = -1 + Public mid As Integer = -1 + Public searchUse As String = "" + + Private Sub frmMitarbSuche_Load(sender As Object, e As EventArgs) Handles Me.Load + ConnStr = frmMain.ConnStr + + Try + ' Me.Size = My.Settings.frmMainSize + ' Me.Location = My.Settings.frmMainPosition + Catch ex As Exception + 'nix tun - Standardgröße wird somit automatisch gesetzt + End Try + + Grid_aktiv = True + Tabelle_anzeigen() + + End Sub + + Public Sub Tabelle_anzeigen() + Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds + 'lblMs.Image = My.Resources.sanduhr + 'Paint wieder reaktivieren + locZeilen = -1 + If Not Grid_aktiv Then Exit Sub + Dim top As String = "" ' "top 100" + + 'je nach Auswahl SQL anpassen + Dim hSQL = "SELECT mit_id, mit_username, mit_vname, mit_nname, mit_niederlassung, mit_abteilung, mit_gekuendigt,mit_geschlecht FROM tblMitarbeiter " + Dim search As String = txtSuche.Text + Dim where As String = "" + If txtSuche.Text <> "" Then + + Dim arr() As String = Split(txtSuche.Text.Replace(" ", ","), ",") + + Dim cnt As Integer = 1 + If arr.Count() > 0 Then cnt = arr.Count + Dim or_txt As String = "" + For i As Integer = 0 To cnt - 1 Step 1 + If arr(i) <> "" Then search = arr(i).Trim + If i > 0 Then where += " AND " + where += " ( mit_username LIKE '%" & search & "%' OR mit_vname LIKE '%" & search & "%' OR mit_nname LIKE '%" & search & "%' OR mit_niederlassung LIKE '%" & search & "%' OR mit_abteilung LIKE '%" & search & "%' ) " + Next + where = " WHERE " & where + End If + + + ' MsgBox(hSQL & where) + dgvMitarb.DataSource = cOptionenDAL.AnzeigeTabelle(hSQL & where) + + + 'Tabelle Kommt/Geht bereinigen + If dgvMitarb.RowCount = 0 Then + dgvMitarb.DataSource = Nothing + Else + Spalten_festlegen() + ' Eintraege_festlegen() + 'AL: Sortierung nach Ausfahrt (Zeit) + dgvMitarb.Sort(dgvMitarb.Columns(3), ListSortDirection.Ascending) + End If + + 'Anzeige der Anzahl gewählter/aller Datensätze + If (dgvMitarb.RowCount = 100) Then + 'lblAnzahl.Text = Format(dgvMitarb.RowCount, "#,##0") & " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)" + Else + ' lblAnzahl.Text = Format(dgvMitarb.RowCount, "#,##0") & " ausgewählt" + End If + ' lblAnzahl.Refresh() + Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds + ' lblMs.Text = "Ladezeit: " & (ende - start) & " ms" + 'lblMs.Image = Nothing + End Sub + + + Private Sub Spalten_festlegen() + With dgvMitarb + .RowTemplate.Height = 20 + .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft + .AllowUserToAddRows = False + .AllowUserToDeleteRows = False + .AllowUserToOrderColumns = False + .AllowUserToResizeColumns = False + .AllowUserToResizeRows = False + .RowTemplate.ReadOnly = True + .RowHeadersVisible = False + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + If searchUse = "vortragender" Then + .MultiSelect = False + End If + .AllowUserToOrderColumns = True + + .Columns(0).Visible = False 'ID nicht anzeigen + .Columns(6).Visible = False 'ID nicht anzeigen + + .Columns(1).Width = 80 + .Columns(1).HeaderText = "Username" + .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + .Columns(2).Width = 150 + .Columns(2).HeaderText = "Vorname" + + .Columns(3).Width = 150 + .Columns(3).HeaderText = "Nachname" + + .Columns(4).Width = 85 + .Columns(4).HeaderText = "Niederlassung" + + .Columns(5).Width = 85 + .Columns(5).HeaderText = "Abteilung" + + + End With + End Sub + + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + frmMitarbDetails.mid = dgvMitarb.CurrentRow.Cells(0).Value + frmMitarbDetails.Show() + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + frmMitarbDetails.Show() + End Sub + + Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged + Tabelle_anzeigen() + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click, dgvMitarb.CellDoubleClick + If searchUse = "addTeilnehmer" Then + Dim SEMINARE As New cSeminare + Dim ctrlList As New List(Of Integer) + For i As Integer = 0 To frmSeminarDetails.dgvTeilnehmer.RowCount - 1 Step 1 + ctrlList.Add(frmSeminarDetails.dgvTeilnehmer.Rows(i).Cells(1).Value) + Next + With dgvMitarb + For i As Integer = 0 To .RowCount - 1 Step 1 + Dim mit_id As Integer = .Rows(i).Cells(0).Value + If .Rows(i).Selected = True And checkList(ctrlList, mit_id) Then + SEMINARE.insertSemMitarbeiter(frmSeminarDetails.semId, mit_id) + End If + Next + End With + frmSeminarDetails.Tabelle_anzeigen() + ElseIf searchUse = "vortragender" Then + frmSeminarDetails.vortragenderId = dgvMitarb.SelectedRows(0).Cells(0).Value + Dim anrede As String = "" + + ' If dgvMitarb.SelectedRows(0).Cells(7).Value = "m" Then anrede = "Herr " + ' If dgvMitarb.SelectedRows(0).Cells(7).Value = "w" Then anrede = "Frau " + frmSeminarDetails.txtVortragender.Text = anrede & dgvMitarb.SelectedRows(0).Cells(2).Value & " " & dgvMitarb.SelectedRows(0).Cells(3).Value + End If + Me.Close() + End Sub + + Private Function checkList(ByVal ctrlList As List(Of Integer), ByVal id As Integer) As Boolean + For Each i As Integer In ctrlList + If i = id Then Return False + Next + Return True + End Function + Private Sub dgvMitarb_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvMitarb.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/UID/frmPrintLayout.Designer.vb b/UID/frmPrintLayout.Designer.vb new file mode 100644 index 0000000..e9402fb --- /dev/null +++ b/UID/frmPrintLayout.Designer.vb @@ -0,0 +1,82 @@ + _ +Partial Class frmPrintLayout + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrintLayout)) + Me.Viewer = New GrapeCity.ActiveReports.Viewer.Win.Viewer() + Me.SuspendLayout() + ' + 'Viewer + ' + Me.Viewer.CurrentPage = 0 + Me.Viewer.Dock = System.Windows.Forms.DockStyle.Fill + Me.Viewer.Location = New System.Drawing.Point(0, 0) + Me.Viewer.Name = "Viewer" + Me.Viewer.PreviewPages = 0 + ' + ' + ' + ' + ' + ' + Me.Viewer.Sidebar.ParametersPanel.ContextMenu = Nothing + Me.Viewer.Sidebar.ParametersPanel.Text = "Parameters" + Me.Viewer.Sidebar.ParametersPanel.Width = 200 + ' + ' + ' + Me.Viewer.Sidebar.SearchPanel.ContextMenu = Nothing + Me.Viewer.Sidebar.SearchPanel.Text = "Search results" + Me.Viewer.Sidebar.SearchPanel.Width = 200 + ' + ' + ' + Me.Viewer.Sidebar.ThumbnailsPanel.ContextMenu = Nothing + Me.Viewer.Sidebar.ThumbnailsPanel.Text = "Page thumbnails" + Me.Viewer.Sidebar.ThumbnailsPanel.Width = 200 + ' + ' + ' + Me.Viewer.Sidebar.TocPanel.ContextMenu = Nothing + Me.Viewer.Sidebar.TocPanel.Text = "Document map" + Me.Viewer.Sidebar.TocPanel.Width = 200 + Me.Viewer.Sidebar.Width = 200 + Me.Viewer.Size = New System.Drawing.Size(284, 261) + Me.Viewer.TabIndex = 0 + ' + 'frmPrintLayout + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(284, 261) + Me.Controls.Add(Me.Viewer) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmPrintLayout" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Bericht" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Viewer As GrapeCity.ActiveReports.Viewer.Win.Viewer +End Class diff --git a/UID/frmPrintLayout.resx b/UID/frmPrintLayout.resx new file mode 100644 index 0000000..26e17a0 --- /dev/null +++ b/UID/frmPrintLayout.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////d3fOrq+Krq+Krq+Krq+Krq+Krq+Lp6ff///////// + ///////////////////////////p6ferq+Krq+Krq+Krq+Krq+Krq+Krq+L///////////+rq+Krq+Kr + q+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Ld3fP///////////////////////////// + //////////+rq+Krq+Krq+Krq+Krq+K4uOb////////////////////d3fOrq+Krq+Krq+Krq+Lp6ff/ + ///////////////p6ferq+Krq+Krq+Krq+Krq+Krq+K4uOb///////////////////+rq+Krq+Krq+Kr + q+Krq+Krq+Krq+L///////////////////+rq+Krq+Krq+Krq+Krq+K4uOb///////////////////// + ///////////p6ferq+Krq+Krq+Krq+Krq+LFxer////////////////////////////////d3fMpKcID + A70DA70DA70DA70DA72Ojtn////////////////////////////////////FxeoDA70DA70DA70DA70D + A70DA71ERMf///////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA71+ftTR0e////////////////////////////8pKcIDA70DA70DA70DA70pKcL///////////// + //////+rq+IDA70DA70DA70DA72Ojtn////////////////d3fMDA70DA70DA70DA70DA70DA71ERMf/ + //////////////////8pKcIDA70DA70DA70DA70DA70pKcL///////////////////8pKcIDA70DA70D + A70DA71ERMf///////////////////////////////+rq+IDA70DA70DA70DA70DA71ZWcv///////// + //////////////////////////+rq+IDA70DA70DA70DA70DA70DA73p6ff///////////////////// + //////////+rq+IDA70DA70DA70DA70DA70DA71+ftT///////////9ZWcsDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////////////////////9sbNAD + A70DA70DA70DA70DA73p6ff///////////////+OjtkDA70DA70DA70DA70DA73p6ff///////////// + //8pKcIDA70DA70DA70DA70DA70DA7309Pv///////////////9sbNADA70DA70DA70DA70DA70DA73p + 6ff///////////////9ZWcsDA70DA70DA70DA70DA7309Pv///////////////////////////8pKcID + A70DA70DA70DA70DA70DA73////////////////////////////////////09PspKcIDA70DA70DA70D + A70DA72rq+L///////////////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L///// + //////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A71ZWcv09Pv///////////////+dnd0DA70DA70DA70DA70DA73Fxer///////////////9ZWcsDA70D + A70DA70DA70DA72Ojtn///////////////9ZWcsDA70DA70DA70DA70DA70DA73d3fP///////////// + //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////+OjtkDA70DA70DA70DA70DA73R0e// + //////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA73d3fP///////////////////// + //////////////+rq+IDA70DA70DA70DA70DA70pKcL09Pv///////////////////////////9ZWcsD + A70DA70DA70DA70DA70DA73Fxer///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////+rq+IDA70DA70DA70DA70D + A72rq+L///////////////8pKcIDA70DA70DA70DA70DA70DA73p6ff///////////+OjtkDA70DA70D + A70DA70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////// + //+rq+IDA70DA70DA70DA70DA72rq+L///////////////////////9ZWcsDA70DA70DA70DA70DA70D + A70DA73Fxer////////////////////////////////////09PspKcIDA70DA70DA70DA70DA71+ftSr + q+Krq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70DA73d3fP////////////R0e8DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/ + ///////////d3fMDA70DA70DA70DA70DA71+ftT////////////p6fcDA70DA70DA70DA70DA70DA70D + A72Ojtn///////////+rq+IDA70DA70DA70DA70DA70DA72dnd3////////////////R0e8DA70DA70D + A70DA70DA70DA71+ftT////////////////R0e8DA70DA70DA70DA70DA72dnd3///////////////// + ///R0e8DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////////////// + //+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA73////////////////09PsDA70DA70DA70DA70DA70DA72dnd3////////////09Purq+JZWcsD + A70DA70DA70DA70DA70DA70DA70DA73p6ff////////09PsDA70DA70DA70DA70DA71ZWcv///////// + ///FxeoDA70DA70DA70DA70DA70DA70DA70DA73p6ff////////R0e8DA70DA70DA70DA70DA70DA71s + bND////////////////09PsDA70DA70DA70DA70DA70DA71ZWcv////////////////09PsDA70DA70D + A70DA70DA71ZWcv///////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA71+ftT///// + ///////////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////8pKcIDA70DA70DA70DA70D + A71sbND///////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA72Ojtn///////////9E + RMcDA70DA70DA70DA70DA73///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA72Ojtn///// + ///09PsDA70DA70DA70DA70DA70DA70pKcL///////////////////9ERMcDA70DA70DA70DA70DA70D + A73///////////////////8pKcIDA70DA70DA70DA70pKcL////////////////09PsDA70DA70DA70D + A70DA70DA70DA70DA70DA71ERMf///////////////////////////////////////////+rq+IDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////// + //////////9+ftQDA70DA70DA70DA70DA70pKcL///////////////////////////+OjtkDA70DA70D + A70DA70DA70DA70DA7309Pv///////9+ftQDA70DA70DA70DA70DA73d3fP///////+OjtkDA70DA70D + A70DA70DA70DA70DA70DA70DA73p6ff///////8pKcIDA70DA70DA70DA70DA70DA7309Pv///////// + //////9+ftQDA70DA70DA70DA70DA70DA73d3fP///////////////9+ftQDA70DA70DA70DA70DA73d + 3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////// + ///////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA73p6ff///// + ///////////////////p6fcDA70DA70DA70DA70DA70DA70DA73Fxer///////+rq+IDA70DA70DA70D + A70DA724uOb///////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////9+ftQDA70D + A70DA70DA70DA70DA73Fxer///////////////+dnd0DA70DA70DA70DA70DA70DA724uOb///////// + //////+dnd0DA70DA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA73R0e////////////////////////////////////////////+rq+IDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer///////////////////+4uOYD + A70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70DA70DA70D + A72dnd3////////FxeoDA70DA70DA70DA70DA72dnd3///////8pKcIDA70DA70DA70DA70DA70DA70D + A70DA70DA70DA73R0e////+dnd0DA70DA70DA70DA70DA70DA72rq+L///////////////+4uOYDA70D + A70DA70DA70DA70DA72dnd3///////////////+4uOYDA70DA70DA70DA70DA72rq+L///////+4uOYD + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////////////////// + ///////////09PspKcIDA70DA70DA70DA70DA73R0e////////////9ZWcsDA70DA70DA70DA70DA70D + A73p6ff////////////////////d3fMDA70DA70DA70DA70DA70DA72rq+L///////////////////// + //////+rq+IDA70DA70DA70DA70DA70DA71sbND////////d3fMDA70DA70DA70DA70DA71+ftT////d + 3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND///+4uOYDA70DA70DA70DA70DA70D + A72Ojtn////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT////////////////d3fMDA70D + A70DA70DA70DA71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/ + //////////////////////////////////////////////+rq+IDA70DA70DA70DA70DA71sbND///// + //////8DA70DA70DA70DA70DA70DA70pKcL///////////////////////////8DA70DA70DA70DA70D + A70DA72Ojtn////////////////////////////d3fMDA70DA70DA70DA70DA70DA71ERMf///////// + //8pKcIDA70DA70DA70DA70pKcL////FxeoDA70DA70DA70DA70DA70pKcKOjtkDA70DA70DA70DA70D + A73R0e/d3fMDA70DA70DA70DA70DA70DA71ZWcv///////////////////8DA70DA70DA70DA70DA70D + A70pKcL////////////////09PsDA70DA70DA70DA70DA71ZWcv////d3fMDA70DA70DA70DA70DA70D + A71ZWcsDA70DA70DA70DA70DA71ZWcv////////////////////////////////////////////////0 + 9PspKcIDA70DA70DA70DA70DA73p6ff////p6fcDA70DA70DA70DA70DA70DA71sbND///////////// + //////////////9ZWcsDA70DA70DA70DA70DA71ZWcv////////////////////////////p6fcDA70D + A70DA70DA70DA70DA71ERMf///////////9ZWcsDA70DA70DA70DA70DA7309Purq+IDA70DA70DA70D + A70DA71ZWcvp6fcDA70DA70DA70DA70DA71sbND///8DA70DA70DA70DA70DA70DA70DA73///////// + //////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv///////////////9ZWcsDA70DA70DA70DA70D + A73///+OjtkDA70DA70DA70DA70DA70DA724uOZZWcsDA70DA70DA70DA70pKcL///////////////// + //////////////////////////////////+rq+IDA70DA70DA70DA70DA72Ojtn////FxeoDA70DA70D + A70DA70DA70DA72dnd3///////////////////////////9+ftQDA70DA70DA70DA70DA70DA73///// + ///////////////////////p6fcDA70DA70DA70DA70DA70DA71ERMf///////////+OjtkDA70DA70D + A70DA70DA73R0e9+ftQDA70DA70DA70DA70DA72Ojtn///+dnd0DA70DA70DA70DA70DA73R0e9ZWcsD + A70DA70DA70DA70DA70DA73d3fP///////////////9+ftQDA70DA70DA70DA70DA70DA73R0e////// + //////////9+ftQDA70DA70DA70DA70DA73R0e8DA70DA70DA70DA70DA70DA70pKcL09Pt+ftQDA70D + A70DA70DA70DA73p6ff////////////////////////////////////////////////09PspKcIDA70D + A70DA70DA70DA73p6ferq+IDA70DA70DA70DA70DA70DA72rq+L///////////////////////////+r + q+IDA70DA70DA70DA70DA70DA73d3fP////////////////////////d3fMDA70DA70DA70DA70DA70D + A71ZWcv///////////+rq+IDA70DA70DA70DA70DA72rq+JZWcsDA70DA70DA70DA70DA72rq+L////0 + 9PspKcIDA70DA70DA70DA71sbNB+ftQDA70DA70DA70DA70DA70DA73Fxer///////////////+rq+ID + A70DA70DA70DA70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA71ZWcsDA70DA70D + A70DA70DA70DA72dnd3///+rq+IDA70DA70DA70DA70DA73Fxer///////////////////////////// + //////////////////////+rq+IDA70DA70DA70DA70DA72rq+Kdnd0DA70DA70DA70DA70DA70DA73R + 0e/////////////////////////////FxeoDA70DA70DA70DA70DA70DA73Fxer///////////////// + //////+rq+IDA70DA70DA70DA70DA70DA71+ftT////////////R0e8DA70DA70DA70DA70DA72OjtkD + A70DA70DA70DA70DA70DA73Fxer///////+rq+IDA70DA70DA70DA70DA71sbNADA70DA70DA70DA70D + A70DA72dnd3////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3////////////////FxeoD + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p6ff////FxeoDA70DA70DA70DA70DA72r + q+L////////////////////////////////////////////////////09PspKcIDA70DA70DA70DA70p + KcJZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////p6fcDA70DA70DA70D + A70DA70DA72dnd3////////////////////09PspKcIDA70DA70DA70DA70DA70DA72rq+L///////// + ///09PsDA70DA70DA70DA70DA70pKcIDA70DA70DA70DA70DA70DA73d3fP////////09PspKcIDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT////////////////p6fcDA70DA70DA70DA70D + A70DA71ZWcv////////////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/ + ///////d3fMDA70DA70DA70DA70DA71+ftT///////////////////////////////////////////// + //////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////// + //////////////////8pKcIDA70DA70DA70DA70DA71+ftT////////////////p6fdZWcsDA70DA70D + A70DA70DA70DA70DA73p6ff///////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA73///////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ERMf///// + //////////////8pKcIDA70DA70DA70DA70DA70pKcL///////////////////8pKcIDA70DA70DA70D + A70DA70DA70DA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA70DA71ZWcv///////////// + ///////////////////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA71+ftT///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70pKcKr + q+Krq+Krq+JsbNADA70DA70DA70DA70DA70DA70DA70DA71sbND///////////////////9+ftQDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA71ERMf////////////////09PspKcIDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA7309Pv///////////////9ZWcsDA70DA70DA70DA70DA70DA73p6ff/ + //////////////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA71ERMf///////////////9ZWcsD + A70DA70DA70DA70DA73///////////////////////////////////////////////////////////+r + q+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////////// + //+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p + 6ff///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////// + //////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP///////////////+d + nd0DA70DA70DA70DA70DA70DA73Fxer///////////////+OjtkDA70DA70DA70DA70DA70DA70DA70D + A70DA72rq+L///////////////+OjtkDA70DA70DA70DA70DA73d3fP///////////////////////// + ///////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/ + //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+4uOYDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA72dnd3////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////////+r + q+IDA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////+rq+IDA70DA70DA70DA70D + A724uOb///////////////////////////////////////////////////////////+rq+IDA70DA70D + A70DA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////R0e8DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////// + ///////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////+r + q+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3////////////////R0e8DA70DA70DA70D + A70DA70DA71+ftT////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////// + ///////////FxeoDA70DA70DA70DA70DA72dnd3///////////////////////////////////////// + ///////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////// + ///////////////////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70p + KcLFxer///////////////////////////////////8DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A73R0e/////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/ + ///////////////09PsDA70DA70DA70DA70DA70DA71ZWcv////////////////09PsDA70DA70DA70D + A70DA70DA70DA70DA73R0e/////////////////////09PsDA70DA70DA70DA70DA71+ftT///////// + //////////////////////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D + A70DA71ZWcv///////////////////////////////////////////8pKcIDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70pKcKrq+Krq+L///////////////////////////////////////////9ZWcsD + A70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////////////////+rq+IDA70DA70D + A70DA70DA70DA70DA70DA70DA70DA73///////////////////8pKcIDA70DA70DA70DA70DA70DA73/ + //////////////////8pKcIDA70DA70DA70DA70DA70DA71ZWcv///////////////////////////8p + KcIDA70DA70DA70DA71ERMf///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/UID/frmPrintLayout.vb b/UID/frmPrintLayout.vb new file mode 100644 index 0000000..4c537a1 --- /dev/null +++ b/UID/frmPrintLayout.vb @@ -0,0 +1,3 @@ +Public Class frmPrintLayout + +End Class \ No newline at end of file diff --git a/UID/frmPrintView.Designer.vb b/UID/frmPrintView.Designer.vb new file mode 100644 index 0000000..718aac4 --- /dev/null +++ b/UID/frmPrintView.Designer.vb @@ -0,0 +1,51 @@ + _ +Partial Class frmPrintView + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrintView)) + Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer() + Me.SuspendLayout() + ' + 'ReportViewer1 + ' + Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "UID.rptDetailsPrint.rdlc" + Me.ReportViewer1.Location = New System.Drawing.Point(0, 0) + Me.ReportViewer1.Name = "ReportViewer1" + Me.ReportViewer1.Size = New System.Drawing.Size(712, 612) + Me.ReportViewer1.TabIndex = 0 + ' + 'frmPrintView + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(712, 612) + Me.Controls.Add(Me.ReportViewer1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmPrintView" + Me.Text = "Druckansicht" + Me.ResumeLayout(False) + + End Sub + Private WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer +End Class diff --git a/UID/frmPrintView.resx b/UID/frmPrintView.resx new file mode 100644 index 0000000..91a68af --- /dev/null +++ b/UID/frmPrintView.resx @@ -0,0 +1,607 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAYGAAAAEAGACocAAAFgAAACgAAABgAAAAwAAAAAEAGAAAAAAAgHAAAMQOAADEDgAAAAAAAAAA + AAB6TSF6TSFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSF6TSF6TSFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSFnNQJnNQJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBtPAtt + PAtwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwDLv7j////////////39fR0 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////// + //+AXUJmMwBmMwBmMwBmMwDUy8X///////////90SSZmMwBmMwBmMwBmMwBmMwDu6+n///////////+A + XUJmMwBmMwBmMwDd1tH///////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////39fRm + MwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zd1tH////////////39fS3p5x0SSaYfWv////Uy8VmMwBmMwBm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwDm4N3////////////////Lv7hmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwD///////////////////////////////////////////////+jjH1mMwBmMwBm + MwBmMwC3p5z///////////+jjH1mMwBmMwBmMwBmMwCYfWv////////////Uy8VmMwBmMwBmMwBmMwCA + XUL39fT////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////Uy8VmMwBmMwBmMwBmMwBm + MwCMblju6+n////////////////////////////////d1tH////39fRmMwBmMwBmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwBmMwBmMwD///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwCMblj///// + ///////Bs6pmMwBmMwBmMwBmMwDLv7j///////////+jjH1mMwBmMwBmMwBmMwBmMwC3p5z///////// + //+YfWtmMwBmMwBmMwBmMwBmMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwB0SSbu6+n///////// + ///////////////Lv7jd1tH///////////////+jjH1mMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwCMblj////////////u6+n////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////m4N1mMwBm + MwBmMwB0SSb39fT////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwC3p5z///////////////+tmo1mMwBmMwBm + MwBmMwDBs6r////////////Bs6pmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwCtmo3///// + //////+3p5zUy8X///////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////Uy8VmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3////////39fRmMwBmMwBmMwCtmo3///// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////////////////////// + //////////90SSZmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwDUy8X///////////////// + ///////m4N1mMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwDBs6r///////////+jjH2AXUL/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwB0SSb////////////////////////////////////////m + 4N1mMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////////m4N1mMwBm + MwBmMwBmMwBmMwDd1tH///////////+tmo1mMwBmMwC3p5z///////////////////////////+AXUJm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwDm4N3///////////90SSZmMwDBs6r////////Uy8Vm + MwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////9mMwBmMwBmMwBm + MwBmMwBmMwCjjH3///////////////////////////////////////////////+3p5xmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n////////Lv7hmMwBmMwC3p5z////////////Bs6pmMwBmMwBmMwBmMwBmMwDU + y8X////////////Bs6pmMwBmMwCYfWv///////////////////////////+3p5xmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwBmMwD39fT////////39fRmMwBmMwB0SSb39fT///////+jjH1mMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwCAXUL/ + //////////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCY + fWv///////////+MblhmMwDLv7j///////////+jjH1mMwBmMwBmMwBmMwBmMwC3p5z////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwCMblj////////////d1tFmMwBmMwBmMwCtmo3////////u6+lmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////m4N1m + MwBmMwBmMwBmMwBmMwC3p5z////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////d + 1tFmMwDm4N3///////////90SSZmMwBmMwBmMwBmMwBmMwCAXUL///////////////+3p5xmMwBmMwBm + MwBmMwBmMwDBs6r////d1tG3p5yMblhmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwCjjH3///////// + ///Bs6pmMwBmMwBmMwBmMwDm4N3///////+3p5xmMwBmMwBmMwBmMwCMblj////////////m4N1mMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////90SSZmMwBmMwBmMwBm + MwCjjH3///////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////+3p5z///////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Bs6p0SSZmMwBmMwC3p5z///// + ///////39fR0SSZmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwDBs6r///////////+3p5xmMwBmMwBm + MwBmMwCYfWv///////////+AXUJmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////+jjH1mMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + ///d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////Uy8VmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////////////+3p5xmMwBm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwDUy8X///////////+MblhmMwBmMwBmMwBmMwBmMwDLv7j/ + ///////d1tFmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+3p5xm + MwBmMwBmMwBmMwCMblj////////////////////////////////////////////u6+mAXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwD39fT///////////90SSZmMwBmMwBmMwBmMwBmMwCAXUL///////////+3p5xm + MwBmMwBmMwDBs6r////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwB0 + SSb////////////////////////////////////m4N23p5x0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCAXUL39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUK3p5zm4N3///////////////+3p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNQJnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJnNQJ6TSF6TSFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSF6TSF6TSFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSH///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////R0e+rq+Krq+Krq+Krq+LR0e////////////////// + //////////+rq+Krq+Krq+Krq+Krq+Ld3fP////d3fOrq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr + q+K4uOb////////////////////////////d3fOrq+Krq+Krq+Krq+L////////////////Fxeqrq+Kr + q+Krq+L////////////p6ferq+Krq+Krq+Krq+Krq+L///////////////+4uOarq+Krq+Krq+Krq+Lp + 6ff///////////+4uOarq+Krq+Krq+LR0e////////////////////////+rq+Krq+Krq+Krq+LR0e// + ///////////////////////FxeoDA70DA70DA70DA71sbND///////////////////////////8DA70D + A70DA70DA70DA73Fxer////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn0 + 9Pv////////////////R0e8DA70DA70DA70DA73p6ff///////////9ZWcsDA70DA70DA73R0e////// + ///d3fMDA70DA70DA70DA70DA7309Pv///////////9+ftQDA70DA70DA70DA72rq+L///////////9+ + ftQDA70DA70DA72Ojtn////////////////////R0e8DA70DA70DA70DA72Ojtn///////////////// + //////////9sbNADA70DA70DA70DA73R0e/////////////////////p6fcDA70DA70DA70DA70DA73p + 6ff////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ERMfd3fP///////// + ///09PsDA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA71sbND///////////8pKcIDA70D + A70DA70DA73R0e////////////+dnd0DA70DA70DA70DA72dnd3///////////+dnd0DA70DA70DA71Z + Wcv///////////////////+OjtkDA70DA70DA70DA71ZWcv////////////////////////////R0e8D + A70DA70DA70DA71+ftT////////////////////R0e8DA70DA70DA70DA70pKcL///////////9ERMcD + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp6ff///////////9ERMcDA70D + A70DA72rq+L////////p6fcDA70DA70DA70DA70DA73R0e////////9ZWcsDA70DA70DA70DA72rq+L/ + //////////+4uOYDA70DA70DA70DA71sbND///////////+4uOYDA70DA70DA70DA73///////////// + ///09PsDA70DA70DA70DA70DA70pKcL///////////////////////////////9sbNADA70DA70DA70D + A72rq+Krq+Krq+Krq+Krq+J+ftQDA70DA70DA70DA71ZWcv///////////9+ftQDA70DA70DA70DA73F + xer////////d3fOOjtkDA70DA70DA70DA70DA71sbND///////////9+ftQDA70DA70DA71+ftT///// + ///FxeoDA70DA70DA70DA70DA71sbND///////+dnd0DA70DA70DA70DA72dnd3////////////d3fMD + A70DA70DA70DA70pKcL////////////d3fMDA70DA70DA70DA73d3fP///////////+rq+IDA70DA70D + A70DA70DA70DA73d3fP////////////////////////////R0e8DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72Ojtn///////////+dnd0DA70DA70DA70DA72rq+L///////////// + //+rq+IDA70DA70DA70DA70DA73R0e////////+dnd0DA70DA70DA71ZWcv///////+rq+IDA70DA70D + A70DA70DA70DA73R0e////+rq+IDA70DA70DA70DA71sbND///////////////8DA70DA70DA70DA70D + A73p6ff////////09PsDA70DA70DA70DA73Fxer///////////9ERMcDA70DA70DA70DA70DA70DA73F + xer///////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+L///////////+4uOYDA70DA70DA70DA72Ojtn///////////////////9ZWcsDA70D + A70DA70DA71+ftT////////FxeoDA70DA70DA70DA73///////+OjtkDA70DA70DA70DA70DA70DA71s + bND////R0e8DA70DA70DA70DA70pKcL///////////////9ZWcsDA70DA70DA70DA73Fxer///////// + //9ZWcsDA70DA70DA72rq+L////////FxeoDA70DA70DA70DA70DA70DA70DA72rq+L///////////// + ///////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer/ + ///////////d3fMDA70DA70DA70DA71ZWcv///////////////////+rq+IDA70DA70DA70DA70DA730 + 9Pv////d3fMDA70DA70DA70DA73d3fP///9ZWcsDA70DA70DA70DA70DA70DA70DA73R0e/09PsDA70D + A70DA70DA70DA73p6ff///////////9+ftQDA70DA70DA70DA72rq+L///////////9+ftQDA70DA70D + A71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA71+ftT///////////////////////////// + //////9sbNADA70DA70DA70pKcL09Pv///////8DA70DA70DA70DA70DA73p6ff///////////////8D + A70DA70DA70DA70pKcL////////////////////09PsDA70DA70DA70DA70DA73d3fP///////8DA70D + A70DA70DA724uOb///8pKcIDA70DA70DA70DA70DA70DA70DA71sbND///8pKcIDA70DA70DA70DA73F + xer///////////+rq+IDA70DA70DA70DA72Ojtn///////////+rq+IDA70DA70DA71ERMf////p6fcD + A70DA70DA70DA70DA70DA70DA70DA71ZWcv////////////////////////////////////R0e8DA70D + A70DA70DA724uOb////d3fMDA70DA70DA70DA70pKcL///////////////////9ZWcsDA70DA70DA70D + A73d3fP///////////////////8pKcIDA70DA70DA70DA73Fxer///////9ZWcsDA70DA70DA72dnd3p + 6fcDA70DA70DA70DA71ZWcsDA70DA70DA70DA73p6fdsbNADA70DA70DA70DA72rq+L////////////F + xeoDA70DA70DA70DA71ZWcv////////////FxeoDA70DA70DA70DA7309Pudnd0DA70DA70DA70DA70p + KcIDA70DA70DA70DA7309Pv///////////////////////////////////9sbNADA70DA70DA71ERMf/ + ///FxeoDA70DA70DA70DA71ZWcv///////////////////9+ftQDA70DA70DA70DA73Fxer///////// + //////////9ERMcDA70DA70DA70DA724uOb///////+OjtkDA70DA70DA71+ftTFxeoDA70DA70DA70D + A724uOZsbNADA70DA70DA72Ojtmdnd0DA70DA70DA70DA72Ojtn////////////d3fMDA70DA70DA70D + A70pKcL////////////d3fMDA70DA70DA70DA73R0e8pKcIDA70DA70DA70DA72rq+IDA70DA70DA70D + A73d3fP////////////////////////////////////R0e8DA70DA70DA70DA73Fxeqrq+IDA70DA70D + A70DA72Ojtn///////////////////+rq+IDA70DA70DA70DA72rq+L///////////////////9ERMcD + A70DA70DA70DA73Fxer///////+rq+IDA70DA70DA71ERMerq+IDA70DA70DA70DA73d3fPR0e8DA70D + A70DA70DA72rq+IDA70DA70DA70DA71ZWcv///////////////8pKcIDA70DA70DA70DA73d3fP///// + //////8DA70DA70DA70DA71+ftQDA70DA70DA70DA71ERMf///8pKcIDA70DA70DA724uOb///////// + //////////////////////////////9sbNADA70DA70DA71sbNCdnd0DA70DA70DA70DA72rq+L///// + ///////////////FxeoDA70DA70DA70DA71+ftT///////////////////8DA70DA70DA70DA70DA73d + 3fP////////FxeoDA70DA70DA70DA71sbNADA70DA70DA70DA7309Pv///9sbNADA70DA70DA71ZWcsD + A70DA70DA70DA70pKcL///////////////9ZWcsDA70DA70DA70DA73Fxer///////////9ZWcsDA70D + A70DA70DA70DA70DA70DA70DA72rq+L///9ZWcsDA70DA70DA72dnd3///////////////////////// + ///////////////FxeoDA70DA70DA70DA70pKcIDA70DA70DA70DA73Fxer////////////////////p + 6fcDA70DA70DA70DA71ZWcv///////////////+4uOYDA70DA70DA70DA70pKcL09Pv////////p6fcD + A70DA70DA70DA70DA70DA70DA70DA71ERMf////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70D + A73d3fP///////////+OjtkDA70DA70DA70DA72rq+L///////////+OjtkDA70DA70DA70DA70DA70D + A70DA70DA73p6ff///+dnd0DA70DA70DA71sbND///////////////////////////////////////// + //9ERMcDA70DA70DA70DA70DA70DA70DA70DA73p6ff///////////////////////8pKcIDA70DA70D + A70DA73////////////p6fdERMcDA70DA70DA70DA72Ojtn///////////////8pKcIDA70DA70DA70D + A70DA70DA70DA71sbND///////////9sbNADA70DA70DA70DA70DA70DA70DA70DA73Fxer///////// + //+rq+IDA70DA70DA70DA71+ftT///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///// + //+rq+IDA70DA70DA70pKcL///////////////////////////////////////////+4uOYDA70DA70D + A70DA70DA70DA70DA70pKcL///////////////////////////9ZWcsDA70DA70DA70DA72dnd2rq+Kd + nd0DA70DA70DA70DA70DA70DA73p6ff///////////////9sbNADA70DA70DA70DA70DA70DA70DA72d + nd3////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA72rq+L////////////FxeoDA70DA70D + A70DA71ZWcv////////////FxeoDA70DA70DA70DA70DA70DA70DA73R0e/////////R0e8DA70DA70D + A70DA7309Pv///////////////////////////////////////////9ERMcDA70DA70DA70DA70DA70D + A71ZWcv///////////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA72rq+L///////////// + //9sbNADA70DA70DA70DA70DA70DA70DA71+ftT////////////p6fcDA70DA70DA70DA70DA73///// + ///////p6fcDA70DA70DA70DA70DA70DA71ERMf////////////09PsDA70DA70DA70DA73Fxer///// + //////////////////////////////////////+4uOYDA70DA70DA70DA70DA70DA72Ojtn///////// + //////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////// + //////////////+rq+IDA70DA70DA70DA70DA70DA70DA73R0e/////////////////R0e8DA70DA70D + A70DA70DA70DA70DA71ZWcv///////////////8pKcIDA70DA70DA70DA73d3fP///////////8pKcID + A70DA70DA70DA70DA72rq+L///////////////9ERMcDA70DA70DA72rq+L///////////////////// + //////////////////////////9ERMcDA70DA70DA70DA70DA72rq+L///////////////////////// + ///FxeoDA70DA70DA70DA70DA70DA70DA70DA71ERMerq+Ld3fP////////////////////////////d + 3fMDA70DA70DA70DA70DA70DA70DA73p6ff///////////////////9sbNADA70DA70DA70DA70DA70D + A70DA73///////////////9sbNADA70DA70DA70DA724uOb///////////9ZWcsDA70DA70DA70DA70p + KcL09Pv///////////////9+ftQDA70DA70DA72Ojtn///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAA= + + + \ No newline at end of file diff --git a/UID/frmPrintView.vb b/UID/frmPrintView.vb new file mode 100644 index 0000000..4de053e --- /dev/null +++ b/UID/frmPrintView.vb @@ -0,0 +1,65 @@ +Imports System.IO +Imports Microsoft.Reporting.WinForms + +Public Class frmPrintView + + Public Sub BefüllenAbrechnung() + Dim rdlcName As String = "UID.rptDetailsPrint.rdlc" + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName + + + Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) + Me.ReportViewer1.RefreshReport() + + End Sub + Public Sub Transportauftrag() + Dim rdlcName As String = "DISPO.rptTransportauftrag.rdlc" + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName + + + Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) + Me.ReportViewer1.RefreshReport() + + End Sub + + Public Sub BefüllenMitarb(ByVal data As IList(Of VERAG_PROG_ALLGEMEIN.cMitarbeiter)) + Dim rdlcName As String = "UID.rptMitarbPrint.rdlc" + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName + Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", data)) + + ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", "t")) + ' Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds)) + Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) + Me.ReportViewer1.RefreshReport() + + End Sub + + Public Sub BefüllenSeminarZertifikat() + Dim rdlcName As String = "ADMIN.PageReport1.rdlx" + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = rdlcName + ' Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", data)) + + ' Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter("Titel", "t")) + ' Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds)) + Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) + Me.ReportViewer1.RefreshReport() + + End Sub + + Private Function boolToJaNein(ByVal wert As Boolean) As String + If wert Then + Return "ja" + Else + Return "nein" + End If + End Function + + Private Sub frmDruckansicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + Me.ReportViewer1.RefreshReport() + End Sub + + Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load + + End Sub +End Class \ No newline at end of file diff --git a/UID/frmSearch.Designer.vb b/UID/frmSearch.Designer.vb new file mode 100644 index 0000000..3910cd8 --- /dev/null +++ b/UID/frmSearch.Designer.vb @@ -0,0 +1,141 @@ + _ +Partial Class frmSearch + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSearch)) + Me.txtSuche = New System.Windows.Forms.TextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.dgvUID = New System.Windows.Forms.DataGridView() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + CType(Me.dgvUID, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'txtSuche + ' + Me.txtSuche.Location = New System.Drawing.Point(96, 6) + Me.txtSuche.Name = "txtSuche" + Me.txtSuche.Size = New System.Drawing.Size(300, 20) + Me.txtSuche.TabIndex = 21 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(402, 3) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 20 + Me.Button1.Text = "Suche" + Me.Button1.UseVisualStyleBackColor = True + ' + 'dgvUID + ' + Me.dgvUID.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUID.Location = New System.Drawing.Point(12, 32) + Me.dgvUID.Name = "dgvUID" + Me.dgvUID.Size = New System.Drawing.Size(546, 316) + Me.dgvUID.TabIndex = 19 + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(483, 3) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 23) + Me.Button2.TabIndex = 23 + Me.Button2.Text = "Alle" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(9, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(81, 13) + Me.Label1.TabIndex = 22 + Me.Label1.Text = "Kunden-Suche:" + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(321, 357) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(236, 32) + Me.Button3.TabIndex = 24 + Me.Button3.Text = "ÜBERNEHMEN" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.Image = Global.ADMIN.My.Resources.Resources.plus + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(13, 357) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(62, 32) + Me.Button4.TabIndex = 25 + Me.Button4.Text = "Neu" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Image = Global.ADMIN.My.Resources.Resources.stift + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(81, 357) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(93, 32) + Me.Button5.TabIndex = 26 + Me.Button5.Text = "Bearbeiten" + Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button5.UseVisualStyleBackColor = True + ' + 'frmSearch + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(569, 392) + Me.Controls.Add(Me.Button5) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.txtSuche) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.dgvUID) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Label1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmSearch" + Me.Text = "Suche" + CType(Me.dgvUID, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtSuche As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents dgvUID As System.Windows.Forms.DataGridView + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button +End Class diff --git a/UID/frmSearch.resx b/UID/frmSearch.resx new file mode 100644 index 0000000..91a68af --- /dev/null +++ b/UID/frmSearch.resx @@ -0,0 +1,607 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAYGAAAAEAGACocAAAFgAAACgAAABgAAAAwAAAAAEAGAAAAAAAgHAAAMQOAADEDgAAAAAAAAAA + AAB6TSF6TSFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSF6TSF6TSFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSFnNQJnNQJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBtPAtt + PAtwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwDLv7j////////////39fR0 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////// + //+AXUJmMwBmMwBmMwBmMwDUy8X///////////90SSZmMwBmMwBmMwBmMwBmMwDu6+n///////////+A + XUJmMwBmMwBmMwDd1tH///////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////39fRm + MwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zd1tH////////////39fS3p5x0SSaYfWv////Uy8VmMwBmMwBm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwDm4N3////////////////Lv7hmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwD///////////////////////////////////////////////+jjH1mMwBmMwBm + MwBmMwC3p5z///////////+jjH1mMwBmMwBmMwBmMwCYfWv////////////Uy8VmMwBmMwBmMwBmMwCA + XUL39fT////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////Uy8VmMwBmMwBmMwBmMwBm + MwCMblju6+n////////////////////////////////d1tH////39fRmMwBmMwBmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwBmMwBmMwD///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwCMblj///// + ///////Bs6pmMwBmMwBmMwBmMwDLv7j///////////+jjH1mMwBmMwBmMwBmMwBmMwC3p5z///////// + //+YfWtmMwBmMwBmMwBmMwBmMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwB0SSbu6+n///////// + ///////////////Lv7jd1tH///////////////+jjH1mMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwCMblj////////////u6+n////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////m4N1mMwBm + MwBmMwB0SSb39fT////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwC3p5z///////////////+tmo1mMwBmMwBm + MwBmMwDBs6r////////////Bs6pmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwCtmo3///// + //////+3p5zUy8X///////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////Uy8VmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3////////39fRmMwBmMwBmMwCtmo3///// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////////////////////// + //////////90SSZmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwDUy8X///////////////// + ///////m4N1mMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwDBs6r///////////+jjH2AXUL/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwB0SSb////////////////////////////////////////m + 4N1mMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////////m4N1mMwBm + MwBmMwBmMwBmMwDd1tH///////////+tmo1mMwBmMwC3p5z///////////////////////////+AXUJm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwDm4N3///////////90SSZmMwDBs6r////////Uy8Vm + MwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////9mMwBmMwBmMwBm + MwBmMwBmMwCjjH3///////////////////////////////////////////////+3p5xmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n////////Lv7hmMwBmMwC3p5z////////////Bs6pmMwBmMwBmMwBmMwBmMwDU + y8X////////////Bs6pmMwBmMwCYfWv///////////////////////////+3p5xmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwBmMwD39fT////////39fRmMwBmMwB0SSb39fT///////+jjH1mMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwCAXUL/ + //////////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCY + fWv///////////+MblhmMwDLv7j///////////+jjH1mMwBmMwBmMwBmMwBmMwC3p5z////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwCMblj////////////d1tFmMwBmMwBmMwCtmo3////////u6+lmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////m4N1m + MwBmMwBmMwBmMwBmMwC3p5z////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////d + 1tFmMwDm4N3///////////90SSZmMwBmMwBmMwBmMwBmMwCAXUL///////////////+3p5xmMwBmMwBm + MwBmMwBmMwDBs6r////d1tG3p5yMblhmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwCjjH3///////// + ///Bs6pmMwBmMwBmMwBmMwDm4N3///////+3p5xmMwBmMwBmMwBmMwCMblj////////////m4N1mMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////90SSZmMwBmMwBmMwBm + MwCjjH3///////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////+3p5z///////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Bs6p0SSZmMwBmMwC3p5z///// + ///////39fR0SSZmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwDBs6r///////////+3p5xmMwBmMwBm + MwBmMwCYfWv///////////+AXUJmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////+jjH1mMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + ///d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////Uy8VmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////////////+3p5xmMwBm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwDUy8X///////////+MblhmMwBmMwBmMwBmMwBmMwDLv7j/ + ///////d1tFmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+3p5xm + MwBmMwBmMwBmMwCMblj////////////////////////////////////////////u6+mAXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwD39fT///////////90SSZmMwBmMwBmMwBmMwBmMwCAXUL///////////+3p5xm + MwBmMwBmMwDBs6r////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwB0 + SSb////////////////////////////////////m4N23p5x0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCAXUL39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUK3p5zm4N3///////////////+3p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFw + QRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFwQRFwQRFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBwQRFwQRFtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBtPAttPAtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNQJnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJnNQJ6TSF6TSFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSF6TSF6TSFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFwQRFw + QRFwQRFwQRFwQRFwQRFwQRFwQRF6TSF6TSH///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////R0e+rq+Krq+Krq+Krq+LR0e////////////////// + //////////+rq+Krq+Krq+Krq+Krq+Ld3fP////d3fOrq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr + q+K4uOb////////////////////////////d3fOrq+Krq+Krq+Krq+L////////////////Fxeqrq+Kr + q+Krq+L////////////p6ferq+Krq+Krq+Krq+Krq+L///////////////+4uOarq+Krq+Krq+Krq+Lp + 6ff///////////+4uOarq+Krq+Krq+LR0e////////////////////////+rq+Krq+Krq+Krq+LR0e// + ///////////////////////FxeoDA70DA70DA70DA71sbND///////////////////////////8DA70D + A70DA70DA70DA73Fxer////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn0 + 9Pv////////////////R0e8DA70DA70DA70DA73p6ff///////////9ZWcsDA70DA70DA73R0e////// + ///d3fMDA70DA70DA70DA70DA7309Pv///////////9+ftQDA70DA70DA70DA72rq+L///////////9+ + ftQDA70DA70DA72Ojtn////////////////////R0e8DA70DA70DA70DA72Ojtn///////////////// + //////////9sbNADA70DA70DA70DA73R0e/////////////////////p6fcDA70DA70DA70DA70DA73p + 6ff////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ERMfd3fP///////// + ///09PsDA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA71sbND///////////8pKcIDA70D + A70DA70DA73R0e////////////+dnd0DA70DA70DA70DA72dnd3///////////+dnd0DA70DA70DA71Z + Wcv///////////////////+OjtkDA70DA70DA70DA71ZWcv////////////////////////////R0e8D + A70DA70DA70DA71+ftT////////////////////R0e8DA70DA70DA70DA70pKcL///////////9ERMcD + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp6ff///////////9ERMcDA70D + A70DA72rq+L////////p6fcDA70DA70DA70DA70DA73R0e////////9ZWcsDA70DA70DA70DA72rq+L/ + //////////+4uOYDA70DA70DA70DA71sbND///////////+4uOYDA70DA70DA70DA73///////////// + ///09PsDA70DA70DA70DA70DA70pKcL///////////////////////////////9sbNADA70DA70DA70D + A72rq+Krq+Krq+Krq+Krq+J+ftQDA70DA70DA70DA71ZWcv///////////9+ftQDA70DA70DA70DA73F + xer////////d3fOOjtkDA70DA70DA70DA70DA71sbND///////////9+ftQDA70DA70DA71+ftT///// + ///FxeoDA70DA70DA70DA70DA71sbND///////+dnd0DA70DA70DA70DA72dnd3////////////d3fMD + A70DA70DA70DA70pKcL////////////d3fMDA70DA70DA70DA73d3fP///////////+rq+IDA70DA70D + A70DA70DA70DA73d3fP////////////////////////////R0e8DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72Ojtn///////////+dnd0DA70DA70DA70DA72rq+L///////////// + //+rq+IDA70DA70DA70DA70DA73R0e////////+dnd0DA70DA70DA71ZWcv///////+rq+IDA70DA70D + A70DA70DA70DA73R0e////+rq+IDA70DA70DA70DA71sbND///////////////8DA70DA70DA70DA70D + A73p6ff////////09PsDA70DA70DA70DA73Fxer///////////9ERMcDA70DA70DA70DA70DA70DA73F + xer///////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+L///////////+4uOYDA70DA70DA70DA72Ojtn///////////////////9ZWcsDA70D + A70DA70DA71+ftT////////FxeoDA70DA70DA70DA73///////+OjtkDA70DA70DA70DA70DA70DA71s + bND////R0e8DA70DA70DA70DA70pKcL///////////////9ZWcsDA70DA70DA70DA73Fxer///////// + //9ZWcsDA70DA70DA72rq+L////////FxeoDA70DA70DA70DA70DA70DA70DA72rq+L///////////// + ///////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer/ + ///////////d3fMDA70DA70DA70DA71ZWcv///////////////////+rq+IDA70DA70DA70DA70DA730 + 9Pv////d3fMDA70DA70DA70DA73d3fP///9ZWcsDA70DA70DA70DA70DA70DA70DA73R0e/09PsDA70D + A70DA70DA70DA73p6ff///////////9+ftQDA70DA70DA70DA72rq+L///////////9+ftQDA70DA70D + A71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA71+ftT///////////////////////////// + //////9sbNADA70DA70DA70pKcL09Pv///////8DA70DA70DA70DA70DA73p6ff///////////////8D + A70DA70DA70DA70pKcL////////////////////09PsDA70DA70DA70DA70DA73d3fP///////8DA70D + A70DA70DA724uOb///8pKcIDA70DA70DA70DA70DA70DA70DA71sbND///8pKcIDA70DA70DA70DA73F + xer///////////+rq+IDA70DA70DA70DA72Ojtn///////////+rq+IDA70DA70DA71ERMf////p6fcD + A70DA70DA70DA70DA70DA70DA70DA71ZWcv////////////////////////////////////R0e8DA70D + A70DA70DA724uOb////d3fMDA70DA70DA70DA70pKcL///////////////////9ZWcsDA70DA70DA70D + A73d3fP///////////////////8pKcIDA70DA70DA70DA73Fxer///////9ZWcsDA70DA70DA72dnd3p + 6fcDA70DA70DA70DA71ZWcsDA70DA70DA70DA73p6fdsbNADA70DA70DA70DA72rq+L////////////F + xeoDA70DA70DA70DA71ZWcv////////////FxeoDA70DA70DA70DA7309Pudnd0DA70DA70DA70DA70p + KcIDA70DA70DA70DA7309Pv///////////////////////////////////9sbNADA70DA70DA71ERMf/ + ///FxeoDA70DA70DA70DA71ZWcv///////////////////9+ftQDA70DA70DA70DA73Fxer///////// + //////////9ERMcDA70DA70DA70DA724uOb///////+OjtkDA70DA70DA71+ftTFxeoDA70DA70DA70D + A724uOZsbNADA70DA70DA72Ojtmdnd0DA70DA70DA70DA72Ojtn////////////d3fMDA70DA70DA70D + A70pKcL////////////d3fMDA70DA70DA70DA73R0e8pKcIDA70DA70DA70DA72rq+IDA70DA70DA70D + A73d3fP////////////////////////////////////R0e8DA70DA70DA70DA73Fxeqrq+IDA70DA70D + A70DA72Ojtn///////////////////+rq+IDA70DA70DA70DA72rq+L///////////////////9ERMcD + A70DA70DA70DA73Fxer///////+rq+IDA70DA70DA71ERMerq+IDA70DA70DA70DA73d3fPR0e8DA70D + A70DA70DA72rq+IDA70DA70DA70DA71ZWcv///////////////8pKcIDA70DA70DA70DA73d3fP///// + //////8DA70DA70DA70DA71+ftQDA70DA70DA70DA71ERMf///8pKcIDA70DA70DA724uOb///////// + //////////////////////////////9sbNADA70DA70DA71sbNCdnd0DA70DA70DA70DA72rq+L///// + ///////////////FxeoDA70DA70DA70DA71+ftT///////////////////8DA70DA70DA70DA70DA73d + 3fP////////FxeoDA70DA70DA70DA71sbNADA70DA70DA70DA7309Pv///9sbNADA70DA70DA71ZWcsD + A70DA70DA70DA70pKcL///////////////9ZWcsDA70DA70DA70DA73Fxer///////////9ZWcsDA70D + A70DA70DA70DA70DA70DA70DA72rq+L///9ZWcsDA70DA70DA72dnd3///////////////////////// + ///////////////FxeoDA70DA70DA70DA70pKcIDA70DA70DA70DA73Fxer////////////////////p + 6fcDA70DA70DA70DA71ZWcv///////////////+4uOYDA70DA70DA70DA70pKcL09Pv////////p6fcD + A70DA70DA70DA70DA70DA70DA70DA71ERMf////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70D + A73d3fP///////////+OjtkDA70DA70DA70DA72rq+L///////////+OjtkDA70DA70DA70DA70DA70D + A70DA70DA73p6ff///+dnd0DA70DA70DA71sbND///////////////////////////////////////// + //9ERMcDA70DA70DA70DA70DA70DA70DA70DA73p6ff///////////////////////8pKcIDA70DA70D + A70DA73////////////p6fdERMcDA70DA70DA70DA72Ojtn///////////////8pKcIDA70DA70DA70D + A70DA70DA70DA71sbND///////////9sbNADA70DA70DA70DA70DA70DA70DA70DA73Fxer///////// + //+rq+IDA70DA70DA70DA71+ftT///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///// + //+rq+IDA70DA70DA70pKcL///////////////////////////////////////////+4uOYDA70DA70D + A70DA70DA70DA70DA70pKcL///////////////////////////9ZWcsDA70DA70DA70DA72dnd2rq+Kd + nd0DA70DA70DA70DA70DA70DA73p6ff///////////////9sbNADA70DA70DA70DA70DA70DA70DA72d + nd3////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA72rq+L////////////FxeoDA70DA70D + A70DA71ZWcv////////////FxeoDA70DA70DA70DA70DA70DA70DA73R0e/////////R0e8DA70DA70D + A70DA7309Pv///////////////////////////////////////////9ERMcDA70DA70DA70DA70DA70D + A71ZWcv///////////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA72rq+L///////////// + //9sbNADA70DA70DA70DA70DA70DA70DA71+ftT////////////p6fcDA70DA70DA70DA70DA73///// + ///////p6fcDA70DA70DA70DA70DA70DA71ERMf////////////09PsDA70DA70DA70DA73Fxer///// + //////////////////////////////////////+4uOYDA70DA70DA70DA70DA70DA72Ojtn///////// + //////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////// + //////////////+rq+IDA70DA70DA70DA70DA70DA70DA73R0e/////////////////R0e8DA70DA70D + A70DA70DA70DA70DA71ZWcv///////////////8pKcIDA70DA70DA70DA73d3fP///////////8pKcID + A70DA70DA70DA70DA72rq+L///////////////9ERMcDA70DA70DA72rq+L///////////////////// + //////////////////////////9ERMcDA70DA70DA70DA70DA72rq+L///////////////////////// + ///FxeoDA70DA70DA70DA70DA70DA70DA70DA71ERMerq+Ld3fP////////////////////////////d + 3fMDA70DA70DA70DA70DA70DA70DA73p6ff///////////////////9sbNADA70DA70DA70DA70DA70D + A70DA73///////////////9sbNADA70DA70DA70DA724uOb///////////9ZWcsDA70DA70DA70DA70p + KcL09Pv///////////////9+ftQDA70DA70DA72Ojtn///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAA= + + + \ No newline at end of file diff --git a/UID/frmSearch.vb b/UID/frmSearch.vb new file mode 100644 index 0000000..d978d6c --- /dev/null +++ b/UID/frmSearch.vb @@ -0,0 +1,132 @@ +Imports System.ComponentModel + +Public Class frmSearch + + Dim locZeilen As Integer + Dim Grid_aktiv As Boolean + Dim hSQL As String + Private UID As cOptionenDAL + + + Private Sub frmSearch_Load(sender As Object, e As EventArgs) Handles Me.Load + ' If frmLogin.USRBER > 0 Then btnMitarb.Visible = False + ' If frmLogin.USRBER > 5 Then btnNew.Enabled = False : btnDel.Enabled = False : btnChange.Enabled = False + UID = New cOptionenDAL + Grid_aktiv = True + Tabelle_anzeigen() + End Sub + + Public Sub Tabelle_anzeigen() + Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds + 'lblMs.Image = My.Resources.sanduhr + 'Paint wieder reaktivieren + locZeilen = -1 + If Not Grid_aktiv Then Exit Sub + Dim top As String = "" ' "top 100" + + 'je nach Auswahl SQL anpassen + 'je nach Auswahl SQL anpassen + hSQL = "SELECT " & top & " kd_id, kd_firma, (kd_str + ' ' + kd_strnr) as strasse, (kd_plz + ' - ' + kd_ort) as ort, kd_land,kd_firma, kd_str, kd_strnr, kd_land, kd_plz, kd_ort, (kd_anspr1_vn + ' ' + kd_anspr1_nn) as anspr FROM tblKunden " + Dim search As String = txtSuche.Text + Dim where As String = "" + If txtSuche.Text <> "" Then + 'where += " kd_firma LIKE '%" & search & "%'" + + + + Dim arr() As String = Split(txtSuche.Text.Replace(" ", ","), ",") + + Dim cnt As Integer = 1 + If arr.Count() > 0 Then cnt = arr.Count + Dim or_txt As String = "" + For i As Integer = 0 To cnt - 1 Step 1 + If arr(i) <> "" Then search = arr(i).Trim + If i > 0 Then where += " AND " + where += " ( kd_firma LIKE '%" & search & "%' OR kd_str LIKE '%" & search & "%' OR kd_strnr LIKE '%" & search & "%' OR kd_plz LIKE '%" & search & "%' OR kd_ort LIKE '%" & search & "%' OR kd_land LIKE '%" & search & "%' OR kd_anspr1_vn LIKE '%" & search & "%' OR kd_anspr1_nn LIKE '%" & search & "%' OR kd_anspr2_vn LIKE '%" & search & "%' OR kd_anspr2_nn LIKE '%" & search & "%' OR kd_tel LIKE '%" & search & "%' OR kd_fax LIKE '%" & search & "%' OR kd_email LIKE '%" & search & "%' OR kd_homepage LIKE '%" & search & "%' ) " + Next + + + where = " WHERE " & where + End If + + ' MsgBox(hSQL + where) + dgvUID.DataSource = UID.AnzeigeTabelle(hSQL + where) + + + 'Tabelle Kommt/Geht bereinigen + If dgvUID.RowCount = 0 Then + dgvUID.DataSource = Nothing + Else + Spalten_festlegen() + ' Eintraege_festlegen() + 'AL: Sortierung nach Ausfahrt (Zeit) + dgvUID.Sort(dgvUID.Columns(3), ListSortDirection.Ascending) + End If + + 'Anzeige der Anzahl gewählter/aller Datensätze + If (dgvUID.RowCount = 100) Then + 'lblAnzahl.Text = Format(dgvUID.RowCount, "#,##0") & " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)" + Else + ' lblAnzahl.Text = Format(dgvUID.RowCount, "#,##0") & " ausgewählt" + End If + ' lblAnzahl.Refresh() + Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds + ' lblMs.Text = "Ladezeit: " & (ende - start) & " ms" + 'lblMs.Image = Nothing + End Sub + + Private Sub Spalten_festlegen() + With dgvUID + .RowTemplate.Height = 20 + .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft + .AllowUserToAddRows = False + .AllowUserToDeleteRows = False + .AllowUserToOrderColumns = False + .AllowUserToResizeColumns = True + .AllowUserToResizeRows = False + .RowTemplate.ReadOnly = True + .RowHeadersVisible = False + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + + .Columns(0).Visible = False + + .Columns(1).Width = 365 + .Columns(1).HeaderText = "Firma" + .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + .Columns(2).Width = 250 + .Columns(2).HeaderText = "Straße" + + .Columns(3).Width = 250 + .Columns(3).HeaderText = "Ort" + + .Columns(4).Width = 200 + .Columns(4).HeaderText = "Land" + + + + End With + End Sub + + Private Sub dgvUID_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUID.CellDoubleClick + Button3.PerformClick() + End Sub + Private Sub SearchChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged + Tabelle_anzeigen() + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + With dgvUID + 'frmAuftrag.getDataFromSearch(.CurrentRow.Cells(5).Value, .CurrentRow.Cells(6).Value, .CurrentRow.Cells(7).Value, .CurrentRow.Cells(8).Value, .CurrentRow.Cells(9).Value, .CurrentRow.Cells(10).Value, "", "", .CurrentRow.Cells(11).Value, .CurrentRow.Cells(0).Value) + Me.Close() + End With + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + ' frmDetails.rowId = -1 : frmDetails.mainForm = "frmSearch" : frmDetails.Show() + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + ' frmDetails.rowId = dgvUID.CurrentRow.Cells(0).Value : frmDetails.mainForm = "frmSearch" : frmDetails.Show() + End Sub +End Class \ No newline at end of file diff --git a/UID/frmSeminarDetails.Designer.vb b/UID/frmSeminarDetails.Designer.vb new file mode 100644 index 0000000..227d00b --- /dev/null +++ b/UID/frmSeminarDetails.Designer.vb @@ -0,0 +1,555 @@ + _ +Partial Class frmSeminarDetails + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSeminarDetails)) + Me.dgvTeilnehmer = New System.Windows.Forms.DataGridView() + Me.btnSave = New System.Windows.Forms.Button() + Me.btnCancel = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.btnDelTeilnehmer = New System.Windows.Forms.Button() + Me.btnAddTeilnehmer = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.lblBez = New System.Windows.Forms.TextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.cbxIntAusbildung = New System.Windows.Forms.CheckBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.rtbInhalt2 = New System.Windows.Forms.RichTextBox() + Me.datBisTime = New System.Windows.Forms.DateTimePicker() + Me.datVonTime = New System.Windows.Forms.DateTimePicker() + Me.datDauer = New System.Windows.Forms.DateTimePicker() + Me.cboOrt = New System.Windows.Forms.ComboBox() + Me.cbxIsVERAG_Seminar = New System.Windows.Forms.CheckBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.rtbInhalt = New System.Windows.Forms.RichTextBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.txtVortragender = New System.Windows.Forms.TextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label13 = New System.Windows.Forms.Label() + Me.TextBox4 = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.datBis = New System.Windows.Forms.DateTimePicker() + Me.Label6 = New System.Windows.Forms.Label() + Me.datVon = New System.Windows.Forms.DateTimePicker() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtName = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.tabPge2 = New System.Windows.Forms.TabPage() + Me.rtbinfo = New System.Windows.Forms.RichTextBox() + Me.lblSeminarname = New System.Windows.Forms.Label() + Me.btnPrintAllCert = New System.Windows.Forms.Button() + Me.btnPrintSelectedCert = New System.Windows.Forms.Button() + Me.cboReportVorlage = New System.Windows.Forms.ComboBox() + Me.Label10 = New System.Windows.Forms.Label() + CType(Me.dgvTeilnehmer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.tabPge2.SuspendLayout() + Me.SuspendLayout() + ' + 'dgvTeilnehmer + ' + Me.dgvTeilnehmer.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvTeilnehmer.Location = New System.Drawing.Point(12, 372) + Me.dgvTeilnehmer.Name = "dgvTeilnehmer" + Me.dgvTeilnehmer.Size = New System.Drawing.Size(636, 295) + Me.dgvTeilnehmer.TabIndex = 0 + ' + 'btnSave + ' + Me.btnSave.Location = New System.Drawing.Point(270, 673) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(88, 36) + Me.btnSave.TabIndex = 56 + Me.btnSave.Text = "Speichern" + Me.btnSave.UseVisualStyleBackColor = True + ' + 'btnCancel + ' + Me.btnCancel.Location = New System.Drawing.Point(117, 673) + Me.btnCancel.Name = "btnCancel" + Me.btnCancel.Size = New System.Drawing.Size(88, 36) + Me.btnCancel.TabIndex = 55 + Me.btnCancel.Text = "Abbrechen" + Me.btnCancel.UseVisualStyleBackColor = True + ' + 'btnOK + ' + Me.btnOK.Location = New System.Drawing.Point(12, 673) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(88, 36) + Me.btnOK.TabIndex = 54 + Me.btnOK.Text = "OK" + Me.btnOK.UseVisualStyleBackColor = True + ' + 'btnDelTeilnehmer + ' + Me.btnDelTeilnehmer.Image = Global.ADMIN.My.Resources.Resources.del + Me.btnDelTeilnehmer.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnDelTeilnehmer.Location = New System.Drawing.Point(654, 419) + Me.btnDelTeilnehmer.Name = "btnDelTeilnehmer" + Me.btnDelTeilnehmer.Size = New System.Drawing.Size(106, 41) + Me.btnDelTeilnehmer.TabIndex = 59 + Me.btnDelTeilnehmer.Text = "Teilnehmer" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "entfernen" + Me.btnDelTeilnehmer.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDelTeilnehmer.UseVisualStyleBackColor = True + ' + 'btnAddTeilnehmer + ' + Me.btnAddTeilnehmer.Image = Global.ADMIN.My.Resources.Resources.plus + Me.btnAddTeilnehmer.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddTeilnehmer.Location = New System.Drawing.Point(654, 372) + Me.btnAddTeilnehmer.Name = "btnAddTeilnehmer" + Me.btnAddTeilnehmer.Size = New System.Drawing.Size(106, 41) + Me.btnAddTeilnehmer.TabIndex = 57 + Me.btnAddTeilnehmer.Text = "Teilnehmer " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "hinzufügen" + Me.btnAddTeilnehmer.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddTeilnehmer.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(12, 13) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(120, 17) + Me.Label1.TabIndex = 61 + Me.Label1.Text = "Seminardetails:" + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage3) + Me.TabControl2.Controls.Add(Me.tabPge2) + Me.TabControl2.Location = New System.Drawing.Point(12, 43) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(903, 323) + Me.TabControl2.TabIndex = 76 + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.lblBez) + Me.TabPage3.Controls.Add(Me.Label11) + Me.TabPage3.Controls.Add(Me.cbxIntAusbildung) + Me.TabPage3.Controls.Add(Me.Label3) + Me.TabPage3.Controls.Add(Me.rtbInhalt2) + Me.TabPage3.Controls.Add(Me.datBisTime) + Me.TabPage3.Controls.Add(Me.datVonTime) + Me.TabPage3.Controls.Add(Me.datDauer) + Me.TabPage3.Controls.Add(Me.cboOrt) + Me.TabPage3.Controls.Add(Me.cbxIsVERAG_Seminar) + Me.TabPage3.Controls.Add(Me.Label14) + Me.TabPage3.Controls.Add(Me.rtbInhalt) + Me.TabPage3.Controls.Add(Me.Button2) + Me.TabPage3.Controls.Add(Me.txtVortragender) + Me.TabPage3.Controls.Add(Me.Button1) + Me.TabPage3.Controls.Add(Me.Label13) + Me.TabPage3.Controls.Add(Me.TextBox4) + Me.TabPage3.Controls.Add(Me.Label7) + Me.TabPage3.Controls.Add(Me.datBis) + Me.TabPage3.Controls.Add(Me.Label6) + Me.TabPage3.Controls.Add(Me.datVon) + Me.TabPage3.Controls.Add(Me.Label5) + Me.TabPage3.Controls.Add(Me.Label4) + Me.TabPage3.Controls.Add(Me.Label9) + Me.TabPage3.Controls.Add(Me.txtName) + Me.TabPage3.Controls.Add(Me.Label8) + Me.TabPage3.Controls.Add(Me.Label2) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(895, 297) + Me.TabPage3.TabIndex = 0 + Me.TabPage3.Text = "Allgemein" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'lblBez + ' + Me.lblBez.Location = New System.Drawing.Point(110, 261) + Me.lblBez.Name = "lblBez" + Me.lblBez.Size = New System.Drawing.Size(177, 20) + Me.lblBez.TabIndex = 114 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(107, 245) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(157, 13) + Me.Label11.TabIndex = 113 + Me.Label11.Text = "Bezeichnung (zw. Name u Titel)" + ' + 'cbxIntAusbildung + ' + Me.cbxIntAusbildung.AutoSize = True + Me.cbxIntAusbildung.Location = New System.Drawing.Point(6, 244) + Me.cbxIntAusbildung.Name = "cbxIntAusbildung" + Me.cbxIntAusbildung.Size = New System.Drawing.Size(95, 17) + Me.cbxIntAusbildung.TabIndex = 112 + Me.cbxIntAusbildung.Text = "int. Ausbildung" + Me.cbxIntAusbildung.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(597, 125) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(42, 13) + Me.Label3.TabIndex = 111 + Me.Label3.Text = "Inhalt 2" + ' + 'rtbInhalt2 + ' + Me.rtbInhalt2.Location = New System.Drawing.Point(600, 141) + Me.rtbInhalt2.Name = "rtbInhalt2" + Me.rtbInhalt2.Size = New System.Drawing.Size(290, 150) + Me.rtbInhalt2.TabIndex = 110 + Me.rtbInhalt2.Text = "" + ' + 'datBisTime + ' + Me.datBisTime.Location = New System.Drawing.Point(212, 97) + Me.datBisTime.Name = "datBisTime" + Me.datBisTime.Size = New System.Drawing.Size(95, 20) + Me.datBisTime.TabIndex = 109 + ' + 'datVonTime + ' + Me.datVonTime.Location = New System.Drawing.Point(212, 58) + Me.datVonTime.Name = "datVonTime" + Me.datVonTime.Size = New System.Drawing.Size(95, 20) + Me.datVonTime.TabIndex = 108 + ' + 'datDauer + ' + Me.datDauer.Location = New System.Drawing.Point(335, 81) + Me.datDauer.Name = "datDauer" + Me.datDauer.Size = New System.Drawing.Size(115, 20) + Me.datDauer.TabIndex = 107 + ' + 'cboOrt + ' + Me.cboOrt.FormattingEnabled = True + Me.cboOrt.Items.AddRange(New Object() {"VERAG-Schulungsraum", "WKO-Wien", "WKO-Linz", "WKO-Salzburg"}) + Me.cboOrt.Location = New System.Drawing.Point(6, 141) + Me.cboOrt.Name = "cboOrt" + Me.cboOrt.Size = New System.Drawing.Size(272, 21) + Me.cboOrt.TabIndex = 106 + ' + 'cbxIsVERAG_Seminar + ' + Me.cbxIsVERAG_Seminar.AutoSize = True + Me.cbxIsVERAG_Seminar.Location = New System.Drawing.Point(6, 221) + Me.cbxIsVERAG_Seminar.Name = "cbxIsVERAG_Seminar" + Me.cbxIsVERAG_Seminar.Size = New System.Drawing.Size(104, 17) + Me.cbxIsVERAG_Seminar.TabIndex = 105 + Me.cbxIsVERAG_Seminar.Text = "VERAG-Seminar" + Me.cbxIsVERAG_Seminar.UseVisualStyleBackColor = True + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(301, 125) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(33, 13) + Me.Label14.TabIndex = 104 + Me.Label14.Text = "Inhalt" + ' + 'rtbInhalt + ' + Me.rtbInhalt.Location = New System.Drawing.Point(304, 141) + Me.rtbInhalt.Name = "rtbInhalt" + Me.rtbInhalt.Size = New System.Drawing.Size(290, 150) + Me.rtbInhalt.TabIndex = 103 + Me.rtbInhalt.Text = "" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(212, 181) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(66, 20) + Me.Button2.TabIndex = 101 + Me.Button2.Text = "MA-Suche" + Me.Button2.UseVisualStyleBackColor = True + ' + 'txtVortragender + ' + Me.txtVortragender.Location = New System.Drawing.Point(6, 181) + Me.txtVortragender.Name = "txtVortragender" + Me.txtVortragender.Size = New System.Drawing.Size(200, 20) + Me.txtVortragender.TabIndex = 99 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(212, 181) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(66, 20) + Me.Button1.TabIndex = 100 + Me.Button1.Text = "MA-Suche" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(3, 165) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(180, 13) + Me.Label13.TabIndex = 97 + Me.Label13.Text = "Vortragender bzw. Unterzeichnender" + ' + 'TextBox4 + ' + Me.TextBox4.Location = New System.Drawing.Point(6, 181) + Me.TextBox4.Name = "TextBox4" + Me.TextBox4.Size = New System.Drawing.Size(200, 20) + Me.TextBox4.TabIndex = 98 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(3, 165) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(68, 13) + Me.Label7.TabIndex = 96 + Me.Label7.Text = "Vortragender" + ' + 'datBis + ' + Me.datBis.Location = New System.Drawing.Point(6, 97) + Me.datBis.Name = "datBis" + Me.datBis.Size = New System.Drawing.Size(200, 20) + Me.datBis.TabIndex = 91 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(332, 65) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(36, 13) + Me.Label6.TabIndex = 93 + Me.Label6.Text = "Dauer" + ' + 'datVon + ' + Me.datVon.Location = New System.Drawing.Point(6, 58) + Me.datVon.Name = "datVon" + Me.datVon.Size = New System.Drawing.Size(200, 20) + Me.datVon.TabIndex = 87 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(6, 81) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(21, 13) + Me.Label5.TabIndex = 88 + Me.Label5.Text = "Bis" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(6, 42) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(26, 13) + Me.Label4.TabIndex = 84 + Me.Label4.Text = "Von" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(3, 125) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(21, 13) + Me.Label9.TabIndex = 81 + Me.Label9.Text = "Ort" + ' + 'txtName + ' + Me.txtName.Location = New System.Drawing.Point(6, 19) + Me.txtName.Name = "txtName" + Me.txtName.Size = New System.Drawing.Size(717, 20) + Me.txtName.TabIndex = 78 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(6, 3) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(35, 13) + Me.Label8.TabIndex = 77 + Me.Label8.Text = "Name" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 3) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(35, 13) + Me.Label2.TabIndex = 76 + Me.Label2.Text = "Name" + ' + 'tabPge2 + ' + Me.tabPge2.Controls.Add(Me.rtbinfo) + Me.tabPge2.Location = New System.Drawing.Point(4, 22) + Me.tabPge2.Name = "tabPge2" + Me.tabPge2.Padding = New System.Windows.Forms.Padding(3) + Me.tabPge2.Size = New System.Drawing.Size(895, 297) + Me.tabPge2.TabIndex = 1 + Me.tabPge2.Text = "Sonstige Informationen" + Me.tabPge2.UseVisualStyleBackColor = True + ' + 'rtbinfo + ' + Me.rtbinfo.Location = New System.Drawing.Point(6, 6) + Me.rtbinfo.Name = "rtbinfo" + Me.rtbinfo.Size = New System.Drawing.Size(720, 250) + Me.rtbinfo.TabIndex = 104 + Me.rtbinfo.Text = "" + ' + 'lblSeminarname + ' + Me.lblSeminarname.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.lblSeminarname.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSeminarname.Location = New System.Drawing.Point(405, 13) + Me.lblSeminarname.Name = "lblSeminarname" + Me.lblSeminarname.Size = New System.Drawing.Size(502, 27) + Me.lblSeminarname.TabIndex = 77 + Me.lblSeminarname.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'btnPrintAllCert + ' + Me.btnPrintAllCert.Location = New System.Drawing.Point(654, 593) + Me.btnPrintAllCert.Name = "btnPrintAllCert" + Me.btnPrintAllCert.Size = New System.Drawing.Size(106, 34) + Me.btnPrintAllCert.TabIndex = 78 + Me.btnPrintAllCert.Text = "Alle Zertifikate" & Global.Microsoft.VisualBasic.ChrW(10) & "drucken" + Me.btnPrintAllCert.UseVisualStyleBackColor = True + ' + 'btnPrintSelectedCert + ' + Me.btnPrintSelectedCert.Location = New System.Drawing.Point(654, 633) + Me.btnPrintSelectedCert.Name = "btnPrintSelectedCert" + Me.btnPrintSelectedCert.Size = New System.Drawing.Size(106, 34) + Me.btnPrintSelectedCert.TabIndex = 79 + Me.btnPrintSelectedCert.Text = "Ausgewählte " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zertifikate drucken" + Me.btnPrintSelectedCert.UseVisualStyleBackColor = True + ' + 'cboReportVorlage + ' + Me.cboReportVorlage.DropDownWidth = 250 + Me.cboReportVorlage.FormattingEnabled = True + Me.cboReportVorlage.Location = New System.Drawing.Point(655, 497) + Me.cboReportVorlage.Name = "cboReportVorlage" + Me.cboReportVorlage.Size = New System.Drawing.Size(105, 21) + Me.cboReportVorlage.TabIndex = 80 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(654, 478) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(46, 13) + Me.Label10.TabIndex = 81 + Me.Label10.Text = "Vorlage:" + ' + 'frmSeminarDetails + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(919, 721) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.cboReportVorlage) + Me.Controls.Add(Me.btnPrintSelectedCert) + Me.Controls.Add(Me.btnPrintAllCert) + Me.Controls.Add(Me.lblSeminarname) + Me.Controls.Add(Me.TabControl2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.btnDelTeilnehmer) + Me.Controls.Add(Me.btnAddTeilnehmer) + Me.Controls.Add(Me.btnSave) + Me.Controls.Add(Me.btnCancel) + Me.Controls.Add(Me.btnOK) + Me.Controls.Add(Me.dgvTeilnehmer) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmSeminarDetails" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Seminardetails" + CType(Me.dgvTeilnehmer, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl2.ResumeLayout(False) + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + Me.tabPge2.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents dgvTeilnehmer As System.Windows.Forms.DataGridView + Friend WithEvents btnSave As System.Windows.Forms.Button + Friend WithEvents btnCancel As System.Windows.Forms.Button + Friend WithEvents btnOK As System.Windows.Forms.Button + Friend WithEvents btnDelTeilnehmer As System.Windows.Forms.Button + Friend WithEvents btnAddTeilnehmer As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents rtbInhalt As System.Windows.Forms.RichTextBox + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents txtVortragender As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents TextBox4 As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents datBis As System.Windows.Forms.DateTimePicker + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents datVon As System.Windows.Forms.DateTimePicker + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tabPge2 As System.Windows.Forms.TabPage + Friend WithEvents rtbinfo As System.Windows.Forms.RichTextBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents cbxIsVERAG_Seminar As System.Windows.Forms.CheckBox + Friend WithEvents lblSeminarname As System.Windows.Forms.Label + Friend WithEvents cboOrt As System.Windows.Forms.ComboBox + Friend WithEvents datBisTime As System.Windows.Forms.DateTimePicker + Friend WithEvents datVonTime As System.Windows.Forms.DateTimePicker + Friend WithEvents txtName As System.Windows.Forms.TextBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents datDauer As System.Windows.Forms.DateTimePicker + Friend WithEvents btnPrintAllCert As System.Windows.Forms.Button + Friend WithEvents btnPrintSelectedCert As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents rtbInhalt2 As System.Windows.Forms.RichTextBox + Friend WithEvents cboReportVorlage As System.Windows.Forms.ComboBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents cbxIntAusbildung As System.Windows.Forms.CheckBox + Friend WithEvents lblBez As System.Windows.Forms.TextBox + Friend WithEvents Label11 As System.Windows.Forms.Label +End Class diff --git a/UID/frmSeminarDetails.resx b/UID/frmSeminarDetails.resx new file mode 100644 index 0000000..c7cf80d --- /dev/null +++ b/UID/frmSeminarDetails.resx @@ -0,0 +1,180 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA + AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3 + 9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3 + 9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm + MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm + MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY + fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU + y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M + bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3///// + ///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////p6ffFxerp6ff////09PvFxerp6ffR0e/FxerFxerFxer09Pv////09PvFxer/ + ///R0e/p6ff////FxerR0e/////FxerR0e/////Fxer09Pv////p6ffR0e////////+4uOYDA71sbND0 + 9Pu4uOYDA72dnd1sbNADA70DA70DA70pKcLd3fPFxeoDA73p6fcpKcJERMfp6fcpKcIpKcL///8pKcIp + KcL///8pKcKrq+L///9sbNADA7309Pv///////9ERMcDA70DA70DA70DA73Fxeqdnd0DA72dnd2rq+Ip + KcIpKcL09PsDA724uOYDA70DA72dnd1ZWcsDA73p6fdZWcsDA73p6fdZWcuOjtnd3fMDA70DA73R0e// + //////+dnd0DA71ZWctZWcsDA73R0e+4uOYDA72dnd3///9+ftQDA73FxepERMeOjtkDA70pKcIpKcKO + jtkDA73FxeqOjtkDA73FxeqOjtlZWcudnd0DA70DA72rq+L////////p6fcDA70pKcJZWcsDA7309Pvd + 3fMDA71sbND///+OjtkDA73FxepZWctERMcDA72OjtkpKcJERMcDA72rq+Krq+IDA72rq+Krq+IDA71E + RMcpKcJZWct+ftT///////////9+ftQDA70DA70pKcL////09PsDA71ERMeOjtkpKcIpKcL09Pudnd0D + A70DA72rq+Kdnd0DA70DA71+ftTFxeoDA71+ftTFxeoDA70DA71+ftSdnd1ZWcv////////////FxeoD + A70DA71ZWcv///////9ZWcsDA70DA71ERMe4uOb///+4uOYDA70DA73Fxer09PspKcIDA71ZWcv09PsD + A71ZWcv09PsDA70DA73Fxeq4uOYDA7309Pv////////////09Pv09Pv////////////////09Pv09Pv/ + ///////////////09Pv09Pv////////////09Pv////////09Pv////////09Pv09Pv////////09Pv/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/UID/frmSeminarDetails.vb b/UID/frmSeminarDetails.vb new file mode 100644 index 0000000..0b59a12 --- /dev/null +++ b/UID/frmSeminarDetails.vb @@ -0,0 +1,323 @@ +Imports System.ComponentModel + +Public Class frmSeminarDetails + Public semId As Integer = -1 + Public vortragenderId As Integer + Private SEMINARE As New cSeminare + Dim seminar As New cSeminar + Dim cOptionenDAL As New cOptionenDAL + Private Grid_aktiv As Boolean = False + Private Anzahl As Integer + Private locZeilen As Integer = -1 + + + + Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged + lblSeminarname.Text = txtName.Text + End Sub + + Private Sub frmSeminarDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If semId >= 0 Then + seminar = SEMINARE.getSeminarById(semId) + btnAddTeilnehmer.Enabled = True + btnDelTeilnehmer.Enabled = True + Else + btnSave.Visible = False + btnAddTeilnehmer.Enabled = False + btnDelTeilnehmer.Enabled = False + End If + + cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand + Vortr.Name (Standard)", "rptSeminatZert.rpx")) + cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand", "rptSeminatZertVorst.rpx")) + cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unterschr. Vorstand + Vortr.Allg / nur Inh. 1", "rptSeminatZertAllgUnter.rpx")) + cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung CS", "rptIntAusb.rpx")) '3 + cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung AG", "rptIntAusbAG.rpx")) '3 + cboReportVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Interne Ausbildung ATILLA", "rptIntAusbATILLA.rpx")) '3 + + + datVon.Format = DateTimePickerFormat.Long + datBis.Format = DateTimePickerFormat.Long + datDauer.Format = DateTimePickerFormat.Custom : datDauer.CustomFormat = "HH:mm" : datDauer.ShowUpDown = True + datVonTime.Format = DateTimePickerFormat.Custom : datVonTime.CustomFormat = "HH:mm" : datVonTime.ShowUpDown = True + datBisTime.Format = DateTimePickerFormat.Custom : datBisTime.CustomFormat = "HH:mm" : datBisTime.ShowUpDown = True + + initLoad() + Grid_aktiv = True + Tabelle_anzeigen() + End Sub + + Private Sub initLoad() + txtName.Text = seminar.sem_name + ' datVon.Text = seminar.sem_von + ' datBis.Text = seminar.sem_bis + cboOrt.Text = seminar.sem_ort + cbxIsVERAG_Seminar.Checked = seminar.sem_isVeragSeminar + cbxIntAusbildung.Checked = seminar.sem_isIntAusbildung + txtVortragender.Text = seminar.sem_vortragender + rtbInhalt.Text = seminar.sem_inhalt + rtbInhalt2.Text = seminar.sem_inhalt2 + rtbinfo.Text = seminar.sem_info + datDauer.Text = seminar.sem_dauer + lblBez.Text = seminar.sem_bezeichnung + + Dim dtVon As DateTime = seminar.sem_von + datVonTime.Text = dtVon.ToString("HH:mm") + datVon.Text = seminar.sem_von + + Dim dtBis As DateTime = seminar.sem_bis + datBisTime.Text = dtBis.ToString("HH:mm") + datBis.Text = seminar.sem_bis + + End Sub + Private Sub initSave() + seminar.sem_name = txtName.Text + ' seminar.sem_von = datVon.Text + 'seminar.sem_bis = datBis.Text + seminar.sem_ort = cboOrt.Text + seminar.sem_isVeragSeminar = cbxIsVERAG_Seminar.Checked + seminar.sem_isIntAusbildung = cbxIntAusbildung.Checked + seminar.sem_vortragender = txtVortragender.Text + seminar.sem_inhalt = rtbInhalt.Text + seminar.sem_inhalt2 = rtbInhalt2.Text + seminar.sem_info = rtbinfo.Text + seminar.sem_dauer = datDauer.Text + seminar.sem_bezeichnung = lblBez.Text + + Dim dtVon = DateTime.Parse(datVon.Text & " " & datVonTime.Text) + seminar.sem_von = dtVon + Dim dtBis = DateTime.Parse(datBis.Text & " " & datBisTime.Text) + seminar.sem_bis = dtBis + seminar.sem_type = "SCHULUNG" + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAddTeilnehmer.Click + frmMitarbSuche.searchUse = "addTeilnehmer" + frmMitarbSuche.Show() + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + frmMitarbSuche.searchUse = "vortragender" + frmMitarbSuche.Show() + End Sub + + Public Sub Tabelle_anzeigen() + Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds + 'lblMs.Image = My.Resources.sanduhr + 'Paint wieder reaktivieren + locZeilen = -1 + If Not Grid_aktiv Then Exit Sub + Dim top As String = "" ' "top 100" + + 'je nach Auswahl SQL anpassen + Dim hSQL = "SELECT semi_id,mit_id, mit_username, mit_vname, mit_nname, mit_niederlassung, mit_abteilung,mit_geschlecht FROM tblMitarbeiter INNER JOIN tblSemMitarb ON semi_semId=" & semId & " AND mit_id=semi_mitId " + + ' MsgBox(hSQL) + dgvTeilnehmer.DataSource = cOptionenDAL.AnzeigeTabelle(hSQL) + + + 'Tabelle Kommt/Geht bereinigen + If dgvTeilnehmer.RowCount = 0 Then + dgvTeilnehmer.DataSource = Nothing + Else + Spalten_festlegen() + ' Eintraege_festlegen() + 'AL: Sortierung nach Ausfahrt (Zeit) + dgvTeilnehmer.Sort(dgvTeilnehmer.Columns(3), ListSortDirection.Ascending) + End If + + 'Anzeige der Anzahl gewählter/aller Datensätze + If (dgvTeilnehmer.RowCount = 100) Then + 'lblAnzahl.Text = Format(dgvTeilnehmer.RowCount, "#,##0") & " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)" + Else + ' lblAnzahl.Text = Format(dgvTeilnehmer.RowCount, "#,##0") & " ausgewählt" + End If + ' lblAnzahl.Refresh() + Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds + ' lblMs.Text = "Ladezeit: " & (ende - start) & " ms" + 'lblMs.Image = Nothing + End Sub + + + Private Sub Spalten_festlegen() + With dgvTeilnehmer + .RowTemplate.Height = 20 + .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft + .AllowUserToAddRows = False + .AllowUserToDeleteRows = False + .AllowUserToOrderColumns = False + .AllowUserToResizeColumns = False + .AllowUserToResizeRows = False + .RowTemplate.ReadOnly = True + .RowHeadersVisible = False + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + + .AllowUserToOrderColumns = True + + .Columns(0).Visible = False 'ID nicht anzeigen + .Columns(1).Visible = False 'ID nicht anzeigen + + .Columns(2).Width = 90 + .Columns(2).HeaderText = "Username" + .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + .Columns(3).Width = 160 + .Columns(3).HeaderText = "Vorname" + + .Columns(4).Width = 180 + .Columns(4).HeaderText = "Nachname" + + .Columns(5).Width = 95 + .Columns(5).HeaderText = "Niederlassung" + + .Columns(6).Width = 95 + .Columns(6).HeaderText = "Abteilung" + + .Columns(7).Visible = False 'geschlecht nicht anzeigen + + + End With + End Sub + + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnDelTeilnehmer.Click + SEMINARE.delSemMitarbeiter(dgvTeilnehmer.CurrentRow.Cells(0).Value) + Tabelle_anzeigen() + End Sub + + Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + saveSeminar() + Me.Close() + End Sub + + Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click + Me.Close() + End Sub + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + saveSeminar() + End Sub + + Private Sub saveSeminar() + initSave() + If semId >= 0 Then + seminar.sem_id = semId + SEMINARE.updateSeminare(seminar) + Else + initSave() + SEMINARE.insertSeminare(seminar) + End If + frmMain.btnSchulungen.PerformClick() + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnPrintAllCert.Click + If dgvTeilnehmer.Rows.Count = 0 Then MsgBox("Keine Teilnehmer eingetragen!") : Exit Sub + Dim semiCert As New semiCert + Dim teilnehmer(dgvTeilnehmer.RowCount - 1) As String + Dim cnt As Integer = 0 + For Each Zeile As DataGridViewRow In dgvTeilnehmer.Rows + If cbxIntAusbildung.Checked Then + If Zeile.Cells(7).Value = "m" Then teilnehmer(cnt) = "Herr " + If Zeile.Cells(7).Value = "w" Then teilnehmer(cnt) = "Frau " + End If + teilnehmer(cnt) = teilnehmer(cnt) & Zeile.Cells(3).Value & " " + teilnehmer(cnt) = teilnehmer(cnt) & Zeile.Cells(4).Value + cnt += 1 + Next + semiCert.teilnehmer = teilnehmer + + If datBis.Text = datVon.Text Then + semiCert.datum = "hat am " & datVon.Value.ToShortDateString & " am Seminar" + Else + semiCert.datum = "hat vom " & datVon.Value.ToShortDateString & " bis zum " & datBis.Value.ToShortDateString & " am Seminar" + End If + + semiCert.titel = txtName.Text + semiCert.inhalt = rtbInhalt.Text + semiCert.inhalt2 = rtbInhalt2.Text + semiCert.referent = txtVortragender.Text + + semiCert.unterzeichnender = txtVortragender.Text + + + ' semiCert.zeitraum = lblBez.Text + If Not cboReportVorlage.SelectedItem Is Nothing Then frmActiveReprotViewer.report = CType(cboReportVorlage.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value + If cbxIntAusbildung.Checked Then + semiCert.datum = lblBez.Text + frmActiveReprotViewer.BefüllenSeminarZertifikatIntern(semiCert) + Else + frmActiveReprotViewer.BefüllenSeminarZertifikat(semiCert) + End If + frmActiveReprotViewer.Show() + + End Sub + + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnPrintSelectedCert.Click + If dgvTeilnehmer.Rows.Count = 0 Then MsgBox("Keine Teilnehmer eingetragen!") : Exit Sub + Dim semiCert As New semiCert + Dim teilnehmer(dgvTeilnehmer.SelectedRows.Count - 1) As String + Dim cnt As Integer = 0 + For Each Zeile As DataGridViewRow In dgvTeilnehmer.Rows + If Zeile.Selected Then + If cbxIntAusbildung.Checked Then + If Zeile.Cells(7).Value = "m" Then teilnehmer(cnt) = "Herr " + If Zeile.Cells(7).Value = "w" Then teilnehmer(cnt) = "Frau " + End If + teilnehmer(cnt) = teilnehmer(cnt) & Zeile.Cells(3).Value & " " + teilnehmer(cnt) = teilnehmer(cnt) & Zeile.Cells(4).Value + cnt += 1 + End If + Next + semiCert.teilnehmer = teilnehmer + + If datBis.Text = datVon.Text Then + semiCert.datum = lblBez.Text + semiCert.datum = "hat am " & datVon.Value.ToShortDateString & " am Seminar" + Else + semiCert.datum = "hat vom " & datVon.Value.ToShortDateString & " bis zum " & datBis.Value.ToShortDateString & " am Seminar" + End If + + semiCert.titel = txtName.Text + semiCert.inhalt = rtbInhalt.Text + semiCert.inhalt2 = rtbInhalt2.Text + semiCert.referent = txtVortragender.Text + If Not cboReportVorlage.SelectedItem Is Nothing Then frmActiveReprotViewer.report = CType(cboReportVorlage.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value + 'frmActiveReprotViewer.semiCert = semiCert + If cbxIntAusbildung.Checked Then + semiCert.datum = lblBez.Text + frmActiveReprotViewer.BefüllenSeminarZertifikatIntern(semiCert) + Else + frmActiveReprotViewer.BefüllenSeminarZertifikat(semiCert) + End If + frmActiveReprotViewer.Show() + End Sub + + Private Sub cbxIntAusbildung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxIntAusbildung.CheckedChanged + lblBez.Enabled = cbxIntAusbildung.Checked + datVon.Enabled = Not cbxIntAusbildung.Checked + datBis.Enabled = Not cbxIntAusbildung.Checked + datVonTime.Enabled = Not cbxIntAusbildung.Checked + datBisTime.Enabled = Not cbxIntAusbildung.Checked + datDauer.Enabled = Not cbxIntAusbildung.Checked + cboOrt.Enabled = Not cbxIntAusbildung.Checked + rtbInhalt2.Enabled = Not cbxIntAusbildung.Checked + If cbxIntAusbildung.Checked Then + For Each i As VERAG_PROG_ALLGEMEIN.MyListItem In cboReportVorlage.Items + If i.Value = "rptIntAusb.rpx" Then cboReportVorlage.SelectedItem = i : Exit For + Next + Else + cboReportVorlage.SelectedIndex = 0 + End If + End Sub +End Class + +Public Class semiCert + Property teilnehmer As Array + Property datum As String + Property titel As String + Property inhalt As String + Property inhalt2 As String + Property referent As String + Property zeitraum As String + Property unterzeichnender As String +End Class \ No newline at end of file diff --git a/UID/frmTest.Designer.vb b/UID/frmTest.Designer.vb new file mode 100644 index 0000000..e52d7a4 --- /dev/null +++ b/UID/frmTest.Designer.vb @@ -0,0 +1,60 @@ + _ +Partial Class frmTest + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.Button1 = New System.Windows.Forms.Button() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(144, 71) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 0 + Me.Button1.Text = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(169, 141) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(100, 20) + Me.TextBox1.TabIndex = 1 + ' + 'frmTest + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(483, 355) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Button1) + Me.Name = "frmTest" + Me.Text = "frmTest" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox +End Class diff --git a/UID/frmTest.resx b/UID/frmTest.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/UID/frmTest.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/UID/frmTest.vb b/UID/frmTest.vb new file mode 100644 index 0000000..fcd4887 --- /dev/null +++ b/UID/frmTest.vb @@ -0,0 +1,80 @@ + +Option Explicit On +Imports System.Data.SqlClient +Imports System.Globalization + + +Public Class frmTest + + Public Function CalendarWeek(ByVal nWeek As Integer, ByVal nYear As Integer) As Date + + ' Wochentag des 4. Januar des Jahres ermitteln + Dim dStart As New Date(nYear, 1, 4) + Dim nDay As Integer = (dStart.DayOfWeek + 6) Mod 7 + 1 + + ' Beginn der 1. KW des Jahres + Dim dFirst As Date = dStart.AddDays(1 - nDay) + + ' Gesuchte KW ermitteln + Return dFirst.AddDays((nWeek - 1) * 7) + End Function + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim BRG As New cBrgDb + + Dim today As Date = Date.Today + Dim dayIndex As Integer = today.DayOfWeek + If dayIndex < DayOfWeek.Monday Then + dayIndex += 7 'Monday is first day of week, no day of week should have a smaller index + End If + Dim dayDiff As Integer = dayIndex - DayOfWeek.Monday + Dim monday As Date = today.AddDays(-dayDiff) + Dim sunday As Date = monday.AddDays(6) + + Dim buergschaften As List(Of cBuergschaft) = BRG.getBrgVonBis(monday.ToShortDateString, sunday.ToShortDateString) + + Dim exclApp As Object 'as Application + Dim Datei As Object 'as WorkBook + Dim Blatt As Object 'as WorkSheet + exclApp = CreateObject("Excel.Application") + + + With exclApp + .Visible = True + Dim sPath As String = My.Computer.FileSystem.GetTempFileName + My.Computer.FileSystem.WriteAllBytes(sPath, My.Resources.Bürgschaften_Vorlage, False) + + Datei = .Workbooks.Open(sPath) 'Anpassen + Blatt = Datei.Worksheets("Auswertung") 'Anpassen + 'Blatt.Range("A1").Value = TextBox1.Text + + 'Wochentage + Dim aktdate As Date = monday + 'Dim cnt As Integer = 6 + For i As Integer = 6 To 12 + Blatt.Range("A" & i).Value = aktdate.ToString("ddd, dd.MM.yyyy") + ' MsgBox(aktdate.ToLongTimeString) + For Each b In buergschaften + If b.brg_datum = aktdate.ToShortDateString Then + Blatt.Range("B" & i).Value = CDec(b.brg_at_woche) ': MsgBox(b.brg_at_woche) + Blatt.Range("D" & i).Value = CDec(b.brg_at_tag) ': MsgBox(b.brg_at_tag) + Blatt.Range("F" & i).Value = CDec(b.brg_de_woche) ': MsgBox(b.brg_de_woche) + Blatt.Range("H" & i).Value = CDec(b.brg_de_tag) ': MsgBox(b.brg_de_tag) + Exit For + End If + Next + + aktdate = aktdate.AddDays(1) + Next + + + 'Datei.close(True) + '.quit() + End With + End Sub + + Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged + + End Sub +End Class + diff --git a/UID/packages.config b/UID/packages.config new file mode 100644 index 0000000..627183a --- /dev/null +++ b/UID/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/UID/rptAusbildungZert.rpx b/UID/rptAusbildungZert.rpx new file mode 100644 index 0000000..243ce05 --- /dev/null +++ b/UID/rptAusbildungZert.rpx @@ -0,0 +1,39 @@ + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Name + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Niederlassung + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sicherheitsstufe + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Info + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.48106cm + + + + + true + true + + + + + =Fields!mit_username.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =iif(fields!mit_vname.Value="",fields!mit_nname.Value,fields!mit_vname.Value +" " +fields!mit_nname.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!mit_niederlassung.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!mit_berechtigung.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!mit_info.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.30465cm + 0.96212cm + 19.82052cm + + + + + + 0.61867in + + + + + + true + true + + + + + Mitarbeiterliste + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 1.16417cm + true + true + + + true + true + + + + + ="gedruckt am " + Parameters!time.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Seite " & Globals!PageNumber & " von " & Globals!TotalPages + + + + + + + Textbox2 + 0.28393cm + 15.6065cm + 0.6cm + 4.20238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VERAG Spedition AG + + + + + + + Textbox2 + 0.28393cm + 7.53737cm + 0.6cm + 4.7225cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.28024cm + 0.01164cm + 0cm + 19.79724cm + 3 + + + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm +