Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

SDL/Fakturierung/frmSendEmail.Designer.vb

@@ -0,0 +1,378 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmSendEmail
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    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.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendEmail))
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.txtSubject = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.dgvEmailBCC = New System.Windows.Forms.DataGridView()
+        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.dgvEmailCC = New System.Windows.Forms.DataGridView()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.dgvEmail = New System.Windows.Forms.DataGridView()
+        Me.clmnEmail = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.RichTextBox = New System.Windows.Forms.RichTextBox()
+        Me.lkl = New System.Windows.Forms.LinkLabel()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.lblKunde = New System.Windows.Forms.LinkLabel()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn()
+        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label7 = New System.Windows.Forms.Label()
+        CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(12, 48)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(39, 13)
+        Me.lbl.TabIndex = 1
+        Me.lbl.Text = "E-Mail:"
+        '
+        'txtSubject
+        '
+        Me.txtSubject._DateTimeOnly = False
+        Me.txtSubject._numbersOnly = False
+        Me.txtSubject._numbersOnlyKommastellen = ""
+        Me.txtSubject._numbersOnlyTrennzeichen = True
+        Me.txtSubject._Prozent = False
+        Me.txtSubject._ShortDateNew = False
+        Me.txtSubject._ShortDateOnly = False
+        Me.txtSubject._TimeOnly = False
+        Me.txtSubject._TimeOnly_Seconds = False
+        Me.txtSubject._value = ""
+        Me.txtSubject._Waehrung = False
+        Me.txtSubject._WaehrungZeichen = True
+        Me.txtSubject.ForeColor = System.Drawing.Color.Black
+        Me.txtSubject.Location = New System.Drawing.Point(67, 143)
+        Me.txtSubject.MaxLineLength = -1
+        Me.txtSubject.MaxLines_Warning = ""
+        Me.txtSubject.MaxLines_Warning_Label = Nothing
+        Me.txtSubject.Name = "txtSubject"
+        Me.txtSubject.Size = New System.Drawing.Size(674, 20)
+        Me.txtSubject.TabIndex = 6
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 146)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(41, 13)
+        Me.Label1.TabIndex = 5
+        Me.Label1.Text = "Betreff:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(12, 169)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(31, 13)
+        Me.Label2.TabIndex = 7
+        Me.Label2.Text = "Text:"
+        '
+        'dgvEmailBCC
+        '
+        Me.dgvEmailBCC.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEmailBCC.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEmailBCC.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2})
+        Me.dgvEmailBCC.Location = New System.Drawing.Point(521, 48)
+        Me.dgvEmailBCC.Name = "dgvEmailBCC"
+        Me.dgvEmailBCC.RowHeadersVisible = False
+        Me.dgvEmailBCC.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvEmailBCC.Size = New System.Drawing.Size(220, 89)
+        Me.dgvEmailBCC.TabIndex = 4
+        '
+        'DataGridViewTextBoxColumn2
+        '
+        Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail (BCC)"
+        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+        '
+        'dgvEmailCC
+        '
+        Me.dgvEmailCC.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEmailCC.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEmailCC.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
+        Me.dgvEmailCC.Location = New System.Drawing.Point(295, 48)
+        Me.dgvEmailCC.Name = "dgvEmailCC"
+        Me.dgvEmailCC.RowHeadersVisible = False
+        Me.dgvEmailCC.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvEmailCC.Size = New System.Drawing.Size(220, 89)
+        Me.dgvEmailCC.TabIndex = 3
+        '
+        'DataGridViewTextBoxColumn1
+        '
+        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewTextBoxColumn1.HeaderText = "E-Mail (CC)"
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+        '
+        'dgvEmail
+        '
+        Me.dgvEmail.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEmail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEmail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnEmail})
+        Me.dgvEmail.Location = New System.Drawing.Point(67, 48)
+        Me.dgvEmail.Name = "dgvEmail"
+        Me.dgvEmail.RowHeadersVisible = False
+        Me.dgvEmail.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvEmail.Size = New System.Drawing.Size(220, 89)
+        Me.dgvEmail.TabIndex = 2
+        '
+        'clmnEmail
+        '
+        Me.clmnEmail.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnEmail.HeaderText = "E-Mail"
+        Me.clmnEmail.Name = "clmnEmail"
+        '
+        'btn
+        '
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Image = Global.SDL.My.Resources.Resources.email_big1
+        Me.btn.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btn.Location = New System.Drawing.Point(610, 380)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(131, 53)
+        Me.btn.TabIndex = 16
+        Me.btn.Text = "Mail öffnen   "
+        Me.btn.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'RichTextBox
+        '
+        Me.RichTextBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.RichTextBox.Location = New System.Drawing.Point(67, 167)
+        Me.RichTextBox.Name = "RichTextBox"
+        Me.RichTextBox.Size = New System.Drawing.Size(674, 194)
+        Me.RichTextBox.TabIndex = 11
+        Me.RichTextBox.Text = ""
+        '
+        'lkl
+        '
+        Me.lkl.Location = New System.Drawing.Point(67, 27)
+        Me.lkl.Name = "lkl"
+        Me.lkl.Size = New System.Drawing.Size(220, 18)
+        Me.lkl.TabIndex = 0
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(12, 9)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(41, 13)
+        Me.Label4.TabIndex = 21
+        Me.Label4.Text = "Kunde:"
+        '
+        'lblKunde
+        '
+        Me.lblKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblKunde.ForeColor = System.Drawing.SystemColors.ControlText
+        Me.lblKunde.LinkColor = System.Drawing.Color.Black
+        Me.lblKunde.Location = New System.Drawing.Point(64, 9)
+        Me.lblKunde.Name = "lblKunde"
+        Me.lblKunde.Size = New System.Drawing.Size(677, 18)
+        Me.lblKunde.TabIndex = 22
+        Me.lblKunde.TabStop = True
+        Me.lblKunde.Text = "Kunde"
+        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn3, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId})
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(70, 380)
+        Me.dgvAnhaenge.MultiSelect = False
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.ReadOnly = True
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvAnhaenge.RowHeadersVisible = False
+        Me.dgvAnhaenge.RowHeadersWidth = 62
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(537, 124)
+        Me.dgvAnhaenge.TabIndex = 91
+        Me.dgvAnhaenge.TabStop = False
+        '
+        'optAnhSel
+        '
+        Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.optAnhSel.FillWeight = 78.74017!
+        Me.optAnhSel.HeaderText = ""
+        Me.optAnhSel.MinimumWidth = 8
+        Me.optAnhSel.Name = "optAnhSel"
+        Me.optAnhSel.ReadOnly = True
+        Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
+        Me.optAnhSel.Visible = False
+        Me.optAnhSel.Width = 35
+        '
+        'DataGridViewTextBoxColumn3
+        '
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle2.Format = "N0"
+        DataGridViewCellStyle2.NullValue = Nothing
+        Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridViewTextBoxColumn3.HeaderText = "Art"
+        Me.DataGridViewTextBoxColumn3.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
+        Me.DataGridViewTextBoxColumn3.ReadOnly = True
+        Me.DataGridViewTextBoxColumn3.Width = 70
+        '
+        'clmnBezeichnung
+        '
+        Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.Format = "c2"
+        Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3
+        Me.clmnBezeichnung.FillWeight = 121.2598!
+        Me.clmnBezeichnung.HeaderText = "Bezeichnung"
+        Me.clmnBezeichnung.MinimumWidth = 8
+        Me.clmnBezeichnung.Name = "clmnBezeichnung"
+        Me.clmnBezeichnung.ReadOnly = True
+        '
+        'clmnDsId
+        '
+        Me.clmnDsId.HeaderText = "clmnDsId"
+        Me.clmnDsId.MinimumWidth = 8
+        Me.clmnDsId.Name = "clmnDsId"
+        Me.clmnDsId.ReadOnly = True
+        Me.clmnDsId.Visible = False
+        Me.clmnDsId.Width = 150
+        '
+        'clmnAnhId
+        '
+        Me.clmnAnhId.HeaderText = "clmnAnhId"
+        Me.clmnAnhId.MinimumWidth = 8
+        Me.clmnAnhId.Name = "clmnAnhId"
+        Me.clmnAnhId.ReadOnly = True
+        Me.clmnAnhId.Visible = False
+        Me.clmnAnhId.Width = 150
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(11, 380)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(53, 13)
+        Me.Label7.TabIndex = 92
+        Me.Label7.Text = "Anhänge:"
+        '
+        'frmSendEmail
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.ClientSize = New System.Drawing.Size(750, 575)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Controls.Add(Me.lblKunde)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.lkl)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.dgvEmailBCC)
+        Me.Controls.Add(Me.dgvEmailCC)
+        Me.Controls.Add(Me.dgvEmail)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtSubject)
+        Me.Controls.Add(Me.lbl)
+        Me.Controls.Add(Me.RichTextBox)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmSendEmail"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Fakturierung E-Mail"
+        CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents lbl As Label
+    Friend WithEvents txtSubject As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents dgvEmailBCC As DataGridView
+    Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
+    Friend WithEvents dgvEmailCC As DataGridView
+    Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
+    Friend WithEvents dgvEmail As DataGridView
+    Friend WithEvents clmnEmail As DataGridViewTextBoxColumn
+    Friend WithEvents btn As Button
+    Friend WithEvents RichTextBox As RichTextBox
+    Friend WithEvents lkl As LinkLabel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents lblKunde As LinkLabel
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label7 As Label
+    Friend WithEvents optAnhSel As DataGridViewCheckBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
+    Friend WithEvents clmnBezeichnung As DataGridViewTextBoxColumn
+    Friend WithEvents clmnDsId As DataGridViewTextBoxColumn
+    Friend WithEvents clmnAnhId As DataGridViewTextBoxColumn
+End Class

SDL/Fakturierung/frmSendEmail.vb

@@ -0,0 +1,467 @@
+Imports GrapeCity.DataVisualization.TypeScript
+Imports Microsoft.Office.Interop
+Imports Microsoft.Office.Interop.Outlook
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmSendEmail
+
+    ' Felder / Instanzvariablen
+    Private RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
+    Private SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
+    Private ReadOnly FUNC As New cProgramFunctions
+    Private printOriginalRg As Object = Nothing
+    Private ATTACHMENTS As New List(Of cFakt_SendMailATTach)
+    Private SR_List As List(Of cFakt_SR_List) = Nothing
+    Private SR_DT As DataTable = Nothing
+
+    Private Firma_ID As Integer
+    Private SammelrechungArt As Integer
+    Private KdNr As Integer
+    Private DatumBis As Date
+    Private Rechnungsdatum As Date?
+    Private SB As String
+    Private Rechnungsdruck As Integer = 3
+
+    Private EinzelAnlagen As Boolean
+    Private Sammelbericht As Boolean
+    Private xlsEvolog As Boolean
+    Private xlsTransFerry As Boolean
+    Private RechnungsNr As Integer
+    Private FakturierungsGruppe As String
+    Private Abfertigungsart As String
+    Private DruckDatumZeit As DateTime
+    Private AvisoIds As List(Of Integer)
+    Private printRgCopy As Boolean = False
+
+    Private SR As Boolean = False
+
+    ' Konstruktor 1
+    Public Sub New(ByVal RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang,
+                   ByVal SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch,
+                   ByVal printOriginalRg As Object,
+                   ByVal Rechnungsdruck As Integer,
+                   Optional ByVal Rechnungsdatum As Object = Nothing)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.RECHNUNG = RECHNUNG
+        ' Hinweis: Firma_ID wird hier nicht als Parameter übergeben.
+        Me.Firma_ID = Firma_ID
+        Me.SPEDBUCH = SPEDBUCH
+        Me.printOriginalRg = printOriginalRg
+        Me.KdNr = RECHNUNG.RechnungsKundenNr
+        Me.Rechnungsdruck = Rechnungsdruck
+        If Rechnungsdatum IsNot Nothing Then
+            Me.Rechnungsdatum = CDate(Rechnungsdatum)
+        End If
+    End Sub
+
+    ' Konstruktor 2
+    Public Sub New(ByVal Firma_ID As Integer,
+                   ByVal SammelrechungArt As Integer,
+                   ByVal DatumBis As Date,
+                   ByVal Rechnungsdatum As Date,
+                   ByVal PrinterName As String,
+                   ByVal Rechnungsdruck As Integer,
+                   Optional ByVal EinzelAnlagen As Boolean = True,
+                   Optional ByVal Sammelbericht As Boolean = True,
+                   Optional ByVal KdNr As Integer = -1,
+                   Optional ByVal RechnungsdruckArt As Integer = -1,
+                   Optional ByRef listPDFs As List(Of String) = Nothing,
+                   Optional ByVal SB As String = "",
+                   ByRef Optional lastAktuelle_RgNr As Integer = -1,
+                   Optional ByVal AvisoIds As List(Of Integer) = Nothing,
+                   Optional ByVal xlsEvolog As Boolean = False,
+                   Optional ByVal xlsTransFerry As Boolean = False,
+                   Optional ByVal FakturierungsGruppe As String = "",
+                   Optional ByVal Abfertigungsart As String = "",
+                   Optional ByVal printRgCopy As Boolean = False)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID,
+                                              SammelrechungArt,
+                                              DatumBis,
+                                              KdNr,
+                                              SB,
+                                              AvisoIds,
+                                              FakturierungsGruppe,
+                                              Abfertigungsart)
+
+        Me.Firma_ID = Firma_ID
+        Me.SammelrechungArt = SammelrechungArt
+        Me.DatumBis = DatumBis
+        Me.SB = SB
+        Me.EinzelAnlagen = EinzelAnlagen
+        Me.Sammelbericht = Sammelbericht
+        Me.xlsEvolog = xlsEvolog
+        Me.xlsTransFerry = xlsTransFerry
+        Me.KdNr = KdNr
+        Me.Rechnungsdatum = Rechnungsdatum
+        Me.RechnungsNr = lastAktuelle_RgNr
+        Me.FakturierungsGruppe = FakturierungsGruppe
+        Me.Abfertigungsart = Abfertigungsart
+        Me.AvisoIds = AvisoIds
+        Me.Rechnungsdruck = Rechnungsdruck
+        Me.printRgCopy = printRgCopy
+        SR = True
+    End Sub
+
+    ' Ereignishandler: Form-Load
+    Private Sub frmFaktEmail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen
+        Dim FISKAL As cFiskal_Daten = Nothing
+
+        AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+        FISKAL = New cFiskal_Daten(KdNr)
+
+        setMailText()
+
+        If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then
+            lkl.Text = """" & AD.E_Mail & """ anfügen"
+            lkl.Tag = AD.E_Mail
+        End If
+
+        lblKunde.Text = AD.AdressenNr & " - " & AD.Ordnungsbegriff
+
+        Dim email_receipt As String = ""
+        If SR Then
+            Dim allAtilla As Boolean = (Firma_ID = 7)
+            If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
+                For Each r As DataRow In SR_DT.Rows
+                    If "4801" <> r("FilialenNr").ToString() AndAlso "4802" <> r("FilialenNr").ToString() Then
+                        allAtilla = False
+                        Exit For
+                    End If
+                Next
+            End If
+            email_receipt = If(allAtilla, VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)"), "")
+        Else
+            If RECHNUNG.FilialenNr = "4801" OrElse RECHNUNG.FilialenNr = "4802" Then
+                email_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)")
+            End If
+        End If
+
+        Dim EMAILTMP As String = If(email_receipt = "",
+                                    VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"),
+                                    email_receipt)
+        If EMAILTMP <> "" Then dgvEmail.Rows.Add(EMAILTMP)
+
+        Dim EMAILTMPCC As String = If(email_receipt = "",
+                                      VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"),
+                                      VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+        If EMAILTMPCC <> "" Then dgvEmailCC.Rows.Add(EMAILTMPCC)
+
+        Dim EMAILTMPBCC As String = If(email_receipt = "",
+                                       VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an"),
+                                       VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+        If EMAILTMPBCC <> "" Then dgvEmailBCC.Rows.Add(EMAILTMPBCC)
+
+        initDGVAnhaenge()
+    End Sub
+
+    ' Linklabel-Klick: Kunde anzeigen
+    Private Sub lblKunde_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblKunde.LinkClicked
+        FUNC.showKd(KdNr)
+    End Sub
+
+    ' Initialisierung der Anlagen-DGV
+    Private Sub initDGVAnhaenge()
+        With dgvAnhaenge
+            .Rows.Clear()
+            .Enabled = True
+
+            If SR AndAlso SammelrechungArt <> 6 Then
+                .Enabled = False
+                Exit Sub
+            End If
+
+            If SammelrechungArt = 6 AndAlso RECHNUNG Is Nothing Then
+                For Each r As DataRow In SR_DT.Rows
+                    Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(r("RK_ID"))
+                    If RG IsNot Nothing Then
+                        RG.LOAD_ANHAENGE()
+                        For Each RG_AH In RG.ANHAENGE
+                            .Rows.Add(0, "", RG_AH.Bezeichnung, RG_AH.dsId, RG_AH.anhId)
+                        Next
+                    End If
+                Next
+            Else
+                RECHNUNG.LOAD_ANHAENGE()
+                If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then
+                    For Each RG_AH In RECHNUNG.ANHAENGE
+                        .Rows.Add(0, "", RG_AH.Bezeichnung, RG_AH.dsId, RG_AH.anhId)
+                    Next
+                End If
+            End If
+        End With
+        dgvAnhaenge.ClearSelection()
+    End Sub
+
+    ' Anzeige von HTML im WebBrowser
+    Private Sub wbShowHTML(ByVal WebBrowser As WebBrowser, ByVal HtmlText As String)
+        Try
+            With WebBrowser
+                If .Url Is Nothing OrElse .Url.AbsoluteUri <> "about:blank" Then
+                    .Navigate("about:blank")
+                    System.Windows.Forms.Application.DoEvents()
+                End If
+                ' Hier ggf. den HTML-Inhalt setzen, z. B.:
+                ' .Document.Body.InnerHtml = HtmlText
+            End With
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+    ' Gibt die Rechnungsnummer als String zurück
+    Private Function getRgNr(ByVal RechnungsNr As Integer) As String
+        If RechnungsNr <= 0 Then Return "%RgNr%"
+        Return RechnungsNr.ToString()
+    End Function
+
+    ' Setzt den Mail-Text
+    Private Sub setMailText()
+        Dim abfNr As String = " Pos-Nr.: " & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & " LKW: " & RECHNUNG.LKW_Kennzeichen
+
+        txtSubject.Text = "Verzollungsunterlagen zu " & abfNr
+
+        RichTextBox.Text = "Sehr geehrte Damen und Herren," & Environment.NewLine & Environment.NewLine &
+                            "anbei erhalten Sie die Verzollungsunterlagen zu Ihrer weiteren Verwendung." & Environment.NewLine & Environment.NewLine &
+                            "Für weitere Fragen stehen wir Ihnen natürlich gerne zur Verfügung." & Environment.NewLine & Environment.NewLine &
+                            "Mit freundlichen Grüßen" & Environment.NewLine
+    End Sub
+
+    ' Klick-Event des Buttons
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Dim additionalLine As String = ""
+
+        If SR Then
+            Try
+
+
+                VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("Zusammenfassung")
+                    Dim listPDFs As New List(Of String)
+                    Dim SonstAnlagen As New List(Of String)
+                    Dim lastAktuelle_RgNr As Integer = -1
+                    Dim RechnungsNrisSet As Boolean = False
+                    Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+
+                    Dim outl As New Outlook.Application
+
+                    Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
+                    Mail_StbFA.Subject = txtSubject.Text
+
+
+                Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
+                    Mail.Subject = txtSubject.Text
+
+                    If Firma_ID = 24 Then
+                        Try
+                            Dim accountToSent As String = SDL.cFakturierung.getDefaultMail("AMBAR", , True)
+                            For Each oAccount As Outlook.Account In outl.Session.Accounts
+                                If oAccount.SmtpAddress = accountToSent Then
+                                    Mail.SendUsingAccount = oAccount
+                                    Exit For
+                                End If
+                            Next
+                        Catch ex As System.Exception
+                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        End Try
+                    End If
+
+                    For Each r As DataGridViewRow In dgvEmail.Rows
+                        If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                            Mail.To &= r.Cells(0).Value.ToString() & ";"
+                        End If
+                    Next
+
+                    For Each r As DataGridViewRow In dgvEmailCC.Rows
+                        If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                            Mail.CC &= r.Cells(0).Value.ToString() & ";"
+                        End If
+                    Next
+
+                    For Each r As DataGridViewRow In dgvEmailBCC.Rows
+                        If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                            Mail.BCC &= r.Cells(0).Value.ToString() & ";"
+                        End If
+                    Next
+
+
+                    Dim TextHTML As String = "<div style=""font-family:Calibri, Arial"">" &
+                                               RichTextBox.Text.Replace(ControlChars.Lf, "<br>") &
+                                               cFakturierung.getSignature(AD.LandKz, Firma_ID, , , , additionalLine, , If(Firma_ID = "24", True, False)) &
+                                               "</div>"
+
+                    Mail.HTMLBody = TextHTML
+                    Mail.Subject = txtSubject.Text
+
+                    ATTACHMENTS.Clear()
+                    For Each l As String In listPDFs
+                        ATTACHMENTS.Add(New cFakt_SendMailATTach(l, ""))
+                    Next
+                    For Each l As String In SonstAnlagen
+                        ATTACHMENTS.Add(New cFakt_SendMailATTach(l, ""))
+                    Next
+
+                    If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
+                        For Each r As DataRow In SR_DT.Rows
+                            Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID"))
+                            If RG_ANH IsNot Nothing Then
+                                For Each ANH In RG_ANH
+                                    ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
+                                Next
+                            End If
+                        Next
+
+
+                    If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then
+                        ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
+                    End If
+                    addAttachments(Mail, lastAktuelle_RgNr, False)
+
+                    Mail.Display()
+                End If
+            Catch ex As System.Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        Else ' ER-Fall
+            If RECHNUNG.FakturierungsGruppe <> "" Then
+                additionalLine = "Abrechnungsstelle: " & RECHNUNG.FakturierungsGruppe.Replace("WAI", "Waidhaus")
+            End If
+
+            Try
+                Dim outl As New Outlook.Application
+                Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
+                Dim RechnungsNrisSet As Boolean = False
+
+                If Firma_ID = 24 Then
+                    Try
+                        Dim accountToSent As String = SDL.cFakturierung.getDefaultMail("AMBAR", , True)
+                        For Each oAccount As Outlook.Account In outl.Session.Accounts
+                            If oAccount.SmtpAddress = accountToSent Then
+                                Mail.SendUsingAccount = oAccount
+                                Exit For
+                            End If
+                        Next
+                    Catch ex As System.Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+                End If
+
+                For Each r As DataGridViewRow In dgvEmail.Rows
+                    If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                        Mail.To &= r.Cells(0).Value.ToString() & ";"
+                    End If
+                Next
+
+                For Each r As DataGridViewRow In dgvEmailCC.Rows
+                    If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                        Mail.CC &= r.Cells(0).Value.ToString() & ";"
+                    End If
+                Next
+
+                For Each r As DataGridViewRow In dgvEmailBCC.Rows
+                    If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                        Mail.BCC &= r.Cells(0).Value.ToString() & ";"
+                    End If
+                Next
+
+
+                Dim TextHTML As String = "<div style=""font-family:Calibri, Arial"">" &
+                                           RichTextBox.Text.Replace(ControlChars.Lf, "<br>") &
+                                           cFakturierung.getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID, , , , additionalLine, , If(Firma_ID = "24", True, False)) &
+                                           "</div>"
+
+                Mail.HTMLBody = TextHTML
+                Mail.Subject = txtSubject.Text
+
+                RECHNUNG.LOAD_ANHAENGE()
+                For Each ANH In RECHNUNG.ANHAENGE
+                    ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
+                Next
+
+                If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then
+                    ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
+                End If
+                addAttachments(Mail, RECHNUNG.RechnungsNr, False)
+
+                Mail.Display()
+            Catch ex As System.Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                End Try
+            End If
+
+        ATTACHMENTS.Clear()
+    End Sub
+
+    ' Fügt die gesammelten Anlagen der Mail hinzu
+    Private Sub addAttachments(ByRef Mail As Microsoft.Office.Interop.Outlook.MailItem, ByVal RgNr As Integer, ByVal MergePDF As Boolean)
+        If ATTACHMENTS.Count = 0 Then Exit Sub
+
+        Try
+            For Each a In ATTACHMENTS
+                If System.IO.File.Exists(a.Pfad) Then
+                    Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
+                Else
+                    ' Optional: Fehlermeldung protokollieren oder Benutzer informieren
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Anhang wurde nicht hinzugefügt, da Datei nicht gefunden wurde: " & a.Pfad, "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                End If
+            Next
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+    ' Linklabel-Klick: E-Mail-Adresse hinzufügen
+    Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked
+        dgvEmail.Rows.Add(lkl.Tag)
+    End Sub
+
+    ' DataGridView-Verlassen: Auswahl löschen
+    Private Sub dgvEmail_SelectionChanged(sender As Object, e As EventArgs) _
+        Handles dgvEmail.Leave, dgvEmailCC.Leave, dgvEmailBCC.Leave
+        CType(sender, DataGridView).ClearSelection()
+    End Sub
+
+    ' Doppelklick in Anlagen-DGV: Anlage öffnen
+    Private Sub dgvAnhaenge_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) _
+        Handles dgvAnhaenge.CellDoubleClick
+        Try
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                Dim docId = dgvAnhaenge.SelectedRows(0).Cells("clmnDsId").Value
+                Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(docId))
+            End If
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+End Class
+
+' Klasse für Mail-Anhänge
+Public Class cFakt_SendMailATTach
+    Public Property Pfad As String
+    Public Property MailName As String
+
+    Public Sub New(ByVal pfad As String, ByVal MailName As String)
+        Me.Pfad = pfad
+        Me.MailName = MailName
+    End Sub
+End Class
+
+' Klasse für SR-Listen
+Public Class cFaktSend_SR_List
+    Private RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
+    Private SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
+
+    Public Sub New(ByVal RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang,
+                   ByVal SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
+        Me.RECHNUNG = RECHNUNG
+        Me.SPEDBUCH = SPEDBUCH
+    End Sub
+End Class

SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb

@@ -23,27 +23,27 @@ Partial Class usrCntlFaktAbrechnung
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle67 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle69 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle81 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle82 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle83 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle84 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung))
         Me.Label9 = New System.Windows.Forms.Label()
         Me.Label4 = New System.Windows.Forms.Label()
@@ -152,6 +152,7 @@ Partial Class usrCntlFaktAbrechnung
         Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.pnlRechnungAn = New System.Windows.Forms.Panel()
+        Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label56 = New System.Windows.Forms.Label()
         Me.txtRechnungAnZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button15 = New System.Windows.Forms.Button()
@@ -236,7 +237,6 @@ Partial Class usrCntlFaktAbrechnung
         Me.lblEUR_4 = New System.Windows.Forms.Label()
         Me.Label55 = New System.Windows.Forms.Label()
         Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
         Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox()
         Me.Label46 = New System.Windows.Forms.Label()
         Me.Button9 = New System.Windows.Forms.Button()
@@ -279,7 +279,8 @@ Partial Class usrCntlFaktAbrechnung
         Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Button17 = New System.Windows.Forms.Button()
+        Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
         Me.pnlTop.SuspendLayout()
         Me.Panel3.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -795,6 +796,7 @@ Partial Class usrCntlFaktAbrechnung
         'Panel1
         '
         Me.Panel1.AutoScroll = True
+        Me.Panel1.Controls.Add(Me.Button17)
         Me.Panel1.Controls.Add(Me.txtTextZZ)
         Me.Panel1.Controls.Add(Me.dgvAnhaenge)
         Me.Panel1.Controls.Add(Me.Label36)
@@ -869,36 +871,36 @@ Partial Class usrCntlFaktAbrechnung
         Me.dgvAnhaenge.AllowUserToResizeColumns = False
         Me.dgvAnhaenge.AllowUserToResizeRows = False
         Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle64.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle64.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle64.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle64.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle64.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle64.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle64
+        Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId})
-        DataGridViewCellStyle67.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle67.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle67.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle67.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle67.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle67.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle67
+        Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4
         Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911)
         Me.dgvAnhaenge.MultiSelect = False
         Me.dgvAnhaenge.Name = "dgvAnhaenge"
         Me.dgvAnhaenge.ReadOnly = True
-        DataGridViewCellStyle68.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle68.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle68.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle68.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle68.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle68.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle68
+        Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
         Me.dgvAnhaenge.RowHeadersVisible = False
         Me.dgvAnhaenge.RowHeadersWidth = 62
         Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -920,10 +922,10 @@ Partial Class usrCntlFaktAbrechnung
         '
         'DataGridViewTextBoxColumn2
         '
-        DataGridViewCellStyle65.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle65.Format = "N0"
+        DataGridViewCellStyle2.Format = "N0"
-        DataGridViewCellStyle65.NullValue = Nothing
+        DataGridViewCellStyle2.NullValue = Nothing
-        Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle65
+        Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2
         Me.DataGridViewTextBoxColumn2.HeaderText = "Art"
         Me.DataGridViewTextBoxColumn2.MinimumWidth = 8
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
@@ -933,9 +935,9 @@ Partial Class usrCntlFaktAbrechnung
         'clmnBezeichnung
         '
         Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle66.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle66.Format = "c2"
+        DataGridViewCellStyle3.Format = "c2"
-        Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle66
+        Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3
         Me.clmnBezeichnung.FillWeight = 121.2598!
         Me.clmnBezeichnung.HeaderText = "Bezeichnung"
         Me.clmnBezeichnung.MinimumWidth = 8
@@ -2001,6 +2003,17 @@ Partial Class usrCntlFaktAbrechnung
         Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 153)
         Me.pnlRechnungAn.TabIndex = 0
         '
+        'cboVorauskasse
+        '
+        Me.cboVorauskasse._allowedValuesFreiText = Nothing
+        Me.cboVorauskasse._allowFreiText = False
+        Me.cboVorauskasse._value = ""
+        Me.cboVorauskasse.FormattingEnabled = True
+        Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5)
+        Me.cboVorauskasse.Name = "cboVorauskasse"
+        Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21)
+        Me.cboVorauskasse.TabIndex = 244
+        '
         'Label56
         '
         Me.Label56.AutoSize = True
@@ -2905,35 +2918,35 @@ Partial Class usrCntlFaktAbrechnung
         Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False
         Me.dgvRechnungenPositionen.AllowUserToResizeRows = False
         Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle69.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle69
+        Me.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
         Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto})
-        DataGridViewCellStyle74.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle74.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle74.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle74.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle74.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle74.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle74
+        Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle11
         Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258)
         Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen"
         Me.dgvRechnungenPositionen.ReadOnly = True
-        DataGridViewCellStyle75.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle75.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle75.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle75.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle75.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle75.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle75
+        Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
         Me.dgvRechnungenPositionen.RowHeadersVisible = False
         Me.dgvRechnungenPositionen.RowHeadersWidth = 62
         Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -2951,10 +2964,10 @@ Partial Class usrCntlFaktAbrechnung
         '
         'Anzahl
         '
-        DataGridViewCellStyle70.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle70.Format = "N0"
+        DataGridViewCellStyle7.Format = "N0"
-        DataGridViewCellStyle70.NullValue = Nothing
+        DataGridViewCellStyle7.NullValue = Nothing
-        Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle70
+        Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7
         Me.Anzahl.HeaderText = "Anzahl"
         Me.Anzahl.MinimumWidth = 8
         Me.Anzahl.Name = "Anzahl"
@@ -2963,9 +2976,9 @@ Partial Class usrCntlFaktAbrechnung
         '
         'Preis
         '
-        DataGridViewCellStyle71.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle71.Format = "c2"
+        DataGridViewCellStyle8.Format = "c2"
-        Me.Preis.DefaultCellStyle = DataGridViewCellStyle71
+        Me.Preis.DefaultCellStyle = DataGridViewCellStyle8
         Me.Preis.HeaderText = "Preis"
         Me.Preis.MinimumWidth = 8
         Me.Preis.Name = "Preis"
@@ -2974,9 +2987,9 @@ Partial Class usrCntlFaktAbrechnung
         '
         'SteuerpflichtigerBetrag
         '
-        DataGridViewCellStyle72.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle72.Format = "c2"
+        DataGridViewCellStyle9.Format = "c2"
-        Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle72
+        Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9
         Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl."
         Me.SteuerpflichtigerBetrag.MinimumWidth = 8
         Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag"
@@ -2985,10 +2998,10 @@ Partial Class usrCntlFaktAbrechnung
         '
         'SteuerfreierBetrag
         '
-        DataGridViewCellStyle73.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle73.Format = "C2"
+        DataGridViewCellStyle10.Format = "C2"
-        DataGridViewCellStyle73.NullValue = Nothing
+        DataGridViewCellStyle10.NullValue = Nothing
-        Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle73
+        Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10
         Me.SteuerfreierBetrag.HeaderText = "Steuerfrei"
         Me.SteuerfreierBetrag.MinimumWidth = 8
         Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag"
@@ -3011,41 +3024,41 @@ Partial Class usrCntlFaktAbrechnung
         Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
         Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        DataGridViewCellStyle76.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle76.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle76.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle76.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle76.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle76.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOffertenSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle76
+        Me.dgvOffertenSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
         Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle77.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle77.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle77.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle77.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle77.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle77.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvOffertenSperrliste.DefaultCellStyle = DataGridViewCellStyle77
+        Me.dgvOffertenSperrliste.DefaultCellStyle = DataGridViewCellStyle14
         Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(11, 29)
         Me.dgvOffertenSperrliste.MultiSelect = False
         Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
         Me.dgvOffertenSperrliste.ReadOnly = True
-        DataGridViewCellStyle78.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle78.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle78.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle78.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle78.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle78.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOffertenSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle78
+        Me.dgvOffertenSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
         Me.dgvOffertenSperrliste.RowHeadersVisible = False
         Me.dgvOffertenSperrliste.RowHeadersWidth = 62
-        DataGridViewCellStyle79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle79.SelectionBackColor = System.Drawing.Color.PapayaWhip
+        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.Color.PapayaWhip
-        DataGridViewCellStyle79.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.Color.Black
-        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle79
+        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(204, 201)
         Me.dgvOffertenSperrliste.TabIndex = 2
@@ -3058,44 +3071,44 @@ Partial Class usrCntlFaktAbrechnung
         Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
         Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
         Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
-        DataGridViewCellStyle80.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle80
+        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
         Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        DataGridViewCellStyle81.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle81.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle81.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle81.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle81.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle81.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle81
+        Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
         Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle82.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle82.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle82.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle82.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle82.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle82.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle82
+        Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle19
         Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29)
         Me.dgvOfferteDetailsUebersicht.MultiSelect = False
         Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht"
-        DataGridViewCellStyle83.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle83.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle83.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle83.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle83.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle83.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle83
+        Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle20
         Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False
         Me.dgvOfferteDetailsUebersicht.RowHeadersWidth = 62
-        DataGridViewCellStyle84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle84.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
+        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
-        DataGridViewCellStyle84.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black
-        Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle84
+        Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle21
         Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201)
         Me.dgvOfferteDetailsUebersicht.TabIndex = 3
@@ -3482,17 +3495,6 @@ Partial Class usrCntlFaktAbrechnung
         Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21)
         Me.cboSteuerschlüssel.TabIndex = 3
         '
-        'rtbAbf_Besonderheiten
-        '
-        Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
-        Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
-        Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
-        Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
-        Me.rtbAbf_Besonderheiten.TabIndex = 235
-        Me.rtbAbf_Besonderheiten.Visible = False
-        '
         'cbxOriginalPrint
         '
         Me.cbxOriginalPrint.AutoSize = True
@@ -3934,25 +3936,25 @@ Partial Class usrCntlFaktAbrechnung
         '
         Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem, Me.GutschriftAnVeragToolStripMenuItem})
         Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(224, 70)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(225, 70)
         '
         'GutschriftAusRechnungToolStripMenuItem
         '
         Me.GutschriftAusRechnungToolStripMenuItem.Name = "GutschriftAusRechnungToolStripMenuItem"
-        Me.GutschriftAusRechnungToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
+        Me.GutschriftAusRechnungToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
         Me.GutschriftAusRechnungToolStripMenuItem.Text = "Gutschrift aus Rechnung"
         '
         'SeperateRechnungFürEUSTToolStripMenuItem
         '
         Me.SeperateRechnungFürEUSTToolStripMenuItem.Name = "SeperateRechnungFürEUSTToolStripMenuItem"
-        Me.SeperateRechnungFürEUSTToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
+        Me.SeperateRechnungFürEUSTToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
         Me.SeperateRechnungFürEUSTToolStripMenuItem.Text = "Seperate Rechnung für EUST"
         '
         'GutschriftAnVeragToolStripMenuItem
         '
         Me.GutschriftAnVeragToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VeragAGToolStripMenuItem, Me.VeragCSToolStripMenuItem})
         Me.GutschriftAnVeragToolStripMenuItem.Name = "GutschriftAnVeragToolStripMenuItem"
-        Me.GutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
+        Me.GutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
         Me.GutschriftAnVeragToolStripMenuItem.Text = "Gutschrift an"
         '
         'VeragAGToolStripMenuItem
@@ -3967,16 +3969,29 @@ Partial Class usrCntlFaktAbrechnung
         Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
         Me.VeragCSToolStripMenuItem.Text = "Verag CS"
         '
-        'cboVorauskasse
+        'Button17
         '
-        Me.cboVorauskasse._allowedValuesFreiText = Nothing
+        Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
-        Me.cboVorauskasse._allowFreiText = False
+        Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.cboVorauskasse._value = ""
+        Me.Button17.Location = New System.Drawing.Point(656, 887)
-        Me.cboVorauskasse.FormattingEnabled = True
+        Me.Button17.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
-        Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5)
+        Me.Button17.Name = "Button17"
-        Me.cboVorauskasse.Name = "cboVorauskasse"
+        Me.Button17.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
-        Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21)
+        Me.Button17.Size = New System.Drawing.Size(166, 24)
-        Me.cboVorauskasse.TabIndex = 244
+        Me.Button17.TabIndex = 92
+        Me.Button17.Text = "E-Mail Erstellen"
+        Me.Button17.UseVisualStyleBackColor = True
+        '
+        'rtbAbf_Besonderheiten
+        '
+        Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
+        Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
+        Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
+        Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
+        Me.rtbAbf_Besonderheiten.TabIndex = 235
+        Me.rtbAbf_Besonderheiten.Visible = False
         '
         'usrCntlFaktAbrechnung
         '
@@ -4263,4 +4278,5 @@ Partial Class usrCntlFaktAbrechnung
     Friend WithEvents VeragCSToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents lblOFgesperrt As Label
     Friend WithEvents cboVorauskasse As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Button17 As Button
 End Class

SDL/Fakturierung/usrCntlFaktAbrechnung.resx

@@ -153,26 +153,26 @@
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
   </data>
   <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3495,6 +3495,7 @@ Nächste_Textzeile_lesen:
         cbxOriginalPrint.Checked = False
     End Sub
 
+
     Function getPrinterFromParent()
         Try
             If Me.FindForm IsNot Nothing Then
@@ -4221,4 +4222,30 @@ Nächste_Textzeile_lesen:
             txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH)
         End If
     End Sub
+
+    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
+        If Not checkUIDNR() Then Exit Sub
+
+        If RECHNUNG.Status <> 0 OrElse saveMe() Then
+            ' Anhänge sichern, falls geändert
+            If RECHNUNG.RK_ID > 0 And RECHNUNG.Status <> 0 Then
+                getValues_ANHAENGE()
+                RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID)
+            End If
+
+            'RG-Druck - Mail (+Kopie)
+            Dim RG_DRUCK = 2
+            If sender Is Button16 Then
+                RG_DRUCK = 5
+            End If
+
+            Dim f As New frmSendEmail(RECHNUNG, SPEDBUCH, If(cbxOriginalPrint.Visible, cbxOriginalPrint.Checked, Nothing), RG_DRUCK)
+            f.ShowDialog(Me)
+            initRECHNUNG()
+            RaiseEvent SOMETHING_CHANGED(-1)
+
+
+        End If
+        cbxOriginalPrint.Checked = False
+    End Sub
 End Class

SDL/SDL.vbproj

@@ -598,6 +598,12 @@
       <SubType>Component</SubType>
     </Compile>
     <Compile Include="cSqlDb.vb" />
+    <Compile Include="Fakturierung\frmSendEmail.Designer.vb">
+      <DependentUpon>frmSendEmail.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Fakturierung\frmSendEmail.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.Designer.vb">
       <DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
     </Compile>
@@ -3249,6 +3255,9 @@
     <EmbeddedResource Include="Creditsafe\usrcntlCreditsafe.resx">
       <DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Fakturierung\frmSendEmail.resx">
+      <DependentUpon>frmSendEmail.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.resx">
       <DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
     </EmbeddedResource>

SDL/kunden/usrCntlCBAM.vb

@@ -414,6 +414,7 @@ Public Class usrCntlCBAM
 
 
             Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
+            MsgBox(SQLSTR)
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
                 btnCBAM_DS_DAKOSY_Deteil.Tag = path

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/CHMRC.vb

@@ -1509,42 +1509,48 @@ Public Class cHMRC
 
 
     Shared Function getTOKEN(APPLICATION, Optional forceNewToken = False) As cHMRCToken
+
         Dim TOKEN = New cHMRCToken(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, APPLICATION)
-        Dim appl = ""
+        Try
-        Dim HMRC_APPLICATION = "AVISO"
+            Dim appl = ""
-        Select Case APPLICATION
+            Dim HMRC_APPLICATION = "AVISO"
-            Case "HELLOWORLD" '"EORI_CHECK"
+            Select Case APPLICATION
-                'appl = "write:import-control-system+read:import-control-system"
+                Case "HELLOWORLD" '"EORI_CHECK"
-                appl = "applicationRestricted"
+                    'appl = "write:import-control-system+read:import-control-system"
-                HMRC_APPLICATION = "AVISO"
+                    appl = "applicationRestricted"
-            Case "GVMS"
+                    HMRC_APPLICATION = "AVISO"
-                appl = "write:goods-movement-system+read:pull-notifications"
+                Case "GVMS"
-                HMRC_APPLICATION = "AVISO"
+                    appl = "write:goods-movement-system+read:pull-notifications"
-            Case "VAT_CHECK" '"EORI_CHECK"
+                    HMRC_APPLICATION = "AVISO"
-                appl = "read:vat write:vat"
+                Case "VAT_CHECK" '"EORI_CHECK"
-                HMRC_APPLICATION = "AVISO"
+                    appl = "read:vat write:vat"
-            Case "ENS" '"EORI_CHECK"
+                    HMRC_APPLICATION = "AVISO"
-                'appl = "write:import-control-system+read:import-control-system"
+                Case "ENS" '"EORI_CHECK"
-                appl = "write:import-control-system"
+                    'appl = "write:import-control-system+read:import-control-system"
-                HMRC_APPLICATION = "AVISO_ENS"
+                    appl = "write:import-control-system"
-            Case "ENS_HELLOWORLD" '"EORI_CHECK"
+                    HMRC_APPLICATION = "AVISO_ENS"
-                'appl = "write:import-control-system+read:import-control-system"
+                Case "ENS_HELLOWORLD" '"EORI_CHECK"
-                appl = "hello"
+                    'appl = "write:import-control-system+read:import-control-system"
-                HMRC_APPLICATION = "AVISO_ENS"
+                    appl = "hello"
-        End Select
+                    HMRC_APPLICATION = "AVISO_ENS"
+            End Select
 
 
 
-        If forceNewToken OrElse TOKEN.hasEntry = False OrElse TOKEN.token_BEARER_TOKEN Is Nothing OrElse TOKEN.token_BEARER_TOKEN = "" Then
+            If forceNewToken OrElse TOKEN.hasEntry = False OrElse TOKEN.token_BEARER_TOKEN Is Nothing OrElse TOKEN.token_BEARER_TOKEN = "" Then
-            Dim AccessToken = ""
+                Dim AccessToken = ""
-            grantAccess(AccessToken, appl, HMRC_APPLICATION)
+                grantAccess(AccessToken, appl, HMRC_APPLICATION)
-            TOKEN.token_Application = APPLICATION
+                TOKEN.token_Application = APPLICATION
-            TOKEN.token_BEARER_TOKEN = AccessToken
+                TOKEN.token_BEARER_TOKEN = AccessToken
-            TOKEN.token_refresh_datetime = Now
+                TOKEN.token_refresh_datetime = Now
-            TOKEN.SAVE()
+                TOKEN.SAVE()
-        Else
+            Else
-            HMRC_RefreshToken(TOKEN, HMRC_APPLICATION)
+                HMRC_RefreshToken(TOKEN, HMRC_APPLICATION)
-        End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
         Return TOKEN
     End Function
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/CC304A-v10-0.xsd

@@ -0,0 +1,604 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:ie="http://ics.dgtaxud.ec/CC304A" xmlns:complex_ics="http://ics.dgtaxud.ec/complex_ics" xmlns:simple_ics="http://ics.dgtaxud.ec/simple_ics" xmlns:tcl_ics="http://ics.dgtaxud.ec/tcl_ics" xmlns:simple="http://ics.dgtaxud.ec/simple" xmlns:tcl="http://ics.dgtaxud.ec/tcl" xmlns:doc="http://ics.dgtaxud.ec/doc" targetNamespace="http://ics.dgtaxud.ec/CC304A" attributeFormDefault="unqualified" elementFormDefault="unqualified" version="36.00">
+  <!--=========================================-->
+  <!--===== IE304:E_ENS_AAC  -->
+  <!--===== ENTRY SUMMARY DECLARATION AMENDMENT ACCEPTED  -->
+  <!--===== ICS P1 Phase Definition  -->
+  <!--===== DDNIA 11.00  -->
+  <!--===== XSD version v36.00  -->
+  <!--=========================================-->
+  <!--===== Imports =====-->
+  <xs:import namespace="http://ics.dgtaxud.ec/doc" schemaLocation="doc-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/complex_ics" schemaLocation="complex_types_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/simple_ics" schemaLocation="simple_types_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/tcl_ics" schemaLocation="tcl_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/simple" schemaLocation="simple_types-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/tcl" schemaLocation="tcl-v10-0.xsd" />
+  <!--===== Root Element =====-->
+  <xs:element name="CC304A" type="ie:CC304AType" />
+  <!--===== Root Element Content =====-->
+  <xs:complexType name="CC304AType">
+    <xs:sequence>
+      <xs:group ref="ie:MESSAGE" />
+      <xs:element name="HEAHEA" type="ie:HEAHEAType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="HEADER" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="GOOITEGDS" type="ie:GOOITEGDSType" minOccurs="0" maxOccurs="unbounded">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="GOODS ITEM" />
+            <doc:rule name="R134" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TRAREP" type="ie:TRAREPType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(REPRESENTATIVE) TRADER" />
+            <doc:condition name="C552" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PERLODSUMDEC" type="ie:PERLODSUMDECType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(LODGING SUMMARY DECLARATION) PERSON" />
+            <doc:condition name="C552" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CUSOFFFENT730" type="ie:CUSOFFFENT730Type">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(FIRST ENTRY) CUSTOMS OFFICE" />
+            <doc:rule name="R814" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TRACARENT601" type="ie:TRACARENT601Type" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(ENTRY CARRIER) TRADER" />
+            <doc:rule name="R134" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== MESSAGE Content =====-->
+  <xs:group name="MESSAGE">
+    <xs:sequence>
+      <xs:element name="MesSenMES3" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message sender" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesRecMES6" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message recipient" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DatOfPreMES9" type="simple:DatePrepType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Date of preparation" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TimOfPreMES10" type="simple:TimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Time of preparation" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PriMES15" type="simple:Alpha_1" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Priority" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TesIndMES18" type="tcl:Flag" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Test indicator" />
+            <doc:rule name="TR9085" />
+            <doc:codeList name="Flag" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesIdeMES19" type="simple:Alphanumeric_Max14">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message identification" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesTypMES20" type="tcl:MessageTypes">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message type" />
+            <doc:codeList name="MessageTypes" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CorIdeMES25" type="simple:Alphanumeric_Max14" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Correlation identifier" />
+            <doc:rule name="TR9181" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:group>
+  <!--===== HEADER =====-->
+  <xs:complexType name="HEAHEAType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="HEADER" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="DocNumHEA5" type="simple:MRNType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Document/reference number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TraModAtBorHEA76" type="simple:Numeric_Max2" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Transport mode at border" />
+            <doc:rule name="R134" />
+            <doc:rule name="R826" />
+            <doc:codeList name="TransportMode" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IdeOfMeaOfTraCroHEA85" type="simple:Alphanumeric_Max27" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Identity of means of transport crossing border" />
+            <doc:rule name="R134" />
+            <doc:condition name="C017" />
+            <doc:condition name="C514" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IdeOfMeaOfTraCroHEA85LNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Identity of means of transport crossing border LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="NatOfMeaOfTraCroHEA87" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Nationality of means of transport crossing border" />
+            <doc:rule name="R134" />
+            <doc:condition name="C024" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ComRefNumHEA" type="simple:Alphanumeric_Max70" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Commercial Reference Number" />
+            <doc:rule name="R134" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ConRefNumHEA" type="simple:Alphanumeric_Max35" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Conveyance reference number" />
+            <doc:rule name="R134" />
+            <doc:rule name="R843" />
+            <doc:condition name="C518" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="AmeAccDatTimHEA111" type="simple:DateTimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Amendment acceptance date and time" />
+            <doc:rule name="R660" />
+            <doc:rule name="R662" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DatTimAmeHEA113" type="simple:DateTimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Date and Time of amendment" />
+            <doc:rule name="R660" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== GOODS ITEM =====-->
+  <xs:complexType name="GOOITEGDSType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="GOODS ITEM" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="IteNumGDS7" type="simple:Numeric_Max5">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Item number" />
+            <doc:rule name="R005" />
+            <doc:rule name="R007" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ComRefNumGIM1" type="simple:Alphanumeric_Max70" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Commercial Reference Number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PRODOCDC2" type="ie:PRODOCDC2Type" minOccurs="0" maxOccurs="99">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="PRODUCED DOCUMENTS/CERTIFICATES" />
+            <doc:rule name="R147" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CONNR2" type="ie:CONNR2Type" minOccurs="0" maxOccurs="99">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="CONTAINERS" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IDEMEATRAGI970" type="ie:IDEMEATRAGI970Type" minOccurs="0" maxOccurs="unbounded">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(MEANS OF TRANSPORT AT BORDER) IDENTITY" />
+            <doc:condition name="C019" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== PRODUCED DOCUMENTS/CERTIFICATES =====-->
+  <xs:complexType name="PRODOCDC2Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="PRODUCED DOCUMENTS/CERTIFICATES" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="DocTypDC21" type="simple:Alphanumeric_Max4">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Document type" />
+            <doc:rule name="R136" />
+            <doc:codeList name="DocumentTypeCommon" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DocRefDC23" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Document reference" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DocRefDCLNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Document reference LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== CONTAINERS =====-->
+  <xs:complexType name="CONNR2Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="CONTAINERS" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="ConNumNR21" type="simple:Alphanumeric_Max17">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Container number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (MEANS OF TRANSPORT AT BORDER) IDENTITY =====-->
+  <xs:complexType name="IDEMEATRAGI970Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(MEANS OF TRANSPORT AT BORDER) IDENTITY" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="NatIDEMEATRAGI973" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Nationality" />
+            <doc:condition name="C020" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IdeMeaTraGIMEATRA971" type="simple:Alphanumeric_Max27">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Identity of means of transport crossing border" />
+            <doc:condition name="C514" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IdeMeaTraGIMEATRA972LNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Identity of means of transport crossing border LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (REPRESENTATIVE) TRADER =====-->
+  <xs:complexType name="TRAREPType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(REPRESENTATIVE) TRADER" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="NamTRE1" type="simple:TradNameType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Name" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="StrAndNumTRE1" type="simple:StreetNumType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Street and number" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PosCodTRE1" type="simple:PostalCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Postal code" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CitTRE1" type="simple:CityType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="City" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CouCodTRE1" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Country code" />
+            <doc:condition name="C501" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TRAREPLNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="NAD LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TINTRE1" type="simple:TINType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="TIN" />
+            <doc:rule name="R837" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (LODGING SUMMARY DECLARATION) PERSON =====-->
+  <xs:complexType name="PERLODSUMDECType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(LODGING SUMMARY DECLARATION) PERSON" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="NamPLD1" type="simple:TradNameType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Name" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="StrAndNumPLD1" type="simple:StreetNumType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Street and number" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PosCodPLD1" type="simple:PostalCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Postal code" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CitPLD1" type="simple:CityType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="City" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CouCodPLD1" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Country code" />
+            <doc:condition name="C501" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PERLODSUMDECLNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="NAD LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TINPLD1" type="simple:TINType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="TIN" />
+            <doc:rule name="R837" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (FIRST ENTRY) CUSTOMS OFFICE =====-->
+  <xs:complexType name="CUSOFFFENT730Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(FIRST ENTRY) CUSTOMS OFFICE" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="RefNumCUSOFFFENT731" type="simple:CORefNumType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Reference number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ExpDatOfArrFIRENT733" type="simple:DateTimeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Expected date and time of arrival" />
+            <doc:rule name="R134" />
+            <doc:rule name="R660" />
+            <doc:rule name="R666" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (ENTRY CARRIER) TRADER =====-->
+  <xs:complexType name="TRACARENT601Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(ENTRY CARRIER) TRADER" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="NamTRACARENT604" type="simple:TradNameType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Name" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="StrNumTRACARENT607" type="simple:StreetNumType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Street and number" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PstCodTRACARENT606" type="simple:PostalCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Postal code" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CtyTRACARENT603" type="simple:CityType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="City" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CouCodTRACARENT605" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Country code" />
+            <doc:condition name="C501" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TRACARENT601LNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="NAD LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TINTRACARENT602" type="simple:TINType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="TIN" />
+            <doc:rule name="R837" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+</xs:schema>
+

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/CC305A-v10-0.xsd

@@ -0,0 +1,391 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:ie="http://ics.dgtaxud.ec/CC305A" xmlns:complex_ics="http://ics.dgtaxud.ec/complex_ics" xmlns:simple_ics="http://ics.dgtaxud.ec/simple_ics" xmlns:tcl_ics="http://ics.dgtaxud.ec/tcl_ics" xmlns:simple="http://ics.dgtaxud.ec/simple" xmlns:tcl="http://ics.dgtaxud.ec/tcl" xmlns:doc="http://ics.dgtaxud.ec/doc" targetNamespace="http://ics.dgtaxud.ec/CC305A" attributeFormDefault="unqualified" elementFormDefault="unqualified" version="36.00">
+  <!--=========================================-->
+  <!--===== IE305:E_ENS_ARJ  -->
+  <!--===== ENTRY SUMMARY DECLARATION AMENDMENT REJECTION  -->
+  <!--===== ICS P1 Phase Definition  -->
+  <!--===== DDNIA 11.00  -->
+  <!--===== XSD version v36.00  -->
+  <!--=========================================-->
+  <!--===== Imports =====-->
+  <xs:import namespace="http://ics.dgtaxud.ec/doc" schemaLocation="doc-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/complex_ics" schemaLocation="complex_types_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/simple_ics" schemaLocation="simple_types_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/tcl_ics" schemaLocation="tcl_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/simple" schemaLocation="simple_types-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/tcl" schemaLocation="tcl-v10-0.xsd" />
+  <!--===== Root Element =====-->
+  <xs:element name="CC305A" type="ie:CC305AType" />
+  <!--===== Root Element Content =====-->
+  <xs:complexType name="CC305AType">
+    <xs:sequence>
+      <xs:group ref="ie:MESSAGE" />
+      <xs:element name="HEAHEA" type="ie:HEAHEAType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="HEADER" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="FUNERRER1" type="ie:FUNERRER1Type" minOccurs="0" maxOccurs="unbounded">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="FUNCTIONAL ERROR" />
+            <doc:rule name="R123" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TRAREP" type="ie:TRAREPType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(REPRESENTATIVE) TRADER" />
+            <doc:condition name="C552" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PERLODSUMDEC" type="ie:PERLODSUMDECType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(LODGING SUMMARY DECLARATION) PERSON" />
+            <doc:condition name="C552" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CUSOFFFENT730" type="ie:CUSOFFFENT730Type">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(FIRST ENTRY) CUSTOMS OFFICE" />
+            <doc:rule name="R814" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== MESSAGE Content =====-->
+  <xs:group name="MESSAGE">
+    <xs:sequence>
+      <xs:element name="MesSenMES3" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message sender" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesRecMES6" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message recipient" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DatOfPreMES9" type="simple:DatePrepType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Date of preparation" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TimOfPreMES10" type="simple:TimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Time of preparation" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PriMES15" type="simple:Alpha_1" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Priority" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TesIndMES18" type="tcl:Flag" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Test indicator" />
+            <doc:rule name="TR9085" />
+            <doc:codeList name="Flag" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesIdeMES19" type="simple:Alphanumeric_Max14">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message identification" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesTypMES20" type="tcl:MessageTypes">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message type" />
+            <doc:codeList name="MessageTypes" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CorIdeMES25" type="simple:Alphanumeric_Max14" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Correlation identifier" />
+            <doc:rule name="TR9181" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:group>
+  <!--===== HEADER =====-->
+  <xs:complexType name="HEAHEAType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="HEADER" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="DocNumHEA5" type="simple:MRNType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Document/reference number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="AmeRejMotCodHEA604" type="simple:Numeric_1" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Amendment rejection motivation code" />
+            <doc:codeList name="AmendmentRejectionMotivationCode" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="AmeRejMotTexHEA605" type="simple:Alphanumeric_Max350" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Amendment rejection motivation text" />
+            <doc:condition name="C310" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="AmeRejMotTexHEA605LNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Amendment rejection motivation text LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DatTimAmeHEA113" type="simple:DateTimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Date and Time of amendment" />
+            <doc:rule name="R660" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="AmeRejDatTimHEA112" type="simple:DateTimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Amendment rejection date and time" />
+            <doc:rule name="R660" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== FUNCTIONAL ERROR =====-->
+  <xs:complexType name="FUNERRER1Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="FUNCTIONAL ERROR" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="ErrTypER11" type="tcl:FunctionalErrorCodes">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Error type" />
+            <doc:rule name="R098" />
+            <doc:codeList name="FunctionalErrorCodes" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ErrPoiER12" type="simple:Alphanumeric_Max210">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Error pointer" />
+            <doc:rule name="R098" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ErrReaER13" type="simple:Alphanumeric_Max6" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Error reason" />
+            <doc:rule name="R098" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="OriAttValER14" type="simple:Alphanumeric_Max140" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Original attribute value" />
+            <doc:rule name="R098" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (REPRESENTATIVE) TRADER =====-->
+  <xs:complexType name="TRAREPType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(REPRESENTATIVE) TRADER" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="NamTRE1" type="simple:TradNameType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Name" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="StrAndNumTRE1" type="simple:StreetNumType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Street and number" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PosCodTRE1" type="simple:PostalCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Postal code" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CitTRE1" type="simple:CityType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="City" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CouCodTRE1" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Country code" />
+            <doc:condition name="C501" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TRAREPLNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="NAD LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TINTRE1" type="simple:TINType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="TIN" />
+            <doc:rule name="R837" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (LODGING SUMMARY DECLARATION) PERSON =====-->
+  <xs:complexType name="PERLODSUMDECType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(LODGING SUMMARY DECLARATION) PERSON" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="NamPLD1" type="simple:TradNameType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Name" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="StrAndNumPLD1" type="simple:StreetNumType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Street and number" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PosCodPLD1" type="simple:PostalCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Postal code" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CitPLD1" type="simple:CityType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="City" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CouCodPLD1" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Country code" />
+            <doc:condition name="C501" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PERLODSUMDECLNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="NAD LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TINPLD1" type="simple:TINType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="TIN" />
+            <doc:rule name="R837" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (FIRST ENTRY) CUSTOMS OFFICE =====-->
+  <xs:complexType name="CUSOFFFENT730Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(FIRST ENTRY) CUSTOMS OFFICE" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="RefNumCUSOFFFENT731" type="simple:CORefNumType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Reference number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+</xs:schema>
+

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/CC316A-v10-0.Designer.vb

@@ -0,0 +1,884 @@
+'' ------------------------------------------------------------------------------
+''  <auto-generated>
+''    Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
+''    {"TargetFramework":"Net48","NameSpace":"CC316A_v10_0","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
+''  </auto-generated>
+'' ------------------------------------------------------------------------------
+#Disable Warning
+Imports System
+Imports System.Diagnostics
+Imports System.Xml.Serialization
+Imports System.Runtime.Serialization
+Imports System.Collections
+Imports System.Xml.Schema
+Imports System.ComponentModel
+Imports System.Xml
+Imports System.IO
+Imports System.Text
+Imports System.Collections.Generic
+
+Namespace CC316A_v10_0
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code"),
+     XmlType([Namespace]:="http://ics.dgtaxud.ec/CC316A"),
+     XmlRoot("CC316A", [Namespace]:="http://ics.dgtaxud.ec/CC316A", IsNullable:=False)>
+    Partial Public Class CC316AType
+
+#Region "Private fields"
+        Private _mesSenMES3 As String
+
+        Private _mesRecMES6 As String
+
+        Private _datOfPreMES9 As String
+
+        Private _timOfPreMES10 As String
+
+        Private _priMES15 As String
+
+        Private _tesIndMES18 As Flag
+
+        Private _mesIdeMES19 As String
+
+        Private _mesTypMES20 As MessageTypes
+
+        Private _corIdeMES25 As String
+
+        Private _hEAHEA As HEAHEAType
+
+        Private _fUNERRER1 As List(Of FUNERRER1Type)
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        Public Sub New()
+            MyBase.New
+            Me._fUNERRER1 = New List(Of FUNERRER1Type)()
+            Me._hEAHEA = New HEAHEAType()
+        End Sub
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property MesSenMES3() As String
+            Get
+                Return Me._mesSenMES3
+            End Get
+            Set
+                Me._mesSenMES3 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property MesRecMES6() As String
+            Get
+                Return Me._mesRecMES6
+            End Get
+            Set
+                Me._mesRecMES6 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property DatOfPreMES9() As String
+            Get
+                Return Me._datOfPreMES9
+            End Get
+            Set
+                Me._datOfPreMES9 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property TimOfPreMES10() As String
+            Get
+                Return Me._timOfPreMES10
+            End Get
+            Set
+                Me._timOfPreMES10 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property PriMES15() As String
+            Get
+                Return Me._priMES15
+            End Get
+            Set
+                Me._priMES15 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property TesIndMES18() As Flag
+            Get
+                Return Me._tesIndMES18
+            End Get
+            Set
+                Me._tesIndMES18 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property MesIdeMES19() As String
+            Get
+                Return Me._mesIdeMES19
+            End Get
+            Set
+                Me._mesIdeMES19 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property MesTypMES20() As MessageTypes
+            Get
+                Return Me._mesTypMES20
+            End Get
+            Set
+                Me._mesTypMES20 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property CorIdeMES25() As String
+            Get
+                Return Me._corIdeMES25
+            End Get
+            Set
+                Me._corIdeMES25 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property HEAHEA() As HEAHEAType
+            Get
+                Return Me._hEAHEA
+            End Get
+            Set
+                Me._hEAHEA = Value
+            End Set
+        End Property
+
+        <XmlElement("FUNERRER1", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property FUNERRER1() As List(Of FUNERRER1Type)
+            Get
+                Return Me._fUNERRER1
+            End Get
+            Set
+                Me._fUNERRER1 = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CC316AType))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize CC316AType object
+        ''' </summary>
+        ''' <returns>XML value</returns>
+        Public Overridable Function Serialize() As String
+            Dim streamReader As StreamReader = Nothing
+            Dim memoryStream As MemoryStream = Nothing
+            Try
+                memoryStream = New MemoryStream()
+                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
+                xmlWriterSettings.Indent = True
+                xmlWriterSettings.IndentChars = "  "
+                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
+                SerializerXml.Serialize(xmlWriter, Me)
+                memoryStream.Seek(0, SeekOrigin.Begin)
+                streamReader = New StreamReader(memoryStream)
+                Return streamReader.ReadToEnd
+            Finally
+                If (Not (streamReader) Is Nothing) Then
+                    streamReader.Dispose()
+                End If
+                If (Not (memoryStream) Is Nothing) Then
+                    memoryStream.Dispose()
+                End If
+            End Try
+        End Function
+
+        ''' <summary>
+        ''' Deserializes CC316AType object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output CC316AType object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CC316AType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, CC316AType)
+            Try
+                obj = Deserialize(input)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CC316AType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As CC316AType
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CC316AType)
+            Finally
+                If (Not (stringReader) Is Nothing) Then
+                    stringReader.Dispose()
+                End If
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal s As Stream) As CC316AType
+            Return CType(SerializerXml.Deserialize(s), CC316AType)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current CC316AType object into file
+        ''' </summary>
+        ''' <param name="fileName">full path of outupt xml file</param>
+        ''' <param name="exception">output Exception value if failed</param>
+        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
+        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            Try
+                SaveToFile(fileName)
+                Return True
+            Catch e As System.Exception
+                exception = e
+                Return False
+            End Try
+        End Function
+
+        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
+            Dim streamWriter As StreamWriter = Nothing
+            Try
+                Dim dataString As String = Serialize()
+                Dim outputFile As FileInfo = New FileInfo(fileName)
+                streamWriter = outputFile.CreateText
+                streamWriter.WriteLine(dataString)
+                streamWriter.Close()
+            Finally
+                If (Not (streamWriter) Is Nothing) Then
+                    streamWriter.Dispose()
+                End If
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Deserializes xml markup from file into an CC316AType object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output CC316AType object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CC316AType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, CC316AType)
+            Try
+                obj = LoadFromFile(fileName)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CC316AType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CC316AType
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
+                sr = New StreamReader(file)
+                Dim dataString As String = sr.ReadToEnd
+                sr.Close()
+                file.Close()
+                Return Deserialize(dataString)
+            Finally
+                If (Not (file) Is Nothing) Then
+                    file.Dispose()
+                End If
+                If (Not (sr) Is Nothing) Then
+                    sr.Dispose()
+                End If
+            End Try
+        End Function
+    End Class
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     XmlType([Namespace]:="http://ics.dgtaxud.ec/tcl")>
+    Public Enum Flag
+
+        <XmlEnum("0")>
+        Item0
+
+        <XmlEnum("1")>
+        Item1
+    End Enum
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     XmlType([Namespace]:="http://ics.dgtaxud.ec/tcl")>
+    Public Enum MessageTypes
+
+        CC304A
+
+        CC305A
+
+        CC313A
+
+        CC315A
+
+        CC316A
+
+        CC323A
+
+        CC324A
+
+        CC325A
+
+        CC328A
+
+        CC351A
+
+        CD030C
+
+        CD031C
+
+        CD032C
+
+        CD070B
+
+        CD071B
+
+        CD301A
+
+        CD302A
+
+        CD303A
+
+        CD319A
+
+        CD411C
+
+        CD412C
+
+        CD906B
+
+        CD912B
+
+        CD913B
+
+        CD914B
+
+        CD916B
+
+        CD917B
+
+        CD931C
+
+        CD932C
+
+        CD971B
+    End Enum
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code"),
+     XmlType([Namespace]:="http://ics.dgtaxud.ec/CC316A")>
+    Partial Public Class HEAHEAType
+
+#Region "Private fields"
+        Private _refNumHEA4 As String
+
+        Private _decRejReaHEA252 As String
+
+        Private _decRejReaHEA252LNG As String
+
+        Private _decRejDatTimHEA116 As String
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property RefNumHEA4() As String
+            Get
+                Return Me._refNumHEA4
+            End Get
+            Set
+                Me._refNumHEA4 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property DecRejReaHEA252() As String
+            Get
+                Return Me._decRejReaHEA252
+            End Get
+            Set
+                Me._decRejReaHEA252 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property DecRejReaHEA252LNG() As String
+            Get
+                Return Me._decRejReaHEA252LNG
+            End Get
+            Set
+                Me._decRejReaHEA252LNG = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property DecRejDatTimHEA116() As String
+            Get
+                Return Me._decRejDatTimHEA116
+            End Get
+            Set
+                Me._decRejDatTimHEA116 = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEAType))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize HEAHEAType object
+        ''' </summary>
+        ''' <returns>XML value</returns>
+        Public Overridable Function Serialize() As String
+            Dim streamReader As StreamReader = Nothing
+            Dim memoryStream As MemoryStream = Nothing
+            Try
+                memoryStream = New MemoryStream()
+                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
+                xmlWriterSettings.Indent = True
+                xmlWriterSettings.IndentChars = "  "
+                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
+                SerializerXml.Serialize(xmlWriter, Me)
+                memoryStream.Seek(0, SeekOrigin.Begin)
+                streamReader = New StreamReader(memoryStream)
+                Return streamReader.ReadToEnd
+            Finally
+                If (Not (streamReader) Is Nothing) Then
+                    streamReader.Dispose()
+                End If
+                If (Not (memoryStream) Is Nothing) Then
+                    memoryStream.Dispose()
+                End If
+            End Try
+        End Function
+
+        ''' <summary>
+        ''' Deserializes HEAHEAType object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output HEAHEAType object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEAType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, HEAHEAType)
+            Try
+                obj = Deserialize(input)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEAType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As HEAHEAType
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), HEAHEAType)
+            Finally
+                If (Not (stringReader) Is Nothing) Then
+                    stringReader.Dispose()
+                End If
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal s As Stream) As HEAHEAType
+            Return CType(SerializerXml.Deserialize(s), HEAHEAType)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current HEAHEAType object into file
+        ''' </summary>
+        ''' <param name="fileName">full path of outupt xml file</param>
+        ''' <param name="exception">output Exception value if failed</param>
+        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
+        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            Try
+                SaveToFile(fileName)
+                Return True
+            Catch e As System.Exception
+                exception = e
+                Return False
+            End Try
+        End Function
+
+        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
+            Dim streamWriter As StreamWriter = Nothing
+            Try
+                Dim dataString As String = Serialize()
+                Dim outputFile As FileInfo = New FileInfo(fileName)
+                streamWriter = outputFile.CreateText
+                streamWriter.WriteLine(dataString)
+                streamWriter.Close()
+            Finally
+                If (Not (streamWriter) Is Nothing) Then
+                    streamWriter.Dispose()
+                End If
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Deserializes xml markup from file into an HEAHEAType object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output HEAHEAType object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEAType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, HEAHEAType)
+            Try
+                obj = LoadFromFile(fileName)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEAType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HEAHEAType
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
+                sr = New StreamReader(file)
+                Dim dataString As String = sr.ReadToEnd
+                sr.Close()
+                file.Close()
+                Return Deserialize(dataString)
+            Finally
+                If (Not (file) Is Nothing) Then
+                    file.Dispose()
+                End If
+                If (Not (sr) Is Nothing) Then
+                    sr.Dispose()
+                End If
+            End Try
+        End Function
+    End Class
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code"),
+     XmlType([Namespace]:="http://ics.dgtaxud.ec/CC316A")>
+    Partial Public Class FUNERRER1Type
+
+#Region "Private fields"
+        Private _errTypER11 As FunctionalErrorCodes
+
+        Private _errPoiER12 As String
+
+        Private _errReaER13 As String
+
+        Private _oriAttValER14 As String
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property ErrTypER11() As FunctionalErrorCodes
+            Get
+                Return Me._errTypER11
+            End Get
+            Set
+                Me._errTypER11 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property ErrPoiER12() As String
+            Get
+                Return Me._errPoiER12
+            End Get
+            Set
+                Me._errPoiER12 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property ErrReaER13() As String
+            Get
+                Return Me._errReaER13
+            End Get
+            Set
+                Me._errReaER13 = Value
+            End Set
+        End Property
+
+        <XmlElement(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, DataType:="token")>
+        Public Property OriAttValER14() As String
+            Get
+                Return Me._oriAttValER14
+            End Get
+            Set
+                Me._oriAttValER14 = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(FUNERRER1Type))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize FUNERRER1Type object
+        ''' </summary>
+        ''' <returns>XML value</returns>
+        Public Overridable Function Serialize() As String
+            Dim streamReader As StreamReader = Nothing
+            Dim memoryStream As MemoryStream = Nothing
+            Try
+                memoryStream = New MemoryStream()
+                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
+                xmlWriterSettings.Indent = True
+                xmlWriterSettings.IndentChars = "  "
+                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
+                SerializerXml.Serialize(xmlWriter, Me)
+                memoryStream.Seek(0, SeekOrigin.Begin)
+                streamReader = New StreamReader(memoryStream)
+                Return streamReader.ReadToEnd
+            Finally
+                If (Not (streamReader) Is Nothing) Then
+                    streamReader.Dispose()
+                End If
+                If (Not (memoryStream) Is Nothing) Then
+                    memoryStream.Dispose()
+                End If
+            End Try
+        End Function
+
+        ''' <summary>
+        ''' Deserializes FUNERRER1Type object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output FUNERRER1Type object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FUNERRER1Type, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, FUNERRER1Type)
+            Try
+                obj = Deserialize(input)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As FUNERRER1Type) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As FUNERRER1Type
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), FUNERRER1Type)
+            Finally
+                If (Not (stringReader) Is Nothing) Then
+                    stringReader.Dispose()
+                End If
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal s As Stream) As FUNERRER1Type
+            Return CType(SerializerXml.Deserialize(s), FUNERRER1Type)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current FUNERRER1Type object into file
+        ''' </summary>
+        ''' <param name="fileName">full path of outupt xml file</param>
+        ''' <param name="exception">output Exception value if failed</param>
+        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
+        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            Try
+                SaveToFile(fileName)
+                Return True
+            Catch e As System.Exception
+                exception = e
+                Return False
+            End Try
+        End Function
+
+        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
+            Dim streamWriter As StreamWriter = Nothing
+            Try
+                Dim dataString As String = Serialize()
+                Dim outputFile As FileInfo = New FileInfo(fileName)
+                streamWriter = outputFile.CreateText
+                streamWriter.WriteLine(dataString)
+                streamWriter.Close()
+            Finally
+                If (Not (streamWriter) Is Nothing) Then
+                    streamWriter.Dispose()
+                End If
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Deserializes xml markup from file into an FUNERRER1Type object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output FUNERRER1Type object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FUNERRER1Type, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, FUNERRER1Type)
+            Try
+                obj = LoadFromFile(fileName)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As FUNERRER1Type) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As FUNERRER1Type
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
+                sr = New StreamReader(file)
+                Dim dataString As String = sr.ReadToEnd
+                sr.Close()
+                file.Close()
+                Return Deserialize(dataString)
+            Finally
+                If (Not (file) Is Nothing) Then
+                    file.Dispose()
+                End If
+                If (Not (sr) Is Nothing) Then
+                    sr.Dispose()
+                End If
+            End Try
+        End Function
+    End Class
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     XmlType([Namespace]:="http://ics.dgtaxud.ec/tcl")>
+    Public Enum FunctionalErrorCodes
+
+        <XmlEnum("12")>
+        Item12
+
+        <XmlEnum("13")>
+        Item13
+
+        <XmlEnum("14")>
+        Item14
+
+        <XmlEnum("15")>
+        Item15
+
+        <XmlEnum("19")>
+        Item19
+
+        <XmlEnum("26")>
+        Item26
+
+        <XmlEnum("35")>
+        Item35
+
+        <XmlEnum("37")>
+        Item37
+
+        <XmlEnum("38")>
+        Item38
+
+        <XmlEnum("39")>
+        Item39
+
+        <XmlEnum("40")>
+        Item40
+
+        <XmlEnum("90")>
+        Item90
+
+        <XmlEnum("91")>
+        Item91
+
+        <XmlEnum("92")>
+        Item92
+
+        <XmlEnum("93")>
+        Item93
+    End Enum
+End Namespace
+#Enable Warning

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/CC316A-v10-0.xsd

@@ -0,0 +1,198 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:ie="http://ics.dgtaxud.ec/CC316A" xmlns:complex_ics="http://ics.dgtaxud.ec/complex_ics" xmlns:simple_ics="http://ics.dgtaxud.ec/simple_ics" xmlns:tcl_ics="http://ics.dgtaxud.ec/tcl_ics" xmlns:simple="http://ics.dgtaxud.ec/simple" xmlns:tcl="http://ics.dgtaxud.ec/tcl" xmlns:doc="http://ics.dgtaxud.ec/doc" targetNamespace="http://ics.dgtaxud.ec/CC316A" attributeFormDefault="unqualified" elementFormDefault="unqualified" version="36.00">
+  <!--=========================================-->
+  <!--===== IE316:E_ENS_REJ  -->
+  <!--===== ENTRY SUMMARY DECLARATION REJECTED  -->
+  <!--===== ICS P1 Phase Definition  -->
+  <!--===== DDNIA 11.00  -->
+  <!--===== XSD version v36.00  -->
+  <!--=========================================-->
+  <!--===== Imports =====-->
+  <xs:import namespace="http://ics.dgtaxud.ec/doc" schemaLocation="doc-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/complex_ics" schemaLocation="complex_types_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/simple_ics" schemaLocation="simple_types_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/tcl_ics" schemaLocation="tcl_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/simple" schemaLocation="simple_types-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/tcl" schemaLocation="tcl-v10-0.xsd" />
+  <!--===== Root Element =====-->
+  <xs:element name="CC316A" type="ie:CC316AType" />
+  <!--===== Root Element Content =====-->
+  <xs:complexType name="CC316AType">
+    <xs:sequence>
+      <xs:group ref="ie:MESSAGE" />
+      <xs:element name="HEAHEA" type="ie:HEAHEAType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="HEADER" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="FUNERRER1" type="ie:FUNERRER1Type" minOccurs="0" maxOccurs="unbounded">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="FUNCTIONAL ERROR" />
+            <doc:rule name="R123" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== MESSAGE Content =====-->
+  <xs:group name="MESSAGE">
+    <xs:sequence>
+      <xs:element name="MesSenMES3" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message sender" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesRecMES6" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message recipient" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DatOfPreMES9" type="simple:DatePrepType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Date of preparation" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TimOfPreMES10" type="simple:TimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Time of preparation" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PriMES15" type="simple:Alpha_1" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Priority" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TesIndMES18" type="tcl:Flag" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Test indicator" />
+            <doc:rule name="TR9085" />
+            <doc:codeList name="Flag" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesIdeMES19" type="simple:Alphanumeric_Max14">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message identification" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesTypMES20" type="tcl:MessageTypes">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message type" />
+            <doc:codeList name="MessageTypes" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CorIdeMES25" type="simple:Alphanumeric_Max14" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Correlation identifier" />
+            <doc:rule name="TR9181" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:group>
+  <!--===== HEADER =====-->
+  <xs:complexType name="HEAHEAType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="HEADER" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="RefNumHEA4" type="simple:Alphanumeric_Max22">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Reference number" />
+            <doc:rule name="R891" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DecRejReaHEA252" type="simple:Alphanumeric_Max350" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Declaration rejection reason" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DecRejReaHEA252LNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Declaration rejection reason LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DecRejDatTimHEA116" type="simple:DateTimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Declaration rejection date and time" />
+            <doc:rule name="R660" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== FUNCTIONAL ERROR =====-->
+  <xs:complexType name="FUNERRER1Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="FUNCTIONAL ERROR" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="ErrTypER11" type="tcl:FunctionalErrorCodes">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Error type" />
+            <doc:rule name="R098" />
+            <doc:codeList name="FunctionalErrorCodes" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ErrPoiER12" type="simple:Alphanumeric_Max210">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Error pointer" />
+            <doc:rule name="R098" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ErrReaER13" type="simple:Alphanumeric_Max6" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Error reason" />
+            <doc:rule name="R098" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="OriAttValER14" type="simple:Alphanumeric_Max140" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Original attribute value" />
+            <doc:rule name="R098" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+</xs:schema>
+

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/CC328A-v10-0.xsd

@@ -0,0 +1,550 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:ie="http://ics.dgtaxud.ec/CC328A" xmlns:complex_ics="http://ics.dgtaxud.ec/complex_ics" xmlns:simple_ics="http://ics.dgtaxud.ec/simple_ics" xmlns:tcl_ics="http://ics.dgtaxud.ec/tcl_ics" xmlns:simple="http://ics.dgtaxud.ec/simple" xmlns:tcl="http://ics.dgtaxud.ec/tcl" xmlns:doc="http://ics.dgtaxud.ec/doc" targetNamespace="http://ics.dgtaxud.ec/CC328A" attributeFormDefault="unqualified" elementFormDefault="unqualified" version="36.00">
+  <!--=========================================-->
+  <!--===== IE328:E_ENS_ACK  -->
+  <!--===== ENTRY SUMMARY DECLARATION ACKNOWLEDGEMENT  -->
+  <!--===== ICS P1 Phase Definition  -->
+  <!--===== DDNIA 11.00  -->
+  <!--===== XSD version v36.00  -->
+  <!--=========================================-->
+  <!--===== Imports =====-->
+  <xs:import namespace="http://ics.dgtaxud.ec/doc" schemaLocation="doc-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/complex_ics" schemaLocation="complex_types_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/simple_ics" schemaLocation="simple_types_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/tcl_ics" schemaLocation="tcl_ics-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/simple" schemaLocation="simple_types-v10-0.xsd" />
+  <xs:import namespace="http://ics.dgtaxud.ec/tcl" schemaLocation="tcl-v10-0.xsd" />
+  <!--===== Root Element =====-->
+  <xs:element name="CC328A" type="ie:CC328AType" />
+  <!--===== Root Element Content =====-->
+  <xs:complexType name="CC328AType">
+    <xs:sequence>
+      <xs:group ref="ie:MESSAGE" />
+      <xs:element name="HEAHEA" type="ie:HEAHEAType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="HEADER" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="GOOITEGDS" type="ie:GOOITEGDSType" minOccurs="0" maxOccurs="unbounded">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="GOODS ITEM" />
+            <doc:rule name="R134" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CUSOFFLON" type="ie:CUSOFFLONType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(LODGEMENT) CUSTOMS OFFICE" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PERLODSUMDEC" type="ie:PERLODSUMDECType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(LODGING SUMMARY DECLARATION) PERSON" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CUSOFFFENT730" type="ie:CUSOFFFENT730Type">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(FIRST ENTRY) CUSTOMS OFFICE" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TRACARENT601" type="ie:TRACARENT601Type" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(ENTRY CARRIER) TRADER" />
+            <doc:rule name="R134" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== MESSAGE Content =====-->
+  <xs:group name="MESSAGE">
+    <xs:sequence>
+      <xs:element name="MesSenMES3" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message sender" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesRecMES6" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message recipient" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DatOfPreMES9" type="simple:DatePrepType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Date of preparation" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TimOfPreMES10" type="simple:TimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Time of preparation" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PriMES15" type="simple:Alpha_1" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Priority" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TesIndMES18" type="tcl:Flag" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Test indicator" />
+            <doc:rule name="TR9085" />
+            <doc:codeList name="Flag" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesIdeMES19" type="simple:Alphanumeric_Max14">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message identification" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="MesTypMES20" type="tcl:MessageTypes">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Message type" />
+            <doc:codeList name="MessageTypes" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CorIdeMES25" type="simple:Alphanumeric_Max14" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Correlation identifier" />
+            <doc:rule name="TR9181" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:group>
+  <!--===== HEADER =====-->
+  <xs:complexType name="HEAHEAType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="HEADER" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="RefNumHEA4" type="simple:Alphanumeric_Max22">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Reference number" />
+            <doc:rule name="R891" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DocNumHEA5" type="simple:MRNType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Document/reference number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TraModAtBorHEA76" type="simple:Numeric_Max2" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Transport mode at border" />
+            <doc:rule name="R134" />
+            <doc:rule name="R826" />
+            <doc:codeList name="TransportMode" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="NatHEA001" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Nationality" />
+            <doc:rule name="R134" />
+            <doc:condition name="C024" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IdeOfMeaOfTraCroHEA85" type="simple:Alphanumeric_Max27" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Identity of means of transport crossing border" />
+            <doc:rule name="R134" />
+            <doc:condition name="C017" />
+            <doc:condition name="C514" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IdeOfMeaOfTraCroHEA85LNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Identity of means of transport crossing border LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ComRefNumHEA" type="simple:Alphanumeric_Max70" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Commercial Reference Number" />
+            <doc:rule name="R134" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ConRefNumHEA" type="simple:Alphanumeric_Max35" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Conveyance reference number" />
+            <doc:rule name="R134" />
+            <doc:rule name="R843" />
+            <doc:condition name="C518" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DecRegDatTimHEA115" type="simple:DateTimeType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Declaration registration date and time" />
+            <doc:rule name="R660" />
+            <doc:rule name="R661" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== GOODS ITEM =====-->
+  <xs:complexType name="GOOITEGDSType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="GOODS ITEM" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="IteNumGDS7" type="simple:Numeric_Max5">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Item number" />
+            <doc:rule name="R005" />
+            <doc:rule name="R007" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ComRefNumGIM1" type="simple:Alphanumeric_Max70" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Commercial Reference Number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PRODOCDC2" type="ie:PRODOCDC2Type" minOccurs="0" maxOccurs="99">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="PRODUCED DOCUMENTS/CERTIFICATES" />
+            <doc:rule name="R147" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CONNR2" type="ie:CONNR2Type" minOccurs="0" maxOccurs="99">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="CONTAINERS" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IDEMEATRAGI970" type="ie:IDEMEATRAGI970Type" minOccurs="0" maxOccurs="unbounded">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="(MEANS OF TRANSPORT AT BORDER) IDENTITY" />
+            <doc:condition name="C019" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== PRODUCED DOCUMENTS/CERTIFICATES =====-->
+  <xs:complexType name="PRODOCDC2Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="PRODUCED DOCUMENTS/CERTIFICATES" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="DocTypDC21" type="simple:Alphanumeric_Max4">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Document type" />
+            <doc:rule name="R136" />
+            <doc:codeList name="DocumentTypeCommon" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DocRefDC23" type="simple:Alphanumeric_Max35">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Document reference" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="DocRefDCLNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Document reference LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== CONTAINERS =====-->
+  <xs:complexType name="CONNR2Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="CONTAINERS" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="ConNumNR21" type="simple:Alphanumeric_Max17">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Container number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (MEANS OF TRANSPORT AT BORDER) IDENTITY =====-->
+  <xs:complexType name="IDEMEATRAGI970Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(MEANS OF TRANSPORT AT BORDER) IDENTITY" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="NatIDEMEATRAGI973" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Nationality" />
+            <doc:condition name="C020" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IdeMeaTraGIMEATRA971" type="simple:Alphanumeric_Max27">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Identity of means of transport crossing border" />
+            <doc:condition name="C514" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="IdeMeaTraGIMEATRA972LNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Identity of means of transport crossing border LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (LODGEMENT) CUSTOMS OFFICE =====-->
+  <xs:complexType name="CUSOFFLONType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(LODGEMENT) CUSTOMS OFFICE" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="RefNumCOL1" type="simple:CORefNumType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Reference number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (LODGING SUMMARY DECLARATION) PERSON =====-->
+  <xs:complexType name="PERLODSUMDECType">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(LODGING SUMMARY DECLARATION) PERSON" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="NamPLD1" type="simple:TradNameType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Name" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="StrAndNumPLD1" type="simple:StreetNumType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Street and number" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PosCodPLD1" type="simple:PostalCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Postal code" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CitPLD1" type="simple:CityType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="City" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CouCodPLD1" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Country code" />
+            <doc:condition name="C501" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PERLODSUMDECLNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="NAD LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TINPLD1" type="simple:TINType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="TIN" />
+            <doc:rule name="R837" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (FIRST ENTRY) CUSTOMS OFFICE =====-->
+  <xs:complexType name="CUSOFFFENT730Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(FIRST ENTRY) CUSTOMS OFFICE" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="RefNumCUSOFFFENT731" type="simple:CORefNumType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Reference number" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="ExpDatOfArrFIRENT733" type="simple:DateTimeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Expected date and time of arrival" />
+            <doc:rule name="R134" />
+            <doc:rule name="R660" />
+            <doc:rule name="R666" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+  <!--===== (ENTRY CARRIER) TRADER =====-->
+  <xs:complexType name="TRACARENT601Type">
+    <xs:annotation>
+      <xs:documentation>
+        <doc:description value="(ENTRY CARRIER) TRADER" />
+      </xs:documentation>
+    </xs:annotation>
+    <xs:sequence>
+      <xs:element name="NamTRACARENT604" type="simple:TradNameType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Name" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="StrNumTRACARENT607" type="simple:StreetNumType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Street and number" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="PstCodTRACARENT606" type="simple:PostalCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Postal code" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CtyTRACARENT603" type="simple:CityType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="City" />
+            <doc:condition name="C501" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="CouCodTRACARENT605" type="simple:CountryCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="Country code" />
+            <doc:condition name="C501" />
+            <doc:codeList name="CountryCodesFullList" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TRACARENT601LNG" type="simple:LanguageCodeType" minOccurs="0">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="NAD LNG" />
+            <doc:rule name="TR0099" />
+            <doc:codeList name="LanguageCodes" type="business" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+      <xs:element name="TINTRACARENT602" type="simple:TINType">
+        <xs:annotation>
+          <xs:documentation>
+            <doc:description value="TIN" />
+            <doc:rule name="R837" />
+          </xs:documentation>
+        </xs:annotation>
+      </xs:element>
+    </xs:sequence>
+  </xs:complexType>
+</xs:schema>
+

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/doc-v10-0.xsd

@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:doc="http://ics.dgtaxud.ec/doc" targetNamespace="http://ics.dgtaxud.ec/doc" version="10.0" id="doc" elementFormDefault="unqualified" attributeFormDefault="unqualified">
+  <xs:element name="description">
+    <xs:complexType>
+      <xs:attribute use="required" name="value" type="xs:token"/>
+    </xs:complexType>
+  </xs:element>
+  <xs:element name="rule">
+    <xs:complexType>
+      <xs:attribute use="required" name="name" type="xs:token"/>
+    </xs:complexType>
+  </xs:element>
+  <xs:element name="condition">
+    <xs:complexType>
+      <xs:attribute use="required" name="name" type="xs:token"/>
+    </xs:complexType>
+  </xs:element>
+  <xs:element name="codeList">
+    <xs:complexType>
+      <xs:attribute use="required" name="name" type="xs:token"/>
+      <xs:attribute default="technical" name="type" type="xs:token"/>
+    </xs:complexType>
+  </xs:element>
+</xs:schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/simple_types-v10-0.xsd

@@ -0,0 +1,662 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:simple="http://ics.dgtaxud.ec/simple" targetNamespace="http://ics.dgtaxud.ec/simple" version="10.0" id="simple_types" elementFormDefault="unqualified" attributeFormDefault="unqualified">
+  <xs:simpleType name="AlphaCapital1Type">
+    <xs:restriction base="simple:AlphaCapitalType">
+      <xs:length value="1"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphaCapital2Type">
+    <xs:restriction base="simple:AlphaCapitalType">
+      <xs:length value="2"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphaCapital3Type">
+    <xs:restriction base="simple:AlphaCapitalType">
+      <xs:length value="3"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphaCapital4Type">
+    <xs:restriction base="simple:AlphaCapitalType">
+      <xs:length value="4"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphaCapitalMax3Type">
+    <xs:restriction base="simple:AlphaCapitalType">
+      <xs:maxLength value="3"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphaCapitalType">
+    <xs:restriction base="simple:AlphaType">
+      <xs:pattern value="[A-Z]*"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphaNumType">
+    <xs:annotation>
+      <xs:documentation>Base class for all anN and an..N types</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token"/>
+  </xs:simpleType>
+  <xs:simpleType name="AlphaType">
+    <xs:annotation>
+      <xs:documentation>Base class for all aN and a..N
+				types</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token"/>
+  </xs:simpleType>
+  <xs:simpleType name="Alpha_1">
+    <xs:restriction base="simple:AlphaType">
+      <xs:length value="1"/>
+      <xs:pattern value="[a-zA-Z]"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alpha_2">
+    <xs:restriction base="simple:AlphaType">
+      <xs:length value="2"/>
+      <xs:pattern value="[a-zA-Z]{2}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alpha_3">
+    <xs:restriction base="simple:AlphaType">
+      <xs:length value="3"/>
+      <xs:pattern value="[a-zA-Z]{3}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alpha_4">
+    <xs:restriction base="simple:AlphaType">
+      <xs:length value="4"/>
+      <xs:pattern value="[a-zA-Z]{4}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alpha_Max8">
+    <xs:restriction base="simple:AlphaType">
+      <xs:maxLength value="8"/>
+      <xs:pattern value="[a-zA-Z]{1,8}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapital1Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:length value="1"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapital2Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:length value="2"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapital3Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:length value="3"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapital5Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:length value="5"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapitalMax2Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:maxLength value="2"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapitalMax3Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:maxLength value="3"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapitalMax4Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:maxLength value="4"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapitalMax5Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:maxLength value="5"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapitalMax6Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:maxLength value="6"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapitalMax9Type">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:maxLength value="9"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapitalType">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:pattern value="[A-Z0-9]*"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericCapitalTypeOfDeclaration">
+    <xs:restriction base="simple:AlphanumericCapitalMax9Type">
+      <xs:pattern value="[A-Z0-9]*"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="AlphanumericSpecMax35Type">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="35"/>
+      <xs:pattern value="[a-zA-Z]{2}.{1,33}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_1">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:length value="1"/>
+      <xs:pattern value=".{1}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_2">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:length value="2"/>
+      <xs:pattern value=".{2}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_3">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:length value="3"/>
+      <xs:pattern value=".{3}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_4">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:length value="4"/>
+      <xs:pattern value=".{4}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_5">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:length value="5"/>
+      <xs:pattern value=".{5}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_8">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:length value="8"/>
+      <xs:pattern value=".{8}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Capital_5">
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:length value="5"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max14">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="14"/>
+      <xs:pattern value=".{1,14}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max140">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="140"/>
+      <xs:pattern value=".{1,140}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max15">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="15"/>
+      <xs:pattern value=".{1,15}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max17">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="17"/>
+      <xs:pattern value=".{1,17}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max175">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="175"/>
+      <xs:pattern value=".{1,175}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max2">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="2"/>
+      <xs:pattern value=".{1,2}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max20">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="20"/>
+      <xs:pattern value=".{1,20}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max21">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="21"/>
+      <xs:pattern value=".{1,21}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max210">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="210"/>
+      <xs:pattern value=".{1,210}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max22">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="22"/>
+      <xs:pattern value=".{1,22}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max27">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="27"/>
+      <xs:pattern value=".{1,27}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max280">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="280"/>
+      <xs:pattern value=".{1,280}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max29">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="29"/>
+      <xs:pattern value=".{1,29}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max3">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="3"/>
+      <xs:pattern value=".{1,3}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max35">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="35"/>
+      <xs:pattern value=".{1,35}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max350">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="350"/>
+      <xs:pattern value=".{1,350}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max4">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="4"/>
+      <xs:pattern value=".{1,4}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max42">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="42"/>
+      <xs:pattern value=".{1,42}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max5">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="5"/>
+      <xs:pattern value=".{1,5}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max6">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="6"/>
+      <xs:pattern value=".{1,6}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max70">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="70"/>
+      <xs:pattern value=".{1,70}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Alphanumeric_Max8">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="8"/>
+      <xs:pattern value=".{1,8}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="CORefNumType">
+    <xs:annotation>
+      <xs:documentation>Customs Office Reference Number
+				(format:an8)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:length value="8"/>
+      <xs:pattern value="[a-zA-Z]{2}[a-zA-Z0-9]{6}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="CityType">
+    <xs:annotation>
+      <xs:documentation>Trader City (format:
+				an..35)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="35"/>
+      <xs:pattern value=".{1,35}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="CommodityCodeType">
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:pattern value="[0-9]{1,8}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="CountryCodeType">
+    <xs:annotation>
+      <xs:documentation>Country Code (format:a2)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaType">
+      <xs:length value="2"/>
+      <xs:pattern value="[A-Z]{2}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="DatePrepType">
+    <xs:annotation>
+      <xs:documentation>Date type (format
+				YYMMDD)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:NumType">
+      <xs:length value="6"/>
+      <xs:pattern value="[0-9]{2}(([0][1|3|5|7|8])([0][1-9]|[1-2][0-9]|[3][0-1])|([0][4|6|9])([0][1-9]|[1-2][0-9]|[3][0])|([0][2])([0][1-9]|[1-2][0-9])|([1][0|2])([0][1-9]|[1-2][0-9]|[3][0-1])|([1][1])([0][1-9]|[1-2][0-9]|[3][0]))"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="DateTimeType">
+    <xs:annotation>
+      <xs:documentation>Date and Time with precision of minute
+				(format
+				YYYYMMDDHHMM)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:length value="12"/>
+      <xs:pattern value="[1-9][0-9][0-9][0-9](([0][1|3|5|7|8])([0][1-9]|[1-2][0-9]|[3][0-1])|([0][4|6|9])([0][1-9]|[1-2][0-9]|[3][0])|([0][2])([0][1-9]|[1-2][0-9])|([1][0|2])([0][1-9]|[1-2][0-9]|[3][0-1])|([1][1])([0][1-9]|[1-2][0-9]|[3][0]))(([2][0-3]|[0][0-9]|[1][0-9])([0-5][0-9]))"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="DateType">
+    <xs:annotation>
+      <xs:documentation>Date type (format
+				YYYYMMDD)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:NumType">
+      <xs:length value="8"/>
+      <xs:pattern value="[1-9][0-9]{3}(([0][1|3|5|7|8])([0][1-9]|[1-2][0-9]|[3][0-1])|([0][4|6|9])([0][1-9]|[1-2][0-9]|[3][0])|([0][2])([0][1-9]|[1-2][0-9])|([1][0|2])([0][1-9]|[1-2][0-9]|[3][0-1])|([1][1])([0][1-9]|[1-2][0-9]|[3][0]))"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="DateTypeExtended">
+    <xs:annotation>
+      <xs:documentation>Date type (format
+				YYYYMMDDHHMNSS)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:length value="14"/>
+      <xs:pattern value="[1-9][0-9][0-9]{2}(([0][1|3|5|7|8])([0][1-9]|[1-2][0-9]|[3][0-1])|([0][4|6|9])([0][1-9]|[1-2][0-9]|[3][0])|([0][2])([0][1-9]|[1-2][0-9])|([1][0|2])([0][1-9]|[1-2][0-9]|[3][0-1])|([1][1])([0][1-9]|[1-2][0-9]|[3][0]))([2][0-3]|[0][0-9]|[1][0-9])([0-5][0-9])(0-5)(0-9)(0-5)(0-9)"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="DayInTheMonthType">
+    <xs:annotation>
+      <xs:documentation>Day in the Month (format:
+				DD)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:NumType">
+      <xs:length value="2"/>
+      <xs:pattern value="[0][1-9]|[1-2][0-9]|[3][0-1]"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="DecType">
+    <xs:annotation>
+      <xs:documentation>Base class for all n..N,M
+				types</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:decimal"/>
+  </xs:simpleType>
+  <xs:simpleType name="Decimal_11_3">
+    <xs:restriction base="simple:DecType">
+      <xs:totalDigits value="11"/>
+      <xs:fractionDigits value="3"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Decimal_15_2">
+    <xs:restriction base="simple:DecType">
+      <xs:totalDigits value="15"/>
+      <xs:fractionDigits value="2"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Decimal_6_5">
+    <xs:restriction base="simple:DecType">
+      <xs:totalDigits value="6"/>
+      <xs:fractionDigits value="5"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Decimal_8_6">
+    <xs:restriction base="simple:DecType">
+      <xs:totalDigits value="8"/>
+      <xs:fractionDigits value="6"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="DeclarationRequestNumberType">
+    <xs:annotation>
+      <xs:documentation>Declaration request number (format:
+				an..22)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="22"/>
+      <xs:pattern value="[a-zA-Z]{2}.{1,20}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="GRNType">
+    <xs:annotation>
+      <xs:documentation>GRN (format: an..24), (alias:GuaRefNumGRNREF21)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphanumericCapitalType">
+      <xs:pattern value="[0-9]{2}[A-Z]{2}[A-Z0-9]{12}.{1,8}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="LanguageCodeType">
+    <xs:annotation>
+      <xs:documentation>Language Code (format: a2)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaType">
+      <xs:length value="2"/>
+      <xs:pattern value="[a-zA-Z]{2}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="MRNType">
+    <xs:annotation>
+      <xs:documentation>MRN (format: an..21), (alias: DocNumHEA5Type)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:pattern value="[0-9]{2}[A-Z]{2}[A-Z0-9]{13}[0-9]"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="NumType">
+    <xs:annotation>
+      <xs:documentation>Base class for all nN and n..N
+				types</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token"/>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric2">
+    <xs:restriction base="simple:NumType">
+      <xs:length value="2"/>
+      <xs:pattern value="[0-9]{2}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric2Max">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="8"/>
+      <xs:pattern value="[0-9]{1,2}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric3">
+    <xs:restriction base="simple:NumType">
+      <xs:length value="3"/>
+      <xs:pattern value="[0-9]{3}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric4">
+    <xs:restriction base="simple:NumType">
+      <xs:length value="4"/>
+      <xs:pattern value="[0-9]{4}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric6Max">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="8"/>
+      <xs:pattern value="[0-9]{1,6}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric8Max">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="8"/>
+      <xs:pattern value="[0-9]{1,8}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="NumericMin4Max8">
+    <xs:restriction base="simple:NumType">
+      <xs:pattern value="[0-9]{4,8}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="NumericMin4Max8Type">
+    <xs:restriction base="simple:NumType">
+      <xs:pattern value="[0-9]{4,8}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_1">
+    <xs:restriction base="simple:NumType">
+      <xs:length value="1"/>
+      <xs:pattern value="[0-9]"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_2">
+    <xs:restriction base="simple:NumType">
+      <xs:length value="2"/>
+      <xs:pattern value="[0-9]{2}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_3">
+    <xs:restriction base="simple:NumType">
+      <xs:length value="3"/>
+      <xs:pattern value="[0-9]{3}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_4">
+    <xs:restriction base="simple:NumType">
+      <xs:length value="4"/>
+      <xs:pattern value="[0-9]{4}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_Max11">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="11"/>
+      <xs:pattern value="[0-9]{1,11}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_Max2">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="2"/>
+      <xs:pattern value="[0-9]{1,2}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_Max3">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="3"/>
+      <xs:pattern value="[0-9]{1,3}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_Max4">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="4"/>
+      <xs:pattern value="[0-9]{1,4}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_Max5">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="5"/>
+      <xs:pattern value="[0-9]{1,5}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_Max6">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="6"/>
+      <xs:pattern value="[0-9]{1,6}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_Max7">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="7"/>
+      <xs:pattern value="[0-9]{1,7}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Numeric_Max9">
+    <xs:restriction base="simple:NumType">
+      <xs:maxLength value="9"/>
+      <xs:pattern value="[0-9]{1,9}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="PostalCodeType">
+    <xs:annotation>
+      <xs:documentation>Trader Postal Code (format:
+				n..9)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="9"/>
+      <xs:pattern value=".{1,9}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="StreetNumType">
+    <xs:annotation>
+      <xs:documentation>Trader Street and Number (format:
+				an..35)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="35"/>
+      <xs:pattern value=".{1,35}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="StringLatin1">
+    <xs:restriction base="xs:string">
+      <xs:pattern value="\p{IsBasicLatin}+"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="TINType">
+    <xs:annotation>
+      <xs:documentation>Trader Identification Number (format:
+				an..17)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:StringLatin1">
+      <xs:minLength value="3"/>
+      <xs:maxLength value="17"/>
+      <xs:pattern value="[A-Z]{2}[^\n\r]*"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="TaricCodeType">
+    <xs:annotation>
+      <xs:documentation>Taric Code (format:
+				an..6)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:pattern value="[0-9]{1,6}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="TimeType">
+    <xs:annotation>
+      <xs:documentation>Time with precision of minute (format
+				HHMM)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:NumType">
+      <xs:length value="4"/>
+      <xs:pattern value="([2][0-3]|[0][0-9]|[1][0-9])([0-5][0-9])"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="TradNameType">
+    <xs:annotation>
+      <xs:documentation>Trader Name (format:
+				an..35)</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="simple:AlphaNumType">
+      <xs:maxLength value="35"/>
+      <xs:pattern value=".{1,35}"/>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="emailAddressType">
+    <xs:restriction base="simple:StringLatin1">
+      <xs:maxLength value="70"/>
+      <xs:pattern value="[^@]+@[^\.]+\..+"/>
+    </xs:restriction>
+  </xs:simpleType>
+</xs:schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/simple_types_ics-v10-0.xsd

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:simple="http://ics.dgtaxud.ec/simple_ics" targetNamespace="http://ics.dgtaxud.ec/simple_ics" version="10.0" id="simple_types_ics" elementFormDefault="unqualified" attributeFormDefault="unqualified"/>

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/tcl-v10-0.xsd

@@ -0,0 +1,769 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:tcl="http://ics.dgtaxud.ec/tcl" targetNamespace="http://ics.dgtaxud.ec/tcl" version="10.0" id="tcl" elementFormDefault="unqualified" attributeFormDefault="unqualified">
+  <xs:simpleType name="BusinessFunctionalityCode">
+    <xs:annotation>
+      <xs:documentation>[Format: a1]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="H">
+        <xs:annotation>
+          <xs:documentation>Reference Data</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="U">
+        <xs:annotation>
+          <xs:documentation>Entry Processing</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="V">
+        <xs:annotation>
+          <xs:documentation>Lodgement</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="W">
+        <xs:annotation>
+          <xs:documentation>ALL FUNCTIONALITY</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="CountryCodesCustomsOfficeLists">
+    <xs:annotation>
+      <xs:documentation>All the countries included in code list 9 excluding AX, GF, GP, LI, MC, MQ, RE, SJ and YT. The same codelist values are used for all Domains (ECS/NCTS/ICS) in order to support the COL. Values are shown for illustration only. [Format: a2]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="AD">
+        <xs:annotation>
+          <xs:documentation>Andorra</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="AT">
+        <xs:annotation>
+          <xs:documentation>Austria</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="BE">
+        <xs:annotation>
+          <xs:documentation>Belgium</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="BG">
+        <xs:annotation>
+          <xs:documentation>Bulgaria</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CH">
+        <xs:annotation>
+          <xs:documentation>Switzerland</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CY">
+        <xs:annotation>
+          <xs:documentation>Cyprus</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CZ">
+        <xs:annotation>
+          <xs:documentation>Czech Republic</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="DE">
+        <xs:annotation>
+          <xs:documentation>Germany</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="DK">
+        <xs:annotation>
+          <xs:documentation>Denmark</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="EE">
+        <xs:annotation>
+          <xs:documentation>Estonia</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="ES">
+        <xs:annotation>
+          <xs:documentation>Spain</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="FI">
+        <xs:annotation>
+          <xs:documentation>Finland</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="FR">
+        <xs:annotation>
+          <xs:documentation>France</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="GB">
+        <xs:annotation>
+          <xs:documentation>United Kingdom</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="GR">
+        <xs:annotation>
+          <xs:documentation>Greece</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="HR">
+        <xs:annotation>
+          <xs:documentation>Croatia</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="HU">
+        <xs:annotation>
+          <xs:documentation>Hungary</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="IE">
+        <xs:annotation>
+          <xs:documentation>Ireland</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="IS">
+        <xs:annotation>
+          <xs:documentation>Iceland</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="IT">
+        <xs:annotation>
+          <xs:documentation>Italy</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="LT">
+        <xs:annotation>
+          <xs:documentation>Lithuania</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="LU">
+        <xs:annotation>
+          <xs:documentation>Luxembourg</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="LV">
+        <xs:annotation>
+          <xs:documentation>Latvia</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="MT">
+        <xs:annotation>
+          <xs:documentation>Malta</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="NL">
+        <xs:annotation>
+          <xs:documentation>Netherlands</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="NO">
+        <xs:annotation>
+          <xs:documentation>Norway</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="PL">
+        <xs:annotation>
+          <xs:documentation>Poland</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="PT">
+        <xs:annotation>
+          <xs:documentation>Portugal</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="RO">
+        <xs:annotation>
+          <xs:documentation>Romania</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="SE">
+        <xs:annotation>
+          <xs:documentation>Sweden</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="SI">
+        <xs:annotation>
+          <xs:documentation>Slovenia</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="SK">
+        <xs:annotation>
+          <xs:documentation>Slovakia</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="SM">
+        <xs:annotation>
+          <xs:documentation>San Marino</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="TR">
+        <xs:annotation>
+          <xs:documentation>Turkey</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="DayInTheWeek">
+    <xs:annotation>
+      <xs:documentation>[Format: n1]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="1">
+        <xs:annotation>
+          <xs:documentation>Monday</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="2">
+        <xs:annotation>
+          <xs:documentation>Tuesday</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="3">
+        <xs:annotation>
+          <xs:documentation>Wednesday</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="4">
+        <xs:annotation>
+          <xs:documentation>Thursday</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="5">
+        <xs:annotation>
+          <xs:documentation>Friday</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="6">
+        <xs:annotation>
+          <xs:documentation>Saturday</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="7">
+        <xs:annotation>
+          <xs:documentation>Sunday</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="EoriAeoErrorCode">
+    <xs:annotation>
+      <xs:documentation>It is an alphanumerical up to 50 characters string (i.e. an..50) that is used to define in an acknowledgement notification message the error code(s). [Format: an..50]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="GEN-CORR">
+        <xs:annotation>
+          <xs:documentation>Non XML message received</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="GEN-INVALID-BYTE-SEQUENCE">
+        <xs:annotation>
+          <xs:documentation>Invalid byte sequence: a byte sequence does not represent a valid character in the character encoding scheme (UTF-8).</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="GEN-WRONG-ENVID">
+        <xs:annotation>
+          <xs:documentation>Envelope Id and/or Originator Reference are missing</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="FunctionalErrorCodes">
+    <xs:annotation>
+      <xs:documentation>- Subset of the UN/EDIFACT generic error table. - For remarks on the codes : see DDNTA Sec. VII. [Format: n2]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="12">
+        <xs:annotation>
+          <xs:documentation>Incorrect (code) value</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="13">
+        <xs:annotation>
+          <xs:documentation>Missing</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="14">
+        <xs:annotation>
+          <xs:documentation>Value not supported in this position (code value constraint)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="15">
+        <xs:annotation>
+          <xs:documentation>Not supported in this position</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="19">
+        <xs:annotation>
+          <xs:documentation>Invalid decimal notation</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="26">
+        <xs:annotation>
+          <xs:documentation>Duplicate detected</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="35">
+        <xs:annotation>
+          <xs:documentation>Too many repetitions</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="37">
+        <xs:annotation>
+          <xs:documentation>Invalid type characters</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="38">
+        <xs:annotation>
+          <xs:documentation>Missing digit in front of decimal sign</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="39">
+        <xs:annotation>
+          <xs:documentation>Element too long (length constraint)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="40">
+        <xs:annotation>
+          <xs:documentation>Element too short (length constraint)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="90">
+        <xs:annotation>
+          <xs:documentation>Unknown MRN</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="91">
+        <xs:annotation>
+          <xs:documentation>Duplicate MRN</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="92">
+        <xs:annotation>
+          <xs:documentation>Message out of sequence</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="93">
+        <xs:annotation>
+          <xs:documentation>Invalid MRN</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="XmlErrorCodes">
+    <xs:annotation>
+      <xs:documentation>Defines the codes to be used for reporting errors on XML messages. [Format: n2]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="12">
+        <xs:annotation>
+          <xs:documentation>Incorrect enumeration</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="13">
+        <xs:annotation>
+          <xs:documentation>Missing</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="15">
+        <xs:annotation>
+          <xs:documentation>Not supported in this position</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="18">
+        <xs:annotation>
+          <xs:documentation>Unspecified Error / Other</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="19">
+        <xs:annotation>
+          <xs:documentation>Invalid decimal notation</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="35">
+        <xs:annotation>
+          <xs:documentation>Too many repetitions</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="39">
+        <xs:annotation>
+          <xs:documentation>Element too long (length constraint)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="40">
+        <xs:annotation>
+          <xs:documentation>Element too short (length constraint)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="50">
+        <xs:annotation>
+          <xs:documentation>Invalid Value for the specific type</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="51">
+        <xs:annotation>
+          <xs:documentation>Invalid value according to the pattern</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="52">
+        <xs:annotation>
+          <xs:documentation>Invalid XML format</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="53">
+        <xs:annotation>
+          <xs:documentation>Invalid character(s)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="54">
+        <xs:annotation>
+          <xs:documentation>Value is lower than the allowed lowest limit (Minimum Inclusive)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="55">
+        <xs:annotation>
+          <xs:documentation>Value is greater than the allowed upper limit (Maximum Inclusive)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="56">
+        <xs:annotation>
+          <xs:documentation>Value is lower than or equal to the allowed lowest limit (Minimum Exlcusive)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="57">
+        <xs:annotation>
+          <xs:documentation>Value is greater than or equal to the allowed upper limit (Maximum Exclusive)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="PrefixSuffixLevel">
+    <xs:annotation>
+      <xs:documentation>Used for CUSTOMS OFFICE LSD. [Format: an1]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="A">
+        <xs:annotation>
+          <xs:documentation>Simple office (see box A in Customs Office List)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="E">
+        <xs:annotation>
+          <xs:documentation>Higher authority (see box E in Customs Office List)</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="SystemUnavailabilityType">
+    <xs:annotation>
+      <xs:documentation>Used for the attribute SYSTEM UNAVAILABILITY.System Unavailability Type. [Format: a1]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="N">
+        <xs:annotation>
+          <xs:documentation>Business service not implemented</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="S">
+        <xs:annotation>
+          <xs:documentation>Scheduled Unavailability</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="U">
+        <xs:annotation>
+          <xs:documentation>Unscheduled Unavailability</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="Flag">
+    <xs:annotation>
+      <xs:documentation>Used for attributes that can have a positive or a negative value. [Format: n1]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="0">
+        <xs:annotation>
+          <xs:documentation>NO</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="1">
+        <xs:annotation>
+          <xs:documentation>YES</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="MonthOfYear">
+    <xs:annotation>
+      <xs:documentation>[Format: an2]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="01">
+        <xs:annotation>
+          <xs:documentation>January</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="02">
+        <xs:annotation>
+          <xs:documentation>February</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="03">
+        <xs:annotation>
+          <xs:documentation>March</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="04">
+        <xs:annotation>
+          <xs:documentation>April</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="05">
+        <xs:annotation>
+          <xs:documentation>May</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="06">
+        <xs:annotation>
+          <xs:documentation>June</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="07">
+        <xs:annotation>
+          <xs:documentation>July</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="08">
+        <xs:annotation>
+          <xs:documentation>August</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="09">
+        <xs:annotation>
+          <xs:documentation>September</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="10">
+        <xs:annotation>
+          <xs:documentation>October</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="11">
+        <xs:annotation>
+          <xs:documentation>November</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="12">
+        <xs:annotation>
+          <xs:documentation>December</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="MessageTypes">
+    <xs:annotation>
+      <xs:documentation>Used for attribute MESSAGE ERRORS.Association assigned code and MESSAGE.Message Type. The usage of each code in one of the UNSM templates is defined in the Remarks column. CC should in all cases be instantiated to the value of the particular domain in which the message is created. [Format: an..6] [Format: an..6]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="CC304A">
+        <xs:annotation>
+          <xs:documentation>Entry Summary Declaration Amendment Accepted</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CC305A">
+        <xs:annotation>
+          <xs:documentation>Entry Summary Declaration Amendment Rejection</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CC313A">
+        <xs:annotation>
+          <xs:documentation>Entry Summary Declaration Amendment</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CC315A">
+        <xs:annotation>
+          <xs:documentation>Entry Summary Declaration</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CC316A">
+        <xs:annotation>
+          <xs:documentation>Entry Summary Declaration Rejected</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CC323A">
+        <xs:annotation>
+          <xs:documentation>Diversion Request Import</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CC324A">
+        <xs:annotation>
+          <xs:documentation>Diversion Request Rejected</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CC325A">
+        <xs:annotation>
+          <xs:documentation>Diversion Request Acknowledgement</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CC328A">
+        <xs:annotation>
+          <xs:documentation>Entry Summary Request Acknowledgement</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CC351A">
+        <xs:annotation>
+          <xs:documentation>Advanced Intervention Notification</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD030C">
+        <xs:annotation>
+          <xs:documentation>Notification of customs offices modification to common domain</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD031C">
+        <xs:annotation>
+          <xs:documentation>Notification of customs offices modification to national domain</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD032C">
+        <xs:annotation>
+          <xs:documentation>Notification of common reference data modification to ND</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD070B">
+        <xs:annotation>
+          <xs:documentation>Notification of System Unavailability to CD</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD071B">
+        <xs:annotation>
+          <xs:documentation>Notification of System Unavailability to ND</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD301A">
+        <xs:annotation>
+          <xs:documentation>ENS</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD302A">
+        <xs:annotation>
+          <xs:documentation>Declaration Request Import</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD303A">
+        <xs:annotation>
+          <xs:documentation>Entry Summary Declaration Response</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD319A">
+        <xs:annotation>
+          <xs:documentation>Transmission to subsequent Office of Entry</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD411C">
+        <xs:annotation>
+          <xs:documentation>Sending of statistics data</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD412C">
+        <xs:annotation>
+          <xs:documentation>Statistics generated sent to national domain</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD906B">
+        <xs:annotation>
+          <xs:documentation>Functional NACK</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD912B">
+        <xs:annotation>
+          <xs:documentation>Availability Matrix</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD913B">
+        <xs:annotation>
+          <xs:documentation>Upload parsing response</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD914B">
+        <xs:annotation>
+          <xs:documentation>COL request</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD916B">
+        <xs:annotation>
+          <xs:documentation>Common RD Request</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD917B">
+        <xs:annotation>
+          <xs:documentation>XML NACK</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD931C">
+        <xs:annotation>
+          <xs:documentation>COL DATA</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD932C">
+        <xs:annotation>
+          <xs:documentation>Common RD Data</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="CD971B">
+        <xs:annotation>
+          <xs:documentation>Full Unavailability Schedule</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="ModificationType">
+    <xs:annotation>
+      <xs:documentation>Used for (multiple) attribute Operation. [Format: a1]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="C">
+        <xs:annotation>
+          <xs:documentation>Create</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="D">
+        <xs:annotation>
+          <xs:documentation>Delete</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="U">
+        <xs:annotation>
+          <xs:documentation>Update</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+  <xs:simpleType name="CustomSystem">
+    <xs:annotation>
+      <xs:documentation>Custom System applicable domain [Format: n..2]</xs:documentation>
+    </xs:annotation>
+    <xs:restriction base="xs:token">
+      <xs:enumeration value="1">
+        <xs:annotation>
+          <xs:documentation>NCTS</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="2">
+        <xs:annotation>
+          <xs:documentation>ECS</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="3">
+        <xs:annotation>
+          <xs:documentation>ICS</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+      <xs:enumeration value="4">
+        <xs:annotation>
+          <xs:documentation>EOS</xs:documentation>
+        </xs:annotation>
+      </xs:enumeration>
+    </xs:restriction>
+  </xs:simpleType>
+</xs:schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/ENS/CC328A/tcl_ics-v10-0.xsd

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:tcl="http://ics.dgtaxud.ec/tcl_ics" targetNamespace="http://ics.dgtaxud.ec/tcl_ics" version="10.0" id="tcl_ics" elementFormDefault="unqualified" attributeFormDefault="unqualified"/>

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/Response/SuccessResponse-v2-0.Designer.vb

@@ -0,0 +1,430 @@
+'' ------------------------------------------------------------------------------
+''  <auto-generated>
+''    Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
+''    {"TargetFramework":"Net48","NameSpace":"SuccessResponse_v2_0","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
+''  </auto-generated>
+'' ------------------------------------------------------------------------------
+#Disable Warning
+Imports System
+Imports System.Diagnostics
+Imports System.Xml.Serialization
+Imports System.Runtime.Serialization
+Imports System.Collections
+Imports System.Xml.Schema
+Imports System.ComponentModel
+Imports System.Xml
+Imports System.IO
+Imports System.Text
+Imports System.Collections.Generic
+
+Namespace SuccessResponse_v2_0
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code"),
+     XmlType(AnonymousType:=True, [Namespace]:="http://www.hmrc.gov.uk/successresponse/2"),
+     XmlRoot([Namespace]:="http://www.hmrc.gov.uk/successresponse/2", IsNullable:=False)>
+    Partial Public Class SuccessResponse
+
+#Region "Private fields"
+        Private _message As List(Of MessageType)
+
+        Private _acceptedTime As Date
+
+        Private _responseData As System.Xml.XmlElement
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        Public Sub New()
+            MyBase.New
+            Me._message = New List(Of MessageType)()
+        End Sub
+
+        <XmlElement("Message")>
+        Public Property Message() As List(Of MessageType)
+            Get
+                Return Me._message
+            End Get
+            Set
+                Me._message = Value
+            End Set
+        End Property
+
+        Public Property AcceptedTime() As Date
+            Get
+                Return Me._acceptedTime
+            End Get
+            Set
+                Me._acceptedTime = Value
+            End Set
+        End Property
+
+        Public Property ResponseData() As System.Xml.XmlElement
+            Get
+                Return Me._responseData
+            End Get
+            Set
+                Me._responseData = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SuccessResponse))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize SuccessResponse object
+        ''' </summary>
+        ''' <returns>XML value</returns>
+        Public Overridable Function Serialize() As String
+            Dim streamReader As StreamReader = Nothing
+            Dim memoryStream As MemoryStream = Nothing
+            Try
+                memoryStream = New MemoryStream()
+                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
+                xmlWriterSettings.Indent = True
+                xmlWriterSettings.IndentChars = "  "
+                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
+                SerializerXml.Serialize(xmlWriter, Me)
+                memoryStream.Seek(0, SeekOrigin.Begin)
+                streamReader = New StreamReader(memoryStream)
+                Return streamReader.ReadToEnd
+            Finally
+                If (Not (streamReader) Is Nothing) Then
+                    streamReader.Dispose()
+                End If
+                If (Not (memoryStream) Is Nothing) Then
+                    memoryStream.Dispose()
+                End If
+            End Try
+        End Function
+
+        ''' <summary>
+        ''' Deserializes SuccessResponse object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output SuccessResponse object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SuccessResponse, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, SuccessResponse)
+            Try
+                obj = Deserialize(input)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SuccessResponse) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As SuccessResponse
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SuccessResponse)
+            Finally
+                If (Not (stringReader) Is Nothing) Then
+                    stringReader.Dispose()
+                End If
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal s As Stream) As SuccessResponse
+            Return CType(SerializerXml.Deserialize(s), SuccessResponse)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current SuccessResponse object into file
+        ''' </summary>
+        ''' <param name="fileName">full path of outupt xml file</param>
+        ''' <param name="exception">output Exception value if failed</param>
+        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
+        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            Try
+                SaveToFile(fileName)
+                Return True
+            Catch e As System.Exception
+                exception = e
+                Return False
+            End Try
+        End Function
+
+        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
+            Dim streamWriter As StreamWriter = Nothing
+            Try
+                Dim dataString As String = Serialize()
+                Dim outputFile As FileInfo = New FileInfo(fileName)
+                streamWriter = outputFile.CreateText
+                streamWriter.WriteLine(dataString)
+                streamWriter.Close()
+            Finally
+                If (Not (streamWriter) Is Nothing) Then
+                    streamWriter.Dispose()
+                End If
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Deserializes xml markup from file into an SuccessResponse object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output SuccessResponse object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SuccessResponse, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, SuccessResponse)
+            Try
+                obj = LoadFromFile(fileName)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SuccessResponse) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SuccessResponse
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
+                sr = New StreamReader(file)
+                Dim dataString As String = sr.ReadToEnd
+                sr.Close()
+                file.Close()
+                Return Deserialize(dataString)
+            Finally
+                If (Not (file) Is Nothing) Then
+                    file.Dispose()
+                End If
+                If (Not (sr) Is Nothing) Then
+                    sr.Dispose()
+                End If
+            End Try
+        End Function
+    End Class
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code"),
+     XmlType([Namespace]:="http://www.hmrc.gov.uk/successresponse/2")>
+    Partial Public Class MessageType
+
+#Region "Private fields"
+        Private _code As String
+
+        Private _lang As String
+
+        Private _value As String
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        <XmlAttribute(DataType:="integer")>
+        Public Property code() As String
+            Get
+                Return Me._code
+            End Get
+            Set
+                Me._code = Value
+            End Set
+        End Property
+
+        <XmlAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Qualified, [Namespace]:="http://www.w3.org/XML/1998/namespace")>
+        Public Property lang() As String
+            Get
+                Return Me._lang
+            End Get
+            Set
+                Me._lang = Value
+            End Set
+        End Property
+
+        <XmlText>
+        Public Property Value() As String
+            Get
+                Return Me._value
+            End Get
+            Set
+                Me._value = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(MessageType))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize MessageType object
+        ''' </summary>
+        ''' <returns>XML value</returns>
+        Public Overridable Function Serialize() As String
+            Dim streamReader As StreamReader = Nothing
+            Dim memoryStream As MemoryStream = Nothing
+            Try
+                memoryStream = New MemoryStream()
+                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
+                xmlWriterSettings.Indent = True
+                xmlWriterSettings.IndentChars = "  "
+                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
+                SerializerXml.Serialize(xmlWriter, Me)
+                memoryStream.Seek(0, SeekOrigin.Begin)
+                streamReader = New StreamReader(memoryStream)
+                Return streamReader.ReadToEnd
+            Finally
+                If (Not (streamReader) Is Nothing) Then
+                    streamReader.Dispose()
+                End If
+                If (Not (memoryStream) Is Nothing) Then
+                    memoryStream.Dispose()
+                End If
+            End Try
+        End Function
+
+        ''' <summary>
+        ''' Deserializes MessageType object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output MessageType object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MessageType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, MessageType)
+            Try
+                obj = Deserialize(input)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MessageType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As MessageType
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), MessageType)
+            Finally
+                If (Not (stringReader) Is Nothing) Then
+                    stringReader.Dispose()
+                End If
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal s As Stream) As MessageType
+            Return CType(SerializerXml.Deserialize(s), MessageType)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current MessageType object into file
+        ''' </summary>
+        ''' <param name="fileName">full path of outupt xml file</param>
+        ''' <param name="exception">output Exception value if failed</param>
+        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
+        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            Try
+                SaveToFile(fileName)
+                Return True
+            Catch e As System.Exception
+                exception = e
+                Return False
+            End Try
+        End Function
+
+        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
+            Dim streamWriter As StreamWriter = Nothing
+            Try
+                Dim dataString As String = Serialize()
+                Dim outputFile As FileInfo = New FileInfo(fileName)
+                streamWriter = outputFile.CreateText
+                streamWriter.WriteLine(dataString)
+                streamWriter.Close()
+            Finally
+                If (Not (streamWriter) Is Nothing) Then
+                    streamWriter.Dispose()
+                End If
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Deserializes xml markup from file into an MessageType object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output MessageType object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MessageType, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, MessageType)
+            Try
+                obj = LoadFromFile(fileName)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MessageType) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As MessageType
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
+                sr = New StreamReader(file)
+                Dim dataString As String = sr.ReadToEnd
+                sr.Close()
+                file.Close()
+                Return Deserialize(dataString)
+            Finally
+                If (Not (file) Is Nothing) Then
+                    file.Dispose()
+                End If
+                If (Not (sr) Is Nothing) Then
+                    sr.Dispose()
+                End If
+            End Try
+        End Function
+    End Class
+End Namespace
+#Enable Warning

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/Response/SuccessResponse-v2-0.xsd

@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsd:schema attributeFormDefault="unqualified"
+    elementFormDefault="qualified" id="SuccessResponse"
+    targetNamespace="http://www.hmrc.gov.uk/successresponse/2"
+    version="2.0" xmlns="http://www.hmrc.gov.uk/successresponse/2"
+    xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+    <xsd:import namespace="http://www.w3.org/2000/09/xmldsig#" schemaLocation="xmldsig-core-schema.xsd"/>
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" schemaLocation="xml.xsd"/>
+    <xsd:element name="SuccessResponse">
+        <xsd:complexType>
+            <xsd:sequence>
+                <xsd:element maxOccurs="unbounded" minOccurs="0"
+                    name="Message" type="MessageType">
+                    <xsd:annotation>
+                        <xsd:documentation>
+                            Service-specific advisory text messages (if
+                            any). It is possible for    more than one
+                            message to be returned per response. Each
+                            message must    be presented to the user.
+                            Service-specific message codes are carried
+                            in the &quot;code&quot; attribute (see
+                            Service-specific documentation for details).                       </xsd:documentation>
+                    </xsd:annotation>
+                </xsd:element>
+                <xsd:element minOccurs="0" name="AcceptedTime" type="xsd:dateTime">
+                    <xsd:annotation>
+                        <xsd:documentation>Placeholder for future use.  </xsd:documentation>
+                    </xsd:annotation>
+                </xsd:element>
+                <xsd:element minOccurs="0" name="ResponseData">
+                    <xsd:annotation>
+                        <xsd:documentation>    Container for
+                            service-specific response data if any (e.g.
+                            MSD returned    payment reference). See
+                            additional service-specific response data
+                            Schema (if any) and documentation for
+                            details.                      </xsd:documentation>
+                    </xsd:annotation>
+                    <xsd:complexType>
+                        <xsd:sequence>
+                            <xsd:any namespace="##other" processContents="lax"/>
+                        </xsd:sequence>
+                    </xsd:complexType>
+                </xsd:element>
+            </xsd:sequence>
+        </xsd:complexType>
+    </xsd:element>
+    <xsd:complexType name="MessageType">
+        <xsd:simpleContent>
+            <xsd:extension base="xsd:string">
+                <xsd:attribute name="code" type="xsd:integer" use="required"/>
+                <xsd:attribute default="en-GB" ref="xml:lang" use="optional"/>
+            </xsd:extension>
+        </xsd:simpleContent>
+    </xsd:complexType>
+</xsd:schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/Response/errorresponse-v2.0.Designer.vb

@@ -0,0 +1,667 @@
+'' ------------------------------------------------------------------------------
+''  <auto-generated>
+''    Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
+''    {"TargetFramework":"Net48","NameSpace":"errorresponse_v2_0","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
+''  </auto-generated>
+'' ------------------------------------------------------------------------------
+#Disable Warning
+Imports System
+Imports System.Diagnostics
+Imports System.Xml.Serialization
+Imports System.Runtime.Serialization
+Imports System.Collections
+Imports System.Xml.Schema
+Imports System.ComponentModel
+Imports System.Xml
+Imports System.IO
+Imports System.Text
+Imports System.Collections.Generic
+
+Namespace errorresponse_v2_0
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code"),
+     XmlType(AnonymousType:=True, [Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse"),
+     XmlRoot([Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse", IsNullable:=False)>
+    Partial Public Class ErrorResponse
+
+#Region "Private fields"
+        Private _application As Application
+
+        Private _error As List(Of ErrorResponseError)
+
+        Private _schemaVersion As String
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        Public Sub New()
+            MyBase.New
+            Me._error = New List(Of ErrorResponseError)()
+            Me._application = New Application()
+        End Sub
+
+        Public Property Application() As Application
+            Get
+                Return Me._application
+            End Get
+            Set
+                Me._application = Value
+            End Set
+        End Property
+
+        <XmlElement("Error")>
+        Public Property [Error]() As List(Of ErrorResponseError)
+            Get
+                Return Me._error
+            End Get
+            Set
+                Me._error = Value
+            End Set
+        End Property
+
+        <XmlAttribute>
+        Public Property SchemaVersion() As String
+            Get
+                Return Me._schemaVersion
+            End Get
+            Set
+                Me._schemaVersion = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ErrorResponse))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize ErrorResponse object
+        ''' </summary>
+        ''' <returns>XML value</returns>
+        Public Overridable Function Serialize() As String
+            Dim streamReader As StreamReader = Nothing
+            Dim memoryStream As MemoryStream = Nothing
+            Try
+                memoryStream = New MemoryStream()
+                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
+                xmlWriterSettings.Indent = True
+                xmlWriterSettings.IndentChars = "  "
+                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
+                SerializerXml.Serialize(xmlWriter, Me)
+                memoryStream.Seek(0, SeekOrigin.Begin)
+                streamReader = New StreamReader(memoryStream)
+                Return streamReader.ReadToEnd
+            Finally
+                If (Not (streamReader) Is Nothing) Then
+                    streamReader.Dispose()
+                End If
+                If (Not (memoryStream) Is Nothing) Then
+                    memoryStream.Dispose()
+                End If
+            End Try
+        End Function
+
+        ''' <summary>
+        ''' Deserializes ErrorResponse object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output ErrorResponse object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorResponse, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, ErrorResponse)
+            Try
+                obj = Deserialize(input)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorResponse) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As ErrorResponse
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ErrorResponse)
+            Finally
+                If (Not (stringReader) Is Nothing) Then
+                    stringReader.Dispose()
+                End If
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal s As Stream) As ErrorResponse
+            Return CType(SerializerXml.Deserialize(s), ErrorResponse)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current ErrorResponse object into file
+        ''' </summary>
+        ''' <param name="fileName">full path of outupt xml file</param>
+        ''' <param name="exception">output Exception value if failed</param>
+        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
+        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            Try
+                SaveToFile(fileName)
+                Return True
+            Catch e As System.Exception
+                exception = e
+                Return False
+            End Try
+        End Function
+
+        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
+            Dim streamWriter As StreamWriter = Nothing
+            Try
+                Dim dataString As String = Serialize()
+                Dim outputFile As FileInfo = New FileInfo(fileName)
+                streamWriter = outputFile.CreateText
+                streamWriter.WriteLine(dataString)
+                streamWriter.Close()
+            Finally
+                If (Not (streamWriter) Is Nothing) Then
+                    streamWriter.Dispose()
+                End If
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Deserializes xml markup from file into an ErrorResponse object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output ErrorResponse object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorResponse, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, ErrorResponse)
+            Try
+                obj = LoadFromFile(fileName)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorResponse) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ErrorResponse
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
+                sr = New StreamReader(file)
+                Dim dataString As String = sr.ReadToEnd
+                sr.Close()
+                file.Close()
+                Return Deserialize(dataString)
+            Finally
+                If (Not (file) Is Nothing) Then
+                    file.Dispose()
+                End If
+                If (Not (sr) Is Nothing) Then
+                    sr.Dispose()
+                End If
+            End Try
+        End Function
+    End Class
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code"),
+     XmlType(AnonymousType:=True, [Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse"),
+     XmlRoot([Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse", IsNullable:=False)>
+    Partial Public Class Application
+
+#Region "Private fields"
+        Private _any As List(Of System.Xml.XmlElement)
+
+        Private _anyAttr As List(Of System.Xml.XmlAttribute)
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        Public Sub New()
+            MyBase.New
+            Me._anyAttr = New List(Of System.Xml.XmlAttribute)()
+            Me._any = New List(Of System.Xml.XmlElement)()
+        End Sub
+
+        <XmlAnyElementAttribute()>
+        Public Property Any() As List(Of System.Xml.XmlElement)
+            Get
+                Return Me._any
+            End Get
+            Set
+                Me._any = Value
+            End Set
+        End Property
+
+        <XmlAnyAttributeAttribute()>
+        Public Property AnyAttr() As List(Of System.Xml.XmlAttribute)
+            Get
+                Return Me._anyAttr
+            End Get
+            Set
+                Me._anyAttr = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(Application))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize Application object
+        ''' </summary>
+        ''' <returns>XML value</returns>
+        Public Overridable Function Serialize() As String
+            Dim streamReader As StreamReader = Nothing
+            Dim memoryStream As MemoryStream = Nothing
+            Try
+                memoryStream = New MemoryStream()
+                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
+                xmlWriterSettings.Indent = True
+                xmlWriterSettings.IndentChars = "  "
+                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
+                SerializerXml.Serialize(xmlWriter, Me)
+                memoryStream.Seek(0, SeekOrigin.Begin)
+                streamReader = New StreamReader(memoryStream)
+                Return streamReader.ReadToEnd
+            Finally
+                If (Not (streamReader) Is Nothing) Then
+                    streamReader.Dispose()
+                End If
+                If (Not (memoryStream) Is Nothing) Then
+                    memoryStream.Dispose()
+                End If
+            End Try
+        End Function
+
+        ''' <summary>
+        ''' Deserializes Application object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output Application object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Application, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, Application)
+            Try
+                obj = Deserialize(input)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Application) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As Application
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), Application)
+            Finally
+                If (Not (stringReader) Is Nothing) Then
+                    stringReader.Dispose()
+                End If
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal s As Stream) As Application
+            Return CType(SerializerXml.Deserialize(s), Application)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current Application object into file
+        ''' </summary>
+        ''' <param name="fileName">full path of outupt xml file</param>
+        ''' <param name="exception">output Exception value if failed</param>
+        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
+        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            Try
+                SaveToFile(fileName)
+                Return True
+            Catch e As System.Exception
+                exception = e
+                Return False
+            End Try
+        End Function
+
+        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
+            Dim streamWriter As StreamWriter = Nothing
+            Try
+                Dim dataString As String = Serialize()
+                Dim outputFile As FileInfo = New FileInfo(fileName)
+                streamWriter = outputFile.CreateText
+                streamWriter.WriteLine(dataString)
+                streamWriter.Close()
+            Finally
+                If (Not (streamWriter) Is Nothing) Then
+                    streamWriter.Dispose()
+                End If
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Deserializes xml markup from file into an Application object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output Application object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As Application, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, Application)
+            Try
+                obj = LoadFromFile(fileName)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As Application) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As Application
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
+                sr = New StreamReader(file)
+                Dim dataString As String = sr.ReadToEnd
+                sr.Close()
+                file.Close()
+                Return Deserialize(dataString)
+            Finally
+                If (Not (file) Is Nothing) Then
+                    file.Dispose()
+                End If
+                If (Not (sr) Is Nothing) Then
+                    sr.Dispose()
+                End If
+            End Try
+        End Function
+    End Class
+
+    <System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
+     System.Serializable,
+     DebuggerStepThrough,
+     DesignerCategoryAttribute("code"),
+     XmlType(AnonymousType:=True, [Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse")>
+    Partial Public Class ErrorResponseError
+
+#Region "Private fields"
+        Private _raisedBy As String
+
+        Private _number As String
+
+        Private _type As String
+
+        Private _text As List(Of String)
+
+        Private _location As String
+
+        Private _application As Application
+
+        Private Shared _serializerXml As XmlSerializer
+#End Region
+
+        Public Sub New()
+            MyBase.New
+            Me._application = New Application()
+            Me._text = New List(Of String)()
+        End Sub
+
+        Public Property RaisedBy() As String
+            Get
+                Return Me._raisedBy
+            End Get
+            Set
+                Me._raisedBy = Value
+            End Set
+        End Property
+
+        <XmlElement(DataType:="integer")>
+        Public Property Number() As String
+            Get
+                Return Me._number
+            End Get
+            Set
+                Me._number = Value
+            End Set
+        End Property
+
+        Public Property Type() As String
+            Get
+                Return Me._type
+            End Get
+            Set
+                Me._type = Value
+            End Set
+        End Property
+
+        <XmlElement("Text")>
+        Public Property Text() As List(Of String)
+            Get
+                Return Me._text
+            End Get
+            Set
+                Me._text = Value
+            End Set
+        End Property
+
+        Public Property Location() As String
+            Get
+                Return Me._location
+            End Get
+            Set
+                Me._location = Value
+            End Set
+        End Property
+
+        Public Property Application() As Application
+            Get
+                Return Me._application
+            End Get
+            Set
+                Me._application = Value
+            End Set
+        End Property
+
+        Private Shared ReadOnly Property SerializerXml() As XmlSerializer
+            Get
+                If (_serializerXml Is Nothing) Then
+                    _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ErrorResponseError))
+                End If
+                Return _serializerXml
+            End Get
+        End Property
+
+#Region "Serialize/Deserialize"
+        ''' <summary>
+        ''' Serialize ErrorResponseError object
+        ''' </summary>
+        ''' <returns>XML value</returns>
+        Public Overridable Function Serialize() As String
+            Dim streamReader As StreamReader = Nothing
+            Dim memoryStream As MemoryStream = Nothing
+            Try
+                memoryStream = New MemoryStream()
+                Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
+                xmlWriterSettings.Indent = True
+                xmlWriterSettings.IndentChars = "  "
+                Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
+                SerializerXml.Serialize(xmlWriter, Me)
+                memoryStream.Seek(0, SeekOrigin.Begin)
+                streamReader = New StreamReader(memoryStream)
+                Return streamReader.ReadToEnd
+            Finally
+                If (Not (streamReader) Is Nothing) Then
+                    streamReader.Dispose()
+                End If
+                If (Not (memoryStream) Is Nothing) Then
+                    memoryStream.Dispose()
+                End If
+            End Try
+        End Function
+
+        ''' <summary>
+        ''' Deserializes ErrorResponseError object
+        ''' </summary>
+        ''' <param name="input">string to deserialize</param>
+        ''' <param name="obj">Output ErrorResponseError object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorResponseError, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, ErrorResponseError)
+            Try
+                obj = Deserialize(input)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorResponseError) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return Deserialize(input, obj, exception)
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal input As String) As ErrorResponseError
+            Dim stringReader As StringReader = Nothing
+            Try
+                stringReader = New StringReader(input)
+                Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ErrorResponseError)
+            Finally
+                If (Not (stringReader) Is Nothing) Then
+                    stringReader.Dispose()
+                End If
+            End Try
+        End Function
+
+        Public Overloads Shared Function Deserialize(ByVal s As Stream) As ErrorResponseError
+            Return CType(SerializerXml.Deserialize(s), ErrorResponseError)
+        End Function
+#End Region
+
+        ''' <summary>
+        ''' Serializes current ErrorResponseError object into file
+        ''' </summary>
+        ''' <param name="fileName">full path of outupt xml file</param>
+        ''' <param name="exception">output Exception value if failed</param>
+        ''' <returns>true if can serialize and save into file; otherwise, false</returns>
+        Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            Try
+                SaveToFile(fileName)
+                Return True
+            Catch e As System.Exception
+                exception = e
+                Return False
+            End Try
+        End Function
+
+        Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
+            Dim streamWriter As StreamWriter = Nothing
+            Try
+                Dim dataString As String = Serialize()
+                Dim outputFile As FileInfo = New FileInfo(fileName)
+                streamWriter = outputFile.CreateText
+                streamWriter.WriteLine(dataString)
+                streamWriter.Close()
+            Finally
+                If (Not (streamWriter) Is Nothing) Then
+                    streamWriter.Dispose()
+                End If
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Deserializes xml markup from file into an ErrorResponseError object
+        ''' </summary>
+        ''' <param name="fileName">File to load and deserialize</param>
+        ''' <param name="obj">Output ErrorResponseError object</param>
+        ''' <param name="exception">output Exception value if deserialize failed</param>
+        ''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorResponseError, ByRef exception As System.Exception) As Boolean
+            exception = Nothing
+            obj = CType(Nothing, ErrorResponseError)
+            Try
+                obj = LoadFromFile(fileName)
+                Return True
+            Catch ex As System.Exception
+                exception = ex
+                Return False
+            End Try
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorResponseError) As Boolean
+            Dim exception As System.Exception = Nothing
+            Return LoadFromFile(fileName, obj, exception)
+        End Function
+
+        Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ErrorResponseError
+            Dim file As FileStream = Nothing
+            Dim sr As StreamReader = Nothing
+            Try
+                file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
+                sr = New StreamReader(file)
+                Dim dataString As String = sr.ReadToEnd
+                sr.Close()
+                file.Close()
+                Return Deserialize(dataString)
+            Finally
+                If (Not (file) Is Nothing) Then
+                    file.Dispose()
+                End If
+                If (Not (sr) Is Nothing) Then
+                    sr.Dispose()
+                End If
+            End Try
+        End Function
+    End Class
+End Namespace
+#Enable Warning

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/Response/errorresponse-v2.0.xsd

@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsd:schema attributeFormDefault="unqualified"
+    elementFormDefault="qualified" id="Error-Response"
+    targetNamespace="http://www.govtalk.gov.uk/CM/errorresponse"
+    version="2.0" xmlns:err="http://www.govtalk.gov.uk/CM/errorresponse"
+    xmlns:gt="http://www.govtalk.gov.uk/CM/core" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+    <xsd:annotation>
+        <xsd:documentation>This schema is used for errors returned by
+            business systems. In these circumstances, the header
+            contains a single Error element of type &quot;business&quot;
+            and the Body contains further information.</xsd:documentation>
+        <xsd:appinfo>
+            <gt:KeyWords>business, error, response</gt:KeyWords>
+        </xsd:appinfo>
+    </xsd:annotation>
+    <xsd:element name="ErrorResponse">
+        <xsd:complexType>
+            <xsd:sequence>
+                <xsd:element minOccurs="0" ref="err:Application"/>
+                <xsd:element maxOccurs="unbounded" name="Error">
+                    <xsd:complexType>
+                        <xsd:sequence>
+                            <xsd:element name="RaisedBy" type="xsd:string"/>
+                            <xsd:element minOccurs="0" name="Number" type="xsd:integer"/>
+                            <xsd:element name="Type" type="xsd:string"/>
+                            <xsd:element maxOccurs="unbounded"
+                                minOccurs="0" name="Text" type="xsd:string"/>
+                            <xsd:element minOccurs="0" name="Location" type="xsd:string"/>
+                            <xsd:element minOccurs="0" ref="err:Application"/>
+                        </xsd:sequence>
+                    </xsd:complexType>
+                </xsd:element>
+            </xsd:sequence>
+            <xsd:attribute name="SchemaVersion" use="required"/>
+        </xsd:complexType>
+    </xsd:element>
+    <xsd:element name="Application">
+        <xsd:complexType>
+            <xsd:sequence>
+                <xsd:any maxOccurs="unbounded" minOccurs="0"
+                    namespace="##any" processContents="lax"/>
+            </xsd:sequence>
+            <xsd:anyAttribute namespace="##any"/>
+        </xsd:complexType>
+    </xsd:element>
+</xsd:schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/Response/xml.xsd

@@ -0,0 +1,286 @@
+
+<?xml-stylesheet href="../2008/09/xsd.xsl" type="text/xsl"?>
+<xs:schema targetNamespace="http://www.w3.org/XML/1998/namespace" 
+  xmlns:xs="http://www.w3.org/2001/XMLSchema" 
+  xmlns   ="http://www.w3.org/1999/xhtml"
+  xml:lang="en">
+
+ <xs:annotation>
+  <xs:documentation>
+   <div>
+    <h1>About the XML namespace</h1>
+
+    <div class="bodytext">
+     <p>
+      This schema document describes the XML namespace, in a form
+      suitable for import by other schema documents.
+     </p>
+     <p>
+      See <a href="http://www.w3.org/XML/1998/namespace.html">
+      http://www.w3.org/XML/1998/namespace.html</a> and
+      <a href="http://www.w3.org/TR/REC-xml">
+      http://www.w3.org/TR/REC-xml</a> for information 
+      about this namespace.
+     </p>
+     <p>
+      Note that local names in this namespace are intended to be
+      defined only by the World Wide Web Consortium or its subgroups.
+      The names currently defined in this namespace are listed below.
+      They should not be used with conflicting semantics by any Working
+      Group, specification, or document instance.
+     </p>
+     <p>   
+      See further below in this document for more information about <a
+      href="#usage">how to refer to this schema document from your own
+      XSD schema documents</a> and about <a href="#nsversioning">the
+      namespace-versioning policy governing this schema document</a>.
+     </p>
+    </div>
+   </div>
+  </xs:documentation>
+ </xs:annotation>
+
+ <xs:attribute name="lang">
+  <xs:annotation>
+   <xs:documentation>
+    <div>
+     
+      <h3>lang (as an attribute name)</h3>
+      <p>
+       denotes an attribute whose value
+       is a language code for the natural language of the content of
+       any element; its value is inherited.  This name is reserved
+       by virtue of its definition in the XML specification.</p>
+     
+    </div>
+    <div>
+     <h4>Notes</h4>
+     <p>
+      Attempting to install the relevant ISO 2- and 3-letter
+      codes as the enumerated possible values is probably never
+      going to be a realistic possibility.  
+     </p>
+     <p>
+      See BCP 47 at <a href="http://www.rfc-editor.org/rfc/bcp/bcp47.txt">
+       http://www.rfc-editor.org/rfc/bcp/bcp47.txt</a>
+      and the IANA language subtag registry at
+      <a href="http://www.iana.org/assignments/language-subtag-registry">
+       http://www.iana.org/assignments/language-subtag-registry</a>
+      for further information.
+     </p>
+     <p>
+      The union allows for the 'un-declaration' of xml:lang with
+      the empty string.
+     </p>
+    </div>
+   </xs:documentation>
+  </xs:annotation>
+  <xs:simpleType>
+   <xs:union memberTypes="xs:language">
+    <xs:simpleType>    
+     <xs:restriction base="xs:string">
+      <xs:enumeration value=""/>
+     </xs:restriction>
+    </xs:simpleType>
+   </xs:union>
+  </xs:simpleType>
+ </xs:attribute>
+
+ <xs:attribute name="space">
+  <xs:annotation>
+   <xs:documentation>
+    <div>
+     
+      <h3>space (as an attribute name)</h3>
+      <p>
+       denotes an attribute whose
+       value is a keyword indicating what whitespace processing
+       discipline is intended for the content of the element; its
+       value is inherited.  This name is reserved by virtue of its
+       definition in the XML specification.</p>
+     
+    </div>
+   </xs:documentation>
+  </xs:annotation>
+  <xs:simpleType>
+   <xs:restriction base="xs:NCName">
+    <xs:enumeration value="default"/>
+    <xs:enumeration value="preserve"/>
+   </xs:restriction>
+  </xs:simpleType>
+ </xs:attribute>
+ 
+ <xs:attribute name="base" type="xs:anyURI"> <xs:annotation>
+   <xs:documentation>
+    <div>
+     
+      <h3>base (as an attribute name)</h3>
+      <p>
+       denotes an attribute whose value
+       provides a URI to be used as the base for interpreting any
+       relative URIs in the scope of the element on which it
+       appears; its value is inherited.  This name is reserved
+       by virtue of its definition in the XML Base specification.</p>
+     
+     <p>
+      See <a
+      href="http://www.w3.org/TR/xmlbase/">http://www.w3.org/TR/xmlbase/</a>
+      for information about this attribute.
+     </p>
+    </div>
+   </xs:documentation>
+  </xs:annotation>
+ </xs:attribute>
+ 
+ <xs:attribute name="id" type="xs:ID">
+  <xs:annotation>
+   <xs:documentation>
+    <div>
+     
+      <h3>id (as an attribute name)</h3> 
+      <p>
+       denotes an attribute whose value
+       should be interpreted as if declared to be of type ID.
+       This name is reserved by virtue of its definition in the
+       xml:id specification.</p>
+     
+     <p>
+      See <a
+      href="http://www.w3.org/TR/xml-id/">http://www.w3.org/TR/xml-id/</a>
+      for information about this attribute.
+     </p>
+    </div>
+   </xs:documentation>
+  </xs:annotation>
+ </xs:attribute>
+
+ <xs:attributeGroup name="specialAttrs">
+  <xs:attribute ref="xml:base"/>
+  <xs:attribute ref="xml:lang"/>
+  <xs:attribute ref="xml:space"/>
+  <xs:attribute ref="xml:id"/>
+ </xs:attributeGroup>
+
+ <xs:annotation>
+  <xs:documentation>
+   <div>
+   
+    <h3>Father (in any context at all)</h3> 
+
+    <div class="bodytext">
+     <p>
+      denotes Jon Bosak, the chair of 
+      the original XML Working Group.  This name is reserved by 
+      the following decision of the W3C XML Plenary and 
+      XML Coordination groups:
+     </p>
+     <blockquote>
+       <p>
+	In appreciation for his vision, leadership and
+	dedication the W3C XML Plenary on this 10th day of
+	February, 2000, reserves for Jon Bosak in perpetuity
+	the XML name "xml:Father".
+       </p>
+     </blockquote>
+    </div>
+   </div>
+  </xs:documentation>
+ </xs:annotation>
+
+ <xs:annotation>
+  <xs:documentation>
+   <div xml:id="usage" id="usage">
+    <h2><a name="usage">About this schema document</a></h2>
+
+    <div class="bodytext">
+     <p>
+      This schema defines attributes and an attribute group suitable
+      for use by schemas wishing to allow <code>xml:base</code>,
+      <code>xml:lang</code>, <code>xml:space</code> or
+      <code>xml:id</code> attributes on elements they define.
+     </p>
+     <p>
+      To enable this, such a schema must import this schema for
+      the XML namespace, e.g. as follows:
+     </p>
+     <pre>
+          &lt;schema . . .>
+           . . .
+           &lt;import namespace="http://www.w3.org/XML/1998/namespace"
+                      schemaLocation="http://www.w3.org/2001/xml.xsd"/>
+     </pre>
+     <p>
+      or
+     </p>
+     <pre>
+           &lt;import namespace="http://www.w3.org/XML/1998/namespace"
+                      schemaLocation="http://www.w3.org/2009/01/xml.xsd"/>
+     </pre>
+     <p>
+      Subsequently, qualified reference to any of the attributes or the
+      group defined below will have the desired effect, e.g.
+     </p>
+     <pre>
+          &lt;type . . .>
+           . . .
+           &lt;attributeGroup ref="xml:specialAttrs"/>
+     </pre>
+     <p>
+      will define a type which will schema-validate an instance element
+      with any of those attributes.
+     </p>
+    </div>
+   </div>
+  </xs:documentation>
+ </xs:annotation>
+
+ <xs:annotation>
+  <xs:documentation>
+   <div id="nsversioning" xml:id="nsversioning">
+    <h2><a name="nsversioning">Versioning policy for this schema document</a></h2>
+    <div class="bodytext">
+     <p>
+      In keeping with the XML Schema WG's standard versioning
+      policy, this schema document will persist at
+      <a href="http://www.w3.org/2009/01/xml.xsd">
+       http://www.w3.org/2009/01/xml.xsd</a>.
+     </p>
+     <p>
+      At the date of issue it can also be found at
+      <a href="http://www.w3.org/2001/xml.xsd">
+       http://www.w3.org/2001/xml.xsd</a>.
+     </p>
+     <p>
+      The schema document at that URI may however change in the future,
+      in order to remain compatible with the latest version of XML
+      Schema itself, or with the XML namespace itself.  In other words,
+      if the XML Schema or XML namespaces change, the version of this
+      document at <a href="http://www.w3.org/2001/xml.xsd">
+       http://www.w3.org/2001/xml.xsd 
+      </a> 
+      will change accordingly; the version at 
+      <a href="http://www.w3.org/2009/01/xml.xsd">
+       http://www.w3.org/2009/01/xml.xsd 
+      </a> 
+      will not change.
+     </p>
+     <p>
+      Previous dated (and unchanging) versions of this schema 
+      document are at:
+     </p>
+     <ul>
+      <li><a href="http://www.w3.org/2009/01/xml.xsd">
+	http://www.w3.org/2009/01/xml.xsd</a></li>
+      <li><a href="http://www.w3.org/2007/08/xml.xsd">
+	http://www.w3.org/2007/08/xml.xsd</a></li>
+      <li><a href="http://www.w3.org/2004/10/xml.xsd">
+	http://www.w3.org/2004/10/xml.xsd</a></li>
+      <li><a href="http://www.w3.org/2001/03/xml.xsd">
+	http://www.w3.org/2001/03/xml.xsd</a></li>
+     </ul>
+    </div>
+   </div>
+  </xs:documentation>
+ </xs:annotation>
+
+</xs:schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/Response/xmldsig-core-schema.xsd

@@ -0,0 +1,318 @@
+
+<!DOCTYPE schema
+  PUBLIC "-//W3C//DTD XMLSchema 200102//EN" "http://www.w3.org/2001/XMLSchema.dtd"
+ [
+   <!ATTLIST schema 
+     xmlns:ds CDATA #FIXED "http://www.w3.org/2000/09/xmldsig#">
+   <!ENTITY dsig 'http://www.w3.org/2000/09/xmldsig#'>
+   <!ENTITY % p ''>
+   <!ENTITY % s ''>
+  ]>
+
+<!-- Schema for XML Signatures
+    http://www.w3.org/2000/09/xmldsig#
+    $Revision: 1.2 $ on $Date: 2013-04-16 12:48:49 $ by $Author: denis $
+
+    Copyright 2001 The Internet Society and W3C (Massachusetts Institute
+    of Technology, Institut National de Recherche en Informatique et en
+    Automatique, Keio University). All Rights Reserved.
+    http://www.w3.org/Consortium/Legal/
+
+    This document is governed by the W3C Software License [1] as described
+    in the FAQ [2].
+
+    [1] http://www.w3.org/Consortium/Legal/copyright-software-19980720
+    [2] http://www.w3.org/Consortium/Legal/IPR-FAQ-20000620.html#DTD
+-->
+
+
+<schema xmlns="http://www.w3.org/2001/XMLSchema"
+        xmlns:ds="http://www.w3.org/2000/09/xmldsig#"
+        targetNamespace="http://www.w3.org/2000/09/xmldsig#"
+        version="0.1" elementFormDefault="qualified"> 
+
+<!-- Basic Types Defined for Signatures -->
+
+<simpleType name="CryptoBinary">
+  <restriction base="base64Binary">
+  </restriction>
+</simpleType>
+
+<!-- Start Signature -->
+
+<element name="Signature" type="ds:SignatureType"/>
+<complexType name="SignatureType">
+  <sequence> 
+    <element ref="ds:SignedInfo"/> 
+    <element ref="ds:SignatureValue"/> 
+    <element ref="ds:KeyInfo" minOccurs="0"/> 
+    <element ref="ds:Object" minOccurs="0" maxOccurs="unbounded"/> 
+  </sequence>  
+  <attribute name="Id" type="ID" use="optional"/>
+</complexType>
+
+  <element name="SignatureValue" type="ds:SignatureValueType"/> 
+  <complexType name="SignatureValueType">
+    <simpleContent>
+      <extension base="base64Binary">
+        <attribute name="Id" type="ID" use="optional"/>
+      </extension>
+    </simpleContent>
+  </complexType>
+
+<!-- Start SignedInfo -->
+
+<element name="SignedInfo" type="ds:SignedInfoType"/>
+<complexType name="SignedInfoType">
+  <sequence> 
+    <element ref="ds:CanonicalizationMethod"/> 
+    <element ref="ds:SignatureMethod"/> 
+    <element ref="ds:Reference" maxOccurs="unbounded"/> 
+  </sequence>  
+  <attribute name="Id" type="ID" use="optional"/> 
+</complexType>
+
+  <element name="CanonicalizationMethod" type="ds:CanonicalizationMethodType"/> 
+  <complexType name="CanonicalizationMethodType" mixed="true">
+    <sequence>
+      <any namespace="##any" minOccurs="0" maxOccurs="unbounded"/>
+      <!-- (0,unbounded) elements from (1,1) namespace -->
+    </sequence>
+    <attribute name="Algorithm" type="anyURI" use="required"/> 
+  </complexType>
+
+  <element name="SignatureMethod" type="ds:SignatureMethodType"/>
+  <complexType name="SignatureMethodType" mixed="true">
+    <sequence>
+      <element name="HMACOutputLength" minOccurs="0" type="ds:HMACOutputLengthType"/>
+      <any namespace="##other" minOccurs="0" maxOccurs="unbounded"/>
+      <!-- (0,unbounded) elements from (1,1) external namespace -->
+    </sequence>
+    <attribute name="Algorithm" type="anyURI" use="required"/> 
+  </complexType>
+
+<!-- Start Reference -->
+
+<element name="Reference" type="ds:ReferenceType"/>
+<complexType name="ReferenceType">
+  <sequence> 
+    <element ref="ds:Transforms" minOccurs="0"/> 
+    <element ref="ds:DigestMethod"/> 
+    <element ref="ds:DigestValue"/> 
+  </sequence>
+  <attribute name="Id" type="ID" use="optional"/> 
+  <attribute name="URI" type="anyURI" use="optional"/> 
+  <attribute name="Type" type="anyURI" use="optional"/> 
+</complexType>
+
+  <element name="Transforms" type="ds:TransformsType"/>
+  <complexType name="TransformsType">
+    <sequence>
+      <element ref="ds:Transform" maxOccurs="unbounded"/>  
+    </sequence>
+  </complexType>
+
+  <element name="Transform" type="ds:TransformType"/>
+  <complexType name="TransformType" mixed="true">
+    <choice minOccurs="0" maxOccurs="unbounded"> 
+      <any namespace="##other" processContents="lax"/>
+      <!-- (1,1) elements from (0,unbounded) namespaces -->
+      <element name="XPath" type="string"/> 
+    </choice>
+    <attribute name="Algorithm" type="anyURI" use="required"/> 
+  </complexType>
+
+<!-- End Reference -->
+
+<element name="DigestMethod" type="ds:DigestMethodType"/>
+<complexType name="DigestMethodType" mixed="true"> 
+  <sequence>
+    <any namespace="##other" processContents="lax" minOccurs="0" maxOccurs="unbounded"/>
+  </sequence>    
+  <attribute name="Algorithm" type="anyURI" use="required"/> 
+</complexType>
+
+<element name="DigestValue" type="ds:DigestValueType"/>
+<simpleType name="DigestValueType">
+  <restriction base="base64Binary"/>
+</simpleType>
+
+<!-- End SignedInfo -->
+
+<!-- Start KeyInfo -->
+
+<element name="KeyInfo" type="ds:KeyInfoType"/> 
+<complexType name="KeyInfoType" mixed="true">
+  <choice maxOccurs="unbounded">     
+    <element ref="ds:KeyName"/> 
+    <element ref="ds:KeyValue"/> 
+    <element ref="ds:RetrievalMethod"/> 
+    <element ref="ds:X509Data"/> 
+    <element ref="ds:PGPData"/> 
+    <element ref="ds:SPKIData"/>
+    <element ref="ds:MgmtData"/>
+    <any processContents="lax" namespace="##other"/>
+    <!-- (1,1) elements from (0,unbounded) namespaces -->
+  </choice>
+  <attribute name="Id" type="ID" use="optional"/> 
+</complexType>
+
+  <element name="KeyName" type="string"/>
+  <element name="MgmtData" type="string"/>
+
+  <element name="KeyValue" type="ds:KeyValueType"/> 
+  <complexType name="KeyValueType" mixed="true">
+   <choice>
+     <element ref="ds:DSAKeyValue"/>
+     <element ref="ds:RSAKeyValue"/>
+     <any namespace="##other" processContents="lax"/>
+   </choice>
+  </complexType>
+
+  <element name="RetrievalMethod" type="ds:RetrievalMethodType"/> 
+  <complexType name="RetrievalMethodType">
+    <sequence>
+      <element ref="ds:Transforms" minOccurs="0"/> 
+    </sequence>  
+    <attribute name="URI" type="anyURI"/>
+    <attribute name="Type" type="anyURI" use="optional"/>
+  </complexType>
+
+<!-- Start X509Data -->
+
+<element name="X509Data" type="ds:X509DataType"/> 
+<complexType name="X509DataType">
+  <sequence maxOccurs="unbounded">
+    <choice>
+      <element name="X509IssuerSerial" type="ds:X509IssuerSerialType"/>
+      <element name="X509SKI" type="base64Binary"/>
+      <element name="X509SubjectName" type="string"/>
+      <element name="X509Certificate" type="base64Binary"/>
+      <element name="X509CRL" type="base64Binary"/>
+      <any namespace="##other" processContents="lax"/>
+    </choice>
+  </sequence>
+</complexType>
+
+<complexType name="X509IssuerSerialType"> 
+  <sequence> 
+    <element name="X509IssuerName" type="string"/> 
+    <element name="X509SerialNumber" type="integer"/> 
+  </sequence>
+</complexType>
+
+<!-- End X509Data -->
+
+<!-- Begin PGPData -->
+
+<element name="PGPData" type="ds:PGPDataType"/> 
+<complexType name="PGPDataType"> 
+  <choice>
+    <sequence>
+      <element name="PGPKeyID" type="base64Binary"/> 
+      <element name="PGPKeyPacket" type="base64Binary" minOccurs="0"/> 
+      <any namespace="##other" processContents="lax" minOccurs="0"
+       maxOccurs="unbounded"/>
+    </sequence>
+    <sequence>
+      <element name="PGPKeyPacket" type="base64Binary"/> 
+      <any namespace="##other" processContents="lax" minOccurs="0"
+       maxOccurs="unbounded"/>
+    </sequence>
+  </choice>
+</complexType>
+
+<!-- End PGPData -->
+
+<!-- Begin SPKIData -->
+
+<element name="SPKIData" type="ds:SPKIDataType"/> 
+<complexType name="SPKIDataType">
+  <sequence maxOccurs="unbounded">
+    <element name="SPKISexp" type="base64Binary"/>
+    <any namespace="##other" processContents="lax" minOccurs="0"/>
+  </sequence>
+</complexType> 
+
+<!-- End SPKIData -->
+
+<!-- End KeyInfo -->
+
+<!-- Start Object (Manifest, SignatureProperty) -->
+
+<element name="Object" type="ds:ObjectType"/> 
+<complexType name="ObjectType" mixed="true">
+  <sequence minOccurs="0" maxOccurs="unbounded">
+    <any namespace="##any" processContents="lax"/>
+  </sequence>
+  <attribute name="Id" type="ID" use="optional"/> 
+  <attribute name="MimeType" type="string" use="optional"/> <!-- add a grep facet -->
+  <attribute name="Encoding" type="anyURI" use="optional"/> 
+</complexType>
+
+<element name="Manifest" type="ds:ManifestType"/> 
+<complexType name="ManifestType">
+  <sequence>
+    <element ref="ds:Reference" maxOccurs="unbounded"/> 
+  </sequence>
+  <attribute name="Id" type="ID" use="optional"/> 
+</complexType>
+
+<element name="SignatureProperties" type="ds:SignaturePropertiesType"/> 
+<complexType name="SignaturePropertiesType">
+  <sequence>
+    <element ref="ds:SignatureProperty" maxOccurs="unbounded"/> 
+  </sequence>
+  <attribute name="Id" type="ID" use="optional"/> 
+</complexType>
+
+   <element name="SignatureProperty" type="ds:SignaturePropertyType"/> 
+   <complexType name="SignaturePropertyType" mixed="true">
+     <choice maxOccurs="unbounded">
+       <any namespace="##other" processContents="lax"/>
+       <!-- (1,1) elements from (1,unbounded) namespaces -->
+     </choice>
+     <attribute name="Target" type="anyURI" use="required"/> 
+     <attribute name="Id" type="ID" use="optional"/> 
+   </complexType>
+
+<!-- End Object (Manifest, SignatureProperty) -->
+
+<!-- Start Algorithm Parameters -->
+
+<simpleType name="HMACOutputLengthType">
+  <restriction base="integer"/>
+</simpleType>
+
+<!-- Start KeyValue Element-types -->
+
+<element name="DSAKeyValue" type="ds:DSAKeyValueType"/>
+<complexType name="DSAKeyValueType">
+  <sequence>
+    <sequence minOccurs="0">
+      <element name="P" type="ds:CryptoBinary"/>
+      <element name="Q" type="ds:CryptoBinary"/>
+    </sequence>
+    <element name="G" type="ds:CryptoBinary" minOccurs="0"/>
+    <element name="Y" type="ds:CryptoBinary"/>
+    <element name="J" type="ds:CryptoBinary" minOccurs="0"/>
+    <sequence minOccurs="0">
+      <element name="Seed" type="ds:CryptoBinary"/>
+      <element name="PgenCounter" type="ds:CryptoBinary"/>
+    </sequence>
+  </sequence>
+</complexType>
+
+<element name="RSAKeyValue" type="ds:RSAKeyValueType"/>
+<complexType name="RSAKeyValueType">
+  <sequence>
+    <element name="Modulus" type="ds:CryptoBinary"/> 
+    <element name="Exponent" type="ds:CryptoBinary"/> 
+  </sequence>
+</complexType> 
+
+<!-- End KeyValue Element-types -->
+
+<!-- End Signature -->
+
+</schema>

VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/cHMRC_ENS.vb

@@ -1,6 +1,19 @@
-Imports Org.BouncyCastle.Ocsp
+Imports System.IO
-Imports VERAG_PROG_ALLGEMEIN.CC015B_TR_EXT_V4_3
+Imports System.Xml.Linq
+Imports com.sun.xml.internal.rngom.parse.compact
+Imports Org.BouncyCastle.Ocsp
+Imports Polly
+Imports CC015B_TR_EXT_V4_3
+Imports CC304A_v10_0
+Imports CC305A_v10_0
+Imports CC316A_v10_0
+Imports CC328A_v10_0
+Imports ENS_CC315A
 Imports VERAG_PROG_ALLGEMEIN.ENS_CC315A
+Imports VERAG_PROG_ALLGEMEIN.CC304A_v10_0
+Imports VERAG_PROG_ALLGEMEIN.CC316A_v10_0
+Imports VERAG_PROG_ALLGEMEIN.CC328A_v10_0
+Imports VERAG_PROG_ALLGEMEIN.CC305A_v10_0
 
 Public Class cHMRC_ENS
 
@@ -16,133 +29,836 @@ Public Class cHMRC_ENS
 
 
     Shared Function helloWorldENS(ByVal response As String) As Boolean
+        Try
+
+
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
 
 
 
-        VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+            Dim TOKEN = cHMRC.getTOKEN("ENS_HELLOWORLD")
 
+            If TOKEN.hasEntry Then
 
+                ' HTTP-Client initialisieren
+                Dim http As New Chilkat.Http
 
+                ' Falls das Token fehlt, Hinweis ausgeben
+                If String.IsNullOrEmpty(TOKEN.token_BEARER_TOKEN) Then
+                    Console.WriteLine("Fehler: Kein OAuth2-Token gefunden!")
+                    Return False
+                End If
 
-        Dim TOKEN = cHMRC.getTOKEN("ENS_HELLOWORLD")
+                ' Setze die benötigten Header
+                http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+                http.SetRequestHeader("Content-Type", "application/xml; charset=UTF-8")
+                http.SetRequestHeader("Authorization", "Bearer " & TOKEN.token_BEARER_TOKEN)
 
-        If TOKEN.hasEntry Then
+                ' API-Endpunkt für User-Restricted Hello API
+                Dim url As String = "https://test-api.service.hmrc.gov.uk/hello/application"
+                'Dim url As String = "https://test-api.service.hmrc.gov.uk/hello/user"
 
-            ' HTTP-Client initialisieren
+                ' API-Anfrage senden
-            Dim http As New Chilkat.Http
+                response = http.QuickGetStr(url)
 
-            ' Falls das Token fehlt, Hinweis ausgeben
+                ' Fehlerbehandlung
-            If String.IsNullOrEmpty(TOKEN.token_BEARER_TOKEN) Then
+                If (http.LastMethodSuccess <> True) Then
-                Console.WriteLine("Fehler: Kein OAuth2-Token gefunden!")
+                    Console.WriteLine("Fehler: " & http.LastErrorText)
-                Return False
+                    MsgBox("Fehler: " & http.LastErrorText)
+                Else
+                    Console.WriteLine("Antwort von HMRC API: " & response)
+                    MsgBox("Antwort von HMRC API: " & response)
+                End If
+                Return True
             End If
 
-            ' Setze die benötigten Header
+        Catch ex As Exception
-            http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+            cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-            http.SetRequestHeader("Content-Type", "application/xml; charset=UTF-8")
+        End Try
-            http.SetRequestHeader("Authorization", "Bearer " & TOKEN.token_BEARER_TOKEN)
 
-            ' API-Endpunkt für User-Restricted Hello API
-            Dim url As String = "https://test-api.service.hmrc.gov.uk/hello/application"
-            'Dim url As String = "https://test-api.service.hmrc.gov.uk/hello/user"
-
-            ' API-Anfrage senden
-            response = http.QuickGetStr(url)
-
-            ' Fehlerbehandlung
-            If (http.LastMethodSuccess <> True) Then
-                Console.WriteLine("Fehler: " & http.LastErrorText)
-                MsgBox("Fehler: " & http.LastErrorText)
-            Else
-                Console.WriteLine("Antwort von HMRC API: " & response)
-                MsgBox("Antwort von HMRC API: " & response)
-            End If
-            Return True
-        End If
         Return False
     End Function
-    Shared Function insertENS(ENS_CC315A As CC315AType, ByVal response As String) As Boolean
+    Shared Function insertENS(ENS_CC315A As CC315AType, ByVal responseStr As String) As Boolean
-        ' Chilkat-Objekt initialisieren
+        Try
-        Dim http As New Chilkat.Http()
+            ' Chilkat-Objekt initialisieren
+            '  Dim http As New Chilkat.Http()
 
 
-        ' EORI-Nummer für die Überprüfung
+            ' EORI-Nummer für die Überprüfung
-        'Dim eoriNumber As String = "GB123456789000"
+            'Dim eoriNumber As String = "GB123456789000"
 
-        Dim url As String = ""
+            Dim CREDENTIALS = cHMRC.getCredentials(ApplicationName)
-        If TEST Then
+            Dim url As String = CREDENTIALS.API_STRING ' URL Setzenen https://api.service.hmrc.gov.uk / https://test-api.service.hmrc.gov.uk
-            url = "test-api.service.hmrc.gov.uk"
-        Else
-            url = "api.service.hmrc.gov.uk"
-        End If
-        MsgBox(url)
-        VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
 
-        '-------------------------------------------------------
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
 
-        ENS_CC315A = New CC315AType
+            '-------------------------------------------------------
-
-        ENS_CC315A.MesSenMES3 = "GB123"
-        ENS_CC315A.DatOfPreMES9 = Now.ToString("yyMMdd")
-        ENS_CC315A.TimOfPreMES10 = Now.ToString("HHmm")
-        ENS_CC315A.MesIdeMES19 = "ABCD1234"
-        'ENS_CC315A.MesTypMES20 = "CC315A"
-
-        ENS_CC315A.HEAHEA.RefNumHEA4 = "ABCD1234"
-        ENS_CC315A.HEAHEA.TraModAtBorHEA76 = "4"
-        ENS_CC315A.HEAHEA.TotNumOfIteHEA305 = "1"
-
-
-        '-------------------------------------------------------
 
 
 
 
-        Dim TOKEN = cHMRC.getTOKEN("ENS", True)
+            'TEEST:::
 
-        If TOKEN.hasEntry Then
+            ENS_CC315A = CC315AType.LoadFromFile("D:\Andreas\TMP\CC315A_Example1.xml")
+            ENS_CC315A.DatOfPreMES9 = Now.ToString("yyMMdd")
+            ENS_CC315A.TimOfPreMES10 = Now.ToString("HHmm")
 
-            Dim req As New Chilkat.HttpRequest()
+            If False Then
+                If ENS_CC315A Is Nothing Then
+                    'Return False                 'FEHLER!??!? 
+                    ENS_CC315A = New CC315AType '-> nur zum testen
+                End If
+                If ENS_CC315A.MesSenMES3 Is Nothing OrElse ENS_CC315A.MesSenMES3 = "" Then
+                    ENS_CC315A.MesSenMES3 = "GB552556002342"  'TEST USER 790949012321
+                End If
 
-            ' Setze deine HMRC API-Credentials
+                ENS_CC315A.DatOfPreMES9 = Now.ToString("yyMMdd")
-            http.AuthToken = TOKEN.token_BEARER_TOKEN
+                ENS_CC315A.TimOfPreMES10 = Now.ToString("HHmm")
+                ENS_CC315A.MesIdeMES19 = "ABCD1234"
+                'ENS_CC315A.MesTypMES20 = "CC315A"
 
-            req.HttpVerb = "POST"
+                ENS_CC315A.HEAHEA.RefNumHEA4 = "ABCD1234"
-            req.Path = "/customs/imports/declarations"
+                ENS_CC315A.HEAHEA.TraModAtBorHEA76 = "4"
-            req.ContentType = "application/xml"
+                ENS_CC315A.HEAHEA.TotNumOfIteHEA305 = "1"
-            req.Charset = "utf-8"
-            req.SendCharset = True
-
-
-
-            MsgBox(ENS_CC315A.Serialize)
-            ' Füge das XML als Body hinzu
-            req.LoadBodyFromString(ENS_CC315A.Serialize, "utf-8")
-
-            ' Füge benötigte Header hinzu
-            req.AddHeader("Accept", "application/vnd.hmrc.1.0+xml") '"application/vnd.hmrc.1.0+xml")
-            req.AddHeader("Content-Type", "application/xml; charset=UTF-8") '"application/xml")
-            req.AddHeader("Authorization", "Bearer " & TOKEN.token_BEARER_TOKEN)
-            '   req.AddHeader("Gov-Client-Connection-Method", "WEB_APP_VIA_SERVER")
-            '   req.AddHeader("Gov-Client-Public-IP", "192.168.1.1")
-            '   req.AddHeader("Gov-Client-Timezone", "UTC+00:00")
-
-            MsgBox(TOKEN.token_BEARER_TOKEN)
-            ' Sende die Anfrage
-            Dim resp As Chilkat.HttpResponse = http.SynchronousRequest(url, 443, True, req)
-
-            If resp Is Nothing Then
-                Console.WriteLine("Fehler: " & http.LastErrorText)
-            Else
-                Console.WriteLine("Status Code: " & resp.StatusCode)
-                Console.WriteLine("Antwort: " & resp.BodyStr)
             End If
 
-            Return True
+
-        End If
+            '-------------------------------------------------------
+
+
+
+
+            Dim TOKEN = cHMRC.getTOKEN("ENS")
+
+            If TOKEN.hasEntry Then
+
+
+                ' Erstellen Sie eine Instanz des Http-Objekts
+                Dim http As New Chilkat.Http()
+
+                ' Authentifizierung: Setzen des Bearer-Tokens
+                http.AuthToken = TOKEN.token_BEARER_TOKEN
+
+                ' Setzen des Accept-Headers für die erwartete Antwort im XML-Format
+                http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+
+                ' Setzen des Content-Type-Headers für die Anfrage
+                http.SetRequestHeader("Content-Type", "application/xml; charset=UTF-8")
+
+                ' Definieren Sie die URL für die POST-Anfrage
+                Dim urlHTTP As String = url & "/customs/imports/declarations"
+                Dim xmlContent As String = ENS_CC315A.Serialize
+
+                '  xmlContent = File.ReadAllText("D:\Andreas\TMP\CC315A_Example1.xml")
+
+                MsgBox(xmlContent)
+                ' Senden Sie die POST-Anfrage mit dem XML-Inhalt
+                Dim response As Chilkat.HttpResponse = http.PostXml(urlHTTP, xmlContent, "utf-8")
+                If (http.LastMethodSuccess = False) Then
+                    Console.WriteLine("Fehler bei der Anfrage: " & http.LastErrorText)
+                    Return False
+                End If
+
+                ' Überprüfen Sie den HTTP-Statuscode der Antwort
+                If (response.StatusCode = 202) Then
+                    Console.WriteLine("Entry Summary Declaration erfolgreich eingereicht.")
+                    Console.WriteLine("Antwort:")
+                    Console.WriteLine(response.BodyStr)
+
+
+                    Dim tempFilePath As String = Path.GetTempFileName()
+                    File.WriteAllText(tempFilePath, response.BodyStr)
+
+                    Dim RESP = SuccessResponse_v2_0.SuccessResponse.LoadFromFile(tempFilePath)
+                    Try
+                        File.Delete(tempFilePath) ' Bereinigen nach der Verwendung
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+
+
+                    Return True
+                ElseIf (response.StatusCode = 400) Then
+
+                    Console.WriteLine("Fehler: HTTP Statuscode " & response.StatusCode)
+                    Console.WriteLine(response.BodyStr)
+
+
+                    Dim errTxt = ""
+                    Dim tempFilePath As String = Path.GetTempFileName()
+                    File.WriteAllText(tempFilePath, response.BodyStr)
+
+                    Dim RESP = errorresponse_v2_0.ErrorResponse.LoadFromFile(tempFilePath)
+                    Try
+                        File.Delete(tempFilePath) ' Bereinigen nach der Verwendung
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+
+                    For Each Erline In RESP.Error
+                        errTxt &= String.Join(", ", Erline.Text) & vbNewLine & vbNewLine
+                    Next
+
+
+                    MsgBox(errTxt)
+
+                    Return False
+
+
+                Else
+                    Console.WriteLine("Fehler: HTTP Statuscode " & response.StatusCode)
+                    Console.WriteLine(response.BodyStr)
+
+
+                    Return False
+
+                End If
+
+
+
+                'Dim req As New Chilkat.HttpRequest()
+
+                '' Setze deine HMRC API-Credentials
+                'http.AuthToken = TOKEN.token_BEARER_TOKEN
+
+                'req.HttpVerb = "POST"
+                'req.Path = "/customs/imports/declarations"
+                'req.ContentType = "application/xml"
+                'req.Charset = "utf-8"
+                'req.SendCharset = True
+
+                '' Füge das XML als Body hinzu
+                'req.LoadBodyFromString(ENS_CC315A.Serialize, "utf-8")
+
+                '' Füge benötigte Header hinzu
+                'req.AddHeader("Accept", "application/vnd.hmrc.1.0+xml") '"application/vnd.hmrc.1.0+xml")
+                'req.AddHeader("Content-Type", "application/xml; charset=UTF-8") '"application/xml")
+                'req.AddHeader("Authorization", "Bearer " & TOKEN.token_BEARER_TOKEN)
+
+                'MsgBox(TOKEN.token_BEARER_TOKEN)
+                '' Sende die Anfrage
+                'Dim resp As Chilkat.HttpResponse = http.SynchronousRequest(url, 443, True, req)
+
+                'If resp Is Nothing Then
+                '    Console.WriteLine("Fehler: " & http.LastErrorText)
+                'Else
+                '    Console.WriteLine("Status Code: " & resp.StatusCode)
+                '    Console.WriteLine("Antwort: " & resp.BodyStr)
+                'End If
+
+                'Return True
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
         Return False
     End Function
 
 
+    Shared Function amendENS(MRN As String, ByRef CC313AResponse As CC315AType) As Boolean
+
+        Try
+
+
+            Dim CREDENTIALS = cHMRC.getCredentials(ApplicationName)
+            Dim url As String = CREDENTIALS.API_STRING ' URL Setzenen https://api.service.hmrc.gov.uk / https://test-api.service.hmrc.gov.uk
+
+
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+
+
+
+            Dim TOKEN = cHMRC.getTOKEN("ENS")
+
+            If TOKEN.hasEntry Then
+
+
+                ' Erstellen Sie eine Instanz des Http-Objekts
+                Dim http As New Chilkat.Http()
+
+                ' Authentifizierung: Setzen des Bearer-Tokens
+                http.AuthToken = TOKEN.token_BEARER_TOKEN
+
+                ' Setzen des Accept-Headers für die erwartete Antwort im XML-Format
+                http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+
+                ' Setzen des Content-Type-Headers (kann erforderlich sein)
+                http.SetRequestHeader("Content-Type", "application/xml")
+
+                ' Definieren Sie die URL für die PUT-Anfrage
+                Dim urlHttp As String = url & "/customs/imports/declarations/{" & MRN & "}"
+
+                ' Senden Sie die PUT-Anfrage ohne Body
+                Dim response As Chilkat.HttpResponse = http.QuickRequest("PUT", urlHttp)
+
+                If (http.LastMethodSuccess = False) Then
+                    Console.WriteLine("❌ Fehler bei der Anfrage: " & http.LastErrorText)
+                    Return False
+                End If
+
+                ' Überprüfen Sie den HTTP-Statuscode der Antwort
+                If (response.StatusCode = 200) Then
+                    Console.WriteLine("✅ Entry Summary Declaration erfolgreich geändert.")
+                    Console.WriteLine("Antwort:")
+                    Console.WriteLine(response.BodyStr) ' XML-Ausgabe der Antwort
+
+
+
+                    Dim tempFilePath As String = Path.GetTempFileName()
+                    File.WriteAllText(tempFilePath, response.BodyStr)
+
+                    CC313AResponse = CC315AType.LoadFromFile(tempFilePath)
+                    Try
+                        File.Delete(tempFilePath) ' Bereinigen nach der Verwendung
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+
+
+                    Return True
+                Else
+                    Console.WriteLine("❌ Fehler: HTTP Statuscode " & response.StatusCode)
+                    Console.WriteLine(response.BodyStr)
+                    Return False
+                End If
+
+
+
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
+
+
+    Shared Function getListOfENSOutcomes() As List(Of HmrcOutcomes)
+
+        Try
+
+
+            Dim CREDENTIALS = cHMRC.getCredentials(ApplicationName)
+            Dim url As String = CREDENTIALS.API_STRING ' URL Setzenen https://api.service.hmrc.gov.uk / https://test-api.service.hmrc.gov.uk
+
+
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+
+
+
+            Dim TOKEN = cHMRC.getTOKEN("ENS")
+
+            If TOKEN.hasEntry Then
+
+
+                ' Erstellen Sie eine Instanz des Http-Objekts
+                Dim http As New Chilkat.Http()
+
+                ' Authentifizierung: Setzen des Bearer-Tokens
+                http.AuthToken = TOKEN.token_BEARER_TOKEN
+
+                ' Setzen des Accept-Headers für die erwartete Antwort im XML-Format
+                http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+
+                ' Definieren Sie die URL für die GET-Anfrage
+                Dim urlHttp As String = url & "/customs/imports/outcomes/"
+
+                ' Senden Sie die GET-Anfrage
+                Dim response As Chilkat.HttpResponse = http.QuickRequest("GET", urlHttp)
+
+                If (http.LastMethodSuccess = False) Then
+                    Console.WriteLine("Fehler bei der Anfrage: " & http.LastErrorText)
+                    Return Nothing
+                End If
+
+
+                ' Überprüfen Sie den HTTP-Statuscode der Antwort
+                If (response.StatusCode = 204) Then
+
+                    Console.WriteLine("Ergebnis: Kein Inhalt!")
+                    Console.WriteLine(response.BodyStr)
+                    Return Nothing
+
+                End If
+
+                ' Überprüfen Sie den HTTP-Statuscode der Antwort
+                If (response.StatusCode = 200) Then
+                    Console.WriteLine("Liste der Outcomes erfolgreich abgerufen:")
+                    Console.WriteLine(response.BodyStr) ' XML-Ausgabe der Antwort
+                    Dim HmrcOutcomesList As List(Of HmrcOutcomes) = ParseHmrcXmlResponseOutcomes(response.BodyStr)
+
+
+                    Return HmrcOutcomesList
+                Else
+                    Console.WriteLine("Fehler: HTTP Statuscode " & response.StatusCode)
+                    Console.WriteLine(response.BodyStr)
+                    Return Nothing
+                End If
+
+            End If
+
+        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 retrieveENSOutcome(correlationId, ByRef TypeOfResonse, ByRef ResponseClass) As Boolean
+
+        Try
+
+            Dim CREDENTIALS = cHMRC.getCredentials(ApplicationName)
+            Dim url As String = CREDENTIALS.API_STRING ' URL Setzenen https://api.service.hmrc.gov.uk / https://test-api.service.hmrc.gov.uk
+
+
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+
+
+
+            Dim TOKEN = cHMRC.getTOKEN("ENS")
+
+            If TOKEN.hasEntry Then
+
+
+                ' Erstellen Sie eine Instanz des Http-Objekts
+                Dim http As New Chilkat.Http()
+
+                ' Authentifizierung: Setzen des Bearer-Tokens
+                http.AuthToken = TOKEN.token_BEARER_TOKEN
+
+                ' Setzen des Accept-Headers für die erwartete Antwort im XML-Format
+                http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+
+                ' Definieren Sie die URL für die GET-Anfrage
+                Dim urlHttp As String = url & "/customs/imports/outcomes/{" & correlationId & "}"
+
+                ' Senden Sie die GET-Anfrage
+                Dim response As Chilkat.HttpResponse = http.QuickRequest("GET", urlHttp)
+
+                If (http.LastMethodSuccess = False) Then
+                    Console.WriteLine("Fehler bei der Anfrage: " & http.LastErrorText)
+                    Return Nothing
+                End If
+
+
+
+                ' Überprüfen Sie den HTTP-Statuscode der Antwort
+                If (response.StatusCode = 200) Then
+                    Console.WriteLine("Outcome erfolgreich abgerufen:")
+                    Console.WriteLine(response.BodyStr) ' XML-Ausgabe der Antwort
+
+                    If response.BodyStr.Contains("CC328A") Then ' ANTWORT OK New submission accepted:
+
+                        Dim tempFilePath As String = Path.GetTempFileName()
+                        File.WriteAllText(tempFilePath, response.BodyStr)
+
+                        Dim CC328A = CC328AType.LoadFromFile(tempFilePath)
+                        Try
+                            File.Delete(tempFilePath) ' Bereinigen nach der Verwendung
+                        Catch ex As Exception
+                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        End Try
+
+                        TypeOfResonse = "CC328A"
+                        ResponseClass = CC328A
+                        Return True
+
+                    ElseIf response.BodyStr.Contains("CC316A") Then ' ANTWORT OK New submission rejected:
+
+
+                        Dim tempFilePath As String = Path.GetTempFileName()
+                        File.WriteAllText(tempFilePath, response.BodyStr)
+
+                        Dim CC316A = CC316AType.LoadFromFile(tempFilePath)
+                        Try
+                            File.Delete(tempFilePath) ' Bereinigen nach der Verwendung
+                        Catch ex As Exception
+                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        End Try
+
+                        TypeOfResonse = "CC316A"
+                        ResponseClass = CC316A
+                        Return True
+
+                    ElseIf response.BodyStr.Contains("CC304A") Then ' Amended submission accepted
+
+
+                        Dim tempFilePath As String = Path.GetTempFileName()
+                        File.WriteAllText(tempFilePath, response.BodyStr)
+
+                        Dim CC304A = CC304AType.LoadFromFile(tempFilePath)
+                        Try
+                            File.Delete(tempFilePath) ' Bereinigen nach der Verwendung
+                        Catch ex As Exception
+                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        End Try
+
+                        TypeOfResonse = "CC304A"
+                        ResponseClass = CC304A
+                        Return True
+
+                    ElseIf response.BodyStr.Contains("CC305A") Then ' Amended submission rejected
+
+
+                        Dim tempFilePath As String = Path.GetTempFileName()
+                        File.WriteAllText(tempFilePath, response.BodyStr)
+
+                        Dim CC305A = CC305AType.LoadFromFile(tempFilePath)
+                        Try
+                            File.Delete(tempFilePath) ' Bereinigen nach der Verwendung
+                        Catch ex As Exception
+                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        End Try
+
+                        TypeOfResonse = "CC305A"
+                        ResponseClass = CC305A
+                        Return True
+                    End If
+                Else
+                    Console.WriteLine("Fehler: HTTP Statuscode " & response.StatusCode)
+                    Console.WriteLine(response.BodyStr)
+                    Return Nothing
+                End If
+
+
+                '                The Outcome for the Correlation ID (schema here).
+
+                'An accepted outcome which Is successful will contain a Movement Reference Number. A rejected outcome will contain one Or more errors. Accordingly, the content of response element will be based on one of the following schemas:  
+
+                '    New submission accepted schema http //ics.dgtaxud.ec/CC328A.
+                '    New submission rejected: schema http:   //ics.dgtaxud.ec/CC316A.
+                '    Amended submission accepted: schema http:   //ics.dgtaxud.ec/CC304A.
+                '    Amended submission rejected: schema http: //ics.dgtaxud.ec/CC305A.
+
+
+            End If
+
+        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 acknowlageENSOutcome(correlationId) As Boolean
+
+        Try
+
+            Dim CREDENTIALS = cHMRC.getCredentials(ApplicationName)
+            Dim url As String = CREDENTIALS.API_STRING ' URL Setzenen https://api.service.hmrc.gov.uk / https://test-api.service.hmrc.gov.uk
+
+
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+
+
+
+            Dim TOKEN = cHMRC.getTOKEN("ENS")
+
+            If TOKEN.hasEntry Then
+
+                ' Erstellen Sie eine Instanz des Http-Objekts
+                Dim http As New Chilkat.Http()
+
+                ' Authentifizierung: Setzen des Bearer-Tokens
+                http.AuthToken = TOKEN.token_BEARER_TOKEN
+
+                ' Setzen des Accept-Headers für die erwartete Antwort im XML-Format
+                http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+
+                ' Setzen des Content-Type-Headers für die Anfrage
+                http.SetRequestHeader("Content-Type", "application/xml")
+
+                ' Definieren Sie die URL für die POST-Anfrage
+                Dim urlHttp As String = url & "/customs/imports/outcomes/{" & correlationId & "}"
+                ' Senden Sie die POST-Anfrage ohne Body
+                Dim response As Chilkat.HttpResponse = http.QuickRequest("POST", urlHttp)
+
+                If (http.LastMethodSuccess = False) Then
+                    Console.WriteLine("Fehler bei der Anfrage: " & http.LastErrorText)
+                    Return False
+                End If
+
+                ' Überprüfen Sie den HTTP-Statuscode der Antwort
+                If (response.StatusCode = 204) Then
+                    Console.WriteLine("✅ Benachrichtigung erfolgreich bestätigt.")
+                    Return True
+                Else
+                    Console.WriteLine("❌ Fehler: HTTP Statuscode " & response.StatusCode)
+                    Console.WriteLine(response.BodyStr)
+                    Return False
+                End If
+
+
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
+
+    Shared Function getENSNotifications() As List(Of HmrcNotification)
+
+        Try
+
+
+            Dim CREDENTIALS = cHMRC.getCredentials(ApplicationName)
+            Dim url As String = CREDENTIALS.API_STRING ' URL Setzenen https://api.service.hmrc.gov.uk / https://test-api.service.hmrc.gov.uk
+
+
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+
+
+
+            Dim TOKEN = cHMRC.getTOKEN("ENS")
+
+            If TOKEN.hasEntry Then
+
+
+                ' Erstellen Sie eine Instanz des Http-Objekts
+                Dim http As New Chilkat.Http()
+
+                ' Falls eine Authentifizierung erforderlich ist, setzen Sie den API-Schlüssel oder andere Authentifizierungsheader
+                http.SetRequestHeader("Authorization", "Bearer " & TOKEN.token_BEARER_TOKEN)
+
+                ' Setzen des Accept-Headers für die erwartete Antwort im XML-Format
+                http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+
+                ' Definieren Sie die URL für die GET-Anfrage
+                Dim urlHttpReq As String = url & "/customs/imports/notifications/"
+
+                ' Senden Sie die GET-Anfrage und erhalten Sie die Antwort
+                Dim response As Chilkat.HttpResponse = http.QuickRequest("GET", urlHttpReq)
+                If (http.LastMethodSuccess = False) Then
+                    Console.WriteLine("Fehler bei der Anfrage: " & http.LastErrorText)
+                    Return Nothing
+                End If
+
+
+                ' Überprüfen Sie den HTTP-Statuscode der Antwort
+                If (response.StatusCode = 204) Then
+
+                    Console.WriteLine("Ergebnis: Kein Inhalt!")
+                    Console.WriteLine(response.BodyStr)
+                    Return Nothing
+
+                End If
+                If (response.StatusCode <> 200) Then
+                    Console.WriteLine("Fehler: HTTP Statuscode " & response.StatusCode)
+                    Console.WriteLine(response.BodyStr)
+                    Return Nothing
+                End If
+
+                ' Verarbeiten Sie den Antworttext (XML)
+                Dim xmlResponse As String = response.BodyStr
+                Console.WriteLine("Antwort erhalten:")
+                Console.WriteLine(xmlResponse)
+                Dim NotificationList As List(Of HmrcNotification) = ParseHmrcXmlResponse(xmlResponse)
+
+
+                Return NotificationList
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return Nothing
+    End Function
+
+    Public Shared Function ParseHmrcXmlResponse(xmlResponse As String) As List(Of HmrcNotification)
+        Dim notifications As New List(Of HmrcNotification)
+
+        Try
+            ' XML in ein XElement-Objekt laden
+            Dim xml As XElement = XElement.Parse(xmlResponse)
+
+            ' Alle <response>-Elemente durchlaufen
+            For Each response As XElement In xml.Elements("response")
+                Dim notification As New HmrcNotification With {
+                    .CorrelationId = response.Element("correlationId")?.Value,
+                    .NotificationId = response.Element("notificationId")?.Value,
+                    .Link = response.Element("link")?.Value
+                }
+                notifications.Add(notification)
+            Next
+        Catch ex As Exception
+            Console.WriteLine("Fehler beim Parsen der XML-Antwort: " & ex.Message)
+        End Try
+
+        Return notifications
+    End Function
+
+
+    Public Shared Function ParseHmrcXmlResponseOutcomes(xmlResponse As String) As List(Of HmrcOutcomes)
+        Dim outcomes As New List(Of HmrcOutcomes)
+
+        Try
+            ' XML in ein XElement-Objekt laden
+            Dim xml As XElement = XElement.Parse(xmlResponse)
+
+            ' Alle <response>-Elemente durchlaufen
+            For Each response As XElement In xml.Elements("response")
+                Dim notification As New HmrcOutcomes With {
+                    .CorrelationId = response.Element("correlationId")?.Value,
+                    .MRN = response.Element("MRN")?.Value,
+                    .Link = response.Element("link")?.Value
+                }
+                outcomes.Add(notification)
+            Next
+        Catch ex As Exception
+            Console.WriteLine("Fehler beim Parsen der XML-Antwort: " & ex.Message)
+        End Try
+
+        Return outcomes
+    End Function
+
+
+
+    Shared Function acknowlageENSNotification(notificationID) As Boolean
+
+        Try
+
+            Dim CREDENTIALS = cHMRC.getCredentials(ApplicationName)
+            Dim url As String = CREDENTIALS.API_STRING ' URL Setzenen https://api.service.hmrc.gov.uk / https://test-api.service.hmrc.gov.uk
+
+
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+
+
+
+            Dim TOKEN = cHMRC.getTOKEN("ENS")
+
+            If TOKEN.hasEntry Then
+
+                ' Erstellen Sie eine Instanz des Http-Objekts
+                Dim http As New Chilkat.Http()
+
+                ' Authentifizierung: Setzen des Bearer-Tokens
+                http.AuthToken = TOKEN.token_BEARER_TOKEN
+
+                ' Setzen des Accept-Headers für die erwartete Antwort im XML-Format
+                http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+
+                ' Setzen des Content-Type-Headers für die Anfrage
+                http.SetRequestHeader("Content-Type", "application/xml")
+
+                ' Definieren Sie die URL für die POST-Anfrage
+                Dim urlHttp As String = url & "/customs/imports/notifications/{" & notificationID & "}/acknowledge"
+                ' Senden Sie die POST-Anfrage ohne Body
+                Dim response As Chilkat.HttpResponse = http.QuickRequest("POST", urlHttp)
+
+                If (http.LastMethodSuccess = False) Then
+                    Console.WriteLine("Fehler bei der Anfrage: " & http.LastErrorText)
+                    Return False
+                End If
+
+                ' Überprüfen Sie den HTTP-Statuscode der Antwort
+                If (response.StatusCode = 204) Then
+                    Console.WriteLine("✅ Benachrichtigung erfolgreich bestätigt.")
+                    Return True
+                Else
+                    Console.WriteLine("❌ Fehler: HTTP Statuscode " & response.StatusCode)
+                    Console.WriteLine(response.BodyStr)
+                    Return False
+                End If
+
+
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
+
+
+    Shared Function readENSNotification(notificationID) As CC315AType
+
+        Try
+
+            Dim CREDENTIALS = cHMRC.getCredentials(ApplicationName)
+            Dim url As String = CREDENTIALS.API_STRING ' URL Setzenen https://api.service.hmrc.gov.uk / https://test-api.service.hmrc.gov.uk
+
+
+            VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+
+
+
+            Dim TOKEN = cHMRC.getTOKEN("ENS")
+
+            If TOKEN.hasEntry Then
+
+
+                ' Erstellen Sie eine Instanz des Http-Objekts
+                Dim http As New Chilkat.Http()
+
+                ' Authentifizierung: Setzen des Bearer-Tokens
+                http.AuthToken = TOKEN.token_BEARER_TOKEN
+
+                ' Setzen des Accept-Headers für die erwartete Antwort im XML-Format
+                http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml")
+
+                ' Definieren Sie die URL für die GET-Anfrage
+                Dim urlHttp As String = url & "/customs/imports/notifications/{" & notificationID & "}"
+
+                ' Senden Sie die GET-Anfrage
+                Dim response As Chilkat.HttpResponse = http.QuickRequest("GET", urlHttp)
+
+                If (http.LastMethodSuccess = False) Then
+                    Console.WriteLine("❌ Fehler bei der Anfrage: " & http.LastErrorText)
+                    Return Nothing
+                End If
+
+                ' Überprüfen Sie den HTTP-Statuscode der Antwort
+                If (response.StatusCode = 200) Then
+                    Console.WriteLine("✅ Benachrichtigung erfolgreich abgerufen:")
+                    Console.WriteLine(response.BodyStr) ' XML-Ausgabe
+
+                    Dim tempFilePath As String = Path.GetTempFileName()
+                    File.WriteAllText(tempFilePath, response.BodyStr)
+
+                    Dim ENS_CC315A = CC315AType.LoadFromFile(tempFilePath)
+                    Try
+                        File.Delete(tempFilePath) ' Bereinigen nach der Verwendung
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+
+
+                    Return ENS_CC315A
+
+                Else
+                    Console.WriteLine("❌ Fehler: HTTP Statuscode " & response.StatusCode)
+                    Console.WriteLine(response.BodyStr)
+                    Return Nothing
+                End If
+
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return Nothing
+    End Function
+
+
+    ' Klasse zur Speicherung einer einzelnen Notification
+    Public Class HmrcNotification
+        Public Property CorrelationId As String
+        Public Property NotificationId As String
+        Public Property Link As String
+    End Class
+
+
+    ' Klasse zur Speicherung einer einzelnen Notification
+    Public Class HmrcOutcomes
+        Public Property CorrelationId As String
+        Public Property MRN As String
+        Public Property Link As String
+    End Class
 
 End Class

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -428,6 +428,12 @@
     <Compile Include="Schnittstellen\Digicast\cDigicustAPI.vb" />
     <Compile Include="Schnittstellen\HMRC\cHMRC_ENS.vb" />
     <Compile Include="Schnittstellen\HMRC\ENS\CC315A-v11-2.Designer.vb" />
+    <Compile Include="Schnittstellen\HMRC\ENS\CC328A\CC304A-v10-0.Designer.vb" />
+    <Compile Include="Schnittstellen\HMRC\ENS\CC328A\CC305A-v10-0.Designer.vb" />
+    <Compile Include="Schnittstellen\HMRC\ENS\CC328A\CC316A-v10-0.Designer.vb" />
+    <Compile Include="Schnittstellen\HMRC\ENS\CC328A\CC328A-v10-0.Designer.vb" />
+    <Compile Include="Schnittstellen\HMRC\Response\errorresponse-v2.0.Designer.vb" />
+    <Compile Include="Schnittstellen\HMRC\Response\SuccessResponse-v2-0.Designer.vb" />
     <Compile Include="Schnittstellen\Modaltrans\cOregonNCTSDeclarations.vb" />
     <Compile Include="Classes\cParameter.vb" />
     <Compile Include="Classes\cProgrammeUpdate.vb" />
@@ -874,6 +880,36 @@
     <None Include="Schnittstellen\HMRC\ENS\CC315A-v11-2.xsd">
       <SubType>Designer</SubType>
     </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\CC304A-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\CC305A-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\CC316A-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\CC328A-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\complex_types_ics-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\doc-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\simple_types-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\simple_types_ics-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\tcl-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\ENS\CC328A\tcl_ics-v10-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
     <None Include="Schnittstellen\HMRC\ENS\complex_types_ics-v11-2.xsd">
       <SubType>Designer</SubType>
     </None>
@@ -886,6 +922,18 @@
     <None Include="Schnittstellen\HMRC\ENS\tcl-v11-2.xsd">
       <SubType>Designer</SubType>
     </None>
+    <None Include="Schnittstellen\HMRC\Response\errorresponse-v2.0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\Response\SuccessResponse-v2-0.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\Response\xml.xsd">
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="Schnittstellen\HMRC\Response\xmldsig-core-schema.xsd">
+      <SubType>Designer</SubType>
+    </None>
     <None Include="Schnittstellen\IDEV_Intrastat\instat6.2.xsd">
       <SubType>Designer</SubType>
     </None>