diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb
index 480937e..0d8fd70 100644
--- a/DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb
@@ -342,7 +342,9 @@ Public Class cDakosyEXG
     Property exg_Eroeffnung As Object = Nothing
     Property exg_Ankunft As Object = Nothing
     Property exg_Erledigung As Object = Nothing
-
+    Property exg_AutoFill_DyId As Object = Nothing
+    Property exg_AutoTranslate As Boolean = True
+    Property exg_ForceTranslate As Boolean = False
 
     Property exg_POSITION As New List(Of cDakosy_EXG_Position)
 
@@ -704,6 +706,9 @@ Public Class cDakosyEXG
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Eroeffnung", exg_Eroeffnung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Ankunft", exg_Ankunft))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Erledigung", exg_Erledigung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AutoFill_DyId", exg_AutoFill_DyId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AutoTranslate", exg_AutoTranslate))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ForceTranslate", exg_ForceTranslate))
 
 
 
@@ -843,6 +848,60 @@ Public Class cDakosyEXG
         Return ""
     End Function
 
+    Shared Function UPDATE_FillNCTS_ID(exg_Id As Integer, dyId As Integer) As String
+        If exg_Id > 0 Then
+            Try
+                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True))
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dyId", dyId, , True))
+                'dy_Status_KEWILL_Equivalent = status
+                'dy_Status = status
+                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+                Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET [exg_AutoFill_DyId]=@dyId WHERE exg_Id=@exg_Id ", "FMZOLL", , list)
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End If
+        Return ""
+    End Function
+
+    Shared Function UPDATE_FillNCTS_ID_Completed(exg_Id As Integer) As String
+        If exg_Id > 0 Then
+            Try
+                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True))
+                'dy_Status_KEWILL_Equivalent = status
+                'dy_Status = status
+                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+                Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET [exg_AutoFill_DyId_Complete]=1 WHERE exg_Id=@exg_Id ", "FMZOLL", , list)
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End If
+        Return ""
+    End Function
+
+    Shared Function isFillNCTS_ID_ALLCompleted(dyId As Integer) As Boolean
+        If dyId > 0 Then
+            Try
+                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+                Dim cnt = SQL.getValueTxtBySql(" SELECT COUNT(*)  FROM [tblDakosy_EXG]  where [exg_AutoFill_DyId] ='" & dyId & "' and exg_AutoFill_DyId=1 AND [exg_AutoFill_DyId_Complete]=0 ", "FMZOLL", ,, -1)
+
+                If cnt = 0 Then
+                    Return True
+                End If
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End If
+        Return False
+    End Function
+
 
     'Public Function LOADByBezugsNr(exg_ObjectName As String, loadALL As Boolean) As Boolean
     '    Try
diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
index afb871b..6abccfe 100644
--- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
@@ -1150,6 +1150,20 @@ Public Class cDakosyNCTSOut004
         Return True
     End Function
 
+    Public Function INSERT_HouseConsignment() As Boolean
+        'Zuserst alle OffertenPos von dem Offert löschen
+        'jetzt die Standartofferten  einfügen
+        For Each p In ncts_HOUSE_CONSIGNMENT
+            p.nctsHC_NctsId = ncts_Id
+            If p.INSERT() Then
+                p.INSERT_ConsignmentItem(p.nctsHC_Id, Me.ncts_Id)
+            Else
+                Return False
+            End If
+        Next
+        Return True
+    End Function
+
     'Public Function SAVE_Warenposition() As Boolean
     '    'Zuserst alle OffertenPos von dem Offert löschen
     '    If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() And DELETE_WarenpositionUnterlagen() Then
@@ -1572,8 +1586,1156 @@ Public Class cDakosyNCTSOut004
             End If
         End If
         Return Nothing
+
     End Function
 
+
+
+    Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String) As Boolean
+        Dim Interface_VERSION = "004"
+        Dim ObjectAktion = DY_ACTION
+
+        Dim XML As New VersandanmeldungNCTSDE_004.VersandanmeldungVATayp
+
+        'Transaktion:
+        XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp
+        XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
+        XML.Transaktion.IODatumZeit = Now
+        XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz
+        If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma) '"SUW"
+        XML.Transaktion.Version = Interface_VERSION
+        ' XML.Transaktion.IODivision3 = "DUR"
+        XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp
+
+        'ObjektIdentifizierung:
+        XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
+        XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE_004.ObjektIdentifizierungVATyp
+        XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName
+
+        If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias
+        Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
+        XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion
+        If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
+
+        If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung
+
+        'TransitOperation:
+        XML.EinzelVersandanmeldung.TransitOperation = New VersandanmeldungNCTSDE_004.TransitOperationType
+
+        If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDispatch = cDY.ncts_CountryOfDispatch
+        If cDY.ncts_CountryOfDestination IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDestination = cDY.ncts_CountryOfDestination
+        If cDY.ncts_TIRCarnetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TIRCarnetNumber = cDY.ncts_TIRCarnetNumber
+        If cDY.ncts_ReductedDatasetIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReducedDatasetIndicator = CInt(Int(cDY.ncts_ReductedDatasetIndicator))
+
+
+        XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods = New VersandanmeldungNCTSDE_004.LocationOfGoodsVAType
+        If cDY.ncts_LocationOfGoods_TypeofLocation IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.TypeOfLocation = cDY.ncts_LocationOfGoods_TypeofLocation
+        If cDY.ncts_LocationOfGoods_QualifierIdenfitication IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.QualifierOfIdentification = cDY.ncts_LocationOfGoods_QualifierIdenfitication
+        If cDY.ncts_LocationOfGoods_AdditionalIdentifier IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.AdditionalIdentifier = CInt(Int(cDY.ncts_LocationOfGoods_AdditionalIdentifier))
+
+        XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
+        If cDY.ncts_LocationOfGoods_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
+        If cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.PhoneNumber = cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber
+        If cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.EMailAddress = cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress
+
+
+        'Nur 1x
+        If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then
+            Dim CTD As New VersandanmeldungNCTSDE_004.CustomsOfficeOfTransitDeclaredVAType
+            If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then CTD.ReferenceNumber = cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber
+            If cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime IsNot Nothing Then CTD.ArrivalDateAndTimeEstimated = cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime
+            XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfTransitDeclared.Add(CTD)
+        End If
+
+        If cDY.ncts_CustomsOfficeOfDestinationDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDestinationDeclared = cDY.ncts_CustomsOfficeOfDestinationDeclared
+        If cDY.ncts_CustomsOfficeOfDeparture IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDeparture = cDY.ncts_CustomsOfficeOfDeparture
+        If cDY.ncts_CustomsOfficeOfExitForTransitDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfExitForTransitDeclared = cDY.ncts_CustomsOfficeOfExitForTransitDeclared
+        If cDY.ncts_LimitDate IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LimitDate = cDY.ncts_LimitDate
+        If cDY.ncts_TransitDeclarationType IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransitDeclarationType = cDY.ncts_TransitDeclarationType
+        If cDY.ncts_Declarationtype IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.DeclarationType = cDY.ncts_Declarationtype
+        If cDY.ncts_GrossMass IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.GrossMass = cDY.ncts_GrossMass
+        If cDY.ncts_BindingItinerary IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.BindingItinerary = cDY.ncts_BindingItinerary
+
+
+
+        'TRANSPORTEQUIPMENT: 
+        If cDY.ncts_TRANSPORTEQUIPMENT.Count > 0 Then
+            XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment = New List(Of VersandanmeldungNCTSDE_004.TransportEquipmentVAType)
+            For Each TE In cDY.ncts_TRANSPORTEQUIPMENT
+                Dim SA As New VersandanmeldungNCTSDE_004.TransportEquipmentVAType
+
+                SA.NumberOfSeals = TE.nctsTE_NumberOfSeals
+                If TE.nctsTE_NumberOfSeals IsNot Nothing Then SA.NumberOfSeals = TE.nctsTE_NumberOfSeals
+                If TE.nctsTE_ContainerIdentificationNumber IsNot Nothing Then SA.ContainerIdentificationNumber = TE.nctsTE_ContainerIdentificationNumber
+
+                If TE.nctsTE_Seal_1 IsNot Nothing AndAlso TE.nctsTE_Seal_1 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_1)
+                If TE.nctsTE_Seal_2 IsNot Nothing AndAlso TE.nctsTE_Seal_2 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_2)
+                If TE.nctsTE_Seal_3 IsNot Nothing AndAlso TE.nctsTE_Seal_3 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_3)
+                If TE.nctsTE_Seal_4 IsNot Nothing AndAlso TE.nctsTE_Seal_4 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_4)
+                If TE.nctsTE_Seal_5 IsNot Nothing AndAlso TE.nctsTE_Seal_5 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_5)
+                If TE.nctsTE_Seal_6 IsNot Nothing AndAlso TE.nctsTE_Seal_6 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_6)
+                If TE.nctsTE_Seal_7 IsNot Nothing AndAlso TE.nctsTE_Seal_7 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_7)
+                If TE.nctsTE_Seal_8 IsNot Nothing AndAlso TE.nctsTE_Seal_8 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_8)
+                If TE.nctsTE_Seal_9 IsNot Nothing AndAlso TE.nctsTE_Seal_9 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_9)
+                XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment.Add(SA)
+
+            Next
+        End If
+
+        'Sicherheitsangaben:
+        If cDY.ncts_GUARANTEE.Count > 0 Then
+            XML.EinzelVersandanmeldung.TransitOperation.Guarantee = New List(Of VersandanmeldungNCTSDE_004.GuaranteeVAType)
+            For Each s In cDY.ncts_GUARANTEE
+                Dim GRT As New VersandanmeldungNCTSDE_004.GuaranteeVAType
+                If s.nctsGRT_Type IsNot Nothing Then GRT.GuaranteeType = s.nctsGRT_Type
+                If s.nctsGRT_OtherGuaranteeReference IsNot Nothing Then GRT.OtherGuaranteeReference = s.nctsGRT_OtherGuaranteeReference
+
+                Dim SA As New VersandanmeldungNCTSDE_004.GuaranteeReferenceVAType
+
+                If s.nctsGRT_Currency IsNot Nothing Then SA.Currency = s.nctsGRT_Currency
+                If s.nctsGRT_AmountToBeCovered IsNot Nothing Then SA.AmountToBeCovered = s.nctsGRT_AmountToBeCovered
+                If s.nctsGRT_AccountName IsNot Nothing Then SA.AccountName = s.nctsGRT_AccountName
+                If s.nctsGRT_GoodsValue IsNot Nothing Then SA.GoodsValue = s.nctsGRT_GoodsValue
+                If s.nctsGRT_CurrencyOfGoodsValue IsNot Nothing Then SA.CurrencyOfGoodsValue = s.nctsGRT_CurrencyOfGoodsValue
+                If s.nctsGRT_FractionOfGoodsValue IsNot Nothing Then SA.FractionOfGoodsValue = s.nctsGRT_FractionOfGoodsValue
+                If s.nctsGRT_CurrencyExchangeRateCustoms IsNot Nothing Then SA.CurrencyExchangeRateCustoms = s.nctsGRT_CurrencyExchangeRateCustoms
+                If s.nctsGRT_CurrencyExchangeRateAccount IsNot Nothing Then SA.CurrencyExchangeRateAccount = s.nctsGRT_CurrencyExchangeRateAccount
+                If s.nctsGRT_ExchangeDateCustoms IsNot Nothing Then SA.ExchangeDateCustoms = s.nctsGRT_ExchangeDateCustoms
+                If s.nctsGRT_ExchangeDateAccount IsNot Nothing Then SA.ExchangeDateAccount = s.nctsGRT_ExchangeDateAccount
+                If s.nctsGRT_CurrencyExchangeRateTypeCustoms IsNot Nothing Then SA.CurrencyExchangeRateTypeCustoms = s.nctsGRT_CurrencyExchangeRateTypeCustoms
+                If s.nctsGRT_CurrencyExchangeRateTypeAccount IsNot Nothing Then SA.CurrencyExchangeRateTypeAccount = s.nctsGRT_CurrencyExchangeRateTypeAccount
+                If s.nctsGRT_CalculateGoodsValueFromGoodsItems IsNot Nothing Then SA.CalculateGoodsValueFromGoodsItems = CInt(Int(s.nctsGRT_CalculateGoodsValueFromGoodsItems))
+                If s.nctsGRT_Commentary IsNot Nothing Then SA.Commentary = s.nctsGRT_Commentary
+
+
+                If s.nctsGRT_GRN IsNot Nothing Then
+                    SA.GRN = s.nctsGRT_GRN
+                    If If(s.nctsGRT_GRN, "") = "05AT510000G000FP7" Then
+                        If If(s.nctsGRT_AccessCode, "").Replace("0000", "").Length <> 4 Then
+                            s.nctsGRT_AccessCode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "")
+                            If s.nctsGRT_AccessCode.length > 4 Then
+                                s.nctsGRT_AccessCode = s.nctsGRT_AccessCode.ToString.Substring(0, 4)
+                            End If
+                        End If
+                    End If
+                    If s.nctsGRT_AccessCode IsNot Nothing Then SA.AccessCode = s.nctsGRT_AccessCode
+
+                    '    If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben
+
+                End If
+
+                GRT.GuaranteeReference.Add(SA)
+                XML.EinzelVersandanmeldung.TransitOperation.Guarantee.Add(GRT)
+
+            Next
+        End If
+
+        If cDY.ncts_ContainerIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ContainerIndicator = CInt(Int(cDY.ncts_ContainerIndicator))
+        If cDY.ncts_InlandModeOfTransport IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.InlandModeOfTransport = cDY.ncts_InlandModeOfTransport
+        If cDY.ncts_ModeOfTransportAtTheBorder IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ModeOfTransportAtTheBorder = cDY.ncts_ModeOfTransportAtTheBorder
+
+
+        'Beförderungsmittel - nur 1X
+        If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.DepartureTransportMeansVAType
+            If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_DepartureTransportMeans_1_IdentificationNumber
+            If cDY.ncts_DepartureTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_DepartureTransportMeans_1_Nationality
+            If cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification
+            XML.EinzelVersandanmeldung.TransitOperation.DepartureTransportMeans.Add(TM)
+        End If
+
+        'Grenzüberschr.VM - nur 1X
+        If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.ActiveBorderTransportMeansVAType
+            If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber
+            If cDY.ncts_ActiveBorderTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_ActiveBorderTransportMeans_1_Nationality
+            If cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification
+            If cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber IsNot Nothing Then TM.ConveyanceReferenceNumber = cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber
+            XML.EinzelVersandanmeldung.TransitOperation.ActiveBorderTransportMeans.Add(TM)
+        End If
+
+
+        'Bewilligung 1
+        If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType
+            If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_1_ReferenceNumber
+            If cDY.ncts_Authorisation_1_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_1_Type
+            XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM)
+        End If
+        'Bewilligung 2
+        If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType
+            If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_2_ReferenceNumber
+            If cDY.ncts_Authorisation_2_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_2_Type
+            XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM)
+        End If
+        'Bewilligung 3
+        If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType
+            If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_3_ReferenceNumber
+            If cDY.ncts_Authorisation_3_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_3_Type
+            XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM)
+        End If
+
+
+
+        'Absender
+        If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignor_Name IsNot Nothing Then
+            XML.EinzelVersandanmeldung.TransitOperation.Consignor = New VersandanmeldungNCTSDE_004.AddressVA1Type
+            If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.IdentificationNumber = cDY.ncts_Consignor_IdentificationNumber
+            If cDY.ncts_Consignor_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.SubsidiaryNumber = cDY.ncts_Consignor_SubsidiaryNumber
+            If cDY.ncts_Consignor_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Name = cDY.ncts_Consignor_Name
+            If cDY.ncts_Consignor_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Postcode = cDY.ncts_Consignor_Postcode
+            If cDY.ncts_Consignor_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.StreetAndNumber = cDY.ncts_Consignor_StreetNumber
+            If cDY.ncts_Consignor_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.City = cDY.ncts_Consignor_City
+            If cDY.ncts_Consignor_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Country = cDY.ncts_Consignor_Country
+            If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then
+                XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
+                If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
+                If cDY.ncts_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.PhoneNumber = cDY.ncts_Consignor_ContactPerson_PhoneNumber
+                If cDY.ncts_Consignor_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.EMailAddress = cDY.ncts_Consignor_ContactPerson_EMailAddress
+            End If
+        End If
+
+        'Empfänger
+        If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignee_Name IsNot Nothing Then
+            XML.EinzelVersandanmeldung.TransitOperation.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type
+            If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.IdentificationNumber = cDY.ncts_Consignee_IdentificationNumber
+            If cDY.ncts_Consignee_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.SubsidiaryNumber = cDY.ncts_Consignee_SubsidiaryNumber
+            If cDY.ncts_Consignee_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Name = cDY.ncts_Consignee_Name
+            If cDY.ncts_Consignee_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Postcode = cDY.ncts_Consignee_Postcode
+            If cDY.ncts_Consignee_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.StreetAndNumber = cDY.ncts_Consignee_StreetNumber
+            If cDY.ncts_Consignee_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.City = cDY.ncts_Consignee_City
+            If cDY.ncts_Consignee_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Country = cDY.ncts_Consignee_Country
+            If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then
+                XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
+                If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
+                If cDY.ncts_Consignee_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.PhoneNumber = cDY.ncts_Consignee_ContactPerson_PhoneNumber
+                If cDY.ncts_Consignee_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.EMailAddress = cDY.ncts_Consignee_ContactPerson_EMailAddress
+            End If
+        End If
+
+        'Inhaber Versandverfahren
+        If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Or cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then
+            XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure = New VersandanmeldungNCTSDE_004.HolderOfTheTransitProcedureVAType
+            If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.IdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber
+            If cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Name = cDY.ncts_HolderOfTheTransitProcedure_Name
+            If cDY.ncts_HolderOfTheTransitProcedure_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Postcode = cDY.ncts_HolderOfTheTransitProcedure_Postcode
+            If cDY.ncts_HolderOfTheTransitProcedure_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.StreetAndNumber = cDY.ncts_HolderOfTheTransitProcedure_StreetNumber
+            If cDY.ncts_HolderOfTheTransitProcedure_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.City = cDY.ncts_HolderOfTheTransitProcedure_City
+            If cDY.ncts_HolderOfTheTransitProcedure_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Country = cDY.ncts_HolderOfTheTransitProcedure_Country
+            If cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.TIRHolderIdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber
+            If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then
+                XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
+                If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
+                If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.PhoneNumber = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber
+                If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.EMailAddress = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress
+            End If
+        End If
+
+
+
+        'Vertreter Inhaber Versandverfahren
+        If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then
+            XML.EinzelVersandanmeldung.TransitOperation.Representative = New VersandanmeldungNCTSDE_004.RepresentativeVAType
+            If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.IdentificationNumber = cDY.ncts_Representative_IdentificationNumber
+            If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then
+                XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
+                If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
+                If cDY.ncts_Representative_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.PhoneNumber = cDY.ncts_Representative_ContactPerson_PhoneNumber
+                If cDY.ncts_Representative_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.EMailAddress = cDY.ncts_Representative_ContactPerson_EMailAddress
+            End If
+        End If
+
+
+
+        'Beförderer
+        If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then
+            XML.EinzelVersandanmeldung.TransitOperation.Carrier = New VersandanmeldungNCTSDE_004.AddressVAType
+            If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.IdentificationNumber = cDY.ncts_Carrier_IdentificationNumber
+            If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then
+                XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
+                If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
+                If cDY.ncts_Carrier_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.PhoneNumber = cDY.ncts_Carrier_ContactPerson_PhoneNumber
+                If cDY.ncts_Carrier_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.EMailAddress = cDY.ncts_Carrier_ContactPerson_EMailAddress
+            End If
+        End If
+
+
+
+        'Zus.Lieferkettenbeteiligter 1
+        If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+            If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber
+            If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM)
+        End If
+        'Zus.Lieferkettenbeteiligter 2
+        If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+            If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber
+            If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM)
+        End If
+        'Zus.Lieferkettenbeteiligter 3
+        If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+            If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber
+            If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM)
+        End If
+
+
+
+
+        If cDY.ncts_Security IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Security = CInt(Int(cDY.ncts_Security))
+        If cDY.ncts_ReferenceNumberUCR IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ReferenceNumberUCR
+        If cDY.ncts_SpecificCircomstanceIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.SpecificCircumstanceIndicator = cDY.ncts_SpecificCircomstanceIndicator
+
+        If cDY.ncts_PlaceOfLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Location = cDY.ncts_PlaceOfLoading_Location
+        If cDY.ncts_PlaceOfLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Country = cDY.ncts_PlaceOfLoading_Country
+        If cDY.ncts_PlaceOfUnLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Location = cDY.ncts_PlaceOfUnLoading_Location
+        If cDY.ncts_PlaceOfUnLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Country = cDY.ncts_PlaceOfUnLoading_Country
+        If cDY.ncts_ObjectName IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ObjectName
+
+        If cDY.ncts_TransportCharges IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransportCharges = cDY.ncts_TransportCharges
+
+        If cDY.ncts_CountryOfRoutingOfConsignment_1 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_1)
+        If cDY.ncts_CountryOfRoutingOfConsignment_2 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_2)
+        If cDY.ncts_CountryOfRoutingOfConsignment_3 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_3)
+        If cDY.ncts_CountryOfRoutingOfConsignment_4 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_4)
+        If cDY.ncts_CountryOfRoutingOfConsignment_5 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_5)
+        If cDY.ncts_CountryOfRoutingOfConsignment_6 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_6)
+        If cDY.ncts_CountryOfRoutingOfConsignment_7 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_7)
+        If cDY.ncts_CountryOfRoutingOfConsignment_8 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_8)
+        If cDY.ncts_CountryOfRoutingOfConsignment_9 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_9)
+
+
+
+        'Vorpapier 1
+        If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
+            If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_1_ReferenceNumber
+            If cDY.ncts_PreviousDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_1_Type
+            If cDY.ncts_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_1_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
+        End If
+        'Vorpapier 2
+        If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
+            If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_2_ReferenceNumber
+            If cDY.ncts_PreviousDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_2_Type
+            If cDY.ncts_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_2_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
+        End If
+        'Vorpapier 3
+        If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
+            If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_3_ReferenceNumber
+            If cDY.ncts_PreviousDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_3_Type
+            If cDY.ncts_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_3_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
+        End If
+        'Vorpapier 4
+        If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
+            If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_4_ReferenceNumber
+            If cDY.ncts_PreviousDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_4_Type
+            If cDY.ncts_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_4_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
+        End If
+        'Vorpapier 5
+        If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
+            If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_5_ReferenceNumber
+            If cDY.ncts_PreviousDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_5_Type
+            If cDY.ncts_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_5_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
+        End If
+        'Vorpapier 6
+        If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
+            If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_6_ReferenceNumber
+            If cDY.ncts_PreviousDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_6_Type
+            If cDY.ncts_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_6_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
+        End If
+        'Vorpapier 7
+        If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
+            If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_7_ReferenceNumber
+            If cDY.ncts_PreviousDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_7_Type
+            If cDY.ncts_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_7_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
+        End If
+        'Vorpapier 8
+        If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
+            If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_8_ReferenceNumber
+            If cDY.ncts_PreviousDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_8_Type
+            If cDY.ncts_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_8_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
+        End If
+        'Vorpapier 9
+        If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
+            If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_9_ReferenceNumber
+            If cDY.ncts_PreviousDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_9_Type
+            If cDY.ncts_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_9_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
+        End If
+
+        'Unterlage 1
+        If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
+            If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_1_ReferenceNumber
+            If cDY.ncts_SupportingDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_1_Type
+            If cDY.ncts_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_1_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
+        End If
+        'Unterlage 2
+        If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
+            If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_2_ReferenceNumber
+            If cDY.ncts_SupportingDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_2_Type
+            If cDY.ncts_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_2_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
+        End If
+        'Unterlage 3
+        If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
+            If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_3_ReferenceNumber
+            If cDY.ncts_SupportingDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_3_Type
+            If cDY.ncts_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_3_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
+        End If
+        'Unterlage 4
+        If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
+            If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_4_ReferenceNumber
+            If cDY.ncts_SupportingDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_4_Type
+            If cDY.ncts_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_4_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
+        End If
+        'Unterlage 5
+        If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
+            If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_5_ReferenceNumber
+            If cDY.ncts_SupportingDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_5_Type
+            If cDY.ncts_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_5_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
+        End If
+        'Unterlage 6
+        If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
+            If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_6_ReferenceNumber
+            If cDY.ncts_SupportingDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_6_Type
+            If cDY.ncts_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_6_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
+        End If
+        'Unterlage 7
+        If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
+            If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_7_ReferenceNumber
+            If cDY.ncts_SupportingDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_7_Type
+            If cDY.ncts_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_7_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
+        End If
+        'Unterlage 8
+        If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
+            If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_8_ReferenceNumber
+            If cDY.ncts_SupportingDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_8_Type
+            If cDY.ncts_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_8_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
+        End If
+        'Unterlage 9
+        If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
+            If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_9_ReferenceNumber
+            If cDY.ncts_SupportingDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_9_Type
+            If cDY.ncts_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_9_ComplementOfInformation
+            XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
+        End If
+
+
+        'Transportpapier 1
+        If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
+            If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_1_ReferenceNumber
+            If cDY.ncts_TransportDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_1_Type
+            XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
+        End If
+        'Transportpapier 2
+        If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
+            If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_2_ReferenceNumber
+            If cDY.ncts_TransportDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_2_Type
+            XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
+        End If
+        'Transportpapier 3
+        If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
+            If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_3_ReferenceNumber
+            If cDY.ncts_TransportDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_3_Type
+            XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
+        End If
+        'Transportpapier 4
+        If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
+            If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_4_ReferenceNumber
+            If cDY.ncts_TransportDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_4_Type
+            XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
+        End If
+        'Transportpapier 5
+        If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
+            If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_5_ReferenceNumber
+            If cDY.ncts_TransportDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_5_Type
+            XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
+        End If
+        'Transportpapier 6
+        If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
+            If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_6_ReferenceNumber
+            If cDY.ncts_TransportDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_6_Type
+            XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
+        End If
+        'Transportpapier 7
+        If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
+            If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_7_ReferenceNumber
+            If cDY.ncts_TransportDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_7_Type
+            XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
+        End If
+        'Transportpapier 8
+        If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
+            If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_8_ReferenceNumber
+            If cDY.ncts_TransportDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_8_Type
+            XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
+        End If
+        'Transportpapier 9
+        If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
+            If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_9_ReferenceNumber
+            If cDY.ncts_TransportDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_9_Type
+            XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
+        End If
+
+
+        'ZusVermerk 1
+        If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
+            If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_1_ReferenceNumber
+            If cDY.ncts_AdditionalReference_1_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_1_Type
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
+        End If
+        'ZusVermerk 2
+        If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
+            If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_2_ReferenceNumber
+            If cDY.ncts_AdditionalReference_2_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_2_Type
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
+        End If
+        'ZusVermerk 3
+        If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
+            If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_3_ReferenceNumber
+            If cDY.ncts_AdditionalReference_3_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_3_Type
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
+        End If
+        'ZusVermerk 4
+        If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
+            If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_4_ReferenceNumber
+            If cDY.ncts_AdditionalReference_4_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_4_Type
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
+        End If
+        'ZusVermerk 5
+        If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
+            If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_5_ReferenceNumber
+            If cDY.ncts_AdditionalReference_5_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_5_Type
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
+        End If
+        'ZusVermerk 6
+        If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
+            If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_6_ReferenceNumber
+            If cDY.ncts_AdditionalReference_6_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_6_Type
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
+        End If
+        'ZusVermerk 7
+        If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
+            If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_7_ReferenceNumber
+            If cDY.ncts_AdditionalReference_7_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_7_Type
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
+        End If
+        'ZusVermerk 8
+        If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
+            If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_8_ReferenceNumber
+            If cDY.ncts_AdditionalReference_8_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_8_Type
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
+        End If
+        'ZusVermerk 9
+        If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
+            If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_9_ReferenceNumber
+            If cDY.ncts_AdditionalReference_9_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_9_Type
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
+        End If
+
+
+        'ZusInformation 1
+        If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
+            If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_1_Code
+            If cDY.ncts_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_1_Text
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
+        End If
+        'ZusInformation 2
+        If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
+            If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_2_Code
+            If cDY.ncts_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_2_Text
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
+        End If
+        'ZusInformation 3
+        If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
+            If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_3_Code
+            If cDY.ncts_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_3_Text
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
+        End If
+        'ZusInformation 4
+        If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
+            If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_4_Code
+            If cDY.ncts_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_4_Text
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
+        End If
+        'ZusInformation 5
+        If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
+            If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_5_Code
+            If cDY.ncts_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_5_Text
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
+        End If
+        'ZusInformation 6
+        If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
+            If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_6_Code
+            If cDY.ncts_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_6_Text
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
+        End If
+        'ZusInformation 7
+        If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
+            If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_7_Code
+            If cDY.ncts_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_7_Text
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
+        End If
+        'ZusInformation 8
+        If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
+            If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_8_Code
+            If cDY.ncts_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_8_Text
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
+        End If
+        'ZusInformation 9
+        If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then
+            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
+            If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_9_Code
+            If cDY.ncts_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_9_Text
+            XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
+        End If
+
+        If cDY.ncts_AUTOIMPIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.AUTOIMPIndicator = CInt(Int(cDY.ncts_AUTOIMPIndicator))
+
+
+
+
+
+
+
+
+        'Warenposition:
+        If cDY.ncts_HOUSE_CONSIGNMENT IsNot Nothing AndAlso cDY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
+            XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment = New List(Of VersandanmeldungNCTSDE_004.HouseConsignmentVAType)
+
+            Dim CntItemNoWhole = 1
+            For Each p In cDY.ncts_HOUSE_CONSIGNMENT
+                Dim HC = New VersandanmeldungNCTSDE_004.HouseConsignmentVAType
+
+                If p.nctsHC_CountryOfDispatch IsNot Nothing Then HC.CountryOfDispatch = p.nctsHC_CountryOfDispatch
+                If p.nctsHC_CountryOfDestination IsNot Nothing Then HC.CountryOfDestination = p.nctsHC_CountryOfDestination
+
+
+
+                If p.nctsWP_CONSIGNMENT_ITEM IsNot Nothing AndAlso p.nctsWP_CONSIGNMENT_ITEM.Count > 0 Then
+                    HC.ConsignmentItem = New List(Of VersandanmeldungNCTSDE_004.ConsignmentItemVAType)
+
+                    Dim CntItemNo = 1
+                    For Each pp In p.nctsWP_CONSIGNMENT_ITEM
+                        Dim HCCI = New VersandanmeldungNCTSDE_004.ConsignmentItemVAType
+
+
+                        HCCI.GoodsItemNumber = CntItemNo
+                        CntItemNo += 1
+
+                        HCCI.DeclarationGoodsItemNumber = CntItemNoWhole
+                        CntItemNoWhole += 1
+
+                        If pp.nctsHCCI_CommodityCode IsNot Nothing Then HCCI.CommodityCode = pp.nctsHCCI_CommodityCode
+                        If pp.nctsHCCI_ReferenceNumberUCR IsNot Nothing Then HCCI.ReferenceNumberUCR = pp.nctsHCCI_ReferenceNumberUCR
+                        If pp.nctsHCCI_MethodeOfPayment IsNot Nothing Then HCCI.MethodOfPayment = pp.nctsHCCI_MethodeOfPayment
+                        If pp.nctsHCCI_UNNumber_1 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_1)
+                        If pp.nctsHCCI_UNNumber_2 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_2)
+                        If pp.nctsHCCI_UNNumber_3 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_3)
+                        If pp.nctsHCCI_UNNumber_4 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_4)
+
+                        If pp.nctsHCCI_DeclarationType IsNot Nothing Then HCCI.DeclarationType = pp.nctsHCCI_DeclarationType
+                        If pp.nctsHCCI_ArticleCode IsNot Nothing Then HCCI.ArticleCode = pp.nctsHCCI_ArticleCode
+                        If pp.nctsHCCI_DescriptionOfGoods IsNot Nothing Then HCCI.DescriptionOfGoods = pp.nctsHCCI_DescriptionOfGoods
+                        If pp.nctsHCCI_CusCode IsNot Nothing Then HCCI.CusCode = pp.nctsHCCI_CusCode
+                        If pp.nctsHCCI_CountryOfDispatch IsNot Nothing Then HCCI.CountryOfDispatch = pp.nctsHCCI_CountryOfDispatch
+                        If pp.nctsHCCI_CountryOfDestination IsNot Nothing Then HCCI.CountryOfDestination = pp.nctsHCCI_CountryOfDestination
+
+                        If pp.nctsHCCI_GrossMass IsNot Nothing Then HCCI.GrossMass = pp.nctsHCCI_GrossMass
+                        If pp.nctsHCCI_NetMass IsNot Nothing Then HCCI.NetMass = pp.nctsHCCI_NetMass
+
+
+                        If pp.nctsHCCI_GoodsValue IsNot Nothing Then HCCI.GoodsValue = pp.nctsHCCI_GoodsValue
+                        If pp.nctsHCCI_CurrencyOfGoodsValue IsNot Nothing Then HCCI.CurrencyOfGoodsValue = pp.nctsHCCI_CurrencyOfGoodsValue
+                        If pp.nctsHCCI_ExchangeRate IsNot Nothing Then HCCI.ExchangeRate = pp.nctsHCCI_ExchangeRate
+                        If pp.nctsHCCI_ExchangeDate IsNot Nothing Then HCCI.ExchangeDate = pp.nctsHCCI_ExchangeDate
+                        If pp.nctsHCCI_CurrencyExchangeRateType IsNot Nothing Then HCCI.CurrencyExchangeRateType = pp.nctsHCCI_CurrencyExchangeRateType
+                        If pp.nctsHCCI_GuaranteeAmount IsNot Nothing Then HCCI.GuaranteeAmount = pp.nctsHCCI_GuaranteeAmount
+                        If pp.nctsHCCI_FractionOfGoodsValue IsNot Nothing Then HCCI.FractionOfGoodsValue = pp.nctsHCCI_FractionOfGoodsValue
+
+
+
+
+                        'Empfänger
+                        If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Or pp.nctsHCCI_Consignor_Name IsNot Nothing Then
+                            HCCI.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type
+                            If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Then HCCI.Consignee.IdentificationNumber = pp.nctsHCCI_Consignor_IdentificationNumber
+                            If pp.nctsHCCI_Consignor_SubsidiaryNumber IsNot Nothing Then HCCI.Consignee.SubsidiaryNumber = pp.nctsHCCI_Consignor_SubsidiaryNumber
+                            If pp.nctsHCCI_Consignor_Name IsNot Nothing Then HCCI.Consignee.Name = pp.nctsHCCI_Consignor_Name
+                            If pp.nctsHCCI_Consignor_Postcode IsNot Nothing Then HCCI.Consignee.Postcode = pp.nctsHCCI_Consignor_Postcode
+                            If pp.nctsHCCI_Consignor_StreetNumber IsNot Nothing Then HCCI.Consignee.StreetAndNumber = pp.nctsHCCI_Consignor_StreetNumber
+                            If pp.nctsHCCI_Consignor_City IsNot Nothing Then HCCI.Consignee.City = pp.nctsHCCI_Consignor_City
+                            If pp.nctsHCCI_Consignor_Country IsNot Nothing Then HCCI.Consignee.Country = pp.nctsHCCI_Consignor_Country
+                            If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then
+                                HCCI.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
+                                If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then HCCI.Consignee.ContactPerson.Name = pp.nctsHCCI_Consignor_ContactPerson_Name
+                                If pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then HCCI.Consignee.ContactPerson.PhoneNumber = pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber
+                                If pp.nctsHCCI_Consignor_ContactPerson_EMailAddress IsNot Nothing Then HCCI.Consignee.ContactPerson.EMailAddress = pp.nctsHCCI_Consignor_ContactPerson_EMailAddress
+                            End If
+                        End If
+
+
+
+                        'Lieferkettenbeteiligter 1
+                        If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_1_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_1_Role
+                            HCCI.AdditionalSupplyChainActor.Add(TM)
+                        End If
+                        'Lieferkettenbeteiligter 2
+                        If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_2_Role
+                            HCCI.AdditionalSupplyChainActor.Add(TM)
+                        End If
+                        'Lieferkettenbeteiligter 3
+                        If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_3_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_3_Role
+                            HCCI.AdditionalSupplyChainActor.Add(TM)
+                        End If
+                        'Lieferkettenbeteiligter 4
+                        If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_4_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_4_Role
+                            HCCI.AdditionalSupplyChainActor.Add(TM)
+                        End If
+                        'Lieferkettenbeteiligter 5
+                        If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_5_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_5_Role
+                            HCCI.AdditionalSupplyChainActor.Add(TM)
+                        End If
+                        'Lieferkettenbeteiligter 6
+                        If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_6_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_6_Role
+                            HCCI.AdditionalSupplyChainActor.Add(TM)
+                        End If
+                        'Lieferkettenbeteiligter 7
+                        If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_7_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_7_Role
+                            HCCI.AdditionalSupplyChainActor.Add(TM)
+                        End If
+                        'Lieferkettenbeteiligter 8
+                        If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_8_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_8_Role
+                            HCCI.AdditionalSupplyChainActor.Add(TM)
+                        End If
+                        'Lieferkettenbeteiligter 9
+                        If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber
+                            If pp.nctsHCCI_AdditionalSupplyChainActor_9_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_9_Role
+                            HCCI.AdditionalSupplyChainActor.Add(TM)
+                        End If
+
+
+
+
+                        'Vorpapier 1
+                        If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
+                            If pp.nctsHCCI_PreviousDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_1_Type
+                            If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_1_ReferenceNumber
+                            If pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation
+                            If pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber
+                            HCCI.PreviousDocument.Add(TM)
+                        End If
+                        'Vorpapier 2
+                        If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
+                            If pp.nctsHCCI_PreviousDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_2_Type
+                            If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_2_ReferenceNumber
+                            If pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation
+                            If pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber
+                            HCCI.PreviousDocument.Add(TM)
+                        End If
+                        'Vorpapier 3
+                        If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
+                            If pp.nctsHCCI_PreviousDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_3_Type
+                            If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_3_ReferenceNumber
+                            If pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation
+                            If pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber
+                            HCCI.PreviousDocument.Add(TM)
+                        End If
+                        'Vorpapier 4
+                        If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
+                            If pp.nctsHCCI_PreviousDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_4_Type
+                            If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_4_ReferenceNumber
+                            If pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation
+                            If pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber
+                            HCCI.PreviousDocument.Add(TM)
+                        End If
+                        'Vorpapier 5
+                        If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
+                            If pp.nctsHCCI_PreviousDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_5_Type
+                            If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_5_ReferenceNumber
+                            If pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation
+                            If pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber
+                            HCCI.PreviousDocument.Add(TM)
+                        End If
+                        'Vorpapier 6
+                        If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
+                            If pp.nctsHCCI_PreviousDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_6_Type
+                            If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_6_ReferenceNumber
+                            If pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation
+                            If pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber
+                            HCCI.PreviousDocument.Add(TM)
+                        End If
+                        'Vorpapier 7
+                        If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
+                            If pp.nctsHCCI_PreviousDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_7_Type
+                            If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_7_ReferenceNumber
+                            If pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation
+                            If pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber
+                            HCCI.PreviousDocument.Add(TM)
+                        End If
+                        'Vorpapier 8
+                        If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
+                            If pp.nctsHCCI_PreviousDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_8_Type
+                            If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_8_ReferenceNumber
+                            If pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation
+                            If pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber
+                            HCCI.PreviousDocument.Add(TM)
+                        End If
+                        'Vorpapier 9
+                        If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
+                            If pp.nctsHCCI_PreviousDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_9_Type
+                            If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_9_ReferenceNumber
+                            If pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation
+                            If pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber
+                            HCCI.PreviousDocument.Add(TM)
+                        End If
+
+
+
+
+                        If pp.nctsHCCI_PACKAGING IsNot Nothing AndAlso pp.nctsHCCI_PACKAGING.Count > 0 Then
+                            HCCI.Packaging = New List(Of VersandanmeldungNCTSDE_004.PackstueckVATyp)
+                            For Each w In pp.nctsHCCI_PACKAGING
+                                Dim PK As New VersandanmeldungNCTSDE_004.PackstueckVATyp
+                                If w.nctsHCCIPK_NumberOfPackages IsNot Nothing Then PK.NumberOfPackages = w.nctsHCCIPK_NumberOfPackages.ToString.Replace(".", "")
+                                If w.nctsHCCIPK_TypeOfPackages IsNot Nothing Then PK.TypeOfPackages = w.nctsHCCIPK_TypeOfPackages
+                                If w.nctsHCCIPK_GoodsItemNumber IsNot Nothing Then PK.GoodsItemNumber = w.nctsHCCIPK_GoodsItemNumber
+                                If w.nctsHCCIPK_ShippingMarks IsNot Nothing Then PK.ShippingMarks = w.nctsHCCIPK_ShippingMarks
+                                HCCI.Packaging.Add(PK)
+                            Next
+                        End If
+
+
+
+                        'Unterlage 1
+                        If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
+                            If pp.nctsHCCI_SupportingDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_1_Type
+                            If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_1_ReferenceNumber
+                            If pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation
+                            HCCI.SupportingDocument.Add(TM)
+                        End If
+                        'Unterlage 2
+                        If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
+                            If pp.nctsHCCI_SupportingDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_2_Type
+                            If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_2_ReferenceNumber
+                            If pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation
+                            HCCI.SupportingDocument.Add(TM)
+                        End If
+                        'Unterlage 3
+                        If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
+                            If pp.nctsHCCI_SupportingDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_3_Type
+                            If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_3_ReferenceNumber
+                            If pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation
+                            HCCI.SupportingDocument.Add(TM)
+                        End If
+                        'Unterlage 4
+                        If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
+                            If pp.nctsHCCI_SupportingDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_4_Type
+                            If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_4_ReferenceNumber
+                            If pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation
+                            HCCI.SupportingDocument.Add(TM)
+                        End If
+                        'Unterlage 5
+                        If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
+                            If pp.nctsHCCI_SupportingDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_5_Type
+                            If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_5_ReferenceNumber
+                            If pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation
+                            HCCI.SupportingDocument.Add(TM)
+                        End If
+                        'Unterlage 6
+                        If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
+                            If pp.nctsHCCI_SupportingDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_6_Type
+                            If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_6_ReferenceNumber
+                            If pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation
+                            HCCI.SupportingDocument.Add(TM)
+                        End If
+                        'Unterlage 7
+                        If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
+                            If pp.nctsHCCI_SupportingDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_7_Type
+                            If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_7_ReferenceNumber
+                            If pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation
+                            HCCI.SupportingDocument.Add(TM)
+                        End If
+                        'Unterlage 8
+                        If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
+                            If pp.nctsHCCI_SupportingDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_8_Type
+                            If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_8_ReferenceNumber
+                            If pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation
+                            HCCI.SupportingDocument.Add(TM)
+                        End If
+                        'Unterlage 9
+                        If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
+                            If pp.nctsHCCI_SupportingDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_9_Type
+                            If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_9_ReferenceNumber
+                            If pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation
+                            HCCI.SupportingDocument.Add(TM)
+                        End If
+
+
+
+                        'ZusVermerk 1
+                        If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
+                            If pp.nctsHCCI_AdditionalReference_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_1_Type
+                            If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_1_ReferenceNumber
+                            HCCI.AdditionalReference.Add(TM)
+                        End If
+                        'ZusVermerk 2
+                        If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
+                            If pp.nctsHCCI_AdditionalReference_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_2_Type
+                            If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_2_ReferenceNumber
+                            HCCI.AdditionalReference.Add(TM)
+                        End If
+                        'ZusVermerk 3
+                        If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
+                            If pp.nctsHCCI_AdditionalReference_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_3_Type
+                            If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_3_ReferenceNumber
+                            HCCI.AdditionalReference.Add(TM)
+                        End If
+                        'ZusVermerk 4
+                        If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
+                            If pp.nctsHCCI_AdditionalReference_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_4_Type
+                            If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_4_ReferenceNumber
+                            HCCI.AdditionalReference.Add(TM)
+                        End If
+                        'ZusVermerk 5
+                        If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
+                            If pp.nctsHCCI_AdditionalReference_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_5_Type
+                            If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_5_ReferenceNumber
+                            HCCI.AdditionalReference.Add(TM)
+                        End If
+                        'ZusVermerk 6
+                        If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
+                            If pp.nctsHCCI_AdditionalReference_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_6_Type
+                            If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_6_ReferenceNumber
+                            HCCI.AdditionalReference.Add(TM)
+                        End If
+                        'ZusVermerk 7
+                        If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
+                            If pp.nctsHCCI_AdditionalReference_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_7_Type
+                            If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_7_ReferenceNumber
+                            HCCI.AdditionalReference.Add(TM)
+                        End If
+                        'ZusVermerk 8
+                        If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
+                            If pp.nctsHCCI_AdditionalReference_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_8_Type
+                            If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_8_ReferenceNumber
+                            HCCI.AdditionalReference.Add(TM)
+                        End If
+                        'ZusVermerk 9
+                        If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
+                            If pp.nctsHCCI_AdditionalReference_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_9_Type
+                            If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_9_ReferenceNumber
+                            HCCI.AdditionalReference.Add(TM)
+                        End If
+
+                        'ZusInformation 1
+                        If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
+                            If pp.nctsHCCI_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_1_Code
+                            If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_1_Text
+                            HCCI.AdditionalInformation.Add(TM)
+                        End If
+                        'ZusInformation 2
+                        If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
+                            If pp.nctsHCCI_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_2_Code
+                            If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_2_Text
+                            HCCI.AdditionalInformation.Add(TM)
+                        End If
+                        'ZusInformation 3
+                        If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
+                            If pp.nctsHCCI_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_3_Code
+                            If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_3_Text
+                            HCCI.AdditionalInformation.Add(TM)
+                        End If
+                        'ZusInformation 4
+                        If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
+                            If pp.nctsHCCI_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_4_Code
+                            If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_4_Text
+                            HCCI.AdditionalInformation.Add(TM)
+                        End If
+                        'ZusInformation 5
+                        If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
+                            If pp.nctsHCCI_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_5_Code
+                            If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_5_Text
+                            HCCI.AdditionalInformation.Add(TM)
+                        End If
+                        'ZusInformation 6
+                        If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
+                            If pp.nctsHCCI_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_6_Code
+                            If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_6_Text
+                            HCCI.AdditionalInformation.Add(TM)
+                        End If
+                        'ZusInformation 7
+                        If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
+                            If pp.nctsHCCI_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_7_Code
+                            If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_7_Text
+                            HCCI.AdditionalInformation.Add(TM)
+                        End If
+                        'ZusInformation 8
+                        If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
+                            If pp.nctsHCCI_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_8_Code
+                            If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_8_Text
+                            HCCI.AdditionalInformation.Add(TM)
+                        End If
+                        'ZusInformation 9
+                        If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then
+                            Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
+                            If pp.nctsHCCI_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_9_Code
+                            If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_9_Text
+                            HCCI.AdditionalInformation.Add(TM)
+                        End If
+
+
+                        HC.ConsignmentItem.Add(HCCI)
+                    Next
+                End If
+
+                XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment.Add(HC)
+
+
+            Next
+        End If
+
+        Dim saveDir = StartupPath & "\Dakosy_SEND\"
+        If Not System.IO.Directory.Exists(saveDir) Then
+            System.IO.Directory.CreateDirectory(saveDir)
+        End If
+
+        saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
+
+        XML.SaveToFile(saveFile)
+
+        cDakosyFunftions.replaceNullDateXML(saveFile)
+
+        Return True
+    End Function
+
+
+
+
 End Class
 
 
@@ -2739,4 +3901,5 @@ Public Class cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging
         Return ""
     End Function
 
+
 End Class
diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
index 81f995f..c72af45 100644
--- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
+++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
@@ -177,6 +177,12 @@
     <Compile Include="DAKOSY\EZOLL\NCTS\TR100.Designer.vb" />
     <Compile Include="Form.vb" />
     <Compile Include="Forms.vb" />
+    <Compile Include="frmDakosy_SelFirma.Designer.vb">
+      <DependentUpon>frmDakosy_SelFirma.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmDakosy_SelFirma.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="KD_EXPORT\KundenExport\VERAG_KundenStamm_Export.Designer.vb" />
     <Compile Include="KD_EXPORT\KundenExport\VERAG_KundenStamm_Export_V2.Designer.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
@@ -197,6 +203,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="frmDakosy_SelFirma.resx">
+      <DependentUpon>frmDakosy_SelFirma.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -537,6 +546,15 @@
   <ItemGroup>
     <Folder Include="DAKOSY\ATLAS\NCTS\Versandanmeldung\ATLAS_10.1\" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\IMEX-LOGO_simple.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Unisped_logo.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Verag-AG-Logo.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
diff --git a/DAKOSY_Worker/My Project/Resources.Designer.vb b/DAKOSY_Worker/My Project/Resources.Designer.vb
index a201e43..20e15b4 100644
--- a/DAKOSY_Worker/My Project/Resources.Designer.vb	
+++ b/DAKOSY_Worker/My Project/Resources.Designer.vb	
@@ -59,5 +59,35 @@ Namespace My.Resources
                 resourceCulture = value
             End Set
         End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property IMEX_LOGO_simple() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("IMEX-LOGO_simple", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Unisped_logo() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Unisped_logo", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Verag_AG_Logo() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Verag-AG-Logo", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
     End Module
 End Namespace
diff --git a/DAKOSY_Worker/My Project/Resources.resx b/DAKOSY_Worker/My Project/Resources.resx
index af7dbeb..836b422 100644
--- a/DAKOSY_Worker/My Project/Resources.resx	
+++ b/DAKOSY_Worker/My Project/Resources.resx	
@@ -46,7 +46,7 @@
     
     mimetype: application/x-microsoft.net.object.binary.base64
     value   : The object must be serialized with 
-            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
             : and then encoded with base64 encoding.
     
     mimetype: application/x-microsoft.net.object.soap.base64
@@ -60,6 +60,7 @@
             : 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">
@@ -68,9 +69,10 @@
               <xsd:sequence>
                 <xsd:element name="value" type="xsd:string" minOccurs="0" />
               </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" />
+              <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">
@@ -85,9 +87,10 @@
                 <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" msdata:Ordinal="1" />
+              <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">
@@ -109,9 +112,19 @@
     <value>2.0</value>
   </resheader>
   <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Unisped_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Verag-AG-Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Verag-AG-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>
\ No newline at end of file
diff --git a/DAKOSY_Worker/Resources/IMEX-LOGO_simple.png b/DAKOSY_Worker/Resources/IMEX-LOGO_simple.png
new file mode 100644
index 0000000..19411e8
Binary files /dev/null and b/DAKOSY_Worker/Resources/IMEX-LOGO_simple.png differ
diff --git a/DAKOSY_Worker/Resources/Unisped_logo.png b/DAKOSY_Worker/Resources/Unisped_logo.png
new file mode 100644
index 0000000..e89df41
Binary files /dev/null and b/DAKOSY_Worker/Resources/Unisped_logo.png differ
diff --git a/DAKOSY_Worker/Resources/Verag-AG-Logo.png b/DAKOSY_Worker/Resources/Verag-AG-Logo.png
new file mode 100644
index 0000000..a87a0f0
Binary files /dev/null and b/DAKOSY_Worker/Resources/Verag-AG-Logo.png differ
diff --git a/DAKOSY_Worker/cDakosyFunftions.vb b/DAKOSY_Worker/cDakosyFunftions.vb
index 423de87..c9d1912 100644
--- a/DAKOSY_Worker/cDakosyFunftions.vb
+++ b/DAKOSY_Worker/cDakosyFunftions.vb
@@ -1,9 +1,113 @@
 Imports Renci.SshNet
 Imports System.IO
+Imports System.Windows.Forms
 
 Public Class cDakosyFunftions
 
+    Public Shared Function getFirma_DY(FilialenNr As String, F_ME As Form) As String
+        Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If (VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") And FilialenNr = 5501 Then
+            FIRMA_DY = "IMEX"
+        ElseIf FilialenNr = 5701 Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firma = "AMBAR" Then
+                FIRMA_DY = "AMBAR"
+            Else
+                FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.getFirma ' Akt von AMBAR aber kein AMBAR-MA -> Dakosy unter VERAG!
+            End If
 
+        ElseIf FilialenNr = 5601 Then
+            FIRMA_DY = "UNISPED"
+        ElseIf FilialenNr = 4801 Or FilialenNr = 4802 Then
+            FIRMA_DY = "ATILLA"
+        Else
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
+
+                'If DY Is Nothing Then
+                Dim f As New frmDakosy_SelFirma
+                If f.ShowDialog() = DialogResult.OK Then
+                    FIRMA_DY = f.FIMRA_DY
+                Else
+                    If F_ME IsNot Nothing Then F_ME.Close()
+                End If
+                'End If
+            Else
+                FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(FilialenNr)
+            End If
+        End If
+        Return FIRMA_DY
+    End Function
+
+    Public Shared Sub replaceNullDateXML(XMLFile As String)
+        Try
+            If Not System.IO.File.Exists(XMLFile) Then Exit Sub
+            Dim lines() As String = System.IO.File.ReadAllLines(XMLFile)
+            Using writer = New System.IO.StreamWriter(XMLFile, False)
+                For Each line In lines
+                    If Not line.Contains("0001-01-01") Then writer.WriteLine(line)
+                Next
+            End Using
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+    Shared Function getDivision(FIRMA_DY, Optional fiskal = False) As String
+        If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            Return "SUB"
+        Else
+            Select Case FIRMA_DY
+                Case "ATILLA"
+                    Return "SUW"
+                Case "AMBAR"
+                    Return "AMBWO"
+                Case "VERAG"
+                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
+                        Case "SUB" : Return "SUB"
+                        Case "SBG" : Return "SBG"
+                        Case "NKD" : Return "NKD"
+                        Case "NEU" : Return "NEU"
+                        Case "WAI" : Return "WAI"
+                        Case Else : Return "SUB"
+                    End Select
+
+                Case "UNISPED"
+                    Return ""'"ATSP"
+                Case "IMEX"
+                    If fiskal Then
+                        Return "GLO"
+                    Else
+                        Return "IME"
+                    End If
+                Case Else : Return "SUB"
+            End Select
+        End If
+
+    End Function
+
+    Shared Function getIOPartner(FIRMA_DY) As String
+        If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            Return "VERA"
+        Else
+            Select Case FIRMA_DY
+                Case "ATILLA"
+                    Return "VERG"
+                Case "VERAG"
+                    Return "VERG"
+                Case "DURMAZ"
+                    Return "DUR"
+                Case "IMEX"
+                    Return "IMEX"
+                Case "UNISPED"
+                    Return "UNAT"
+                Case "AMBAR"
+                    Return "VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
+                Case Else : Return "VERG"
+            End Select
+        End If
+
+    End Function
     Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id, FRIMA_DY)
         Try
             If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then
diff --git a/DAKOSY_Worker/frmDakosy_SelFirma.Designer.vb b/DAKOSY_Worker/frmDakosy_SelFirma.Designer.vb
new file mode 100644
index 0000000..16181bf
--- /dev/null
+++ b/DAKOSY_Worker/frmDakosy_SelFirma.Designer.vb
@@ -0,0 +1,105 @@
+Imports System.Windows.Forms
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmDakosy_SelFirma
+    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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDakosy_SelFirma))
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.lbl.Location = New System.Drawing.Point(12, 9)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(239, 20)
+        Me.lbl.TabIndex = 0
+        Me.lbl.Text = "Bitte Wählen Sie eine Firma aus:"
+        '
+        'btn
+        '
+        Me.btn.BackgroundImage = Global.DAKOSY_Worker.My.Resources.Resources.Verag_AG_Logo
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(15, 38)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(337, 64)
+        Me.btn.TabIndex = 1
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.BackgroundImage = Global.DAKOSY_Worker.My.Resources.Resources.Unisped_logo
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(16, 108)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(337, 64)
+        Me.Button1.TabIndex = 2
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.BackgroundImage = Global.DAKOSY_Worker.My.Resources.Resources.IMEX_LOGO_simple
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button2.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(16, 180)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(5)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Padding = New System.Windows.Forms.Padding(5)
+        Me.Button2.Size = New System.Drawing.Size(337, 64)
+        Me.Button2.TabIndex = 3
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'frmDakosy_SelFirma
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(367, 255)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.lbl)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmDakosy_SelFirma"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Firma"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents lbl As Label
+    Friend WithEvents btn As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+End Class
diff --git a/DAKOSY_Worker/frmDakosy_SelFirma.resx b/DAKOSY_Worker/frmDakosy_SelFirma.resx
new file mode 100644
index 0000000..d584bd9
--- /dev/null
+++ b/DAKOSY_Worker/frmDakosy_SelFirma.resx
@@ -0,0 +1,980 @@
+<?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>
+  <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/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
+        s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
+        ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
+        ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
+        //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
+        ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
+        ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
+        XUL/////////////////////////////////////////////////////////////////////////////
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
+        //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        ///////////////////////////////////////////////////////////////////////////d1tFm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
+        //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
+        1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
+        ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
+        ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
+        //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
+        //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
+        SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
+        6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
+        fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////Uy8XB
+        s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
+        //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
+        ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
+        mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
+        //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
+        //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
+        //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
+        v7j/////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////+Mblhm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
+        ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
+        ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
+        ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
+        ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
+        //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
+        //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
+        //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
+        ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3/////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////39fRmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
+        ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
+        ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
+        ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
+        ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT/////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////////L
+        v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
+        s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
+        ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
+        ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
+        //////////////////////////////////////////////////////////////////////////////+A
+        XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////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>
\ No newline at end of file
diff --git a/DAKOSY_Worker/frmDakosy_SelFirma.vb b/DAKOSY_Worker/frmDakosy_SelFirma.vb
new file mode 100644
index 0000000..23ad3c8
--- /dev/null
+++ b/DAKOSY_Worker/frmDakosy_SelFirma.vb
@@ -0,0 +1,14 @@
+Public Class frmDakosy_SelFirma
+    Public FIMRA_DY = "VERAG" 'default
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        FIMRA_DY = "VERAG"
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        FIMRA_DY = "UNISPED"
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        FIMRA_DY = "IMEX"
+    End Sub
+End Class
\ No newline at end of file
diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb
index 64701ca..fcdf331 100644
--- a/TELOTEK_Worker_lib/cTelokec.vb
+++ b/TELOTEK_Worker_lib/cTelokec.vb
@@ -1159,7 +1159,7 @@ Public Class cTelotec_Anmeldung
         Return SQL.doSQL(sqlstr, "FMZOLL")
     End Function
     Function DELETE_PositionsdatenMasseinheiten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
-        Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenMasseinheiten] WHERE telposAbg_telanmId =" & Me.telanm_id & " "
+        Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenMasseinheiten] WHERE telposMass_telanmId =" & Me.telanm_id & " "
         Return SQL.doSQL(sqlstr, "FMZOLL")
     End Function
 
@@ -1381,8 +1381,8 @@ Public Class cTelotec_Positionsdaten
     End Function
     Public Function INSERT_Masseinheiten(telpos_id, telanm_id) As Boolean
         For Each p In MASSEINHEITEN
-            p.telposAbg_telanmId = telanm_id
-            p.telposAbg_telposId = telpos_id
+            p.telposMass_telanmId = telanm_id
+            p.telposMass_telposId = telpos_id
             If Not p.INSERT() Then Return False
         Next
         Return True
@@ -1444,7 +1444,7 @@ Public Class cTelotec_Positionsdaten
         Try
             MASSEINHEITEN.Clear()
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenMasseinheiten WHERE telposabg_telposId=@telpos_id  ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenMasseinheiten WHERE telposMass_telposId=@telpos_id  ", conn)
                     cmd.Parameters.AddWithValue("@telpos_id", Me.telpos_id)
                     Dim dr = cmd.ExecuteReader()
                     While dr.Read
@@ -1817,9 +1817,9 @@ End Class
 Public Class cTelotec_PositionsdatenMasseinheiten
 
 
-    Property telposAbg_id As Integer
-    Property telposAbg_telposId As Integer
-    Property telposAbg_telanmId As Integer
+    Property telposMass_id As Integer
+    Property telposMass_telposId As Integer
+    Property telposMass_telanmId As Integer
     Property Mandant_ID As Object = Nothing
     Property Bereich_ID As Object = Nothing
     Property Referenz_ID As Object = Nothing
@@ -1837,10 +1837,10 @@ Public Class cTelotec_PositionsdatenMasseinheiten
 
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_id", telposAbg_id, , True, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposMass_id", telposMass_id, , True, True))
 
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telposId", telposAbg_telposId))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telanmId", telposAbg_telanmId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposMass_telposId", telposMass_telposId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposMass_telanmId", telposMass_telanmId))
 
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID))
@@ -1857,8 +1857,8 @@ Public Class cTelotec_PositionsdatenMasseinheiten
     Public Function INSERT() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
         'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
-        telposAbg_id = SQL.doSQLVarListID(telposAbg_id, getInsertCmd, "FMZOLL", , list)
-        Return telposAbg_id > 0
+        telposMass_id = SQL.doSQLVarListID(telposMass_id, getInsertCmd, "FMZOLL", , list)
+        Return telposMass_id > 0
     End Function
 
 
diff --git a/initATLASAufschubkonten/cWorker_AES_EXG.vb b/initATLASAufschubkonten/cWorker_AES_EXG.vb
index c942261..f3ce134 100644
--- a/initATLASAufschubkonten/cWorker_AES_EXG.vb
+++ b/initATLASAufschubkonten/cWorker_AES_EXG.vb
@@ -132,6 +132,132 @@ Public Class cWorker_AES_EXG
                                     STATUS.SAVE()
 
 
+                                    '----------------------------------------------------------------------
+                                    'NCTS AKtualisieren!
+                                    '----------------------------------------------------------------------
+
+                                    '----------------------------------------------------------------------
+                                    'Wenn markiert wurde, dass die NCTS Daten ergänzt werden sollten
+                                    '----------------------------------------------------------------------
+
+                                    If EXG.exg_AutoFill_DyId IsNot Nothing AndAlso EXG.exg_AutoFill_DyId >= 0 Then
+                                        Dim NCTS_OUT = DAKOSY_Worker.cDakosyNCTSOut004.LOADByAnmIDFull(EXG.exg_AutoFill_DyId, False)
+                                        If NCTS_OUT IsNot Nothing Then
+                                            Dim HC As New cDakosy_NCTSOut004_HouseConsignment
+                                            HC.nctsHC_Consignee_Name = EXG.exg_Consignee_Name
+                                            HC.nctsHC_Consignee_IdentificationNumber = EXG.exg_Consignee_IdentificationNumber
+                                            HC.nctsHC_Consignee_SubsidiaryNumber = EXG.exg_Consignee_SubsidiaryNumber
+                                            HC.nctsHC_Consignee_StreetNumber = EXG.exg_Consignee_StreetNumber
+                                            HC.nctsHC_Consignee_City = EXG.exg_Consignee_City
+                                            HC.nctsHC_Consignee_Postcode = EXG.exg_Consignee_Postcode
+                                            HC.nctsHC_Consignee_Country = EXG.exg_Consignee_Country
+                                            HC.nctsHC_Consignee_ContactPerson_Name = EXG.exg_Consignee_ContactPerson_Name
+                                            HC.nctsHC_Consignee_ContactPerson_PhoneNumber = EXG.exg_Consignee_ContactPerson_PhoneNumber
+                                            HC.nctsHC_Consignee_ContactPerson_EMailAddress = EXG.exg_Consignee_ContactPerson_EMailAddress
+                                            HC.nctsHC_Consignee_AdressCode = EXG.exg_Consignee_AdressCode
+
+                                            HC.nctsHC_Consignor_Name = EXG.exg_Consignor_Name
+                                            HC.nctsHC_Consignor_IdentificationNumber = EXG.exg_Consignor_IdentificationNumber
+                                            HC.nctsHC_Consignor_SubsidiaryNumber = EXG.exg_Consignor_SubsidiaryNumber
+                                            HC.nctsHC_Consignor_StreetNumber = EXG.exg_Consignor_StreetNumber
+                                            HC.nctsHC_Consignor_City = EXG.exg_Consignor_City
+                                            HC.nctsHC_Consignor_Postcode = EXG.exg_Consignor_Postcode
+                                            HC.nctsHC_Consignor_Country = EXG.exg_Consignor_Country
+                                            HC.nctsHC_Consignor_ContactPerson_Name = EXG.exg_Consignor_ContactPerson_Name
+                                            HC.nctsHC_Consignor_ContactPerson_PhoneNumber = EXG.exg_Consignor_ContactPerson_PhoneNumber
+                                            HC.nctsHC_Consignor_ContactPerson_EMailAddress = EXG.exg_Consignor_ContactPerson_EMailAddress
+                                            HC.nctsHC_Consignor_AdressCode = EXG.exg_Consignor_AdressCode
+
+
+                                            HC.nctsHC_GrossMass = EXG.exg_GrossMass
+                                            HC.nctsHC_ReferenceNumberUCR = EXG.exg_ReferenceNumberUCR
+
+                                            HC.nctsHC_CountryOfDestination = EXG.exg_CountryOfDestination
+                                            HC.nctsHC_CountryOfDispatch = EXG.exg_CountryOfDispatch
+
+                                            HC.nctsHC_PreviousDocument_1_Type = "N830"
+                                            HC.nctsHC_PreviousDocument_1_ReferenceNumber = EXG.exg_MRN
+                                            'HC.nctsHC_PreviousDocument_1_ComplementOfInformation = 
+
+                                            For Each EXG_POS In EXG.exg_POSITION
+                                                Dim HC_ITEM As New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem
+
+                                                HC_ITEM.nctsHCCI_CommodityCode = EXG_POS.exgPos_CommodityCode
+                                                HC_ITEM.nctsHCCI_DescriptionOfGoods = EXG_POS.exgPos_DescriptionOfGoods
+
+                                                HC_ITEM.nctsHCCI_GrossMass = EXG_POS.exgPos_GrossMass
+                                                HC_ITEM.nctsHCCI_NetMass = EXG_POS.exgPos_NetMass
+
+
+                                                If EXG.exg_AutoTranslate Then
+                                                    If EXG.exg_ForceTranslate Then
+                                                        cDeeplAPI.deepl_Translate(EXG_POS.exgPos_DescriptionOfGoods, HC_ITEM.nctsHCCI_DescriptionOfGoods, "DE")
+                                                    Else
+                                                        HC_ITEM.nctsHCCI_DescriptionOfGoods = cTariffKN8_Interface.getKN8FromTNR(EXG_POS.exgPos_CommodityCode)
+                                                    End If
+                                                End If
+
+                                                For Each EXG_PK In EXG_POS.exgPos_PACKAGING
+                                                    Dim HC_PK = New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging
+
+                                                    HC_PK.nctsHCCIPK_NumberOfPackages = EXG_PK.exgPosPk_NumberOfPackages
+                                                    HC_PK.nctsHCCIPK_TypeOfPackages = EXG_PK.exgPosPk_TypeOfPackages
+                                                    HC_PK.nctsHCCIPK_ShippingMarks = EXG_PK.exgPosPk_ShippingMarks
+
+                                                    HC_ITEM.nctsHCCI_PACKAGING.Add(HC_PK)
+
+                                                Next
+
+                                                HC.nctsWP_CONSIGNMENT_ITEM.Add(HC_ITEM)
+                                            Next
+                                            NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Add(HC)
+
+                                            NCTS_OUT.INSERT_HouseConsignment()
+                                            cDakosyEXG.UPDATE_FillNCTS_ID_Completed(EXG.exg_Id) 'Eintrag, dass AutoFill durchgelaufen ist
+
+
+                                            'Prüfen ob alle EXG Daten gekommen sind --> NCTS Senden!
+                                            If cDakosyEXG.isFillNCTS_ID_ALLCompleted(EXG.exg_AutoFill_DyId) Then
+
+                                                Dim DY_ANM = New cDakosy_Zollanmeldungen(EXG.exg_AutoFill_DyId)
+                                                If NCTS_OUT IsNot Nothing Then
+                                                    'Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
+                                                    NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
+                                                    NCTS_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
+                                                    NCTS_OUT.ncts_LetzteBearbeitung = Now
+                                                    NCTS_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
+                                                    NCTS_OUT.ncts_firma = FIRMA_DY
+                                                    '  DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_004(NCTS_OUT, Me, DY_ANM, Me.FIRMA_DY)
+
+                                                    If NCTS_OUT.SAVE_ALL() Then
+
+                                                        Dim saveFile = ""
+
+                                                        If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath) Then
+                                                            If saveFile <> "" Then
+                                                                If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, NCTS_OUT.ncts_ObjectName, DY_ANM.dy_Id, Me.FIRMA_DY) Then
+                                                                    DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
+                                                                    'If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
+                                                                Else
+                                                                    DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
+                                                                    MsgBox("Sendefehler!")
+                                                                End If
+                                                            End If
+                                                        End If
+                                                    End If
+                                                End If
+
+                                                DY_ANM.UPDATE_DATA()
+
+                                                'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
+                                                DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
+
+                                            End If
+
+                                        End If
+                                        End If
+
+
                                     '----------------------------------------------------------------------
                                     'QULAIFIZIERUNG!
                                     '----------------------------------------------------------------------
@@ -231,6 +357,10 @@ Public Class cWorker_AES_EXG
 
         'TransitOperation:
         XML_EG.HeaderData.InformationType = "NV"
+        'XML_EG.HeaderData.ActiveBorderTransportMeans.DepartureDateAndTime = Now '_Nicht, sonst fehler
+        XML_EG.HeaderData.Finalization = True
+        XML_EG.HeaderData.ModeOfTransportAtTheBorder = 3
+
         'XML_EG.HeaderData.MRN = MRN
         'If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.CustomsOfficeOfDestinationActual = cDY.ncts_CountryOfDispatch
         'If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.MRN = SND.tblSnd_ATB_T1
@@ -246,7 +376,7 @@ Public Class cWorker_AES_EXG
             System.IO.Directory.CreateDirectory(saveDir)
         End If
 
-        saveFile = saveDir & "DY_EXP_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
+        saveFile = saveDir & "DY_EXP_" & Now.ToString("yyMMdd_HHmmss_fff") & ".xml"
 
         XML.SaveToFile(saveFile)
 
diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
index 96e7dba..97d1fa6 100644
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -433,7 +433,7 @@ Public Class frmDYNachrichtenVerarbeitung
                             '------------------------------------------
 
 
-                            'AES: UngueltigkeitSicherheitenNCTSDE
+                            'AES: GEST
                             If Not found And cGetMsgType.isAES_DatenZumAusgang(doc, VERSION) Then
                                 frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
                                 Select Case VERSION