MIC, etc.

2026-09-28 08:56:33 +02:00
parent 16343e26cd
commit fb35deb084
14 changed files with 3190 additions and 127 deletions
--- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
+++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
@@ -72,6 +72,7 @@
    <Compile Include="cDakosy_Statusmeldungen.vb" />
    <Compile Include="cDY_Statusliste.vb" />
    <Compile Include="cDakosy_Stammreferenzen.vb" />
+    <Compile Include="cImporter_MICToVERAG.vb" />
    <Compile Include="cImporter_DHFToVERAG.vb" />
    <Compile Include="cImporter_TelotecToVERAG.vb" />
    <Compile Include="cImporter_DakosyToVERAG.vb" />
--- a/DAKOSY_Worker/cImporter_MICToVERAG.vb
+++ b/DAKOSY_Worker/cImporter_MICToVERAG.vb
@@ -0,0 +1,728 @@
+Imports System.IO
+Imports System.Xml
+Imports System.Xml.Serialization
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.MicCustImportMessage
+Public Class cImporter_MICToVERAG
+
+    Private SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    ' ========================================================================
+    '  MAIN ENTRY
+    ' ========================================================================
+    Public Function ImporMICCustoms(doc As String, xmldoc As XmlDocument, type As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
+        If doc Is Nothing Then Return False
+
+        Return ImportMIcCustom(doc, xmldoc, type, overwrite, freshInsert)
+
+        Return False
+    End Function
+    Public Function ImportMIcCustom(doc As String, xmldoc As XmlDocument, type As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
+        Try
+            If doc Is Nothing Then Return False
+
+
+
+            Select Case type
+                Case "IMPORT"
+
+                    Dim IMP_Message_new As MicCustImportMessage = LoadMicImport(xmldoc)
+                    Dim IMP_Message As MicCustImportMessage = MicCustImportMessage.LoadFromFile(doc)
+
+                    setData_Import(IMP_Message_new, type)
+
+                Case "EXPORT"
+
+                    Dim EXP_Shipment As MicCustExportShipment.ExportShipment = MicCustExportShipment.ExportShipment.LoadFromFile(doc)
+
+                    setData_Import(EXP_Shipment, type)
+
+                Case "NCTS"
+
+                    Dim NCTS_TransitDeclaration As MicNctsTransitDeclarationP5.TransitDeclaration = MicNctsTransitDeclarationP5.TransitDeclaration.LoadFromFile(doc)
+
+                    setData_Import(NCTS_TransitDeclaration, type)
+
+            End Select
+
+
+        Catch ex As Exception
+            cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return False
+        End Try
+    End Function
+
+    Shared Function LoadMicImport(doc As XmlDocument) As MicCustImportMessage
+        Dim body As XmlElement = Nothing
+        For Each el As XmlElement In doc.SelectNodes("//*[local-name()='Body' and @messageType]")
+            If UCase(el.GetAttribute("messageType")) = "CUSTIMPORT" Then
+                body = el : Exit For
+            End If
+        Next
+        If body Is Nothing Then Throw New InvalidOperationException("Kein CUSTIMPORT-Body gefunden.")
+
+        Dim inner As String = body.InnerText.Trim()
+
+        Dim innerDoc As New XmlDocument()
+        innerDoc.LoadXml(inner)
+
+        ' Alle Blattelemente (ohne Kindelemente) mit exaktem Inhalt "Y"/"N" patchen
+        For Each el As XmlElement In innerDoc.SelectNodes("//*[not(*)]")
+            Dim txt As String = el.InnerText.Trim()
+
+            If txt = "Y" Then
+                el.InnerText = "true"
+            ElseIf txt = "N" Then
+                el.InnerText = "false"
+            ElseIf txt = "" Then
+                ' leeres optionales Element entfernen -> Serializer nutzt Default statt Formatfehler
+                el.ParentNode.RemoveChild(el)
+            ElseIf System.Text.RegularExpressions.Regex.IsMatch(txt, "^-?\d{1,3}(\.\d{3})*,\d+$") Then
+                el.InnerText = txt.Replace(".", "").Replace(",", ".")
+            ElseIf System.Text.RegularExpressions.Regex.IsMatch(txt, "^-?\d+,\d+$") Then
+                el.InnerText = txt.Replace(",", ".")
+            End If
+        Next
+
+        Try
+            Using sr As New StringReader(innerDoc.OuterXml)
+                Dim ser As New XmlSerializer(GetType(MicCustImportMessage))
+                Return CType(ser.Deserialize(sr), MicCustImportMessage)
+            End Using
+        Catch ex As InvalidOperationException
+            Throw New Exception(ex.Message & vbCrLf & If(ex.InnerException?.Message, "keine InnerException"), ex)
+        End Try
+    End Function
+
+    Private Function setData_Import(IMP_Message As Object, type As String)
+
+
+        If type = "IMPORT" Then
+            IMP_Message = TryCast(IMP_Message, MicCustImportMessage)
+        ElseIf type = "EXPORT" Then
+            IMP_Message = TryCast(IMP_Message, MicCustExportShipment.ExportShipment)
+        End If
+
+
+        ' ================================================================
+        ' HEADER
+        ' ================================================================
+        Dim ZA As cVERAG_CustomsDeclarations
+
+        If IMP_Message IsNot Nothing AndAlso IMP_Message.Shipment IsNot Nothing Then
+
+            If IMP_Message.Shipment.ShipmentHead IsNot Nothing Then
+
+                Dim SH = IMP_Message.Shipment.ShipmentHead
+
+                If SH.mrn <> "" Then
+                    ZA = cVERAG_CustomsDeclarations.loadByMRN(SH.mrn, True)
+                Else
+                    ZA = New cVERAG_CustomsDeclarations
+                End If
+
+                ZA.za_System = "MIC"
+                ZA.za_CustomsSystem = "ATLAS"
+                ZA.za_REGIME = "IMPORT"
+                ZA.za_CustomsSystemCountry = "AT"          ' Import -> AT (siehe importState/officeEntry)
+                ZA.za_IsExternalSystem = False
+                ZA.za_IsFinalDeclaration = True
+
+                ZA.za_Firma = IMP_Message.Shipment.company
+                ZA.za_Niederlassung = IMP_Message.Shipment.plant   ' oder mic_ci.eza_niederlassung
+
+                ZA.za_MRN = SH.mrn
+                ZA.za_LRN = IMP_Message.Shipment.shipmentId       ' shipmentId als LRN-Referenz
+
+                ' declType: type1 = Verfahren (IM), type2 = Zusatz (A)
+                If SH.declType IsNot Nothing Then
+                    ZA.za_MainProcedure = SH.declType.type1          ' z.B. "IM"
+                    'ZA.za_MainProcedureAddCode = SH.declType.type2   ' z.B. "A"
+                End If
+
+                ZA.za_DeclarationDate = ToNullableDate(SH.customsDate)
+                ZA.za_ReleaseDate = ToNullableDate(SH.importDate)
+                ZA.za_TotGrossMass = ToNullableDecimal(SH.grossWeight)
+
+                ZA.za_CountryDispatch = SH.dispatchCountry
+                ZA.za_CountryDestination = SH.importState            ' AT
+                ZA.za_CountryDestinationState = SH.destinationRegion ' OOE
+
+                'ZA.za_PlaceOfLoading = SH.departurePlace             ' LINZ VOEST RAMP 12
+                'ZA.za_PlaceOfUnloading = SH.destinationPlace         ' LINZ WAREHOUSE A12
+
+                ZA.za_CustomsOffice = SH.officeEntry                 ' AT600000
+
+                'ZA.za_Incoterms = SH.carriageCosts                   ' falls vorhanden
+                'ZA.za_IncotermsPlace = SH.placeDest
+
+                'If SH.CustomerFields IsNot Nothing Then
+                '    ZA.za_Text1 = SH.CustomerFields.text1
+                '    ZA.za_Text2 = SH.CustomerFields.text2
+                'End If
+
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(ZA.za_Firma, ZA.za_Niederlassung, "", ZA.za_LRN)
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(ZA.za_LRN, ZA.za_AvisoId, ZA.za_SendungsId)
+
+            End If
+        End If
+
+        ' ================================================================
+        ' ADRESSEN / PARTNERS
+        ' ================================================================
+        If IMP_Message.Shipment.Partners IsNot Nothing Then
+            For Each pt In IMP_Message.Shipment.Partners.Partner
+                Dim party As New cVERAG_CustomsDeclarations_Parties
+                party.zaParty_Role = pt.partnerRole
+                party.zaParty_EORI = pt.PartnerAddress.addrEori
+                'party.zaParty_Name = pt.PartnerAddress.addrName
+                party.zaParty_Street = pt.PartnerAddress.addrStreet
+                party.zaParty_PostalCode = pt.PartnerAddress.addrZip
+                party.zaParty_City = pt.PartnerAddress.addrLoc
+                party.zaParty_Country = pt.PartnerAddress.addrCtry
+                party.zaParty_TIN = pt.PartnerAddress.addrTin
+                party.zaParty_VATNumber = pt.PartnerAddress.addrVatNumber
+                party.zaParty_Email = pt.PartnerAddress.email
+
+                If If(party.zaParty_EORI, "") <> "" Then
+                    Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = cZOLL_IMPORT.getAdresseFromEORI(party.zaParty_EORI, "", "", True)
+                    If AD IsNot Nothing Then
+                        party.zaParty_Name = (If(AD.Name_1, "") & " " & If(AD.Name_2, "")).Trim
+                        party.zaParty_Country = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(AD.LandKz)
+                        party.zaParty_City = AD.Ort
+                        party.zaParty_Street = AD.Straße
+                        party.zaParty_PostalCode = AD.PLZ
+                    End If
+                End If
+
+                ZA.Parties.Add(party)
+            Next
+        End If
+
+
+
+        ' ================================================================
+        ' ZUSATZKOSTEN (AdditionalCosts) -> ABGABEN/KOSTEN
+        ' ================================================================
+        'If IMP_Message.Shipment.ad IsNot Nothing Then
+        '    For Each ac In IMP_Message.Shipment.AdditionalCosts
+
+        '        Dim cost As New cVERAG_CustomsDeclarations_Duty
+
+        '        cost.zaDuty_DutyType = ac.addType              ' z.B. "HD"
+        '        cost.zaDuty_AmountForeign = ToNullableDecimal(ac.addAmount)
+        '        cost.zaDuty_Currency = ac.addCurrency          ' EUR
+        '        'cost.zaDuty_ProRating = ToNullableBool(ac.addProRating)  ' Y/N
+
+        '        ZA.Duties.Add(cost)
+        '    Next
+        'End If
+
+        ' ================================================================
+        ' ZUSATZINFORMATIONEN (AdditionalInformation)
+        ' ================================================================
+        If IMP_Message.Shipment.AdditionalInformation IsNot Nothing Then
+            For Each ai As TMicAttribute In IMP_Message.Shipment.AdditionalInformation.Attribute
+
+                Dim doc As New cVERAG_CustomsDeclarations_Document
+                doc.zaDoc_Code = ai.attrType
+                doc.zaDoc_Reference = ai.attrText
+                doc.zaDoc_Section = "ADDINFO"
+                ZA.Documents.Add(doc)
+            Next
+
+        End If
+
+        ' ================================================================
+        ' RECHNUNGEN + POSITIONEN
+        ' ================================================================
+        If IMP_Message.Invoice IsNot Nothing Then
+
+            For Each inv As TMicInvoice In IMP_Message.Invoice
+
+                ' ---- Rechnungskopf ----
+                ' ZA-Rechnungsdaten am Kopf setzen (letzte/erste Rechnung):
+                If inv.InvoiceHead IsNot Nothing Then
+                    ZA.za_InvoiceAmount = ToNullableDecimal(inv.InvoiceHead.invoiceValue)
+                    ZA.za_InvoiceCurrency = inv.InvoiceHead.invoiceCurrency
+                    'ZA.za_invoice = inv.InvoiceHead.invoiceNo
+                    'ZA.za_InvoiceDate = ToNullableDate(inv.InvoiceHead.invoiceDate)
+
+                    ' shipTo als Empfänger-Party ergänzen (optional):
+                    If inv.InvoiceHead.consignee IsNot Nothing Then
+                        Dim party As New cVERAG_CustomsDeclarations_Parties
+                        party.zaParty_Role = "CN"                ' Consignee
+                        party.zaParty_Name = inv.InvoiceHead.consignee
+
+                        'party.zaParty_Street = inv.InvoiceHead.shipTo.addrStreet
+                        'party.zaParty_PostalCode = inv.InvoiceHead.shipTo.addrZip
+                        'party.zaParty_City = inv.InvoiceHead.shipTo.addrLoc
+                        'party.zaParty_Country = inv.InvoiceHead.shipTo.addrCtry
+                        ZA.Parties.Add(party)
+                    End If
+                End If
+
+                ' ---- Positionen ----
+                If inv.InvoiceLines IsNot Nothing Then
+                    For Each ln As TMicInvoiceLine In inv.InvoiceLines.Line
+
+                        Dim item As New cVERAG_CustomsDeclarations_Item
+
+                        item.zaItem_PosNo = ToInt(ln.lineNumber)
+                        item.zaItem_ArticleCode = ln.Item.partNumber
+                        item.zaItem_Description = ln.Item.partDescription
+
+                        ' HS-Code aus TariffCode
+                        If ln.Item.TariffCode IsNot Nothing Then
+                            item.zaItem_HSCode = ln.Item.TariffCode.hsCode      ' z.B. 8471
+                            'item.zaItem_HSCodeType = ln.Item.TariffCode.type    ' "HS"
+                        End If
+
+                        'item.zaItem_Quantity = ToNullableDecimal(ln.quantity)
+                        'item.zaItem_QuantityUom = ln.quantityUom                ' NAR
+
+                        item.zaItem_NetMass = ToNullableDecimal(ln.netWeight)
+                        item.zaItem_GrossMass = ToNullableDecimal(ln.grossWeight)
+
+                        item.zaItem_InvoiceValueForeign = ToNullableDecimal(ln.price)   ' Einzelpreis
+                        'item.zaItem_LineValueForeign = ToNullableDecimal(ln.lineValue)  ' Positionspreis
+
+                        item.zaItem_OriginCountry = ln.countryOfOrigin
+                        item.zaItem_MainProcedure = ln.customsProcedure         ' 4000
+
+                        ' UCR / CUS-Code falls am Item vorhanden
+                        ' item.zaItem_UCR = ln.ucr
+                        ' item.zaItem_CusCode = ln.cusCode
+
+                        ' ---- Positions-UNTERLAGEN aus AtlasCompletionSumD / Documents ----
+                        If ln.Documents IsNot Nothing Then
+                            For Each ul As TMicDocument In ln.Documents.Document
+                                Dim doc As New cVERAG_CustomsDeclarations_Document
+                                doc.zaDoc_Code = ul.docType
+                                doc.zaDoc_Reference = ul.docNo
+                                doc.zaDoc_Date = ToNullableDate(ul.docDate)
+                                item.Documents.Add(doc)
+                            Next
+                        End If
+
+                        ' ---- CustomerFields der Position ----
+                        'If ln.CustomerFields IsNot Nothing Then
+                        '    item.zaItem_Text1 = ln.CustomerFields.text1
+                        '    item.zaItem_Text2 = ln.CustomerFields.text2
+                        'End If
+
+                        ZA.Items.Add(item)
+                    Next
+                End If
+
+            Next
+
+        End If
+
+
+
+
+
+    End Function
+
+
+
+    'Private Function setData_Import(IMP_Message As MicCustImportMessage, IMP_Invoice As MicCustImportInvoiceComponent)
+
+
+    '    Dim ZA As cVERAG_CustomsDeclarations
+
+    '    If IMP_Message IsNot Nothing Then
+
+    '        If IMP_Message.Shipment IsNot Nothing Then
+
+    '            If IMP_Message.Shipment.ShipmentHead IsNot Nothing Then
+
+    '                If IMP_Message.Shipment.ShipmentHead.mrn <> "" Then
+    '                    ZA = cVERAG_CustomsDeclarations.loadByMRN(IMP_Message.Shipment.ShipmentHead.mrn, True)
+    '                Else
+    '                    ZA = New cVERAG_CustomsDeclarations
+
+    '                End If
+
+
+    '                ' ================================================================
+    '                ' HEADER
+    '                ' ================================================================
+
+    '                ZA.za_System = "MIC"
+    '                ZA.za_CustomsSystem = "ATLAS"
+    '                ZA.za_REGIME = "IMPORT"
+    '                ZA.za_CustomsSystemCountry = "NL"
+    '                ZA.za_IsExternalSystem = False
+    '                ZA.za_IsFinalDeclaration = True
+
+    '                ZA.za_Firma = IMP_Message.Shipment.company
+    '                ZA.za_Niederlassung = mic_ci.eza_niederlassung
+
+    '                ZA.za_MRN = If(mic_ci.eza_MRN, mic_ci.eza_ANR)
+    '                ZA.za_LRN = mic_ci.eza_ObjectName
+
+
+    '                VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(ZA.za_Firma, ZA.za_Niederlassung, "", ZA.za_LRN)
+    '                VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(ZA.za_LRN, ZA.za_AvisoId, ZA.za_SendungsId)
+
+    '            End If
+
+    '        End If
+
+    '    End If
+
+
+
+
+
+
+    '    '' AB HIER
+
+
+
+
+
+    '    Dim DY = cDakosy_Zollanmeldungen.LOADById(mic_ci.eza_dyaAnmID)
+    '    If DY IsNot Nothing Then
+    '        If ZA.za_AvisoId Is Nothing AndAlso DY.dy_AvisoId IsNot Nothing Then ZA.za_AvisoId = DY.dy_AvisoId
+    '        If ZA.za_SendungsId Is Nothing AndAlso DY.dy_SendungsId IsNot Nothing Then ZA.za_SendungsId = DY.dy_SendungsId
+    '    End If
+
+
+    '    If mic_ci.eza_Anmeldedatum IsNot Nothing AndAlso mic_ci.eza_Anmeldedatum.ToString <> "" Then
+    '        ZA.za_DeclarationDate = CDate(mic_ci.eza_Anmeldedatum)
+    '        ZA.za_ReleaseDate = CDate(mic_ci.eza_Anmeldedatum)
+    '    Else
+
+    '        Dim dateumRelease As String = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(dySt_DakosyTransaktionsDatum,'')", "[tblDakosy_Statusmeldungen]", " dySt_status = 60 And dySt_dyId = '" & mic_ci.eza_dyaAnmID & "' Order By [dySt_DakosyTransaktionsDatum] desc", "FMZOLL",)
+    '        If dateumRelease <> "" AndAlso IsDate(dateumRelease) Then
+    '            ZA.za_DeclarationDate = CDate(dateumRelease)
+    '            ZA.za_ReleaseDate = CDate(dateumRelease)
+    '        Else
+    '            ZA.za_DeclarationDate = ToNullableDate(If(mic_ci.eza_Anmeldedatum, mic_ci.eza_LetzteBearbeitung))
+    '            ZA.za_ReleaseDate = ToNullableDate(If(mic_ci.eza_Anmeldedatum, mic_ci.eza_LetzteBearbeitung))
+    '        End If
+    '    End If
+
+    '    ZA.za_MainProcedure = mic_ci.eza_VerfahrenBeantragtCode
+    '    ZA.za_RepresentationCode = mic_ci.eza_VertretungsVerhaeltnisCode
+    '    ZA.za_FiscalRepFlag = ToNullableBool(mic_ci.eza_FiskalvertretungKz)
+    '    ZA.za_ApplicantVATNo = ToStringSafe(mic_ci.eza_UstIdAnmelder)
+    '    ZA.za_ApplicantTaxOffice = ToStringSafe(mic_ci.eza_FinanzamtAnmelder)
+    '    ZA.za_TaxDeduction = ToNullableBool(mic_ci.eza_Vorsteuerabzug)
+
+    '    ZA.za_CountryDispatch = mic_ci.eza_VersendungsLandCode
+    '    ZA.za_CountryDestination = mic_ci.eza_Bestimmungsland
+    '    ZA.za_CountryDestinationState = mic_ci.eza_Bestimmungsbundesland
+
+    '    ZA.za_ContainerNr1 = mic_ci.eza_ContainerNr1
+    '    ZA.za_ContainerNr2 = mic_ci.eza_ContainerNr2
+    '    ZA.za_ContainerNr3 = mic_ci.eza_ContainerNr3
+    '    ZA.za_ContainerNr4 = mic_ci.eza_ContainerNr4
+    '    ZA.za_ContainerNr5 = mic_ci.eza_ContainerNr5
+    '    ZA.za_ContainerNr6 = mic_ci.eza_ContainerNr6
+    '    ZA.za_ContainerNr7 = mic_ci.eza_ContainerNr7
+    '    ZA.za_ContainerNr8 = mic_ci.eza_ContainerNr8
+    '    ZA.za_ContainerNr9 = mic_ci.eza_ContainerNr9
+
+    '    ZA.za_MeansOfTransport_Vehicle = mic_ci.eza_KennzeichenNameBefoerderungsmittelAnkunft
+    '    ZA.za_MeansOfTransport_Nationality = mic_ci.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode
+    '    ZA.za_MeansOfTransport_Type = mic_ci.eza_BeförderungsmittelGrenzeArt
+    '    ZA.za_CountryImport = "NL"
+    '    ZA.za_WarehouseCode = mic_ci.eza_Warenort
+    '    ZA.za_InvoiceAmount = mic_ci.eza_Rechnungspreis
+    '    ZA.za_InvoiceCurrency = mic_ci.eza_Rechnungswaehrung
+    '    ZA.za_DV1Flag = ToNullableBool(mic_ci.eza_DV1Kz)
+    '    ZA.za_PrevDocument_No = mic_ci.eza_VorpapierNr
+    '    ZA.za_PrevDocument_Type = mic_ci.eza_VorpapierArtCode
+
+    '    ZA.za_Incoterms = mic_ci.eza_LieferbedingungCode
+    '    ZA.za_IncotermsPlace = mic_ci.eza_LieferbedingungOrt
+
+    '    ZA.za_Sachbearbeiter = mic_ci.eza_AnmeldenderBearbeiterName
+    '    ZA.za_TotGrossMass = ToNullableDecimal(mic_ci.eza_GesamtRohmasse)
+    '    ZA.za_TransportModeBorder = ToStringSafe(mic_ci.eza_VerkehrszweigGrenze)
+
+    '    ' ================================================================
+    '    ' ADRESSEN 
+    '    ' ================================================================
+    '    If mic_ci.eza_ADRESSEN IsNot Nothing Then
+    '        For Each p In mic_ci.eza_ADRESSEN
+
+    '            Dim party As New cVERAG_CustomsDeclarations_Parties
+
+    '            party.zaParty_Role = p.ezaAd_AdressTyp
+    '            party.zaParty_EORI = p.ezaAd_TeilnehmerEORI
+    '            party.zaParty_EORI_NL = p.ezaAd_TeilnehmerNLNR
+    '            party.zaParty_Name = p.ezaAd_NameFirma1
+    '            party.zaParty_Street = p.ezaAd_StrasseHausNr1
+    '            party.zaParty_PostalCode = p.ezaAd_PLZ
+    '            party.zaParty_City = p.ezaAd_Ort
+    '            party.zaParty_Country = p.ezaAd_LandCode
+    '            'party.zaParty_TIN = p.
+    '            party.zaParty_VATNumber = p.ezaAd_UStIDAnmelder
+    '            party.zaParty_TaxOffice = p.ezaAd_FinanzamtIDAnmelder
+
+
+    '            If If(party.zaParty_EORI, "") <> "" Then
+
+    '                Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = cZOLL_IMPORT.getAdresseFromEORI(party.zaParty_EORI, "", "", True)
+
+    '                If AD IsNot Nothing Then
+    '                    party.zaParty_Name = (If(AD.Name_1, "") & " " & If(AD.Name_2, "")).trim
+    '                    party.zaParty_Country = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(AD.LandKz)
+    '                    party.zaParty_City = AD.Ort
+    '                    party.zaParty_Street = AD.Straße
+    '                    'party.ImporterAddressNumber = ""
+    '                    party.zaParty_PostalCode = AD.PLZ
+    '                    'party.ImporterEmail = AD.E_Mail
+    '                    'party.ImporterPhone = AD.Telefon
+    '                End If
+
+    '            End If
+
+
+    '            ZA.Parties.Add(party)
+    '        Next
+    '    End If
+
+    '    ' ================================================================
+    '    ' ABGABEN 
+    '    ' ================================================================
+
+    '    If mic_ci.eza_AUFSCHUB IsNot Nothing Then
+    '        For Each d In mic_ci.eza_AUFSCHUB
+    '            If d.ezaAfb_PositionsNummer Is Nothing Then
+
+    '                Dim duty As New cVERAG_CustomsDeclarations_Duty
+
+    '                duty.zaDuty_ApplicationType = d.ezaAfb_ArtAufschubantrag
+    '                duty.zaDuty_AccountType = d.ezaAfb_Aufschubart
+    '                duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA
+    '                duty.zaDuty_AccountNo = d.ezaAfb_KontoNr
+    '                duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI
+    '                duty.zaDuty_AccountHolderName = d.AufschubnehmerName
+    '                duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt
+    '                duty.zaDuty_BIN = d.ezaAfb_AufschuBIN
+    '                duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+    '                duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+    '                duty.zaDuty_Currency = "EUR"
+    '                duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
+
+    '                ZA.Duties.Add(duty)
+    '            End If
+    '        Next
+    '    End If
+
+    '    ' ================================================================
+    '    ' HEADER-UNTERLAGEN (ItemId = NULL)
+    '    ' ================================================================
+    '    If mic_ci.eza_UNTERLAGEN IsNot Nothing Then
+    '        For Each ul In mic_ci.eza_UNTERLAGEN
+
+    '            Dim doc As New cVERAG_CustomsDeclarations_Document
+    '            doc.zaDoc_Section = ul.ezaUl_Bereich
+    '            doc.zaDoc_ItemId = Nothing
+    '            doc.zaDoc_Code = ul.ezaUl_Art
+    '            doc.zaDoc_Reference = ul.ezaUl_Nummer
+
+    '            doc.zaDoc_Date = ul.ezaUl_DatumAusstellung
+
+
+
+    '            ZA.Documents.Add(doc)
+    '        Next
+    '    End If
+
+    '    ' ================================================================
+    '    ' POSITIONEN + POSITIONS-UNTERLAGEN
+    '    ' ================================================================
+    '    If mic_ci.eza_WARENPOS IsNot Nothing Then
+    '        For Each wp In mic_ci.eza_WARENPOS
+
+    '            Dim item As New cVERAG_CustomsDeclarations_Item
+
+    '            item.zaItem_PosNo = ToInt(wp.ezaWP_PositionsNummer)
+    '            item.zaItem_ArticleCode = wp.ezaWP_Artikelnummer
+
+    '            item.zaItem_HSCode = wp.ezaWP_WarennummerEZT
+    '            item.zaItem_HSAddition1 = wp.ezaWP_Warennummerzusatz1
+    '            item.zaItem_HSAddition2 = wp.ezaWP_Warennummerzusatz2
+    '            item.zaItem_HSAddCodes1 = wp.ezaWP_WarennummerZusatzCode1
+    '            item.zaItem_HSAddCodes2 = wp.ezaWP_WarennummerZusatzCode2
+    '            item.zaItem_HSAddCodes3 = wp.ezaWP_WarennummerZusatzCode3
+    '            item.zaItem_HSAddCodes4 = wp.ezaWP_WarennummerZusatzCode4
+    '            item.zaItem_HSAddCodes5 = wp.ezaWP_WarennummerZusatzCode5
+    '            item.zaItem_HSAddCodes6 = wp.ezaWP_WarennummerZusatzCode6
+    '            item.zaItem_HSAddCodes7 = wp.ezaWP_WarennummerZusatzCode7
+    '            item.zaItem_HSAddCodes8 = wp.ezaWP_WarennummerZusatzCode8
+    '            item.zaItem_HSAddCodes9 = wp.ezaWP_WarennummerZusatzCode9
+    '            item.zaItem_HSAddCodes10 = wp.ezaWP_WarennummerZusatzCode10
+
+    '            item.zaItem_Description = wp.ezaWP_Warenbezeichnung
+    '            item.zaItem_PrevProcedure = wp.ezaWP_VerfahrensCodeVorangegangenesVerfahren
+    '            item.zaItem_PreferentialCountry = wp.ezaWP_Praeferenzursprungsland
+    '            item.zaItem_MainProcedure = wp.ezaWP_AnmeldeVErfahren
+
+
+    '            item.zaItem_PackageColli = (wp.ezaWP_PackstueckAnzahl)
+    '            item.zaItem_PackageType = wp.ezaWP_PackstueckArt
+
+    '            item.zaItem_GrossMass = ToNullableDecimal(wp.ezaWP_Rohmasse)
+    '            item.zaItem_NetMass = ToNullableDecimal(wp.ezaWP_Eigenmasse)
+
+
+    '            item.zaItem_InvoiceValueForeign = ToNullableDecimal(wp.ezaWP_Artikelpreis)
+    '            item.zaItem_InvoiceCurrency = wp.ezaWP_ArtikelpreisWaehrung
+    '            If If(wp.ezaWP_ArtikelpreisWaehrung, "") = "EUR" Then
+    '                item.zaItem_InvoiceValueEUR = ToNullableDecimal(wp.ezaWP_Artikelpreis)
+    '            End If
+
+    '            item.zaItem_CustomsValueEUR = ToNullableDecimal(wp.ezaWP_Zollwert)
+    '            item.zaItem_StatisticalValueEUR = ToNullableDecimal(wp.ezaWP_AHStatWert)
+
+    '            item.zaItem_OriginCountry = wp.ezaWP_UrsprungslandCode
+    '            item.zaItem_PreferenceCode = wp.ezaWP_BeguenstigungBenatragtCode
+    '            item.zaItem_PosAddition = If(wp.ezaWP_PositionsZusatz, "")
+
+    '            ' -------------------------------
+    '            ' POSITIONS-UNTERLAGEN
+    '            ' -------------------------------
+    '            If wp.ezaWP_UNTERLAGEN IsNot Nothing Then
+    '                For Each ul In wp.ezaWP_UNTERLAGEN
+
+    '                    Dim doc As New cVERAG_CustomsDeclarations_Document
+    '                    doc.zaDoc_Section = ul.ezaWpUl_Bereich
+    '                    doc.zaDoc_Code = ul.ezaWpUl_Art
+    '                    doc.zaDoc_Reference = ul.ezaWpUl_Nummer
+
+    '                    doc.zaDoc_Date = ToNullableDate(ul.ezaWpUl_DatumAusstellung)
+
+    '                    doc.zaDoc_Presentation = ul.ezaWpUl_VorlageKz
+
+    '                    doc.zaDoc_DepreciationAmount = (ul.ezaWpUl_AbschreibungsMenge)
+    '                    doc.zaDoc_DepreciationUnitmeasurement = ul.ezaWpUl_AbschreibungsMengeMasseinheit
+    '                    doc.zaDoc_DepreciationUnitmeasurementQualifier = ul.ezaWpUl_AbschreibungsMengeMasseinheitQualifier
+
+
+
+    '                    item.Documents.Add(doc)
+    '                Next
+    '            End If
+
+    '            ' ================================================================
+    '            ' ABGABEN  POS
+    '            ' ================================================================
+
+    '            If mic_ci.eza_AUFSCHUB IsNot Nothing Then
+    '                For Each d In mic_ci.eza_AUFSCHUB
+    '                    If d.ezaAfb_PositionsNummer IsNot Nothing AndAlso CInt(d.ezaAfb_PositionsNummer) = item.zaItem_PosNo Then
+
+    '                        Dim duty As New cVERAG_CustomsDeclarations_Duty
+
+    '                        duty.zaDuty_ApplicationType = d.ezaAfb_ArtAufschubantrag
+    '                        duty.zaDuty_AccountType = d.ezaAfb_Aufschubart
+    '                        duty.zaDuty_AccountHeadCustoms = d.ezaAfb_HZA
+    '                        duty.zaDuty_AccountNo = d.ezaAfb_KontoNr
+    '                        duty.zaDuty_AccountEORI = d.ezaAfb_AufschubnehmerEORI
+    '                        duty.zaDuty_AccountHolderName = d.AufschubnehmerName
+    '                        duty.zaDuty_DutyType = d.ezaAfb_AbgabeArt
+    '                        duty.zaDuty_BIN = d.ezaAfb_AufschuBIN
+    '                        duty.zaDuty_AmountEUR = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+    '                        duty.zaDuty_AmountForeign = ToNullableDecimal(d.ezaAfb_Abgabenbetrag)
+    '                        duty.zaDuty_Currency = "EUR"
+    '                        duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)
+    '                        duty.zaDuty_Prozentsatz = ToNullableDecimal(d.ezaAfb_Prozentsatz)
+
+    '                        item.Duties.Add(duty)
+    '                    End If
+    '                Next
+    '            End If
+
+    '            ZA.Items.Add(item)
+    '        Next
+    '    End If
+
+    '    ' ================================================================
+    '    'CBAM WARNING
+    '    ' ================================================================
+    '    If freshInsert Then
+    '        ZA.checkfreshCBAMWarning()
+    '    End If
+    '    ' ================================================================
+
+    '    ' SAVE
+    '    Dim saved = ZA.SAVE()
+    '    ' ======KAFKA==========================================================
+    '    'If freshInsert Then cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
+    '    ' ================================================================
+    '    Return saved
+
+    'End Function
+
+    ' =====================================================================
+    ' DUPLIKATSPRÜFUNG
+    ' =====================================================================
+    Private Function ExistsInVERAG(eza As cDakosyEZA) As Boolean
+
+        Dim sql As String =
+        "SELECT TOP 1 1 FROM tblVERAG_CustomsDeclarations " &
+        "WHERE za_System='DAKOSY' " &
+        "AND (za_MRN=@mrn OR za_MRN=@anr)"
+
+        Dim p As New List(Of SQLVariable) From {
+        New SQLVariable("mrn", eza.eza_MRN),
+        New SQLVariable("anr", eza.eza_ANR)
+    }
+
+        Dim dt = New SQL().loadDgvBySql_Param(sql, "VERAG", , p)
+        Return dt IsNot Nothing AndAlso dt.Rows.Count > 0
+    End Function
+    ' =========================================================================
+    '  Small helpers (falls du sie schon hast, kannst du diese entfernen)
+    ' =========================================================================
+    Private Function ToStringSafe(v As Object) As String
+        If v Is Nothing Then Return Nothing
+        Dim s As String = TryCast(v, String)
+        If s IsNot Nothing Then Return s
+        Return Convert.ToString(v, Globalization.CultureInfo.InvariantCulture)
+    End Function
+
+    Private Function ToInt(v As Object) As Integer
+        If v Is Nothing Then Return 0
+        Dim s = Convert.ToString(v, Globalization.CultureInfo.InvariantCulture)
+        Dim i As Integer
+        If Integer.TryParse(s, Globalization.NumberStyles.Any, Globalization.CultureInfo.InvariantCulture, i) Then Return i
+        Return 0
+    End Function
+
+    Private Function ToNullableDecimal(v As Object) As Decimal?
+        If v Is Nothing Then Return Nothing
+        Dim s = Convert.ToString(v, Globalization.CultureInfo.InvariantCulture)
+        Dim d As Decimal
+        If Decimal.TryParse(s, Globalization.NumberStyles.Any, Globalization.CultureInfo.InvariantCulture, d) Then Return d
+        Return Nothing
+    End Function
+
+    Private Function ToNullableDate(v As Object) As Date?
+        If v Is Nothing Then Return Nothing
+        If TypeOf v Is Date Then Return CType(v, Date)
+
+        Dim s = Convert.ToString(v, Globalization.CultureInfo.InvariantCulture)
+        Dim dt As Date
+        If Date.TryParse(s, Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, dt) Then Return dt
+        Return Nothing
+    End Function
+
+    Private Function ToNullableBool(v As Object) As Boolean?
+        If v Is Nothing Then Return Nothing
+        If TypeOf v Is Boolean Then Return CType(v, Boolean)
+
+        Dim s = Convert.ToString(v, Globalization.CultureInfo.InvariantCulture).Trim().ToLowerInvariant()
+        If s = "J" OrElse s = "1" OrElse s = "true" OrElse s = "y" OrElse s = "yes" Then Return True
+        If s = "N" OrElse s = "0" OrElse s = "false" OrElse s = "n" OrElse s = "no" Then Return False
+        Return Nothing
+    End Function
+End Class
--- a/initATLASAufschubkonten/RoutineManager.vbproj
+++ b/initATLASAufschubkonten/RoutineManager.vbproj
@@ -160,6 +160,12 @@
    <Compile Include="frmInfo.vb">
      <SubType>Form</SubType>
    </Compile>
+    <Compile Include="frmMICNachrichtenVerarbeitung.Designer.vb">
+      <DependentUpon>frmMICNachrichtenVerarbeitung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmMICNachrichtenVerarbeitung.vb">
+      <SubType>Form</SubType>
+    </Compile>
    <Compile Include="frmTRNCTS_NachrichtenVerarbeitung_ATEZ.Designer.vb">
      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung_ATEZ.vb</DependentUpon>
    </Compile>
@@ -247,6 +253,9 @@
    <EmbeddedResource Include="frmInfo.resx">
      <DependentUpon>frmInfo.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="frmMICNachrichtenVerarbeitung.resx">
+      <DependentUpon>frmMICNachrichtenVerarbeitung.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="frmTRNCTS_NachrichtenVerarbeitung_ATEZ.resx">
      <DependentUpon>frmTRNCTS_NachrichtenVerarbeitung_ATEZ.vb</DependentUpon>
    </EmbeddedResource>
@@ -320,6 +329,10 @@
      <Project>{2e4dbc09-e57b-4ac5-8554-6117d71f993b}</Project>
      <Name>MDM_Worker_lib</Name>
    </ProjectReference>
+    <ProjectReference Include="..\MIC_Worker_lib\MIC_Worker_lib.vbproj">
+      <Project>{60833dc6-70ed-450a-b51f-4a953e67ada0}</Project>
+      <Name>MIC_Worker_lib</Name>
+    </ProjectReference>
    <ProjectReference Include="..\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj">
      <Project>{5b947a66-009a-4bb6-b925-f84a01045095}</Project>
      <Name>TELOTEC_Worker_lib</Name>
--- a/initATLASAufschubkonten/cGetMsgType.vb
+++ b/initATLASAufschubkonten/cGetMsgType.vb
@@ -813,4 +813,50 @@ Public Class cGetMsgType
    End Function


+    Shared Function isMIC_Import(doc As XmlDocument) As Boolean
+        If doc Is Nothing OrElse Not doc.HasChildNodes Then Return False
+
+        ' 1) mic-BODY mit messageType="CUSTIMPORT" suchen (Präfix-unabhängig, LocalName)
+        For Each el As XmlElement In doc.SelectNodes("//*[local-name()='Body' and @messageType]")
+            If UCase(el.GetAttribute("messageType")) = "CUSTIMPORT" Then Return True
+        Next
+
+        ' 2) Alternativ: CDATA-Inhalt auf Import-Schema prüfen
+        For Each el As XmlElement In doc.SelectNodes("//*[local-name()='Body']")
+            If el.InnerText <> "" AndAlso el.InnerText.Contains("MicCustImportMessage") Then
+                ' Nur importieren, wenn kein Export-Schema im CDATA liegt
+                If Not el.InnerText.Contains("MicCustExportMessage") Then Return True
+            End If
+        Next
+
+
+        If doc.DocumentElement IsNot Nothing AndAlso doc.DocumentElement.LocalName = "MicCustImportMessage" Then
+            Return True
+        End If
+
+        Return False
+    End Function
+
+    Shared Function isMIC_Export(doc As XmlDocument) As Boolean
+        If Not doc.HasChildNodes Then Return False
+
+        If doc.DocumentElement IsNot Nothing AndAlso doc.DocumentElement.LocalName = "SendExportShipment" Then
+            Return True
+        End If
+
+        If doc.GetElementsByTagName("ExportShipmentMessage").Count > 0 OrElse doc.GetElementsByTagName("SendExportShipment").Count > 0 Then
+            Return True
+        End If
+
+        Return False
+    End Function
+
+    Shared Function isMIC_NCTS(doc As XmlDocument) As Boolean
+        If doc.HasChildNodes Then
+            Return False
+        End If
+        Return False
+    End Function
+
+
 End Class
--- a/initATLASAufschubkonten/cWorker_AES_EXG.vb
+++ b/initATLASAufschubkonten/cWorker_AES_EXG.vb
@@ -1,10 +1,4 @@
-Imports com.sun.org.apache.bcel.internal.generic
-Imports DAKOSY_Worker
-Imports DocumentFormat.OpenXml.Wordprocessing
-Imports java.nio.channels
-Imports javax.management
-Imports Spire.Pdf
-Imports VERAG_PROG_ALLGEMEIN
+Imports DAKOSY_Worker

 Public Class cWorker_AES_EXG
    Public Shared Dateiname = ""
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -1,7 +1,6 @@
 Imports System.IO
 Imports System.Xml
 Imports DAKOSY_Worker
-Imports DAKOSY_Worker.SumAVerwahrungsinfo_009
 Imports Renci.SshNet

 Public Class frmDYNachrichtenVerarbeitung
@@ -7796,6 +7795,7 @@ Public Class frmDYNachrichtenVerarbeitung

            Dim TXT_DokBeschau = ""
            Dim TXT_Rückweisung = ""
+            Dim TXT_Annahme = ""
            Dim TXT_Mitteilung = ""
            Dim TXT_Mitteilung_Zollbeamter = ""
            'Dim annahmeKz As Object = Nothing
@@ -7849,6 +7849,15 @@ Public Class frmDYNachrichtenVerarbeitung
                                        'MitteilungTeilnehmerBeschau
                                End Select
                            End If
+
+                            'aktuell wird nur eine Rückweisung verarbeitet, allerdings wenn die EZA gar nicht vom ZA angenommen wird, bleibt dieser Wert auf "nein" und wird somit nicht getriggert!
+                            If POS.AnnahmeKz IsNot Nothing Then
+                                If POS.AnnahmeKz = "N" Then
+                                    TXT_Annahme &= POS.Positionsnummer & ": keine Annahme " & If(POS.MitteilungTeilnehmerBeschau IsNot Nothing, " (" & POS.MitteilungTeilnehmerBeschau & ")", "") & vbNewLine
+                                End If
+                            End If
+
+
                            If POS.RueckgabeKz IsNot Nothing Then
                                If POS.RueckgabeKz = "J" Then
                                    TXT_Rückweisung &= POS.Positionsnummer & ": Rückweisung " & vbNewLine
--- a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
@@ -4,7 +4,6 @@ Imports System.Net
 Imports System.Text
 Imports System.Text.RegularExpressions
 Imports System.Xml
-Imports java.util.function
 Imports VERAG_PROG_ALLGEMEIN

 Public Class frmMDMNachrichtenVerarbeitung
--- a/initATLASAufschubkonten/frmMICNachrichtenVerarbeitung.Designer.vb
+++ b/initATLASAufschubkonten/frmMICNachrichtenVerarbeitung.Designer.vb
@@ -0,0 +1,248 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmMICNachrichtenVerarbeitung
+    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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMICNachrichtenVerarbeitung))
+        Me.btn = New System.Windows.Forms.Button()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.dgvEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.ListBox3 = New System.Windows.Forms.ListBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.pnl.SuspendLayout()
+        CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btn
+        '
+        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn.BackColor = System.Drawing.Color.Red
+        Me.btn.FlatAppearance.BorderColor = System.Drawing.Color.Gray
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btn.ForeColor = System.Drawing.Color.White
+        Me.btn.Location = New System.Drawing.Point(379, -1)
+        Me.btn.Margin = New System.Windows.Forms.Padding(0)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(75, 22)
+        Me.btn.TabIndex = 6
+        Me.btn.Text = "X"
+        Me.btn.UseVisualStyleBackColor = False
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.dgvEinarbeitung)
+        Me.pnl.Controls.Add(Me.Label9)
+        Me.pnl.Controls.Add(Me.Button2)
+        Me.pnl.Controls.Add(Me.Label7)
+        Me.pnl.Controls.Add(Me.ListBox3)
+        Me.pnl.Controls.Add(Me.Label6)
+        Me.pnl.Controls.Add(Me.Label5)
+        Me.pnl.Controls.Add(Me.Button1)
+        Me.pnl.Controls.Add(Me.btnOK)
+        Me.pnl.Controls.Add(Me.Label2)
+        Me.pnl.Controls.Add(Me.Label1)
+        Me.pnl.Controls.Add(Me.btn)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(456, 319)
+        Me.pnl.TabIndex = 1
+        '
+        'dgvEinarbeitung
+        '
+        Me.dgvEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvEinarbeitung.AllowUserToAddRows = False
+        Me.dgvEinarbeitung.AllowUserToDeleteRows = False
+        Me.dgvEinarbeitung.AllowUserToOrderColumns = True
+        Me.dgvEinarbeitung.AllowUserToResizeColumns = False
+        Me.dgvEinarbeitung.AllowUserToResizeRows = False
+        Me.dgvEinarbeitung.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEinarbeitung.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.Column1})
+        Me.dgvEinarbeitung.Location = New System.Drawing.Point(12, 164)
+        Me.dgvEinarbeitung.Name = "dgvEinarbeitung"
+        Me.dgvEinarbeitung.RowHeadersVisible = False
+        Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145)
+        Me.dgvEinarbeitung.TabIndex = 18
+        '
+        'clmnArt
+        '
+        Me.clmnArt.HeaderText = "Art"
+        Me.clmnArt.Name = "clmnArt"
+        Me.clmnArt.Width = 150
+        '
+        'Column1
+        '
+        Me.Column1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.Column1.HeaderText = "BezugsNr"
+        Me.Column1.Name = "Column1"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(306, 103)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(44, 13)
+        Me.Label9.TabIndex = 17
+        Me.Label9.Text = "läuft..."
+        Me.Label9.Visible = False
+        '
+        'Button2
+        '
+        Me.Button2.Enabled = False
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(309, 50)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(141, 50)
+        Me.Button2.TabIndex = 16
+        Me.Button2.Text = "Einlesen"
+        Me.Button2.UseVisualStyleBackColor = True
+        Me.Button2.Visible = False
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(8, 34)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(90, 13)
+        Me.Label7.TabIndex = 13
+        Me.Label7.Text = "Daten sichern:"
+        '
+        'ListBox3
+        '
+        Me.ListBox3.FormattingEnabled = True
+        Me.ListBox3.Location = New System.Drawing.Point(11, 50)
+        Me.ListBox3.Name = "ListBox3"
+        Me.ListBox3.Size = New System.Drawing.Size(292, 95)
+        Me.ListBox3.TabIndex = 12
+        '
+        'Label6
+        '
+        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label6.Location = New System.Drawing.Point(306, 240)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(144, 37)
+        Me.Label6.TabIndex = 11
+        Me.Label6.Text = "0 Datensätze nicht " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "erkannt."
+        Me.Label6.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(306, 217)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(44, 13)
+        Me.Label5.TabIndex = 10
+        Me.Label5.Text = "läuft..."
+        Me.Label5.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(309, 164)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(141, 50)
+        Me.Button1.TabIndex = 9
+        Me.Button1.Text = "Einarbeiten"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'btnOK
+        '
+        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOK.Location = New System.Drawing.Point(309, 280)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(141, 29)
+        Me.btnOK.TabIndex = 9
+        Me.btnOK.Text = "Schließen"
+        Me.btnOK.UseVisualStyleBackColor = True
+        Me.btnOK.Visible = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(8, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(245, 13)
+        Me.Label2.TabIndex = 8
+        Me.Label2.Text = "Einarbeitung der Nachrichtendaten von TELOTEC"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(8, 148)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.TabIndex = 8
+        Me.Label1.Text = "Einarbeitung:"
+        '
+        'frmMICNachrichtenVerarbeitung
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(456, 319)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmMICNachrichtenVerarbeitung"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "DY NachrichtenVerarbeitung"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents btn As System.Windows.Forms.Button
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents dgvEinarbeitung As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents clmnArt As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn
+End Class
--- a/initATLASAufschubkonten/frmMICNachrichtenVerarbeitung.resx
+++ b/initATLASAufschubkonten/frmMICNachrichtenVerarbeitung.resx
@@ -0,0 +1,986 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
+        AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
+        OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
+        //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
+        MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
+        v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
+        jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
+        mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
+        ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
+        y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
+        4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
+        p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
+        SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
+        y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
+        MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
+        //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
+        9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
+        ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
+        MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
+        //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
+        ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
+        1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
+        mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
+        MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
+        //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
+        9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
+        mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
+        //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
+        MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
+        MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
+        6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
+        ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
+        //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
+        MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
+        mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
+        //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
+        ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
+        ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
+        jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
+        ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////p6ferq+Kr
+        q+Krq+Krq+Krq+Krq+LFxer/////////////////////////////////////////////////////////
+        //////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP/////////////////////////////////////////
+        //////////////////////////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP/////////////////////
+        //////////////////////+rq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr
+        q+Krq+K4uOb////////////////////////////////Fxeqrq+Krq+Krq+Krq+Krq+Krq+Lp6ff/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////d3fMDA70DA70DA70DA70DA70DA71ZWcv/////////////////////////
+        ///////////////////////////////R0e9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA72dnd30
+        9Pv////////////////////////////////////////////////R0e9sbNADA70DA70DA70DA70DA70D
+        A70DA70DA70DA72dnd309Pv///////////////////////////////8pKcIDA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////////+4uOZsbNADA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA72dnd3p6ff/////////////////////////////////////////
+        //////////////////////////////////////////////////////////8pKcIDA70DA70DA70DA70D
+        A70DA73///////////////////////////////////////////////////+dnd0DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////////////////////+d
+        nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/////////////////////
+        //////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv/
+        ///////p6fdZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////9sbNADA70DA70DA70DA70DA70DA73d3fP/////////////////////////////////////
+        //////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////
+        //////////////////////////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA72rq+L///////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA73d3fP////p6fcpKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA72dnd3/////////////////////////////////////////////////
+        //////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70DA73Fxer/////
+        //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+rq+IDA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////+rq+IDA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///9ZWcsDA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer/////////////
+        //////////////////////////////////////////////////////////////////////////+rq+ID
+        A70DA70DA70DA70DA70DA72dnd3////////////////////////////////////p6fcDA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP/////////////
+        ///p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A73d3fP////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA72rq+K4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA71ZWcv/////////////////////////////////////////////////////////////
+        ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT/////////////////////
+        //////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R0e9+ftQDA70DA70DA70D
+        A70DA70DA70DA71sbND///////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R
+        0e9+ftQDA70DA70DA70DA70DA70DA70DA71sbND////////////////09PsDA70DA70DA70DA70DA70D
+        A71ZWcv///////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA72d
+        nd3d3fP////////d3fN+ftQDA70DA70DA70DA70DA70DA70DA73d3fP/////////////////////////
+        ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D
+        A70DA71ERMf///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA72rq+L/
+        //////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer///////////9ZWcsDA70DA70D
+        A70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer/////
+        //////////8pKcIDA70DA70DA70DA70DA70DA73////////////////////////////////////09PsD
+        A70DA70DA70DA70DA70DA70DA73d3fP///////////////////////9sbNADA70DA70DA70DA70DA70D
+        A73Fxer/////////////////////////////////////////////////////////////////////////
+        //////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////09PsD
+        A70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsDA70DA70DA70DA70DA70D
+        A71sbND////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsD
+        A70DA70DA70DA70DA70DA71sbND///////////////9+ftQDA70DA70DA70DA70DA70DA73d3fP/////
+        ///////////////////////////09Purq+Krq+Krq+JsbNADA70DA72Ojtn/////////////////////
+        //////9ZWcsDA70DA70DA70DA70DA70DA724uOb/////////////////////////////////////////
+        //////////////////////////////////////////////9+ftQDA70DA70DA70DA70DA70DA73R0e//
+        ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT/////////////////////
+        //////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv////d3fMDA70DA70DA70DA70DA70DA71+ftT/
+        //////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv///////////+dnd0D
+        A70DA70DA70DA70DA70DA73Fxer/////////////////////////////////////////////////////
+        ///////////////////////////d3fOrq+IpKcIDA70DA70DA70DA70DA70DA70DA73Fxer/////////
+        //////////////////////////////////////////////////////////////////////////////+r
+        q+IDA70DA70DA70DA70DA70DA72rq+L////////////////////////////R0e8DA70DA70DA70DA70D
+        A70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA73Fxer////R
+        0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70D
+        A70DA70DA73Fxer///////////+4uOYDA70DA70DA70DA70DA70DA72rq+L/////////////////////
+        //////////////////////////////////////////////+4uOarq+IDA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA7309Pv/////////////////////////////////////////////////////////
+        ///////////////////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3/////////////////
+        ///////////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////9+ftQD
+        A70DA70DA70DA70DA70DA72rq+L////R0e8DA70DA70DA70DA70DA70DA72Ojtn/////////////////
+        //////////////9+ftQDA70DA70DA70DA70DA70DA72rq+L////////////d3fMDA70DA70DA70DA70D
+        A70DA71+ftT////////////////////////////////////////////////////////p6fednd0DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/////////////////////////////
+        ///////////////////////////////////////////////////////////////p6fcDA70DA70DA70D
+        A70DA70DA71ZWcv////////////////////////////p6fcDA70DA70DA70DA70DA70DA71ZWcv/////
+        //////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn////p6fcDA70DA70DA70D
+        A70DA70DA71ZWcv///////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn/
+        ///////////09PsDA70DA70DA70DA70DA70DA71ERMf/////////////////////////////////////
+        ///////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp
+        6ff/////////////////////////////////////////////////////////////////////////////
+        //////////////////8pKcIDA70DA70DA70DA70DA70pKcL////////////////////////////09PsD
+        A70DA70DA70DA70DA70DA70pKcL////////////////////////////////d3fMDA70DA70DA70DA70D
+        A70DA71sbND////09PsDA70DA70DA70DA70DA70DA70pKcL////////////////////////////////d
+        3fMDA70DA70DA70DA70DA70DA71sbND///////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv/
+        ///////////////////////////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA71ERMfd3fP/////////////////////////////////////////////////
+        //////////////////////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA73d
+        3fP///////////////////////////8pKcIDA70DA70DA70DA70DA70DA73R0e//////////////////
+        ///////////p6fcDA70DA70DA70DA70DA70DA71sbND///////8pKcIDA70DA70DA70DA70DA70DA73R
+        0e/////////////////////////////p6fcDA70DA70DA70DA70DA70DA71sbND///////////////9+
+        ftQDA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////////09PspKcID
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcurq+L/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70D
+        A70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70DA70DA70DA71+ftT/////
+        //9+ftQDA70DA70DA70DA70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70D
+        A70DA70DA71+ftT///////////////+rq+IDA70DA70DA70DA70DA70DA724uOb/////////////////
+        ///////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbNCrq+Lp6ff/
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L/////////////
+        ///////////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff////////////////////////FxeoD
+        A70DA70DA70DA70DA70DA72Ojtn////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff/////////
+        ///////////////FxeoDA70DA70DA70DA70DA70DA72Ojtn////////////////FxeoDA70DA70DA70D
+        A70DA70DA72dnd3///////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D
+        A70DA72Ojtm4uOb/////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////d3fMDA70DA70D
+        A70DA70DA70DA71+ftT///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA71+
+        ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L///////////8pKcIDA70D
+        A70DA70DA70DA70DA71+ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L/
+        ///////////////d3fMDA70DA70DA70DA70DA70DA71sbND/////////////////////////////////
+        //////+rq+IDA70DA70DA70DA70DA70DA73d3fP////////////////////p6ferq+Krq+L09Pv/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////09PsDA70DA70DA70DA70DA70DA71ERMf/////////////////////////////
+        //+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYDA70DA70DA70DA70DA70D
+        A70DA73d3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYD
+        A70DA70DA70DA70DA70DA70DA73d3fP///////////////////8pKcIDA70DA70DA70DA70DA70pKcL/
+        //////////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA724uOb/////////
+        ///////09PtZWcsDA70DA70DA70DA71sbNCrq+L09Pv/////////////////////////////////////
+        ///////////////////////////09Purq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70D
+        A72rq+Krq+Krq+Krq+Krq+Krq+LR0e////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA72rq+Kr
+        q+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////9ERMcDA70DA70DA70DA70D
+        A70DA70DA70DA72rq+Krq+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv/////////////////////
+        //9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////////////R0e8DA70D
+        A70DA70DA70DA70DA70DA71ZWcurq+Krq+J+ftQDA70DA70DA70DA70DA70DA70DA70pKcL09Pv/////
+        ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn////////d3fMDA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73R0e//////////
+        ///////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA73R0e////////////////////////+OjtkDA70DA70DA70DA70DA70DA73R0e//////////////
+        //////////////////////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA72rq+L/////////////////////////////////////////////////////////
+        //////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA71ZWcv///////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA72dnd3///////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////+rq+IDA70DA70D
+        A70DA70DA70DA72rq+L////////////////////////////////////////d3fMDA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv/////////////////////////////
+        //////////////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////+4uOYDA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT/////////////////////////////////
+        //+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT/////////////
+        ///////////////////R0e8DA70DA70DA70DA70DA70DA72Ojtn/////////////////////////////
+        //////////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcvp
+        6ff///////////////////////////////////////////////////////////////////////////+d
+        nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p
+        6ff////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/////
+        ///////////////////////////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA724uOb////////////////////////////////////09PsDA70DA70DA70DA70DA70DA71Z
+        Wcv////////////////////////////////////////////////R0e9ERMcDA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA72Ojtn/////////////////////////////////////////////////////
+        //////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA73R0e/////////////////////////R0e+rq+IpKcIDA70DA70D
+        A70DA70DA72Ojtmrq+L////////////////////////////////////////////////////////////R
+        0e+rq+IpKcIDA70DA70DA70DA70DA72Ojtmrq+L/////////////////////////////////////////
+        //////8pKcIDA70DA70DA70DA70DA70DA73/////////////////////////////////////////////
+        //////////+4uOarq+IDA70DA70DA70DA70DA70DA71+ftSrq+L09Pv/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>
--- a/initATLASAufschubkonten/frmMICNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmMICNachrichtenVerarbeitung.vb
@@ -0,0 +1,980 @@
+Imports System.IO
+Imports System.Xml
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmMICNachrichtenVerarbeitung
+    Dim cntDatenEingelesen As Integer = 0
+    Dim dsNichtErkannt As Integer = 0
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim allowClose = False
+
+    Dim MIC As New cMIC
+
+    Dim MIC_PFAD = ""
+    Dim MIC_PFAD_VERAG = ""
+    Dim VERARBEITUNGS_PFAD = ""
+    Dim ZIEL_PFAD = ""
+    Dim ERROR_PFAD = ""
+    ' Dim BOX_VERSION = "8.8"
+
+    Dim Dateiname = ""
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Sub New(allowClose) 'autostart
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.allowClose = allowClose
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub initPfade()
+        'Me.MIC_PFAD = MIC.Paramter.GET_PARAM_ByName("MIC_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        'Me.MIC_PFAD_VERAG = "" 'MIC_Worker.cTC_Paramter.GET_PARAM_ByName("MIC_PFAD_VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) 
+        Me.VERARBEITUNGS_PFAD = MIC.Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) '\\datenarchiv.verag.ost.dmn\Datenarchiv\MIC\ECHTSYSTEM\Einarbeitung
+        Me.ZIEL_PFAD = MIC.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) '\\datenarchiv.verag.ost.dmn\Datenarchiv\MIC\ECHTSYSTEM\Nachrichtendaten_Ablage
+        Me.ERROR_PFAD = MIC.Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) '\\datenarchiv.verag.ost.dmn\Datenarchiv\MIC\ECHTSYSTEM\Nachrichtendaten_ERROR
+        If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
+        If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
+        If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
+
+
+
+    End Sub
+
+
+    Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initPfade()
+        For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
+            ListBox3.Items.Add(frmStartOptions.cut_file(d))
+            Me.Refresh()
+        Next
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.Enabled = False
+        Try
+            Label9.Visible = True
+            Dim cnt = getNachrichtenDatenFromMIC()
+            cnt += getNachrichtenDatenFromMIC_VERAG()
+            Label9.Text = cnt & " Datensätze empfangen."
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Enabled = True
+
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Enabled = False
+        Try
+            Label5.Visible = True
+            DatenEinlesen()
+            If dsNichtErkannt > 0 Then
+
+                Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
+                Label6.Visible = True
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Enabled = True
+        Label5.Text = cntDatenEingelesen & " Datensätze verarbeitet."
+
+    End Sub
+
+    Function getNachrichtenDatenFromMIC() As Integer
+        Dim cnt = 0
+        Try
+            For Each f In System.IO.Directory.GetFiles(MIC_PFAD)
+                Dim FI As New FileInfo(f)
+                If Not FI.Name.StartsWith(".") Then
+                    'Temp. DownloadPfad
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
+
+                    'Datei herunterladen
+                    System.IO.File.Copy(f, destFilenameTMP)
+                    If System.IO.File.Exists(destFilenameTMP) Then System.IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+
+                    'Gültiger Filename
+                    Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
+                    System.IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+
+                    Dim fi_dest As FileInfo = New FileInfo(destFilename)
+                    ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen
+                    cnt += 1
+                End If
+            Next
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Return cnt
+
+    End Function
+
+    Function getNachrichtenDatenFromMIC_VERAG() As Integer
+        Dim cnt = 0
+        Try
+            For Each f In System.IO.Directory.GetFiles(MIC_PFAD_VERAG)
+                Dim FI As New FileInfo(f)
+                If Not FI.Name.StartsWith(".") Then
+                    'Temp. DownloadPfad
+                    Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
+
+                    'Datei herunterladen
+                    System.IO.File.Copy(f, destFilenameTMP)
+                    If System.IO.File.Exists(destFilenameTMP) Then System.IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
+
+                    'Gültiger Filename
+                    Dim destFilename = VERARBEITUNGS_PFAD & If(System.IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
+                    System.IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
+
+                    Dim fi_dest As FileInfo = New FileInfo(destFilename)
+                    ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen
+                    cnt += 1
+                End If
+            Next
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Return cnt
+    End Function
+
+
+    Public Function stripNonValidXMLCharacters(ByVal textIn As String) As String
+        Dim textOut As System.Text.StringBuilder = New System.Text.StringBuilder()
+        Dim current As Char
+        If textIn Is Nothing OrElse textIn = String.Empty Then Return String.Empty
+        For i As Integer = 0 To textIn.Length - 1
+            current = textIn(i)
+            If (current = "9" OrElse current = "10" OrElse current = "13") OrElse ((current >= "32") AndAlso (current <= "55295")) OrElse ((current >= "57344") AndAlso (current <= "65533")) OrElse ((current >= "65536") AndAlso (current <= "1114111")) Then
+                textOut.Append(current)
+            End If
+        Next
+
+        Return textOut.ToString()
+    End Function
+
+    Public Function SanitizeXmlString(ByVal xml As String) As String
+        If xml Is Nothing Then
+            Throw New ArgumentNullException("xml")
+        End If
+
+        Dim buffer As System.Text.StringBuilder = New System.Text.StringBuilder(xml.Length)
+        For Each c As Char In xml
+            If IsLegalXmlChar(Asc(c)) Then
+                buffer.Append(c)
+            End If
+        Next
+
+        Return buffer.ToString()
+    End Function
+
+    Public Function IsLegalXmlChar(ByVal character As Integer) As Boolean
+        Return (character = 9 OrElse character = 10 OrElse character = 13 OrElse (character >= 32 AndAlso character <= 55295) OrElse (character >= 57344 AndAlso character <= 65533) OrElse (character >= 65536 AndAlso character <= 1114111))
+    End Function
+
+    Private Function getFilesInOrder() As String()
+        Dim myDirectory As New System.IO.DirectoryInfo(VERARBEITUNGS_PFAD)
+        Dim myfiles() As String = myDirectory.GetFiles.OrderBy(Function(x) x.CreationTime).Select(Function(x) x.FullName).ToArray
+        Return myfiles
+
+    End Function
+
+    Sub DatenEinlesen()
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
+
+        If ListBox3.Items.Count = 0 Then
+            Label6.Text = "Keine Daten zum Einlesen vorhanden."
+            Label6.Visible = True
+            Exit Sub
+        End If
+        For i = 1 To 3
+
+            For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
+
+                Try
+                    Dateiname = d
+                    cWorker_NCTS.Dateiname = d
+                    If System.IO.File.Exists(d) Then
+
+                        Dim found = False
+                        Dim fi As FileInfo = New FileInfo(d)
+                        If Not fi.Name.StartsWith(".") Then
+
+                            Dim alreadyMoved = False
+                            Select Case i
+                                Case 1
+                                    If fi.Extension = ".xml" Then
+                                        Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
+
+                                        Dim doc As New XmlDocument()
+                                        Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
+
+                                        doc.LoadXml(SanitizeXmlString(XML_Code))
+                                        Dim VERSION As String = ""
+                                        Dim verarbeitet As Boolean = False
+                                        Dim typ As String = ""
+                                        If Not found AndAlso cGetMsgType.isMIC_Import(doc) Then
+                                            typ = "IMPORT"
+                                            verarbeitet = True
+                                        ElseIf Not found AndAlso cGetMsgType.isMIC_Export(doc) Then
+                                            typ = "EXPORT"
+                                            verarbeitet = True
+                                        ElseIf Not found AndAlso cGetMsgType.isMIC_NCTS(doc) Then
+                                            typ = "NCTS"
+                                            verarbeitet = True
+
+                                        End If
+                                        '=====IMPORT IN VERAG DATENMODELL==========
+                                        If verarbeitet = True Then
+                                            Dim IMP As New DAKOSY_Worker.cImporter_MICToVERAG
+                                            IMP.ImporMICCustoms(d, doc, typ, False, True)
+                                        End If
+                                        '==================================
+
+                                    End If
+
+                                    Me.Refresh()
+                            End Select
+
+
+                            If True Then
+                                If Not alreadyMoved Then
+                                    If found Then
+                                        If Not System.IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                        frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
+                                        cntDatenEingelesen += 1
+                                        Me.Refresh()
+                                    End If
+                                End If
+
+                            End If
+
+
+                        End If
+                    End If
+                Catch ex As Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                End Try
+            Next
+        Next
+    End Sub
+
+
+
+    Function getString(doc As XmlDocument) As Boolean
+        If doc.HasChildNodes Then
+            '  If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            MsgBox(XmlString)
+        End If
+        Return False
+    End Function
+
+
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Me.Close()
+    End Sub
+
+
+
+
+    'Sub Savetelanm_FirmaNL(ByRef TC_TMP As MIC_Worker.cMIC_Anmeldung, division As String)
+    '    TC_TMP.telanm_firma = "IMEX"
+    '    TC_TMP.telanm_niederlassung = "SUB"
+    '    '            
+    '    'If division <> "" Then
+    '    '    If (TC_TMP.telanm_firma Is Nothing OrElse TC_TMP.telanm_firma = "") Or (TC_TMP.telanm_niederlassung Is Nothing OrElse TC_TMP.telanm_niederlassung = "") Then
+    '    '        Select Case division
+    '    '            Case "SUW"
+    '    '                TC_TMP.telanm_firma = "ATILLA"
+    '    '                TC_TMP.telanm_niederlassung = "SUB"
+    '    '            Case "SUB"
+    '    '                TC_TMP.telanm_firma = "VERAG"
+    '    '                TC_TMP.telanm_niederlassung = "SUB"
+    '    '            Case "DUR"
+    '    '                TC_TMP.telanm_firma = "DURMAZ"
+    '    '                TC_TMP.telanm_niederlassung = "SBG"
+    '    '            Case "NKD"
+    '    '                TC_TMP.telanm_firma = "VERAG"
+    '    '                TC_TMP.telanm_niederlassung = "NKD"
+    '    '            Case "WAI"
+    '    '                TC_TMP.telanm_firma = "VERAG"
+    '    '                TC_TMP.telanm_niederlassung = "WAI"
+    '    '            Case "SBG"
+    '    '                TC_TMP.telanm_firma = "VERAG"
+    '    '                TC_TMP.telanm_niederlassung = "SBG"
+    '    '            Case "NEU"
+    '    '                TC_TMP.telanm_firma = "VERAG"
+    '    '                TC_TMP.telanm_niederlassung = "NEU"
+    '    '            Case "GLO"
+    '    '                TC_TMP.telanm_firma = "IMEX"
+    '    '                TC_TMP.telanm_niederlassung = "GLO"
+    '    '            Case "AMB"
+    '    '                TC_TMP.telanm_firma = "AMBAR"
+    '    '                TC_TMP.telanm_niederlassung = "AMBAR"
+    '    '            Case "IME"
+    '    '                TC_TMP.telanm_firma = "IMEX"
+    '    '                TC_TMP.telanm_niederlassung = "IMEX"
+    '    '        End Select
+    '    '        TC_TMP.SAVE()
+    '    '    End If
+
+    '    'End If
+    'End Sub
+
+
+
+
+    Sub addDGVEinarbeitung(art, BezugsNr)
+        dgvEinarbeitung.Rows.Add(art, BezugsNr)
+        Try
+            dgvEinarbeitung.FirstDisplayedScrollingRowIndex = dgvEinarbeitung.RowCount - 1
+        Catch ex As Exception
+        End Try
+    End Sub
+
+
+    Function getVerahrensartFromBezugsNr(bezugsNr) As String
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        If SQL.getValueTxtBySql("SELECT TOP 1 COUNT(*) FROM tblDakosy_NCTSOut WHERE ncts_ObjectName='" & bezugsNr & "'", "FMZOLL") > 0 Then Return "NCTS"
+        If SQL.getValueTxtBySql("SELECT TOP 1 COUNT(*) FROM tblDakosy_EZA WHERE eza_ObjectName='" & bezugsNr & "'", "FMZOLL") > 0 Then Return "EZA"
+        Return ""
+    End Function
+
+    Function getStatusCheckTransID(transId As String, transDate As Date) As DAKOSY_Worker.cDakosy_Statusmeldungen
+        getStatusCheckTransID = DAKOSY_Worker.cDakosy_Statusmeldungen.LOADByDakosyTransaktionsID(transId)
+        If getStatusCheckTransID Is Nothing Then
+            getStatusCheckTransID = New DAKOSY_Worker.cDakosy_Statusmeldungen
+        End If
+        getStatusCheckTransID.dySt_DakosyTransaktionsDatum = transDate
+        getStatusCheckTransID.dySt_DakosyTransaktionsID = transId
+    End Function
+
+    Function saveDY_ZA(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, transID As String, ergtransDate As Date, art As String) As DAKOSY_Worker.cDakosy_Zollanmeldungen
+        Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
+        DY_TMP = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(STATUS.dySt_BezugsNr.ToString)
+        If DY_TMP Is Nothing Then
+            DY_TMP = New DAKOSY_Worker.cDakosy_Zollanmeldungen
+            DY_TMP.dy_BezugsNr = STATUS.dySt_BezugsNr
+            DY_TMP.dy_ART = art
+            If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, ergtransDate) Then
+                DY_TMP.dy_Status = STATUS.dySt_status
+            End If
+            DY_TMP.SAVE()
+            'Eintragen
+        Else
+            'Update  NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit
+            If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, ergtransDate) Then
+                DY_TMP.UPDATE_Status(STATUS.dySt_status)
+            End If
+
+        End If
+
+
+        'Status wir dnur upgedatet, wenn nicht schon ein neuerer Datensatz verarbeitet wurde!:
+
+
+
+
+
+
+        'If DY_TMP.dy_AvisoId Is Nothing Or DY_TMP.dy_SendungsId Is Nothing Then
+        'If getAVSIOFromBezugsNr(STATUS.dySt_BezugsNr, DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId) Then ' Lädt AVSIO
+        'DY_TMP.SAVE() ' AVISOID/SendungsID speichern
+        ' End If
+        ' End If
+
+        saveDY_ZA = DY_TMP
+    End Function
+    Function saveDY_ZA(dySt_BezugsNr As String, art As String) As DAKOSY_Worker.cDakosy_Zollanmeldungen
+        Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
+        DY_TMP = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(dySt_BezugsNr)
+        If DY_TMP Is Nothing Then
+            DY_TMP = New DAKOSY_Worker.cDakosy_Zollanmeldungen
+            DY_TMP.dy_BezugsNr = dySt_BezugsNr
+            DY_TMP.dy_ART = art
+            ' DY_TMP.dy_Status = STATUS.dySt_status
+            DY_TMP.SAVE()
+            'Eintragen
+        Else
+            'Update
+            ' DY_TMP.UPDATE_Status(STATUS.dySt_status)
+        End If
+        saveDY_ZA = DY_TMP
+    End Function
+
+
+
+    Function saveDY_EZA(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyEZA
+        'EINTRAG IN tblDakosyNCTSOut
+        Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = Nothing
+        EZA_TMP = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(STATUS.dySt_BezugsNr.ToString, False)
+        If EZA_TMP Is Nothing Then
+            EZA_TMP = New DAKOSY_Worker.cDakosyEZA
+            EZA_TMP.eza_ObjectName = STATUS.dySt_BezugsNr
+            If EZA_TMP IsNot Nothing Then EZA_TMP.eza_dyaAnmID = DY_TMP.dy_Id
+
+            If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, transDate) Then
+                EZA_TMP.eza_Status = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
+                EZA_TMP.eza_Status_KEWILL_Equivalent = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
+            End If
+            'EZA_TMP.ncts_Status_KEWILL_Equivalent = STATUS.dySt_status
+
+            If ANR <> "" Then EZA_TMP.eza_ANR = ANR
+            If MRN <> "" Then EZA_TMP.eza_MRN = MRN
+            EZA_TMP.SAVE()
+            'Eintragen
+
+        Else
+
+            'Update     
+            EZA_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
+
+            If ANR <> "" Then EZA_TMP.eza_ANR = ANR : EZA_TMP.SAVE()
+            If MRN <> "" Then EZA_TMP.eza_MRN = MRN : EZA_TMP.SAVE()
+
+        End If
+        saveDY_EZA = EZA_TMP
+    End Function
+
+
+
+
+    'Function readMIC_Anmeldung(doc As XmlDocument, d As String) As String
+    '    Try
+    '        readMIC_Anmeldung = ""
+    '        'Dim sw = New StringWriter()
+    '        'Dim xw = New XmlTextWriter(sw)
+    '        'doc.WriteTo(xw)
+    '        'Dim XmlString = sw.ToString()
+    '        'MsgBox("0")
+    '        'If XmlString.Contains("<vifDec>") Then
+    '        '    MsgBox("1")
+    '        '    Dim xmlvifDec = XmlString.Substring(XmlString.IndexOf("<vifDec>"), XmlString.IndexOf("</vifDec>") + 9 - XmlString.IndexOf("<vifDec>"))
+    '        '    '  MsgBox(xmlDEXPDD)
+    '        '    Dim p = Path.GetTempFileName
+    '        '    MsgBox(p)
+    '        '    Using outputFile As New StreamWriter(p) ', False, System.Text.Encoding.Default)
+    '        '        MsgBox("1,1")
+    '        '        outputFile.Write(xmlvifDec)
+    '        '        outputFile.Close()
+
+
+    '        Dim id = MIC_Worker.vifDec.InterfaceDataType.LoadFromFile(d)
+    '        Dim vifDEC As MIC_Worker.vifDec.vifDec = id.vifDec(0)
+    '        '  Dim AES As New DAKOSY_Worker.cDakosyAES
+
+    '        Dim MsgType = ""
+
+    '        If vifDEC IsNot Nothing And vifDEC.Refs_LRN IsNot Nothing Then
+    '            readMIC_Anmeldung = vifDEC.Refs_LRN
+    '            MsgType = vifDEC.MsgType
+    '        Else
+    '            Return "" 'Keine Bezugsnummer
+    '        End If
+
+    '        '    Dim DY_TMP As MIC_Worker.cMIC_Zollanmeldungen = saveDY_ZA(readTC_Anmeldung, "AES")
+
+    '        Dim TC As MIC_Worker.cMIC_Anmeldung = MIC_Worker.cMIC_Anmeldung.LOADByBezugsNr(readMIC_Anmeldung, MsgType) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
+    '        If TC Is Nothing Then TC = New MIC_Worker.cMIC_Anmeldung
+    '        '  If DY_TMP IsNot Nothing Then TC.TC_dyaAnmID = DY_TMP.dy_Id
+
+    '        TC.telanm_BezugsNr = vifDEC.Refs_LRN
+    '        If TC.telanm_AvisoId Is Nothing Then
+    '            TC.tryFindAviso()
+    '        End If
+
+
+    '        If vifDEC IsNot Nothing Then
+    '            'TC.telanm_BezugsNr = vifDEC.Refs_LRN
+
+    '            TC.Mandant_ID = vifDEC.Mandant_ID
+    '            TC.Bereich_ID = vifDEC.Bereich_ID
+    '            TC.Referenz_ID = vifDEC.Referenz_ID
+    '            TC.ComIndicator = vifDEC.ComIndicator
+
+    '            TC.Hea_DecTy = vifDEC.Hea_DecTy
+    '            'Art der Anmeldung
+    '            Select Case TC.Hea_DecTy
+    '                Case "T1", "T2", "T2L" : TC.telanm_ART = TC.Hea_DecTy
+    '                Case "EUA" : TC.telanm_ART = TC.Hea_DecTy 'EZA
+    '                Case Else : TC.telanm_ART = TC.Hea_DecTy '^^
+    '            End Select
+
+    '            TC.MsgType = vifDEC.MsgType
+    '            Select Case TC.MsgType
+    '                Case "TT906", "TT109" 'Eröffnung des Versandscheins
+    '                    TC.telanm_Status = MIC_Worker.cTC_Statusliste.S_50
+    '                    TC.telanm_Status_KEWILL_Equivalent = MIC_Worker.cTC_Statusliste.S_50
+    '                Case "TT132" 'Anrechnung des Referenzbetrages 
+    '                    TC.telanm_Status = MIC_Worker.cTC_Statusliste.S_53
+    '                    TC.telanm_Status_KEWILL_Equivalent = MIC_Worker.cTC_Statusliste.S_53
+    '                Case "TT131" 'Erledigungsmeldung 
+    '                    TC.telanm_Status = MIC_Worker.cTC_Statusliste.S_60
+    '                    TC.telanm_Status_KEWILL_Equivalent = MIC_Worker.cTC_Statusliste.S_60
+
+    '                Case "TT922" 'EZA / Mitteilung Zollschuld  --> Abgabenbescheid
+    '                    TC.telanm_Status = MIC_Worker.cTC_Statusliste.S_60
+    '                    TC.telanm_Status_KEWILL_Equivalent = MIC_Worker.cTC_Statusliste.S_60
+
+    '                Case "TT923" '  Freigabe IMPORT + EXPORT 
+    '                    TC.telanm_Status = MIC_Worker.cTC_Statusliste.S_60
+    '                    TC.telanm_Status_KEWILL_Equivalent = MIC_Worker.cTC_Statusliste.S_60
+    '                Case Else
+    '                    Return "" 'Nicht erkannt
+    '            End Select
+
+    '            'Derzeit nur IMEX
+    '            TC.telanm_firma = vifDEC.Mandant_ID.ToUpper '"IMEX"
+    '            If TC.telanm_BezugsNr.ToString.StartsWith("5501") Then
+    '                TC.telanm_firma = "IMEX" 'VERAG WO
+    '            End If
+    '            If TC.telanm_BezugsNr.ToString.StartsWith("4801") Or TC.telanm_BezugsNr.ToString.StartsWith("4802") Then
+    '                TC.telanm_firma = "IMEX" 'VERAG WO
+    '            End If
+    '            TC.telanm_niederlassung = "SUB"
+
+    '            TC.telanm_Erstellung = Now
+    '            TC.telanm_LetzteBearbeitung = Now
+
+    '            TC.Mandant_ID = vifDEC.Mandant_ID
+    '            TC.Bereich_ID = vifDEC.Bereich_ID
+    '            TC.Referenz_ID = vifDEC.Referenz_ID
+    '            TC.ComIndicator = vifDEC.ComIndicator
+    '            TC.dec_ProzessArt = vifDEC.dec_ProzessArt
+    '            TC.TransferStatus = vifDEC.TransferStatus
+
+    '            TC.dec_Anmelde_ID = vifDEC.dec_Anmelde_ID
+    '            TC.dec_Template_ID = vifDEC.dec_Template_ID
+    '            TC.dec_Lager_ID = vifDEC.dec_Lager_ID
+    '            TC.dec_Lag_IND = vifDEC.dec_Lag_IND
+    '            TC.dec_CreateDate = vifDEC.dec_CreateDate
+    '            TC.dec_CreatePersonalID = vifDEC.dec_CreatePersonalID
+    '            TC.dec_PreDec_IND = vifDEC.dec_PreDec_IND
+    '            TC.dec_TotNet = vifDEC.dec_TotNet
+    '            TC.dec_TotNetSplit_IND = vifDEC.dec_TotNetSplit_IND
+    '            TC.dec_FillPackList_IND = vifDEC.dec_FillPackList_IND
+    '            TC.dec_Memo = vifDEC.dec_Memo
+    '            TC.Refs_LRN = vifDEC.Refs_LRN
+    '            TC.Refs_CRN = vifDEC.Refs_CRN
+    '            TC.telanm_CRN = vifDEC.Refs_CRN
+    '            TC.Refs_CSRN = vifDEC.Refs_CSRN
+    '            TC.Refs_ERN = vifDEC.Refs_ERN
+    '            TC.Refs_FRN = vifDEC.Refs_FRN
+    '            TC.Refs_Stat = vifDEC.Refs_Stat
+
+    '            TC.Hea_DecTy = vifDEC.Hea_DecTy
+    '            TC.Hea_TotItem = vifDEC.Hea_TotItem
+    '            TC.Hea_TotPack = vifDEC.Hea_TotPack
+    '            TC.Hea_TotGross = vifDEC.Hea_TotGross
+    '            TC.Hea_DepLNG = vifDEC.Hea_DepLNG
+    '            TC.Hea_DestLNG = vifDEC.Hea_DestLNG
+    '            TC.Hea_PayTy = vifDEC.Hea_PayTy
+    '            TC.Hea_DefPayRef = vifDEC.Hea_DefPayRef
+    '            TC.Hea_PerPayRef = vifDEC.Hea_PerPayRef
+    '            TC.Hea_PayMet = vifDEC.Hea_PayMet
+    '            TC.Hea_AExpRef = vifDEC.Hea_AExpRef
+    '            TC.Hea_Fin = vifDEC.Hea_Fin
+    '            TC.Hea_Simp = vifDEC.Hea_Simp
+    '            TC.Hea_IssD = vifDEC.Hea_IssD
+    '            TC.Hea_AuthID = vifDEC.Hea_AuthID
+    '            TC.Hea_TransDat = vifDEC.Hea_TransDat
+    '            TC.Hea_WoffD = vifDEC.Hea_WoffD
+    '            TC.Hea_DecDT = vifDEC.Hea_DecDT
+    '            TC.Hea_DecPlc = vifDEC.Hea_DecPlc
+    '            TC.Hea_AccDT = vifDEC.Hea_AccDT
+    '            TC.Hea_SecInd = vifDEC.Hea_SecInd
+    '            TC.Hea_ComRef = vifDEC.Hea_ComRef
+    '            TC.Hea_ProArrDT = vifDEC.Hea_ProArrDT
+    '            TC.Hea_PlaDepDT = vifDEC.Hea_PlaDepDT
+
+    '            TC.Locs_TradCtry = vifDEC.Locs_TradCtry
+    '            TC.Locs_Disp = vifDEC.Locs_Disp
+    '            TC.Locs_Dest = vifDEC.Locs_Dest
+    '            TC.Locs_GdsLocCd = vifDEC.Locs_GdsLocCd
+    '            TC.Locs_GdsLoc = vifDEC.Locs_GdsLoc
+    '            TC.Locs_GdsLocAuth = vifDEC.Locs_GdsLocAuth
+    '            TC.Locs_LoadPlcCd = vifDEC.Locs_LoadPlcCd
+    '            TC.Locs_LoadPlc = vifDEC.Locs_LoadPlc
+    '            TC.Locs_CustPlc = vifDEC.Locs_CustPlc
+    '            TC.Locs_ArrLocCd = vifDEC.Locs_ArrLocCd
+    '            TC.Locs_ArrLoc = vifDEC.Locs_ArrLoc
+    '            TC.Locs_ArrLocAuth = vifDEC.Locs_ArrLocAuth
+    '            TC.Locs_WarTy = vifDEC.Locs_WarTy
+    '            TC.Locs_WarCtry = vifDEC.Locs_WarCtry
+    '            TC.Locs_War = vifDEC.Locs_War
+
+    '            TC.Transp_InMo = vifDEC.Transp_InMo
+    '            TC.Transp_BordMo = vifDEC.Transp_BordMo
+    '            TC.Transp_DepTy = vifDEC.Transp_DepTy
+    '            TC.Transp_DepIdnt = vifDEC.Transp_DepIdnt
+    '            TC.Transp_DepNat = vifDEC.Transp_DepNat
+    '            TC.Transp_CrossTy = vifDEC.Transp_CrossTy
+    '            TC.Transp_CrossIdnt = vifDEC.Transp_CrossIdnt
+    '            TC.Transp_CrossIdntNat = vifDEC.Transp_CrossIdntNat
+    '            TC.Transp_ContInd = vifDEC.Transp_ContInd
+
+    '            TC.ValData_TermDelCd = vifDEC.ValData_TermDelCd
+    '            TC.ValData_TermDelPlc = vifDEC.ValData_TermDelPlc
+    '            TC.ValData_TermDelSit = vifDEC.ValData_TermDelSit
+    '            TC.ValData_InvCurr = vifDEC.ValData_InvCurr
+    '            TC.ValData_ExRa = vifDEC.ValData_ExRa
+    '            TC.ValData_InvVal = vifDEC.ValData_InvVal
+    '            TC.ValData_TransacCd = vifDEC.ValData_TransacCd
+
+    '            TC.ConorTra_Na = vifDEC.ConorTra_Na
+    '            TC.ConorTra_Strt = vifDEC.ConorTra_Strt
+    '            TC.ConorTra_Pst = vifDEC.ConorTra_Pst
+    '            TC.ConorTra_Cty = vifDEC.ConorTra_Cty
+    '            TC.ConorTra_Ctry = vifDEC.ConorTra_Ctry
+    '            TC.ConorTra_TIN = vifDEC.ConorTra_TIN
+    '            TC.ConorTra_UIDCtry = vifDEC.ConorTra_UIDCtry
+    '            TC.ConorTra_UID = vifDEC.ConorTra_UID
+
+    '            TC.ConeeTra_Na = vifDEC.ConeeTra_Na
+    '            TC.ConeeTra_Strt = vifDEC.ConeeTra_Strt
+    '            TC.ConeeTra_Pst = vifDEC.ConeeTra_Pst
+    '            TC.ConeeTra_Cty = vifDEC.ConeeTra_Cty
+    '            TC.ConeeTra_Ctry = vifDEC.ConeeTra_Ctry
+    '            TC.ConeeTra_TIN = vifDEC.ConeeTra_TIN
+    '            TC.ConeeTra_UIDCtry = vifDEC.ConeeTra_UIDCtry
+    '            TC.ConeeTra_UID = vifDEC.ConeeTra_UID
+
+    '            TC.ExpTra_Na = vifDEC.ExpTra_Na
+    '            TC.ExpTra_Strt = vifDEC.ExpTra_Strt
+    '            TC.ExpTra_Pst = vifDEC.ExpTra_Pst
+    '            TC.ExpTra_Cty = vifDEC.ExpTra_Cty
+    '            TC.ExpTra_Ctry = vifDEC.ExpTra_Ctry
+    '            TC.ExpTra_TIN = vifDEC.ExpTra_TIN
+    '            TC.ExpTra_UIDCtry = vifDEC.ExpTra_UIDCtry
+    '            TC.ExpTra_UID = vifDEC.ExpTra_UID
+
+    '            TC.Declarant_Na = vifDEC.Declarant_Na
+    '            TC.Declarant_Strt = vifDEC.Declarant_Strt
+    '            TC.Declarant_Pst = vifDEC.Declarant_Pst
+    '            TC.Declarant_Cty = vifDEC.Declarant_Cty
+    '            TC.Declarant_Ctry = vifDEC.Declarant_Ctry
+    '            TC.Declarant_TIN = vifDEC.Declarant_TIN
+    '            TC.Declarant_UIDCtry = vifDEC.Declarant_UIDCtry
+    '            TC.Declarant_UID = vifDEC.Declarant_UID
+    '            TC.Declarant_DecRep = vifDEC.Declarant_DecRep
+
+    '            TC.Represent_RIN = vifDEC.Represent_RIN
+    '            TC.Represent_Na = vifDEC.Represent_Na
+
+    '            TC.EntryCO_Ref = vifDEC.EntryCO_Ref
+    '            TC.ExitCO_Ref = vifDEC.ExitCO_Ref
+    '            TC.SurvCO_Ref = vifDEC.SurvCO_Ref
+    '            TC.DestCO_Ref = vifDEC.DestCO_Ref
+    '            TC.PresCO_Ref = vifDEC.PresCO_Ref
+    '            TC.DepCO_Ref = vifDEC.DepCO_Ref
+
+    '            'TC.CtrlRslt_ResCd = vifDEC.CtrlRslt_ResCd'--> in Schnittstelle nicht vorhanden
+    '            TC.CtrlRslt_DLimit = vifDEC.CtrlRslt_DLimit
+
+
+    '            TC.POSITIONSDATEN.Clear() 'Falls DS schon Mal eingearbeitet wurde
+    '            If vifDEC.vifDecItem IsNot Nothing AndAlso vifDEC.vifDecItem.Count > 0 Then
+    '                For Each vidDescITEM In vifDEC.vifDecItem
+    '                    Dim POS As New MIC_Worker.cTelotec_Positionsdaten
+
+    '                    POS.Mandant_ID = vidDescITEM.Mandant_ID
+    '                    POS.Bereich_ID = vidDescITEM.Bereich_ID
+    '                    POS.Referenz_ID = vidDescITEM.Referenz_ID
+    '                    POS.ComIndicator = vidDescITEM.ComIndicator
+    '                    POS.Pos_ID = vidDescITEM.Pos_ID
+    '                    POS.Item_Status = vidDescITEM.Item_Status
+    '                    POS.Item_ComCd = vidDescITEM.Item_ComCd
+    '                    POS.Item_GdsDes = vidDescITEM.Item_GdsDes
+    '                    POS.Item_Gross = vidDescITEM.Item_Gross
+    '                    POS.Item_Net = vidDescITEM.Item_Net
+    '                    POS.Item_Orig = vidDescITEM.Item_Orig
+    '                    POS.Item_ProcCd = vidDescITEM.Item_ProcCd
+    '                    POS.Item_ProcAddCd = vidDescITEM.Item_ProcAddCd
+    '                    POS.Item_ItVal = vidDescITEM.Item_ItVal
+    '                    POS.Item_Pref = vidDescITEM.Item_Pref
+    '                    POS.Item_Quota = vidDescITEM.Item_Quota
+    '                    POS.Item_ValMet = vidDescITEM.Item_ValMet
+    '                    POS.Item_VATInd = vidDescITEM.Item_VATInd
+    '                    POS.Item_StatVal = vidDescITEM.Item_StatVal
+    '                    POS.SurvCO_Ref = vidDescITEM.SurvCO_Ref
+    '                    POS.Telo_Artikel_ID = vidDescITEM.Telo_Artikel_ID
+    '                    POS.Telo_Artikelmenge = vidDescITEM.Telo_ArtikelMenge
+    '                    POS.Telo_ArtikelMEH = vidDescITEM.Telo_ArtikelMEH
+
+    '                    'vidDescITEM.vifDecPack
+
+    '                    POS.PACKSTUECKE.Clear() 'Falls DS schon Mal eingearbeitet wurde
+    '                    If vidDescITEM.vifDecPack IsNot Nothing AndAlso vidDescITEM.vifDecPack.Count > 0 Then
+    '                        For Each vifDecPack In vidDescITEM.vifDecPack
+    '                            Dim PK As New TELOTEC_Worker.cTelotec_Packstuecke
+
+    '                            PK.Mandant_ID = vifDecPack.Mandant_ID
+    '                            PK.Bereich_ID = vifDecPack.Bereich_ID
+    '                            PK.Referenz_ID = vifDecPack.Referenz_ID
+    '                            PK.ComIndicator = vifDecPack.ComIndicator
+    '                            PK.Pos_ID = vifDecPack.Pos_ID
+    '                            PK.Pack_ID = vifDecPack.Pack_ID
+    '                            PK.Pack_Mark = vifDecPack.Pack_Mark
+    '                            PK.Pack_Kind = vifDecPack.Pack_Kind
+    '                            PK.Pack_Nr = vifDecPack.Pack_Nr
+    '                            PK.Pack_Piec = vifDecPack.Pack_Piec
+    '                            PK.Telo_Gross = vifDecPack.TELO_Gross
+
+    '                            POS.PACKSTUECKE.Add(PK)
+    '                        Next
+    '                    End If
+
+    '                    POS.ABGABEN.Clear() 'Falls DS schon Mal eingearbeitet wurde
+    '                    If vidDescITEM.vifDecDutyCalc IsNot Nothing AndAlso vidDescITEM.vifDecDutyCalc.Count > 0 Then
+    '                        For Each vifDecDutyCalc In vidDescITEM.vifDecDutyCalc
+    '                            Dim ABG As New TELOTEC_Worker.cTelotec_PositionsdatenAbgaben
+
+    '                            ABG.Mandant_ID = vifDecDutyCalc.Mandant_ID
+    '                            ABG.Bereich_ID = vifDecDutyCalc.Bereich_ID
+    '                            ABG.Referenz_ID = vifDecDutyCalc.Referenz_ID
+    '                            ABG.ComIndicator = vifDecDutyCalc.ComIndicator
+    '                            ABG.Pos_ID = vifDecDutyCalc.Pos_ID
+    '                            ABG.DutyCalc_ID = vifDecDutyCalc.DutyCalc_ID
+    '                            ABG.Ty = vifDecDutyCalc.Ty
+    '                            ABG.BaseD = vifDecDutyCalc.BaseD
+    '                            ABG.Curr = vifDecDutyCalc.Curr
+    '                            ABG.Unit = vifDecDutyCalc.Unit
+    '                            ABG.Base = vifDecDutyCalc.Base
+    '                            ABG.Rate = vifDecDutyCalc.Rate
+    '                            ABG.RateUsed = vifDecDutyCalc.RateUsed
+    '                            ABG.Amnt = vifDecDutyCalc.Amnt
+    '                            ABG.MeaID = vifDecDutyCalc.MeaID
+    '                            ABG.TyInd = vifDecDutyCalc.TyInd
+
+    '                            POS.ABGABEN.Add(ABG)
+    '                        Next
+    '                    End If
+
+    '                    POS.DOC_CERTS.Clear() 'Falls DS schon Mal eingearbeitet wurde
+    '                    If vidDescITEM.vifDecDocCerts IsNot Nothing AndAlso vidDescITEM.vifDecDocCerts.Count > 0 Then
+    '                        For Each vifDecDocCerts In vidDescITEM.vifDecDocCerts
+    '                            Dim DOCS As New TELOTEC_Worker.cTelotec_PositionsdatenDokumente
+
+    '                            DOCS.Mandant_ID = vifDecDocCerts.Mandant_ID
+    '                            DOCS.Bereich_ID = vifDecDocCerts.Bereich_ID
+    '                            DOCS.Referenz_ID = vifDecDocCerts.Referenz_ID
+    '                            DOCS.ComIndicator = vifDecDocCerts.ComIndicator
+    '                            DOCS.Pos_ID = vifDecDocCerts.Pos_ID
+    '                            DOCS.DocCerts_ID = vifDecDocCerts.DocCerts_ID
+    '                            DOCS.DocCerts_DocCd = vifDecDocCerts.DocCerts_DocCd
+    '                            DOCS.DocCerts_DTy = vifDecDocCerts.DocCerts_DTy
+    '                            DOCS.DocCerts_DRef = vifDecDocCerts.DocCerts_DRef
+    '                            DOCS.DocCerts_IssD = vifDecDocCerts.DocCerts_IssD
+
+
+    '                            POS.DOC_CERTS.Add(DOCS)
+    '                        Next
+    '                    End If
+    '                    TC.POSITIONSDATEN.Add(POS)
+    '                Next
+    '            End If
+
+    '            TC.SICHERHEIT.Clear() 'Falls DS schon Mal eingearbeitet wurde
+    '            If vifDEC.vifDecGrteeRef IsNot Nothing AndAlso vifDEC.vifDecGrteeRef.Count > 0 Then
+    '                For Each vifDecGrteeRef In vifDEC.vifDecGrteeRef
+    '                    Dim GRT As New TELOTEC_Worker.cTelotec_Sicherheit
+
+    '                    GRT.Mandant_ID = vifDecGrteeRef.Mandant_ID
+    '                    GRT.Bereich_ID = vifDecGrteeRef.Bereich_ID
+    '                    GRT.Referenz_ID = vifDecGrteeRef.Referenz_ID
+    '                    GRT.ComIndicator = vifDecGrteeRef.ComIndicator
+    '                    GRT.GrteeRef_ID = vifDecGrteeRef.GrteeRef_ID
+    '                    GRT.GrteeRef_GTy = vifDecGrteeRef.Grtee_GTy
+    '                    GRT.GRN = vifDecGrteeRef.GRN
+    '                    GRT.OGR = vifDecGrteeRef.OGR
+    '                    GRT.Acc = vifDecGrteeRef.Acc
+    '                    GRT.GTIN = vifDecGrteeRef.GTIN
+    '                    GRT.GVal = vifDecGrteeRef.GVal
+    '                    GRT.Curr = vifDecGrteeRef.Curr
+
+    '                    TC.SICHERHEIT.Add(GRT)
+    '                Next
+    '            End If
+
+
+
+
+    '            TC.ABGABEN.Clear() 'Falls DS schon Mal eingearbeitet wurde
+    '            If vifDEC.vifDecTotDuties IsNot Nothing AndAlso vifDEC.vifDecTotDuties.Count > 0 Then
+    '                For Each vifDecTotDuties In vifDEC.vifDecTotDuties
+    '                    Dim ABG As New TELOTEC_Worker.cTelotec_Abgaben
+
+    '                    ABG.Mandant_ID = vifDecTotDuties.Mandant_ID
+    '                    ABG.Bereich_ID = vifDecTotDuties.Bereich_ID
+    '                    ABG.Referenz_ID = vifDecTotDuties.Referenz_ID
+    '                    ABG.ComIndicator = vifDecTotDuties.ComIndicator
+    '                    ABG.TotDuties_ID = vifDecTotDuties.TotDuties_ID
+    '                    ABG.Ty = vifDecTotDuties.Ty
+    '                    ABG.Amnt = vifDecTotDuties.Amnt
+    '                    ABG.TyInd = vifDecTotDuties.TyInd
+    '                    ABG.Erstelldatum = vifDecTotDuties.Erstelldatum
+
+    '                    TC.ABGABEN.Add(ABG)
+    '                Next
+    '            End If
+
+
+    '            ''''Aktuellste Nachricht
+    '            If SQL.getValueTxtBySql("Select COUNT(*) FROM [tblTelotec_Anmeldung] WHERE telanm_BezugsNr='" & TC.telanm_BezugsNr & "' and telanm_Status>'" & TC.telanm_Status & "' ", "FMZOLL") > 0 Then
+    '                TC.telnam_aktuellsteNachricht = 0
+    '            Else
+    '                TC.telnam_aktuellsteNachricht = 1
+    '                SQL.doSQL("UPDATE [tblTelotec_Anmeldung] set telnam_aktuellsteNachricht = 0 WHERE telanm_BezugsNr='" & TC.telanm_BezugsNr & "' ", "FMZOLL")     'alle anderen auf 0 setzen
+    '            End If
+
+    '            If TC.SAVE() Then
+    '                ' TELOTEC_Worker.cTELOTEC_Statusmeldungen.InsertStatusMeldung(DY_TMP, TELOTEC_Worker.cDY_Statusliste.S_05)
+    '                If If(TC.telanm_Status, 0) = TELOTEC_Worker.cTC_Statusliste.S_60 Then
+    '                    ' TC.insertIntoSpedBuch()
+    '                    Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT
+    '                    ZOLLIMPORT.TelotecImport(TC)
+    '                    ZOLLIMPORT.insertAbgabenTELOTEC(TC)
+
+    '                    '=====IMPORT IN VERAG DATENMODELL==========
+    '                    If TC.Hea_DecTy = "EUA" Then
+    '                        Dim IMP As New DAKOSY_Worker.cImporter_TelotecToVERAG
+    '                        IMP.ImportTelotec(TC, False, True)
+    '                    End If
+    '                    '==================================
+
+    '                End If
+    '                ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
+    '                If TC.telanm_ART = "T1" Or TC.telanm_ART.ToString.Contains("T2") Or TC.telanm_ART.ToString.StartsWith("T-") Then
+    '                    Select Case TC.telanm_Status
+    '                        Case TELOTEC_Worker.cTC_Statusliste.S_50, TELOTEC_Worker.cTC_Statusliste.S_60
+    '                            cVERAG_out_ncts.copyFileFTP_VERAGncts_TC(TC)
+    '                    End Select
+    '                End If
+    '            End If
+    '        End If
+
+
+    '        Try
+    '            '  System.System.IO.File.Delete(p)
+    '        Catch ex As Exception
+    '            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+    '        End Try
+
+    '        addDGVEinarbeitung("TC: Anmeldung " & MsgType, readTC_Anmeldung)
+
+    '        '    End Using
+
+    '        'End If
+
+    '    Catch ex As Exception
+    '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+    '        readTC_Anmeldung = ""
+    '    End Try
+    'End Function
+
+
+    Private Sub dgvEinarbeitung_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEinarbeitung.SelectionChanged
+        dgvEinarbeitung.ClearSelection()
+
+    End Sub
+
+
+
+
+
+    'Public Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline) As Boolean
+
+    '    Dim sql As String = " begin tran" &
+    '                        " if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND  brgak_fileline=@brgak_fileline) " &
+    '                               " begin " &
+    '                               " INSERT INTO tblBrgAufschub " &
+    '                               " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline) VALUES " &
+    '                               " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline) " &
+    '                            " End " &
+    '                            " commit tran "
+    '    '(brgak_fileline='' OR ... )
+
+    '    ' " ELSE " &
+    '    '    " begin " &
+    '    '       " UPDATE tblBrgAufschub " &
+    '    '      " SET brgak_datum=@brgak_datum, brgak_betrag=@brgak_betrag, brgak_brgaktoId=@brgak_brgaktoId, brgak_filename=@brgak_filename, brgak_atc=@brgak_atc,brgak_fileline=@brgak_fileline " &
+    '    '     " WHERE brgak_filename = @brgak_filename AND (brgak_fileline='' OR brgak_fileline=@brgak_fileline)" &
+    '    '  " End " &
+
+
+
+    '    Dim cn As New System.Data.SqlClient.SqlConnection()
+    '    cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
+    '    cn.Open()
+    '    Using cn
+    '        Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)
+    '            cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)
+    '            cmd.Parameters.AddWithValue("@brgak_betrag", brgak_betrag)
+    '            cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId)
+    '            cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename)
+    '            cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc)
+    '            cmd.Parameters.AddWithValue("@brgak_fileline", brgak_fileline)
+    '            Try
+    '                cmd.ExecuteNonQuery()
+
+    '                ''Lösche File: --> vom ALTEN ATLAS
+    '                'Try
+    '                '    System.System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
+    '                'Catch ex As Exception
+    '                '    writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
+    '                'End Try
+    '                Return True
+    '            Catch ex As System.Data.SqlClient.SqlException
+    '                writeLog("ERROR", "Fehler beim Schreiben in die Datenbank: " & ex.Message)
+    '            End Try
+    '        End Using
+    '    End Using
+    '    cn.Close()
+    '    Return False
+    'End Function
+
+
+
+
+
+    Private Sub frmTCNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        If allowClose Then
+            Me.Refresh()
+
+            Button2.PerformClick()
+            Button1.PerformClick()
+
+            System.Threading.Thread.Sleep(2000)
+
+            Me.Close()
+        End If
+    End Sub
+
+
+
+
+End Class
+
--- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
+++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
@@ -4,7 +4,6 @@ Imports System.Text
 Imports System.Text.RegularExpressions
 Imports System.Web
 Imports System.Xml
-Imports com.sun.org.apache.bcel.internal.generic
 Imports Renci.SshNet
 Imports Renci.SshNet.Sftp
 Imports VERAG_PROG_ALLGEMEIN
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -25,6 +25,7 @@ Partial Class frmStartOptions
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Button35 = New System.Windows.Forms.Button()
        Me.Button33 = New System.Windows.Forms.Button()
        Me.LinkLabel54 = New System.Windows.Forms.LinkLabel()
        Me.Button32 = New System.Windows.Forms.Button()
@@ -373,6 +374,7 @@ Partial Class frmStartOptions
        Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -410,8 +412,9 @@ Partial Class frmStartOptions
        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Button35 = New System.Windows.Forms.Button()
+        Me.Label67 = New System.Windows.Forms.Label()
+        Me.ll_MIC_Einarbeitung_TEST = New System.Windows.Forms.LinkLabel()
+        Me.ll_MIC_Einarbeitung_PROD = New System.Windows.Forms.LinkLabel()
        Me.pnl.SuspendLayout()
        CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -562,6 +565,18 @@ Partial Class frmStartOptions
        Me.pnl.Size = New System.Drawing.Size(1229, 946)
        Me.pnl.TabIndex = 0
        '
+        'Button35
+        '
+        Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button35.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button35.Location = New System.Drawing.Point(996, 312)
+        Me.Button35.Name = "Button35"
+        Me.Button35.Size = New System.Drawing.Size(103, 40)
+        Me.Button35.TabIndex = 152
+        Me.Button35.Text = "check Sped-Einrtäge"
+        Me.Button35.UseVisualStyleBackColor = True
+        '
        'Button33
        '
        Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1200,6 +1215,9 @@ Partial Class frmStartOptions
        '
        'TabPage1
        '
+        Me.TabPage1.Controls.Add(Me.ll_MIC_Einarbeitung_TEST)
+        Me.TabPage1.Controls.Add(Me.ll_MIC_Einarbeitung_PROD)
+        Me.TabPage1.Controls.Add(Me.Label67)
        Me.TabPage1.Controls.Add(Me.cbxGESTELLUNG_TESTLAUF)
        Me.TabPage1.Controls.Add(Me.cbxVW_Infomail)
        Me.TabPage1.Controls.Add(Me.LinkLabel68)
@@ -4736,6 +4754,13 @@ Partial Class frmStartOptions
        Me.dgvMRN.Size = New System.Drawing.Size(207, 134)
        Me.dgvMRN.TabIndex = 75
        '
+        'clmnMRN
+        '
+        Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnMRN.HeaderText = "MRN"
+        Me.clmnMRN.MinimumWidth = 8
+        Me.clmnMRN.Name = "clmnMRN"
+        '
        'txtVRGOut_MRN
        '
        Me.txtVRGOut_MRN._DateTimeOnly = False
@@ -5534,24 +5559,37 @@ Partial Class frmStartOptions
        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
-        'clmnMRN
+        'Label67
        '
-        Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.clmnMRN.HeaderText = "MRN"
-        Me.clmnMRN.MinimumWidth = 8
-        Me.clmnMRN.Name = "clmnMRN"
+        Me.Label67.AutoSize = True
+        Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label67.Location = New System.Drawing.Point(284, 296)
+        Me.Label67.Name = "Label67"
+        Me.Label67.Size = New System.Drawing.Size(177, 13)
+        Me.Label67.TabIndex = 154
+        Me.Label67.Text = "MIC Nachrichtenverarbeitung:"
        '
-        'Button35
+        'll_MIC_Einarbeitung_TEST
        '
-        Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button35.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button35.Location = New System.Drawing.Point(996, 312)
-        Me.Button35.Name = "Button35"
-        Me.Button35.Size = New System.Drawing.Size(103, 40)
-        Me.Button35.TabIndex = 152
-        Me.Button35.Text = "check Sped-Einrtäge"
-        Me.Button35.UseVisualStyleBackColor = True
+        Me.ll_MIC_Einarbeitung_TEST.AutoSize = True
+        Me.ll_MIC_Einarbeitung_TEST.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.ll_MIC_Einarbeitung_TEST.Location = New System.Drawing.Point(284, 323)
+        Me.ll_MIC_Einarbeitung_TEST.Name = "ll_MIC_Einarbeitung_TEST"
+        Me.ll_MIC_Einarbeitung_TEST.Size = New System.Drawing.Size(177, 13)
+        Me.ll_MIC_Einarbeitung_TEST.TabIndex = 155
+        Me.ll_MIC_Einarbeitung_TEST.TabStop = True
+        Me.ll_MIC_Einarbeitung_TEST.Text = "Eingangsnachrichten abrufen TEST"
+        '
+        'll_MIC_Einarbeitung_PROD
+        '
+        Me.ll_MIC_Einarbeitung_PROD.AutoSize = True
+        Me.ll_MIC_Einarbeitung_PROD.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.ll_MIC_Einarbeitung_PROD.Location = New System.Drawing.Point(284, 348)
+        Me.ll_MIC_Einarbeitung_PROD.Name = "ll_MIC_Einarbeitung_PROD"
+        Me.ll_MIC_Einarbeitung_PROD.Size = New System.Drawing.Size(180, 13)
+        Me.ll_MIC_Einarbeitung_PROD.TabIndex = 156
+        Me.ll_MIC_Einarbeitung_PROD.TabStop = True
+        Me.ll_MIC_Einarbeitung_PROD.Text = "Eingangsnachrichten abrufen PROD"
        '
        'frmStartOptions
        '
@@ -6027,4 +6065,7 @@ Partial Class frmStartOptions
    Friend WithEvents txtBerechnungsart As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label66 As Label
    Friend WithEvents Button35 As Button
+    Friend WithEvents ll_MIC_Einarbeitung_TEST As LinkLabel
+    Friend WithEvents ll_MIC_Einarbeitung_PROD As LinkLabel
+    Friend WithEvents Label67 As Label
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.resx
+++ b/initATLASAufschubkonten/frmStartOptions.resx
@@ -596,6 +596,102 @@
        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
  </data>
  <data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -646,9 +742,6 @@
        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
  </data>
-  <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
  <data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
@@ -793,102 +886,12 @@
        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
  </data>
-  <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
-</value>
-  </data>
+  <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -1430,7 +1430,7 @@ Public Class frmStartOptions
                                For Each l In ANH_LIST
                                    Select Case l.anh_Art.ToString.ToUpper
                                        ' Case "EXPORT_DOCS"
-                                        Case "RECHNUNG", "CMR", "ATR", "EUR1", "COO", "PACKLISTE"
+                                        Case "RECHNUNG", "CMR", "ATR", "EUR1", "COO", "PACKLISTE", "ATR-EUR1"
                                            Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
                                            If PathTmpANH <> "" Then pfadList.Add(PathTmpANH)
                                    End Select
@@ -8995,4 +8995,20 @@ repeatRequest:
        End If

    End Sub
+
+    Private Sub LinkLabel48_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles ll_MIC_Einarbeitung_TEST.LinkClicked
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+        Dim f As New frmMICNachrichtenVerarbeitung
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
+
+    Private Sub ll_MIC_Einarbeitung_PROD_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles ll_MIC_Einarbeitung_PROD.LinkClicked
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        Dim f As New frmMICNachrichtenVerarbeitung
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
 End Class