Imports TELOTEC_Worker
Imports System.IO
Imports TELOTEC_Worker.vifDec

Class cTELOTECInterface_Send

    'Shared Function loadInClass_VersandanmeldungNCTSDE_003(ByRef cDY As cDakosyNCTSOut, USRCNTL As usrCntlATLAS_NCTS, cDYAnm As cDakosy_Zollanmeldungen, FIRMA_DY As String) As cDakosyNCTSOut
    '    'Try

    '    '    Select Case FIRMA_DY
    '    '        Case "UNISPED"
    '    '            cDY.ncts_Trans_Partner = "UNAT"
    '    '        Case Else
    '    '            cDY.ncts_Trans_Partner = "VERA"
    '    '    End Select

    '    '    cDY.ncts_Trans_DatumZeit = Now
    '    '    cDY.ncts_Gestellt = False
    '    '    cDY.ncts_Status = "00"
    '    '    cDY.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
    '    '    cDY.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
    '    '    cDY.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
    '    '    cDY.ncts_Trans_Version = "003"
    '    '    cDY.ncts_Trans_Div1 = "ATILLA"
    '    '    'cDY.ncts_Trans_Div1 = "ATILLA"
    '    '    'cDY.ncts_Trans_Div1 = "ATILLA"

    '    '    cDY.ncts_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value)
    '    '    cDY.ncts_BezugsnummerVorblendung = cDY.ncts_Stammreferenz

    '    '    cDY.ncts_ObjectName = USRCNTL.BezugsNr
    '    '    'cDY.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID
    '    '    USRCNTL.ALLG.getValues(cDY)
    '    '    USRCNTL.ADRESSEN.getValues(cDY)
    '    '    USRCNTL.POSITIONEN.getValues(cDY)
    '    '    cDY.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues()
    '    '    USRCNTL.VERSCHLUESSE.getValues(cDY)
    '    '    'cDY.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues()
    '    '    '--------------------------------



    '    '    Return cDY

    '    'Catch ex As Exception
    '    '    MsgBox(ex.Message & ex.StackTrace)
    '    '    Return Nothing
    '    'End Try
    'End Function




    'Shared Function loadInClass_VersandanmeldungAES(ByRef cDY As cDakosyAES, USRCNTL As usrCntlATLAS_AES, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyAES
    '    'Try

    '    '    cDY.aes_Trans_Partner = "VERA"
    '    '    cDY.aes_Trans_DatumZeit = Now
    '    '    'cDY.aes_Gestellt = False
    '    '    cDY.aes_Status = "00"
    '    '    cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
    '    '    cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
    '    '    cDY.aes_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
    '    '    'cDY.aes_Trans_Version = "003"
    '    '    cDY.aes_Trans_Div1 = "ATILLA"

    '    '    ' cDY.aes_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value)
    '    '    ' cDY.aes_BezugsnummerVorblendung = cDY.aes_Stammreferenz
    '    '    cDY.aes_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value)

    '    '    'cDY.aes_Trans_Div1 = "ATILLA"
    '    '    'cDY.aes_Trans_Div1 = "ATILLA"

    '    '    cDY.aes_ObjectName = USRCNTL.BezugsNr
    '    '    'cDY.aes_ObjectAlias = USRCNTL.AVISO.AvisoID
    '    '    USRCNTL.ALLG.getValues(cDY)
    '    '    USRCNTL.ADRESSEN.getValues(cDY)
    '    '    'USRCNTL.POSITIONEN.getValues(cDY)

    '    '    ' cDY.aes_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues()
    '    '    'USRCNTL.VERSCHLUESSE.getValues(cDY)
    '    '    'cDY.aes_WARENPOS=USRCNTL.POSITIONEN.getValues()
    '    '    '--------------------------------

    '    '    cDY.aes_WARENPOS.Clear()


    '    '    Return cDY

    '    'Catch ex As Exception
    '    '    MsgBox(ex.Message & ex.StackTrace)
    '    '    Return Nothing
    '    'End Try
    'End Function



    Shared Function loadInClass_VersandanmeldungEZA(ByRef cDY As cTelotec_Anmeldung, USRCNTL As usrCntlTCeZOLL_EZA) As cTelotec_Anmeldung
        Try


            cDY.dec_CreateDate = Now
            'cDY.EZA_Gestellt = False
            cDY.telanm_Status = "00"
            cDY.telanm_Status_KEWILL_Equivalent = cDY.telanm_Status
            'cDY.refer= USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
            'cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
            'cDY.alia    = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
            'cDY.EZA_Trans_Version = "003"
            'cDY.eza_Trans_Div1 = "VERAG"
            'cDY.EZA_Trans_Div1 = "ATILLA"
            'cDY.EZA_Trans_Div1 = "ATILLA"

            '    cDY.eza_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value)
            'cDY.eza_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value)

            cDY.telanm_BezugsNr = USRCNTL.BezugsNr
            'cDY.EZA_ObjectAlias = USRCNTL.AVISO.AvisoID
            USRCNTL.ALLG.getValues(cDY)
            'USRCNTL.ADRESSEN.getValues(cDY)
            'USRCNTL.POSITIONEN.getValues(cDY)
            'USRCNTL.DV1.getValues(cDY)

            Return cDY

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
            Return Nothing
        End Try
    End Function



    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 "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 Else : Return "VERG"
            End Select
        End If

    End Function
    'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")

    Shared Function generateVersandanmeldungEZA(cDY As cTelotec_Anmeldung, ByRef saveFile As String, DY_ACTION As String) As Boolean
        'Dim Interface_VERSION = "004"
        Dim ObjectAktion = DY_ACTION

        '

        'Dim XML As New TELOTEC_Worker.
        Dim TC_XML As New TELOTEC_Worker.vifDec.InterfaceDataType
        TC_XML.interfaceType = "vifDec"
        Dim XML As New TELOTEC_Worker.vifDec.vifDec


        'Transaktion:
        'XML.Transaktion = New FreierVerkehrAktVeredelUmwandlung_004.TransaktionFreierVerkehrTyp
        'XML.Transaktion.IOPartner = getIOPartner(cDY.eza_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
        'XML.Transaktion.IODatumZeit = Now
        'XML.Transaktion.IOReferenz = cDY.eza_Trans_Referenz
        'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.eza_firma, CBool(If(cDY.eza_FiskalvertretungKz, False)))
        'XML.Transaktion.Version = Interface_VERSION

        'Dim EA = New FreierVerkehrAktVeredelUmwandlung_004.EinzelEinfuhrUnvollstaendigeAnmeldungTyp

        'EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"


        'XML.EinzelAnmeldung.Add(EA)
        XML.Refs_LRN = cDY.Refs_LRN

        XML.Mandant_ID = cDY.Mandant_ID '                      VARCHAR(6)     Not NULL,
        XML.Bereich_ID = cDY.Bereich_ID '                      VARCHAR(6)     Not NULL,
        XML.Referenz_ID = cDY.Referenz_ID '                     VARCHAR(36)    Not NULL,
        XML.ComIndicator = cDY.ComIndicator '                    BIT             Not NULL,
        XML.TransferStatus = cDY.TransferStatus '                  VARCHAR(4)     NULL,
        XML.MsgType = cDY.MsgType '                         VARCHAR(10)    NULL,
        XML.dec_ProzessArt = cDY.dec_ProzessArt '                  VARCHAR(4)     Not NULL,
        XML.dec_Anmelde_ID = cDY.dec_Anmelde_ID '                  INT             NULL,
        XML.dec_Template_ID = cDY.dec_Template_ID '                 INT             NULL,
        XML.dec_Lager_ID = cDY.dec_Lager_ID '                    VARCHAR(6)     NULL,
        XML.dec_Lag_IND = cDY.dec_Lag_IND '                     BIT             NULL,
        XML.dec_CreateDate = cDY.dec_CreateDate '                  DATETIME        Not NULL,
        XML.dec_CreatePersonalID = cDY.dec_CreatePersonalID '            VARCHAR(12)    NULL,
        XML.dec_PreDec_IND = cDY.dec_PreDec_IND '                  BIT             NULL,
        XML.dec_TotNet = cDY.dec_TotNet '                      Decimal (14, 3) NULL,
        XML.dec_TotNetSplit_IND = cDY.dec_TotNetSplit_IND '             BIT             NULL,
        XML.dec_FillPackList_IND = cDY.dec_FillPackList_IND '            BIT             NULL,
        XML.dec_Memo = cDY.dec_Memo '                        VARCHAR(1000)  NULL,
        XML.Refs_LRN = cDY.Refs_LRN '                        VARCHAR(22)    Not NULL,
        XML.Refs_CRN = cDY.Refs_CRN '                        VARCHAR(21)    NULL,
        XML.Refs_CSRN = cDY.Refs_CSRN '                       VARCHAR(21)    NULL,
        XML.Refs_ERN = cDY.Refs_ERN '                        VARCHAR(21)    NULL,
        XML.Refs_FRN = cDY.Refs_FRN '                        VARCHAR(21)    NULL,
        XML.Refs_Stat = cDY.Refs_Stat '                       VARCHAR(2)     NULL,
        XML.Hea_DecTy = cDY.Hea_DecTy '                       VARCHAR(9)     Not NULL,
        XML.Hea_TotItem = cDY.Hea_TotItem '                     INT             Not NULL,
        XML.Hea_TotPack = cDY.Hea_TotPack '                     INT             NULL,
        XML.Hea_TotGross = cDY.Hea_TotGross '                    Decimal (14, 3) NULL,
        XML.Hea_DepLNG = cDY.Hea_DepLNG '                      VARCHAR(2)     NULL,
        XML.Hea_DestLNG = cDY.Hea_DestLNG '                     VARCHAR(2)     NULL,
        XML.Hea_PayTy = cDY.Hea_PayTy '                       VARCHAR(1)     NULL,
        XML.Hea_DefPayRef = cDY.Hea_DefPayRef '                   INT             NULL,
        XML.Hea_PerPayRef = cDY.Hea_PerPayRef '                   INT             NULL,
        XML.Hea_PayMet = cDY.Hea_PayMet '                      INT             NULL,
        XML.Hea_AExpRef = cDY.Hea_AExpRef '                     BIT             NULL,
        XML.Hea_Fin = cDY.Hea_Fin '                         VARCHAR(2)     NULL,
        XML.Hea_Simp = CInt(Int(cDY.Hea_Simp))
        XML.Hea_IssD = cDY.Hea_IssD '                        Date            NULL,
        XML.Hea_AuthID = cDY.Hea_AuthID '                      VARCHAR(17)    NULL,
        XML.Hea_TransDat = cDY.Hea_TransDat '                    BIT             NULL,
        XML.Hea_WoffD = cDY.Hea_WoffD '                       Date            NULL,
        XML.Hea_DecDT = cDY.Hea_DecDT '                       Date            Not NULL,
        XML.Hea_DecPlc = cDY.Hea_DecPlc '                      VARCHAR(35)    Not NULL,
        XML.Hea_AccDT = cDY.Hea_AccDT '                       DATETIME        NULL,
        XML.Hea_SecInd = cDY.Hea_SecInd '                      BIT             NULL,
        XML.Hea_ComRef = cDY.Hea_ComRef '                      VARCHAR(70)    NULL,
        XML.Hea_ProArrDT = cDY.Hea_ProArrDT '                    DATETIME        NULL,
        XML.Hea_PlaDepDT = cDY.Hea_PlaDepDT '                    DATETIME        NULL,
        XML.Locs_TradCtry = cDY.Locs_TradCtry '                   VARCHAR(2)     NULL,
        XML.Locs_Disp = cDY.Locs_Disp '                       VARCHAR(2)     NULL,
        XML.Locs_Dest = cDY.Locs_Dest '                       VARCHAR(2)     NULL,
        XML.Locs_GdsLocCd = cDY.Locs_GdsLocCd '                   VARCHAR(17)    NULL,
        XML.Locs_GdsLoc = cDY.Locs_GdsLoc '                     VARCHAR(35)    NULL,
        XML.Locs_GdsLocAuth = cDY.Locs_GdsLocAuth '                 VARCHAR(17)    NULL,
        XML.Locs_LoadPlcCd = cDY.Locs_LoadPlcCd '                  VARCHAR(17)    NULL,
        XML.Locs_LoadPlc = cDY.Locs_LoadPlc '                    VARCHAR(35)    NULL,
        XML.Locs_CustPlc = cDY.Locs_CustPlc '                    VARCHAR(17)    NULL,
        XML.Locs_ArrLocCd = cDY.Locs_ArrLocCd '                   VARCHAR(17)    NULL,
        XML.Locs_ArrLoc = cDY.Locs_ArrLoc '                     VARCHAR(35)    NULL,
        XML.Locs_ArrLocAuth = cDY.Locs_ArrLocAuth '                 VARCHAR(17)    NULL,
        XML.Locs_WarTy = cDY.Locs_WarTy '                      VARCHAR(1)     NULL,
        XML.Locs_WarCtry = cDY.Locs_WarCtry '                    VARCHAR(2)     NULL,
        XML.Locs_War = cDY.Locs_War '                        VARCHAR(17)    NULL,
        XML.Transp_InMo = cDY.Transp_InMo '                     INT             NULL,
        XML.Transp_BordMo = cDY.Transp_BordMo '                   INT             NULL,
        XML.Transp_DepTy = cDY.Transp_DepTy '                    INT             NULL,
        XML.Transp_DepIdnt = cDY.Transp_DepIdnt '                  VARCHAR(27)    NULL,
        XML.Transp_DepNat = cDY.Transp_DepNat '                   VARCHAR(2)     NULL,
        XML.Transp_CrossTy = cDY.Transp_CrossTy '                  INT             NULL,
        XML.Transp_CrossIdnt = cDY.Transp_CrossIdnt '                VARCHAR(27)    NULL,
        XML.Transp_CrossIdntNat = cDY.Transp_CrossIdntNat '             VARCHAR(2)     NULL,
        XML.Transp_ContInd = CInt(Int(cDY.Transp_ContInd)) '                  BIT             NULL,
        XML.ValData_TermDelCd = cDY.ValData_TermDelCd '               VARCHAR(3)     NULL,
        XML.ValData_TermDelPlc = cDY.ValData_TermDelPlc '              VARCHAR(35)    NULL,
        XML.ValData_TermDelSit = cDY.ValData_TermDelSit '              VARCHAR(1)     NULL,
        XML.ValData_InvCurr = cDY.ValData_InvCurr '                 VARCHAR(3)     NULL,
        XML.ValData_ExRa = cDY.ValData_ExRa '                    Decimal (20, 7) NULL,
        XML.ValData_InvVal = cDY.ValData_InvVal '                  Decimal (18, 2) NULL,
        XML.ValData_TransacCd = cDY.ValData_TransacCd '               INT             NULL,
        XML.ConorTra_Na = cDY.ConorTra_Na '                     VARCHAR(35)    NULL,
        XML.ConorTra_Strt = cDY.ConorTra_Strt '                   VARCHAR(35)    NULL,
        XML.ConorTra_Pst = cDY.ConorTra_Pst '                    VARCHAR(9)     NULL,
        XML.ConorTra_Cty = cDY.ConorTra_Cty '                    VARCHAR(35)    NULL,
        XML.ConorTra_Ctry = cDY.ConorTra_Ctry '                   VARCHAR(2)     NULL,
        XML.ConorTra_TIN = cDY.ConorTra_TIN '                    VARCHAR(17)    NULL,
        XML.ConorTra_UIDCtry = cDY.ConorTra_UIDCtry '                VARCHAR(2)     NULL,
        XML.ConorTra_UID = cDY.ConorTra_UID '                    VARCHAR(20)    NULL,
        XML.ConeeTra_Na = cDY.ConeeTra_Na '                     VARCHAR(35)    NULL,
        XML.ConeeTra_Strt = cDY.ConeeTra_Strt '                   VARCHAR(35)    NULL,
        XML.ConeeTra_Pst = cDY.ConeeTra_Pst '                    VARCHAR(9)     NULL,
        XML.ConeeTra_Cty = cDY.ConeeTra_Cty '                    VARCHAR(35)    NULL,
        XML.ConeeTra_Ctry = cDY.ConeeTra_Ctry '                   VARCHAR(2)     NULL,
        XML.ConeeTra_TIN = cDY.ConeeTra_TIN '                    VARCHAR(17)    NULL,
        XML.ConeeTra_UIDCtry = cDY.ConeeTra_UIDCtry '                VARCHAR(2)     NULL,
        XML.ConeeTra_UID = cDY.ConeeTra_UID '                    VARCHAR(20)    NULL,
        XML.ExpTra_Na = cDY.ExpTra_Na '                       VARCHAR(35)    NULL,
        XML.ExpTra_Strt = cDY.ExpTra_Strt '                     VARCHAR(35)    NULL,
        XML.ExpTra_Pst = cDY.ExpTra_Pst '                      VARCHAR(9)     NULL,
        XML.ExpTra_Cty = cDY.ExpTra_Cty '                      VARCHAR(35)    NULL,
        XML.ExpTra_Ctry = cDY.ExpTra_Ctry '                     VARCHAR(2)     NULL,
        XML.ExpTra_TIN = cDY.ExpTra_TIN '                      VARCHAR(17)    NULL,
        XML.ExpTra_UIDCtry = cDY.ExpTra_UIDCtry '                  VARCHAR(2)     NULL,
        XML.ExpTra_UID = cDY.ExpTra_UID '                      VARCHAR(20)    NULL,
        XML.Declarant_Na = cDY.Declarant_Na '                    VARCHAR(35)    NULL,
        XML.Declarant_Strt = cDY.Declarant_Strt '                  VARCHAR(35)    NULL,
        XML.Declarant_Pst = cDY.Declarant_Pst '                   VARCHAR(9)     NULL,
        XML.Declarant_Cty = cDY.Declarant_Cty '                   VARCHAR(35)    NULL,
        XML.Declarant_Ctry = cDY.Declarant_Ctry '                  VARCHAR(2)     NULL,
        XML.Declarant_TIN = cDY.Declarant_TIN '                   VARCHAR(17)    NULL,
        XML.Declarant_UIDCtry = cDY.Declarant_UIDCtry '               VARCHAR(2)     NULL,
        XML.Declarant_UID = cDY.Declarant_UID '                   VARCHAR(20)    NULL,
        XML.Declarant_DecRep = cDY.Declarant_DecRep '                INT             NULL,
        XML.Represent_RIN = cDY.Represent_RIN '                   VARCHAR(17)    NULL,
        XML.Represent_Na = cDY.Represent_Na '                    VARCHAR(35)    NULL,
        XML.EntryCO_Ref = cDY.EntryCO_Ref '                     VARCHAR(8)     NULL,
        XML.ExitCO_Ref = cDY.ExitCO_Ref '                      VARCHAR(8)     NULL,
        XML.SurvCO_Ref = cDY.SurvCO_Ref '                      VARCHAR(8)     NULL,
        XML.DestCO_Ref = cDY.DestCO_Ref '                      VARCHAR(8)     NULL,
        XML.PresCO_Ref = cDY.PresCO_Ref '                      VARCHAR(8)     NULL,
        XML.DepCO_Ref = cDY.DepCO_Ref '                       VARCHAR(8)     NULL,
        'XML.CtrlRslt_ResCd = cDY.CtrlRslt_ResCd '                  VARCHAR(2)     NULL,
        XML.CtrlRslt_DLimit = cDY.CtrlRslt_DLimit '                 DATETIME        NULL, 

        If cDY.POSITIONSDATEN IsNot Nothing AndAlso cDY.POSITIONSDATEN.Count > 0 Then
            For Each POS In cDY.POSITIONSDATEN
                Dim XML_POS As New vifDecItem


                XML_POS.Mandant_ID = XML.Mandant_ID
                XML_POS.Bereich_ID = XML.Bereich_ID
                XML_POS.Referenz_ID = XML.Referenz_ID
                XML_POS.ComIndicator = XML.ComIndicator


                'If POS.Mandant_ID IsNot Nothing Then XML_POS.Mandant_ID = POS.Mandant_ID
                'If POS.Bereich_ID IsNot Nothing Then XML_POS.Bereich_ID = POS.Bereich_ID
                'If POS.Referenz_ID IsNot Nothing Then XML_POS.Referenz_ID = POS.Referenz_ID
                'If POS.ComIndicator IsNot Nothing Then XML_POS.ComIndicator = POS.ComIndicator
                XML_POS.Pos_ID = POS.Pos_ID
                If POS.Item_Status IsNot Nothing Then XML_POS.Item_Status = POS.Item_Status
                If POS.Item_ComCd IsNot Nothing Then XML_POS.Item_ComCd = POS.Item_ComCd
                If POS.Item_GdsDes IsNot Nothing Then XML_POS.Item_GdsDes = POS.Item_GdsDes
                If POS.Item_Gross IsNot Nothing AndAlso POS.Item_Gross <> "" Then XML_POS.Item_Gross = CDbl(POS.Item_Gross)
                If POS.Item_Net IsNot Nothing AndAlso POS.Item_Net <> "" Then XML_POS.Item_Net = CDbl(POS.Item_Net)
                If POS.Item_Orig IsNot Nothing Then XML_POS.Item_Orig = POS.Item_Orig
                If POS.Item_ProcCd IsNot Nothing Then XML_POS.Item_ProcCd = POS.Item_ProcCd
                If POS.Item_ProcAddCd IsNot Nothing Then XML_POS.Item_ProcAddCd = POS.Item_ProcAddCd
                If POS.Item_ItVal IsNot Nothing Then XML_POS.Item_ItVal = CDbl(POS.Item_ItVal)
                If POS.Item_Pref IsNot Nothing Then XML_POS.Item_Pref = POS.Item_Pref
                If POS.Item_Quota IsNot Nothing Then XML_POS.Item_Quota = POS.Item_Quota
                If POS.Item_ValMet IsNot Nothing Then XML_POS.Item_ValMet = POS.Item_ValMet
                If POS.Item_VATInd IsNot Nothing Then XML_POS.Item_VATInd = POS.Item_VATInd
                If POS.Item_StatVal IsNot Nothing Then XML_POS.Item_StatVal = POS.Item_StatVal
                If POS.SurvCO_Ref IsNot Nothing Then XML_POS.SurvCO_Ref = POS.SurvCO_Ref
                If POS.Telo_Artikel_ID IsNot Nothing Then XML_POS.Telo_Artikel_ID = POS.Telo_Artikel_ID
                If POS.Telo_Artikelmenge IsNot Nothing Then XML_POS.Telo_ArtikelMenge = POS.Telo_Artikelmenge
                If POS.Telo_ArtikelMEH IsNot Nothing Then XML_POS.Telo_ArtikelMEH = POS.Telo_ArtikelMEH


                If POS.PACKSTUECKE IsNot Nothing AndAlso POS.PACKSTUECKE.Count > 0 Then
                    For Each PK In POS.PACKSTUECKE
                        Dim XML_PK As New vifDecPack


                        XML_PK.Mandant_ID = XML.Mandant_ID
                        XML_PK.Bereich_ID = XML.Bereich_ID
                        XML_PK.Referenz_ID = XML.Referenz_ID
                        XML_PK.ComIndicator = XML.ComIndicator
                        XML_PK.Pos_ID = POS.Pos_ID


                        If PK.Pack_Nr IsNot Nothing Then XML_PK.Pack_Nr = CInt(PK.Pack_Nr)
                        If PK.Pack_Kind IsNot Nothing Then XML_PK.Pack_Kind = PK.Pack_Kind
                        XML_POS.vifDecPack.Add(XML_PK)

                    Next
                End If

                If POS.DOC_CERTS IsNot Nothing AndAlso POS.DOC_CERTS.Count > 0 Then
                    For Each DOC In POS.DOC_CERTS
                        Dim XML_DOC As New vifDecDocCerts


                        XML_DOC.Mandant_ID = XML.Mandant_ID
                        XML_DOC.Bereich_ID = XML.Bereich_ID
                        XML_DOC.Referenz_ID = XML.Referenz_ID
                        XML_DOC.ComIndicator = XML.ComIndicator
                        XML_DOC.Pos_ID = POS.Pos_ID


                        If DOC.DocCerts_ID IsNot Nothing Then XML_DOC.DocCerts_ID = DOC.DocCerts_ID
                        If DOC.DocCerts_DocCd IsNot Nothing Then XML_DOC.DocCerts_DocCd = DOC.DocCerts_DocCd
                        If DOC.DocCerts_DTy IsNot Nothing Then XML_DOC.DocCerts_DTy = DOC.DocCerts_DTy
                        If DOC.DocCerts_DRef IsNot Nothing Then XML_DOC.DocCerts_DRef = DOC.DocCerts_DRef
                        If DOC.DocCerts_IssD IsNot Nothing AndAlso IsDate(DOC.DocCerts_IssD) Then XML_DOC.DocCerts_IssD = CDate(DOC.DocCerts_IssD)
                        If DOC.DocCerts_IssCtry IsNot Nothing Then XML_DOC.DocCerts_IssCtry = DOC.DocCerts_IssCtry
                        If DOC.DocCerts_DTIN IsNot Nothing Then XML_DOC.DocCerts_DTIN = DOC.DocCerts_DTIN
                        If DOC.DocCerts_UidVid IsNot Nothing Then XML_DOC.DocCerts_UidVid = DOC.DocCerts_UidVid
                        'If DOC.DocCerts_ValD IsNot Nothing Then XML_DOC.DocCerts_Val = DOC.DocCerts_ValD


                        XML_POS.vifDecDocCerts.Add(XML_DOC)

                    Next
                End If



                If POS.MASSEINHEITEN IsNot Nothing AndAlso POS.MASSEINHEITEN.Count > 0 Then
                    For Each DOC In POS.MASSEINHEITEN
                        Dim XML_SUPPL As New vifDecSupplUnt


                        XML_SUPPL.Mandant_ID = XML.Mandant_ID
                        XML_SUPPL.Bereich_ID = XML.Bereich_ID
                        XML_SUPPL.Referenz_ID = XML.Referenz_ID
                        XML_SUPPL.ComIndicator = XML.ComIndicator
                        XML_SUPPL.Pos_ID = POS.Pos_ID


                        If DOC.SupplUnt_ID IsNot Nothing Then XML_SUPPL.SupplUnt_ID = DOC.SupplUnt_ID
                        If DOC.SupplUnt_Unit IsNot Nothing Then XML_SUPPL.SupplUnt_Unit = DOC.SupplUnt_Unit
                        If DOC.SupplUnt_SUQuant IsNot Nothing Then
                            '   MsgBox(DOC.SupplUnt_SUQuant)
                            XML_SUPPL.SupplUnt_SUQuant = CDbl(DOC.SupplUnt_SUQuant)
                        End If


                        XML_POS.vifDecSupplUnt.Add(XML_SUPPL)

                    Next
                End If

                XML.vifDecItem.Add(XML_POS)

            Next
        End If


        saveFile = cTC_Functions.getDefaultFolder_SEND() & "TC_" & Now.ToString("yyMMdd_HHmmss") & ".xml"

        'MsgBox(saveFile)
        TC_XML.vifDec.Add(XML)
        TC_XML.SaveToFile(saveFile)

        replaceNullDateXML(saveFile)
        Return True
    End Function


    Shared Function isLeerNothing(o As String) As Object
        If o Is Nothing OrElse o = "" Then
            Return Nothing
        Else
            Return o
        End If
    End Function


    'Shared Function generateVersandanmeldungNCTSDE_003(cDY As cDakosyNCTSOut, ByRef saveFile As String, DY_ACTION As String) As Boolean
    '    'Dim Interface_VERSION = "003"
    '    'Dim ObjectAktion = DY_ACTION

    '    'Dim XML As New VersandanmeldungNCTSDE.VersandanmeldungVATayp

    '    ''Transaktion:
    '    'XML.Transaktion = New VersandanmeldungNCTSDE.TransaktionNCTSTyp
    '    'XML.Transaktion.IOPartner = 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 = getDivision(cDY.ncts_firma) '"SUW"
    '    'XML.Transaktion.Version = Interface_VERSION

    '    'XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE.EinzelVersandanmeldungTyp

    '    ''ObjektIdentifizierung:
    '    'XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
    '    'XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE.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

    '    ''Kopfdaten:
    '    'XML.EinzelVersandanmeldung.KopfDaten = New VersandanmeldungNCTSDE.KopfDatenVersandanmeldungTyp
    '    'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer
    '    'If cDY.ncts_BestimmungsstelleDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungsstelleDienststellnummer = cDY.ncts_BestimmungsstelleDienststellennummer
    '    'If cDY.ncts_VersendungsLandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.VersendungslandCode = cDY.ncts_VersendungsLandCode
    '    'If cDY.ncts_BestimmungslandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungslandCode = cDY.ncts_BestimmungslandCode
    '    'If cDY.ncts_ArtAnmeldung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.ArtAnmeldungKopfCode = cDY.ncts_ArtAnmeldung
    '    'If cDY.ncts_BeladungsOrt IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BeladungsOrt = cDY.ncts_BeladungsOrt
    '    'XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer = New List(Of String)
    '    'If cDY.ncts_DurchgangszollstelleDienststellnummer1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer1)
    '    'If cDY.ncts_DurchgangszollstelleDienststellnummer2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer2)
    '    'If cDY.ncts_DurchgangszollstelleDienststellnummer3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer3)
    '    'If cDY.ncts_DurchgangszollstelleDienststellnummer4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer4)
    '    'If cDY.ncts_DurchgangszollstelleDienststellnummer5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer5)
    '    'If cDY.ncts_DurchgangszollstelleDienststellnummer6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer6)
    '    'If cDY.ncts_DurchgangszollstelleDienststellnummer7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer7)
    '    'If cDY.ncts_DurchgangszollstelleDienststellnummer8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer8)
    '    'If cDY.ncts_DurchgangszollstelleDienststellnummer9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer9)
    '    'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer
    '    'If cDY.ncts_Wiedergestellungsdatum IsNot Nothing AndAlso IsDate(cDY.ncts_Wiedergestellungsdatum) Then
    '    '    XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = cDY.ncts_Wiedergestellungsdatum
    '    'Else
    '    '    XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = Nothing
    '    'End If

    '    'If cDY.ncts_KzVereinfachtesVerfahren IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.KzVereinfachtesVerfahren = CInt(Int(cDY.ncts_KzVereinfachtesVerfahren)) ' sonst true = -1
    '    ''GesRoh -> auto
    '    ''GesPk -> auto

    '    ''Verschluss:
    '    'If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then
    '    '    XML.EinzelVersandanmeldung.KopfDaten.Verschluss = New VersandanmeldungNCTSDE.VerschlussVATyp
    '    '    If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.ArtCode = cDY.ncts_Verschluss_ArtCode
    '    '    If cDY.ncts_Verschluss_Anzahl IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Anzahl = cDY.ncts_Verschluss_Anzahl

    '    '    If cDY.ncts_Verschluss_Zeichen1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen1)
    '    '    If cDY.ncts_Verschluss_Zeichen2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen2)
    '    '    If cDY.ncts_Verschluss_Zeichen3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen3)
    '    '    If cDY.ncts_Verschluss_Zeichen4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen4)
    '    '    If cDY.ncts_Verschluss_Zeichen5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen5)
    '    '    If cDY.ncts_Verschluss_Zeichen6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen6)
    '    '    If cDY.ncts_Verschluss_Zeichen7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen7)
    '    '    If cDY.ncts_Verschluss_Zeichen8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen8)
    '    '    If cDY.ncts_Verschluss_Zeichen9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen9)
    '    '    If cDY.ncts_Verschluss_Zeichen10 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen10)
    '    '    If cDY.ncts_Verschluss_Zeichen11 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen11)
    '    '    If cDY.ncts_Verschluss_Zeichen12 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen12)
    '    '    If cDY.ncts_Verschluss_Zeichen13 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen13)
    '    '    If cDY.ncts_Verschluss_Zeichen14 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen14)
    '    '    If cDY.ncts_Verschluss_Zeichen15 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen15)
    '    '    If cDY.ncts_Verschluss_Zeichen16 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen16)
    '    'End If

    '    ''Sicherheitsangaben:
    '    'If cDY.ncts_SICHERHEITSANGABEN.Count > 0 Then
    '    '    XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben = New List(Of VersandanmeldungNCTSDE.SicherheitsangabenVATyp)
    '    '    For Each s In cDY.ncts_SICHERHEITSANGABEN
    '    '        Dim SA As New VersandanmeldungNCTSDE.SicherheitsangabenVATyp
    '    '        If s.nctsSA_ArtCode IsNot Nothing Then SA.ArtCode = s.nctsSA_ArtCode
    '    '        If s.nctsSA_BezeichnungBescheinigun IsNot Nothing Then SA.BezeichnungBescheinigung = s.nctsSA_BezeichnungBescheinigun
    '    '        If s.nctsSA_AbgabenBetrag IsNot Nothing Then SA.Abgabenbetrag = s.nctsSA_AbgabenBetrag
    '    '        If s.nctsSA_GRN IsNot Nothing Then
    '    '            SA.GRN = s.nctsSA_GRN
    '    '            If If(s.nctsSA_GRN, "") = "05AT510000G000FP7" Then
    '    '                If If(s.nctsSA_Zugriffcode, "").replace("0000", "").length <> 4 Then
    '    '                    s.nctsSA_Zugriffcode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "")
    '    '                    If s.nctsSA_Zugriffcode.length > 4 Then
    '    '                        s.nctsSA_Zugriffcode = s.nctsSA_Zugriffcode.ToString.Substring(0, 4)
    '    '                    End If
    '    '                End If
    '    '            End If
    '    '            If s.nctsSA_Zugriffcode IsNot Nothing Then SA.Zugriffscode = s.nctsSA_Zugriffcode

    '    '            '    If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben
    '    '            XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben.Add(SA)
    '    '        End If
    '    '    Next
    '    'End If

    '    ''Beförderungsmittel:
    '    '' If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang Or cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode isnot nothing then 
    '    'XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel = New VersandanmeldungNCTSDE.BefoerderungsmittelVATyp
    '    'If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenAbgang = cDY.ncts_Befoerderungsmittel_KennzeichenAbgang
    '    'If cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitAbgangCode = cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode

    '    'If cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.VerkehrszweigGrenzueberschreitent = cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent
    '    'If cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.ArtGrenzueberschreitentCode = cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung
    '    'If cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenGrenzueberschreitend = cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend
    '    'If cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitGrenzueberschreitendCode = cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode
    '    ''End If

    '    ''Adressen
    '    'XML.EinzelVersandanmeldung.KopfDaten.Adressen = New VersandanmeldungNCTSDE.AdressenVATyp
    '    'If cDY.ncts_Versender_EORI IsNot Nothing Or cDY.ncts_Versender_Name IsNot Nothing Then
    '    '    XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ
    '    '    If cDY.ncts_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.EORI = cDY.ncts_Versender_EORI
    '    '    If cDY.ncts_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.NLNR = cDY.ncts_Versender_NLNR
    '    '    If cDY.ncts_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Name = cDY.ncts_Versender_Name
    '    '    If cDY.ncts_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.StrasseHausnummer = cDY.ncts_Versender_StrasseHausnummer
    '    '    If cDY.ncts_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.PLZ = cDY.ncts_Versender_PLZ
    '    '    If cDY.ncts_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Ort = cDY.ncts_Versender_Ort
    '    '    If cDY.ncts_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Land = cDY.ncts_Versender_Land
    '    '    If cDY.ncts_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.TIN = cDY.ncts_Versender_TIN
    '    'End If
    '    'If cDY.ncts_Empfaenger_EORI IsNot Nothing Or cDY.ncts_Empfaenger_Name IsNot Nothing Then
    '    '    XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ
    '    '    If cDY.ncts_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.EORI = cDY.ncts_Empfaenger_EORI
    '    '    If cDY.ncts_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.NLNR = cDY.ncts_Empfaenger_NLNR
    '    '    If cDY.ncts_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Name = cDY.ncts_Empfaenger_Name
    '    '    If cDY.ncts_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.StrasseHausnummer = cDY.ncts_Empfaenger_StrasseHausnummer
    '    '    If cDY.ncts_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.PLZ = cDY.ncts_Empfaenger_PLZ
    '    '    If cDY.ncts_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Ort = cDY.ncts_Empfaenger_Ort
    '    '    If cDY.ncts_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Land = cDY.ncts_Empfaenger_Land
    '    '    If cDY.ncts_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.TIN = cDY.ncts_Empfaenger_TIN
    '    'End If
    '    'If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Or cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then
    '    '    XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter = New VersandanmeldungNCTSDE.HauptverpflichteterVATyp
    '    '    If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.EORI = cDY.ncts_Hauptverpflichteter_EORI
    '    '    If cDY.ncts_Hauptverpflichteter_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Hauptverpflichteter_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.NLNR = cDY.ncts_Hauptverpflichteter_NLNR
    '    '    If cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Name = cDY.ncts_Hauptverpflichteter_Name
    '    '    If cDY.ncts_Hauptverpflichteter_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.StrasseHausnummer = cDY.ncts_Hauptverpflichteter_StrasseHausnummer
    '    '    If cDY.ncts_Hauptverpflichteter_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.PLZ = cDY.ncts_Hauptverpflichteter_PLZ
    '    '    If cDY.ncts_Hauptverpflichteter_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Ort = cDY.ncts_Hauptverpflichteter_Ort
    '    '    If cDY.ncts_Hauptverpflichteter_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Land = cDY.ncts_Hauptverpflichteter_Land
    '    '    If cDY.ncts_Hauptverpflichteter_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.TIN = cDY.ncts_Hauptverpflichteter_TIN
    '    '    If cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.BewilligungsnummerVersender = cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender
    '    '    If cDY.ncts_ZugelassenerEmpfaenger_IDCarnet IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.IDCarnet = cDY.ncts_ZugelassenerEmpfaenger_IDCarnet
    '    'End If




    '    ''SumA
    '    'XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit = New VersandanmeldungNCTSDE.SumASicherheitVATyp

    '    'If cDY.ncts_SumA_KzSumASicherheit IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KzSumASicherheit = CInt(Int(cDY.ncts_SumA_KzSumASicherheit)) ' sonst true = -1
    '    'If cDY.ncts_SumA_KennnummerSendung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KennnummerSendung = cDY.ncts_SumA_KennnummerSendung

    '    'If cDY.ncts_SumA_BesondereUmstaende IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BesondereUmstaende = cDY.ncts_SumA_BesondereUmstaende
    '    'If cDY.ncts_SumA_NummerBefoerderung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.NummerBefoerderung = cDY.ncts_SumA_NummerBefoerderung
    '    'If cDY.ncts_SumA_Ladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Ladeort = cDY.ncts_SumA_Ladeort

    '    'If cDY.ncts_SumA_Entladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Entladeort = cDY.ncts_SumA_Entladeort
    '    'If cDY.ncts_SumA_BefoerderungskostenZahlungsweise IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungskostenZahlungsweise = cDY.ncts_SumA_BefoerderungskostenZahlungsweise
    '    'If cDY.ncts_SumA_BefoerderungsrouteLand1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand1)
    '    'If cDY.ncts_SumA_BefoerderungsrouteLand2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand2)
    '    'If cDY.ncts_SumA_BefoerderungsrouteLand3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand3)
    '    'If cDY.ncts_SumA_BefoerderungsrouteLand4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand4)
    '    'If cDY.ncts_SumA_BefoerderungsrouteLand5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand5)
    '    'If cDY.ncts_SumA_BefoerderungsrouteLand6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand6)
    '    'If cDY.ncts_SumA_BefoerderungsrouteLand7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand7)
    '    'If cDY.ncts_SumA_BefoerderungsrouteLand8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand8)
    '    'If cDY.ncts_SumA_BefoerderungsrouteLand9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand9)
    '    'If cDY.ncts_SumA_Versender_EORI IsNot Nothing Or cDY.ncts_SumA_Versender_Name IsNot Nothing Then
    '    '    XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp
    '    '    If cDY.ncts_SumA_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.EORI = cDY.ncts_SumA_Versender_EORI
    '    '    If cDY.ncts_SumA_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.NLNR = cDY.ncts_SumA_Versender_NLNR
    '    '    If cDY.ncts_SumA_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Name = cDY.ncts_SumA_Versender_Name
    '    '    If cDY.ncts_SumA_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.StrasseHausnummer = cDY.ncts_SumA_Versender_StrasseHausnummer
    '    '    If cDY.ncts_SumA_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.PLZ = cDY.ncts_SumA_Versender_PLZ
    '    '    If cDY.ncts_SumA_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Ort = cDY.ncts_SumA_Versender_Ort
    '    '    If cDY.ncts_SumA_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Land = cDY.ncts_SumA_Versender_Land
    '    '    If cDY.ncts_SumA_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.TIN = cDY.ncts_SumA_Versender_TIN
    '    'End If
    '    'If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Or cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then
    '    '    XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp
    '    '    If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.EORI = cDY.ncts_SumA_Empfaenger_EORI
    '    '    If cDY.ncts_SumA_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.NLNR = cDY.ncts_SumA_Empfaenger_NLNR
    '    '    If cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Name = cDY.ncts_SumA_Empfaenger_Name
    '    '    If cDY.ncts_SumA_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.StrasseHausnummer = cDY.ncts_SumA_Empfaenger_StrasseHausnummer
    '    '    If cDY.ncts_SumA_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.PLZ = cDY.ncts_SumA_Empfaenger_PLZ
    '    '    If cDY.ncts_SumA_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Ort = cDY.ncts_SumA_Empfaenger_Ort
    '    '    If cDY.ncts_SumA_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Land = cDY.ncts_SumA_Empfaenger_Land
    '    '    If cDY.ncts_SumA_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.TIN = cDY.ncts_SumA_Empfaenger_TIN
    '    'End If
    '    'If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Or cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then
    '    '    XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer = New VersandanmeldungNCTSDE.AdresseVATyp
    '    '    If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.EORI = cDY.ncts_SumA_Befoerderer_EORI
    '    '    If cDY.ncts_SumA_Befoerderer_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Befoerderer_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.NLNR = cDY.ncts_SumA_Befoerderer_NLNR
    '    '    If cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Name = cDY.ncts_SumA_Befoerderer_Name
    '    '    If cDY.ncts_SumA_Befoerderer_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.StrasseHausnummer = cDY.ncts_SumA_Befoerderer_StrasseHausnummer
    '    '    If cDY.ncts_SumA_Befoerderer_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.PLZ = cDY.ncts_SumA_Befoerderer_PLZ
    '    '    If cDY.ncts_SumA_Befoerderer_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Ort = cDY.ncts_SumA_Befoerderer_Ort
    '    '    If cDY.ncts_SumA_Befoerderer_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Land = cDY.ncts_SumA_Befoerderer_Land
    '    '    If cDY.ncts_SumA_Befoerderer_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.TIN = cDY.ncts_SumA_Befoerderer_TIN
    '    'End If

    '    ''Warenposition:
    '    'If cDY.ncts_WARENPOS IsNot Nothing AndAlso cDY.ncts_WARENPOS.Count > 0 Then
    '    '    XML.EinzelVersandanmeldung.WarenPosition = New List(Of VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp)
    '    '    For Each p In cDY.ncts_WARENPOS
    '    '        Dim WP As New VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp
    '    '        If p.nctsWP_PositionsNummer IsNot Nothing Then WP.Positionsnummer = p.nctsWP_PositionsNummer
    '    '        If p.nctsWP_Warennummer IsNot Nothing Then WP.Warennummer = p.nctsWP_Warennummer
    '    '        If p.nctsWP_ArtAnmeldungPositionCode IsNot Nothing Then WP.ArtAnmeldungPositionCode = p.nctsWP_ArtAnmeldungPositionCode
    '    '        If p.nctsWP_Warenbezeichnung IsNot Nothing Then WP.Warenbezeichnung = p.nctsWP_Warenbezeichnung
    '    '        If p.nctsWP_Warenwert IsNot Nothing Then WP.Warenwert = p.nctsWP_Warenwert.ToString.Replace(",", ".") 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert)
    '    '        If p.nctsWP_WarenwertWaehrung IsNot Nothing Then WP.WarenwertWaehrung = p.nctsWP_WarenwertWaehrung 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert)
    '    '        If p.nctsWP_WarenwertProzent IsNot Nothing Then WP.WarenwertProzent = p.nctsWP_WarenwertProzent
    '    '        If p.nctsWP_SchaetzKz IsNot Nothing Then WP.SchaetzKz = p.nctsWP_SchaetzKz
    '    '        If p.nctsWP_VersendungslandPositionCode IsNot Nothing Then WP.VersendungslandPositionCode = p.nctsWP_VersendungslandPositionCode
    '    '        If p.nctsWP_BestimmungslandPositionCode IsNot Nothing Then WP.BestimmungslandPositionCode = p.nctsWP_BestimmungslandPositionCode
    '    '        If p.nctsWP_Rohmasse IsNot Nothing Then WP.Rohmasse = p.nctsWP_Rohmasse
    '    '        If p.nctsWP_Eigenmasse IsNot Nothing AndAlso CDbl(p.nctsWP_Eigenmasse) > 0 Then WP.Eigenmasse = p.nctsWP_Eigenmasse


    '    '        If p.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then WP.BesondereVermerke.ExportAusEU = CInt(Int(p.nctsWP_BesondereVermeke_ExportAusEU)) ' sonst true = -1
    '    '        If p.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing Then WP.BesondereVermerke.ExportAusLand = p.nctsWP_BesondereVermeke_ExportAusLand
    '    '        If p.nctsWP_BesondereVermeke_Export IsNot Nothing Then WP.BesondereVermerke.Export = CInt(Int(p.nctsWP_BesondereVermeke_Export)) ' sonst true = -1

    '    '        If p.nctsWP_BesondereVermeke_ExportBeschraenkung IsNot Nothing Then WP.BesondereVermerke.ExportBeschraenkung = CInt(Int(p.nctsWP_BesondereVermeke_ExportBeschraenkung)) ' sonst true = -1
    '    '        If p.nctsWP_BesondereVermeke_ExportAbgaben IsNot Nothing Then WP.BesondereVermerke.ExportAbgaben = CInt(Int(p.nctsWP_BesondereVermeke_ExportAbgaben)) ' sonst true = -1
    '    '        If p.nctsWP_BesondereVermeke_Vermerk IsNot Nothing Then WP.BesondereVermerke.Vermerk = p.nctsWP_BesondereVermeke_Vermerk
    '    '        If p.nctsWP_BesondereVermeke_Kz10600 IsNot Nothing Then WP.BesondereVermerke.Kz10600 = CInt(Int(p.nctsWP_BesondereVermeke_Kz10600)) ' sonst true = -1


    '    '        If p.nctsWP_Versender_EORI IsNot Nothing Or p.nctsWP_Versender_Name IsNot Nothing Then
    '    '            WP.AdressenPosition.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ
    '    '            If p.nctsWP_Versender_EORI IsNot Nothing Then WP.AdressenPosition.Versender.EORI = p.nctsWP_Versender_EORI
    '    '            If p.nctsWP_Versender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Versender_NLNR) Then WP.AdressenPosition.Versender.NLNR = p.nctsWP_Versender_NLNR
    '    '            If p.nctsWP_Versender_Name IsNot Nothing Then WP.AdressenPosition.Versender.Name = p.nctsWP_Versender_Name
    '    '            If p.nctsWP_Versender_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Versender.StrasseHausnummer = p.nctsWP_Versender_StrasseHausnummer
    '    '            If p.nctsWP_Versender_PLZ IsNot Nothing Then WP.AdressenPosition.Versender.PLZ = p.nctsWP_Versender_PLZ
    '    '            If p.nctsWP_Versender_Ort IsNot Nothing Then WP.AdressenPosition.Versender.Ort = p.nctsWP_Versender_Ort
    '    '            If p.nctsWP_Versender_Land IsNot Nothing Then WP.AdressenPosition.Versender.Land = p.nctsWP_Versender_Land
    '    '            If p.nctsWP_Versender_TIN IsNot Nothing Then WP.AdressenPosition.Versender.TIN = p.nctsWP_Versender_TIN
    '    '        End If
    '    '        If p.nctsWP_Empfaenger_EORI IsNot Nothing Or p.nctsWP_Empfaenger_Name IsNot Nothing Then
    '    '            WP.AdressenPosition.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ
    '    '            If p.nctsWP_Empfaenger_EORI IsNot Nothing Then WP.AdressenPosition.Empfaenger.EORI = p.nctsWP_Empfaenger_EORI
    '    '            If p.nctsWP_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Empfaenger_NLNR) Then WP.AdressenPosition.Empfaenger.NLNR = p.nctsWP_Empfaenger_NLNR
    '    '            If p.nctsWP_Empfaenger_Name IsNot Nothing Then WP.AdressenPosition.Empfaenger.Name = p.nctsWP_Empfaenger_Name
    '    '            If p.nctsWP_Empfaenger_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Empfaenger.StrasseHausnummer = p.nctsWP_Empfaenger_StrasseHausnummer
    '    '            If p.nctsWP_Empfaenger_PLZ IsNot Nothing Then WP.AdressenPosition.Empfaenger.PLZ = p.nctsWP_Empfaenger_PLZ
    '    '            If p.nctsWP_Empfaenger_Ort IsNot Nothing Then WP.AdressenPosition.Empfaenger.Ort = p.nctsWP_Empfaenger_Ort
    '    '            If p.nctsWP_Empfaenger_Land IsNot Nothing Then WP.AdressenPosition.Empfaenger.Land = p.nctsWP_Empfaenger_Land
    '    '            If p.nctsWP_Empfaenger_TIN IsNot Nothing Then WP.AdressenPosition.Empfaenger.TIN = p.nctsWP_Empfaenger_TIN
    '    '        End If


    '    '        If p.nctsWP_SumAKennnummerSendung IsNot Nothing Then WP.SumASicherheit.KennnummerSendung = p.nctsWP_SumAKennnummerSendung
    '    '        If p.nctsWP_SumABefoerderungskostenZahlungsweise IsNot Nothing Then WP.SumASicherheit.BefoerderungskostenZahlungsweise = p.nctsWP_SumABefoerderungskostenZahlungsweise
    '    '        If p.nctsWP_SumAUNGefahrgutnummer IsNot Nothing Then WP.SumASicherheit.UNGefahrgutnummer = p.nctsWP_SumAUNGefahrgutnummer

    '    '        If p.nctsWP_SumAVersender_EORI IsNot Nothing Or p.nctsWP_SumAVersender_Name IsNot Nothing Then
    '    '            WP.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp
    '    '            If p.nctsWP_SumAVersender_EORI IsNot Nothing Then WP.SumASicherheit.Versender.EORI = p.nctsWP_SumAVersender_EORI
    '    '            If p.nctsWP_SumAVersender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAVersender_NLNR) Then WP.SumASicherheit.Versender.NLNR = p.nctsWP_SumAVersender_NLNR
    '    '            If p.nctsWP_SumAVersender_Name IsNot Nothing Then WP.SumASicherheit.Versender.Name = p.nctsWP_SumAVersender_Name
    '    '            If p.nctsWP_SumAVersender_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Versender.StrasseHausnummer = p.nctsWP_SumAVersender_StrasseHausnummer
    '    '            If p.nctsWP_SumAVersender_PLZ IsNot Nothing Then WP.SumASicherheit.Versender.PLZ = p.nctsWP_SumAVersender_PLZ
    '    '            If p.nctsWP_SumAVersender_Ort IsNot Nothing Then WP.SumASicherheit.Versender.Ort = p.nctsWP_SumAVersender_Ort
    '    '            If p.nctsWP_SumAVersender_Land IsNot Nothing Then WP.SumASicherheit.Versender.Land = p.nctsWP_SumAVersender_Land
    '    '            If p.nctsWP_SumAVersender_TIN IsNot Nothing Then WP.SumASicherheit.Versender.TIN = p.nctsWP_SumAVersender_TIN
    '    '        End If
    '    '        If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Or p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then
    '    '            WP.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp
    '    '            If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Then WP.SumASicherheit.Empfaenger.EORI = p.nctsWP_SumAEmpfaenger_EORI
    '    '            If p.nctsWP_SumAEmpfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAEmpfaenger_NLNR) Then WP.SumASicherheit.Empfaenger.NLNR = p.nctsWP_SumAEmpfaenger_NLNR
    '    '            If p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then WP.SumASicherheit.Empfaenger.Name = p.nctsWP_SumAEmpfaenger_Name
    '    '            If p.nctsWP_SumAEmpfaenger_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Empfaenger.StrasseHausnummer = p.nctsWP_SumAEmpfaenger_StrasseHausnummer
    '    '            If p.nctsWP_SumAEmpfaenger_PLZ IsNot Nothing Then WP.SumASicherheit.Empfaenger.PLZ = p.nctsWP_SumAEmpfaenger_PLZ
    '    '            If p.nctsWP_SumAEmpfaenger_Ort IsNot Nothing Then WP.SumASicherheit.Empfaenger.Ort = p.nctsWP_SumAEmpfaenger_Ort
    '    '            If p.nctsWP_SumAEmpfaenger_Land IsNot Nothing Then WP.SumASicherheit.Empfaenger.Land = p.nctsWP_SumAEmpfaenger_Land
    '    '            If p.nctsWP_SumAEmpfaenger_TIN IsNot Nothing Then WP.SumASicherheit.Empfaenger.TIN = p.nctsWP_SumAEmpfaenger_TIN
    '    '        End If


    '    '        If p.nctsWP_PACKSTUECKE IsNot Nothing AndAlso p.nctsWP_PACKSTUECKE.Count > 0 Then
    '    '            WP.Packstueck = New List(Of VersandanmeldungNCTSDE.PackstueckVATyp)
    '    '            For Each w In p.nctsWP_PACKSTUECKE
    '    '                Dim PK As New VersandanmeldungNCTSDE.PackstueckVATyp
    '    '                If w.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then PK.Anzahl = w.nctsWpPk_PackstueckeAnzahl.ToString.Replace(".", "")
    '    '                If w.nctsWpPk_Verpackungsart IsNot Nothing Then PK.Verpackungsart = w.nctsWpPk_Verpackungsart
    '    '                If w.nctsWpPk_ZeichenNummern IsNot Nothing Then PK.ZeichenNummern = w.nctsWpPk_ZeichenNummern
    '    '                WP.Packstueck.Add(PK)
    '    '            Next
    '    '        End If


    '    '        If p.nctsWP_VorpapierTyp IsNot Nothing Then
    '    '            WP.Vorpapier = New VersandanmeldungNCTSDE.VorpapierVATyp
    '    '            WP.Vorpapier.Typ = If(p.nctsWP_VorpapierTyp, "")

    '    '            WP.Vorpapier.VorpapierAngaben = New List(Of VersandanmeldungNCTSDE.VorpapierAngabenVATyp)
    '    '            If p.nctsWP_VorpapierReferenz1 IsNot Nothing And p.nctsWP_VorpapierReferenz1 <> "" Then
    '    '                Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp
    '    '                vp.Referenz = If(p.nctsWP_VorpapierReferenz1, "")
    '    '                If p.nctsWP_VorpapierZusatz1 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz1, "")
    '    '                WP.Vorpapier.VorpapierAngaben.Add(vp)
    '    '            End If
    '    '            If p.nctsWP_VorpapierReferenz2 IsNot Nothing And p.nctsWP_VorpapierReferenz2 <> "" Then
    '    '                Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp
    '    '                vp.Referenz = If(p.nctsWP_VorpapierReferenz2, "")
    '    '                If p.nctsWP_VorpapierZusatz2 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz2, "")
    '    '                WP.Vorpapier.VorpapierAngaben.Add(vp)
    '    '            End If
    '    '            If p.nctsWP_VorpapierReferenz3 IsNot Nothing And p.nctsWP_VorpapierReferenz3 <> "" Then
    '    '                Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp
    '    '                vp.Referenz = If(p.nctsWP_VorpapierReferenz3, "")
    '    '                If p.nctsWP_VorpapierZusatz3 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz3, "")
    '    '                WP.Vorpapier.VorpapierAngaben.Add(vp)
    '    '            End If
    '    '            If p.nctsWP_VorpapierReferenz4 IsNot Nothing And p.nctsWP_VorpapierReferenz4 <> "" Then
    '    '                Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp
    '    '                vp.Referenz = If(p.nctsWP_VorpapierReferenz4, "")
    '    '                If p.nctsWP_VorpapierZusatz4 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz4, "")
    '    '                WP.Vorpapier.VorpapierAngaben.Add(vp)
    '    '            End If
    '    '            If p.nctsWP_VorpapierReferenz5 IsNot Nothing And p.nctsWP_VorpapierReferenz5 <> "" Then
    '    '                Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp
    '    '                vp.Referenz = If(p.nctsWP_VorpapierReferenz5, "")
    '    '                If p.nctsWP_VorpapierZusatz5 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz5, "")
    '    '                WP.Vorpapier.VorpapierAngaben.Add(vp)
    '    '            End If
    '    '            If p.nctsWP_VorpapierReferenz6 IsNot Nothing And p.nctsWP_VorpapierReferenz6 <> "" Then
    '    '                Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp
    '    '                vp.Referenz = If(p.nctsWP_VorpapierReferenz6, "")
    '    '                If p.nctsWP_VorpapierZusatz6 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz6, "")
    '    '                WP.Vorpapier.VorpapierAngaben.Add(vp)
    '    '            End If
    '    '            If p.nctsWP_VorpapierReferenz7 IsNot Nothing And p.nctsWP_VorpapierReferenz7 <> "" Then
    '    '                Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp
    '    '                vp.Referenz = If(p.nctsWP_VorpapierReferenz7, "")
    '    '                If p.nctsWP_VorpapierZusatz7 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz7, "")
    '    '                WP.Vorpapier.VorpapierAngaben.Add(vp)
    '    '            End If
    '    '            If p.nctsWP_VorpapierReferenz8 IsNot Nothing And p.nctsWP_VorpapierReferenz8 <> "" Then
    '    '                Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp
    '    '                vp.Referenz = If(p.nctsWP_VorpapierReferenz8, "")
    '    '                If p.nctsWP_VorpapierZusatz8 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz8, "")
    '    '                WP.Vorpapier.VorpapierAngaben.Add(vp)
    '    '            End If
    '    '            If p.nctsWP_VorpapierReferenz9 IsNot Nothing And p.nctsWP_VorpapierReferenz9 <> "" Then
    '    '                Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp
    '    '                vp.Referenz = If(p.nctsWP_VorpapierReferenz9, "")
    '    '                If p.nctsWP_VorpapierZusatz9 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz9, "")
    '    '                WP.Vorpapier.VorpapierAngaben.Add(vp)
    '    '            End If
    '    '        End If

    '    '        If p.nctsWP_UNTERLAGEN IsNot Nothing AndAlso p.nctsWP_UNTERLAGEN.Count > 0 Then
    '    '            WP.VorgelegteUnterlagen = New List(Of VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp)
    '    '            For Each w In p.nctsWP_UNTERLAGEN
    '    '                Dim UL As New VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp
    '    '                If w.nctsWpUl_Typ IsNot Nothing Then UL.Typ = w.nctsWpUl_Typ
    '    '                If w.nctsWpUl_Referenz IsNot Nothing Then UL.Referenz = w.nctsWpUl_Referenz
    '    '                If w.nctsWpUl_Zusatz IsNot Nothing Then UL.Zusatz = w.nctsWpUl_Zusatz
    '    '                WP.VorgelegteUnterlagen.Add(UL)
    '    '            Next
    '    '        End If


    '    '        XML.EinzelVersandanmeldung.WarenPosition.Add(WP)
    '    '    Next
    '    'End If

    '    'Dim saveDir = Application.StartupPath & "\Dakosy_SEND\"
    '    'If Not IO.Directory.Exists(saveDir) Then
    '    '    IO.Directory.CreateDirectory(saveDir)
    '    'End If

    '    'saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml"

    '    ''MsgBox(saveFile)
    '    'XML.SaveToFile(saveFile)

    '    'replaceNullDateXML(saveFile)

    '    Return True
    'End Function




    'Shared Function generateVersandanmeldungAES(cDY As cDakosyAES, ByRef saveFile As String, DY_ACTION As String) As Boolean
    '    Dim Interface_VERSION = "003"
    '    Dim ObjectAktion = DY_ACTION


    '    Dim XML As New DAKOSY_Worker.VollstaendigeAusfuhrAnmeldung.VollstaendigeAusfuhrAnmeldungEVTyp


    '    'Transaktion:
    '    XML.Transaktion = New VollstaendigeAusfuhrAnmeldung.TransaktionExportTyp
    '    XML.Transaktion.IOPartner = getIOPartner(cDY.aes_firma) ' If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
    '    XML.Transaktion.IODatumZeit = Now
    '    XML.Transaktion.IOReferenz = cDY.aes_Trans_Referenz
    '    If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.aes_firma) '
    '    XML.Transaktion.Version = Interface_VERSION

    '    Dim EA = New VollstaendigeAusfuhrAnmeldung.EinzelVollstaendigeAusfuhrAnmeldungTyp

    '    EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"

    '    'ObjektIdentifizierung:
    '    EA.ObjektIdentifizierung = New VollstaendigeAusfuhrAnmeldung.ObjektIdentifizierungEVTyp
    '    EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName
    '    If cDY.aes_ObjectAlias IsNot Nothing Then EA.ObjektIdentifizierung.ObjektAliasname = cDY.aes_ObjectAlias
    '    Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
    '    EA.ObjektIdentifizierung.ObjektAktion = ObjektAktion
    '    EA.ObjektIdentifizierung.Bearbeiter = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME.Length > 20, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME)
    '    'EA.ObjektIdentifizierung.CompliancePruefung= 
    '    EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName
    '    If cDY.aes_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.aes_BezugsnummerVorblendung

    '    'KopfDaten
    '    EA.KopfDaten = New VollstaendigeAusfuhrAnmeldung.KopfDatenVollstaendigeAusfuhranmeldungTyp
    '    If cDY.aes_AnmeldeArtAusfuhrCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtAusfuhrCode = cDY.aes_AnmeldeArtAusfuhrCode
    '    If cDY.aes_AnmeldeArtVerfahrensCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtVerfahrenCode = cDY.aes_AnmeldeArtVerfahrensCode
    '    If cDY.aes_AnmeldeArtUeberfuehrungCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtUeberfuehrungCode = cDY.aes_AnmeldeArtUeberfuehrungCode
    '    If cDY.aes_Ausfuhrland IsNot Nothing Then EA.KopfDaten.AusfuhrlandCode = cDY.aes_Ausfuhrland
    '    If cDY.aes_BestimmungslandCode IsNot Nothing Then EA.KopfDaten.BestimmungslandCode = cDY.aes_BestimmungslandCode
    '    If cDY.aes_AnmeldedatumZeit IsNot Nothing Then EA.KopfDaten.AnmeldeDatumZeit = cDY.aes_AnmeldedatumZeit
    '    If cDY.aes_DatumAusgang IsNot Nothing Then EA.KopfDaten.DatumAusgang = cDY.aes_DatumAusgang

    '    If cDY.aes_MassgeblichesDatum IsNot Nothing Then EA.KopfDaten.MassgeblichesDatum = cDY.aes_MassgeblichesDatum

    '    If cDY.aes_BesondereUmstaende IsNot Nothing Then EA.KopfDaten.BesondereUmstaende = cDY.aes_BesondereUmstaende
    '    If cDY.aes_Zahlungsweisebefoerderungskosten IsNot Nothing Then EA.KopfDaten.ZahlungsweiseBefoerderungskosten = cDY.aes_Zahlungsweisebefoerderungskosten
    '    If cDY.aes_ContainerIndikator IsNot Nothing Then EA.KopfDaten.ContainerIndikator = cDY.aes_ContainerIndikator
    '    If cDY.aes_BeteiligteKonstellation IsNot Nothing Then EA.KopfDaten.BeteiligtenKonstellation = cDY.aes_BeteiligteKonstellation
    '    'If cDY.aes_AdressdatenKonstellation IsNot Nothing Then EA.KopfDaten.AdressatenKonstellation = cDY.aes_AdressdatenKonstellation --> OHNE FUNK
    '    If cDY.aes_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.aes_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.aes_GesamtRohmasse).ToString("N1"))
    '    If cDY.aes_RegistriernummerFremdsystem IsNot Nothing Then EA.KopfDaten.RegistrierNummerFremdSystem = cDY.aes_RegistriernummerFremdsystem
    '    If cDY.aes_Vermerk IsNot Nothing Then EA.KopfDaten.Vermerk = cDY.aes_Vermerk
    '    If cDY.aes_KennnummerSendung IsNot Nothing Then EA.KopfDaten.KennnummerSendung = cDY.aes_KennnummerSendung
    '    If cDY.aes_AnzahlPositionen IsNot Nothing Then EA.KopfDaten.AnzahlPositionen = cDY.aes_AnzahlPositionen
    '    If cDY.aes_BewiligungsnummerAusfuhr IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAusfuhr = cDY.aes_BewiligungsnummerAusfuhr
    '    If cDY.aes_BewiligungsnummerAnschreibeverfahren IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAnschreibeverfahren = cDY.aes_BewiligungsnummerAnschreibeverfahren
    '    If cDY.aes_BewiligungsnummerPassiveVeredelung IsNot Nothing Then EA.KopfDaten.BewilligungsnummerPassiveVeredelung = cDY.aes_BewiligungsnummerPassiveVeredelung
    '    If cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer IsNot Nothing Then EA.KopfDaten.BewilligungsnummerVertrauenswuerdigerAusfuehrer = cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer
    '    If cDY.aes_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.aes_VerkehrszweigInland
    '    If cDY.aes_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.aes_VerkehrszweigGrenze

    '    'BefoerderungsmittelAbgang
    '    If cDY.aes_BefoerderungsmittelAbgangArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.ArtCode = cDY.aes_BefoerderungsmittelAbgangArtCode
    '    If cDY.aes_BefoerderungsmittelAbgangKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.Kennzeichen = cDY.aes_BefoerderungsmittelAbgangKennzeichen
    '    If cDY.aes_BefoerderungsmittelAbgangStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.StaatCode = cDY.aes_BefoerderungsmittelAbgangStaatCode

    '    'BefoerderungsmittelGrenze
    '    If cDY.aes_BefoerderungsmittelGrenzeArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.ArtCode = cDY.aes_BefoerderungsmittelGrenzeArtCode
    '    If cDY.aes_BefoerderungsmittelGrenzeKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.Kennzeichen = cDY.aes_BefoerderungsmittelGrenzeKennzeichen
    '    If cDY.aes_BefoerderungsmittelGrenzeStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.StaatCode = cDY.aes_BefoerderungsmittelGrenzeStaatCode

    '    'Ladeort
    '    'If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort = cDY.aes_LadeortOrt ---> ÜBERBEGRIFF
    '    If cDY.aes_LadeortOrtId IsNot Nothing Then EA.KopfDaten.Ladeort.OrtID = cDY.aes_LadeortOrtId
    '    If cDY.aes_LadeortStrasse IsNot Nothing Then EA.KopfDaten.Ladeort.Strasse = cDY.aes_LadeortStrasse
    '    If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort.Ort = cDY.aes_LadeortOrt
    '    If cDY.aes_LadeortPLZ IsNot Nothing Then EA.KopfDaten.Ladeort.PLZ = cDY.aes_LadeortPLZ
    '    If cDY.aes_LadeortZusatz IsNot Nothing Then EA.KopfDaten.Ladeort.Zusatz = cDY.aes_LadeortZusatz

    '    If cDY.aes_AusfuhrZollstelleID IsNot Nothing Then EA.KopfDaten.AusfuhrZollstelleID = cDY.aes_AusfuhrZollstelleID
    '    If cDY.aes_AusgangszollstelleID IsNot Nothing Then EA.KopfDaten.AusgangZollstelleID = cDY.aes_AusgangszollstelleID
    '    If cDY.aes_TatsaechlicheAusgangZollstelleID IsNot Nothing Then EA.KopfDaten.TatsaechlicheAusgangZollstelleID = cDY.aes_TatsaechlicheAusgangZollstelleID
    '    If cDY.aes_GeschaeftartCode IsNot Nothing Then EA.KopfDaten.GeschaeftArtCode = cDY.aes_GeschaeftartCode
    '    If cDY.aes_Rechnungspreis IsNot Nothing Then EA.KopfDaten.Rechnungspreis = cDY.aes_Rechnungspreis.replace(",", ".")
    '    If cDY.aes_Rechnungwaehrung IsNot Nothing Then EA.KopfDaten.Rechnungswaehrung = cDY.aes_Rechnungwaehrung
    '    If cDY.aes_BesondererTatbestand IsNot Nothing Then EA.KopfDaten.BesondererTatbestand = cDY.aes_BesondererTatbestand

    '    'Verschluss
    '    If cDY.aes_VerschlussArtCode IsNot Nothing Then EA.KopfDaten.Verschluss.ArtCode = cDY.aes_VerschlussArtCode
    '    If cDY.aes_VerschlussAnzahl IsNot Nothing Then EA.KopfDaten.Verschluss.Anzahl = cDY.aes_VerschlussAnzahl
    '    EA.KopfDaten.Verschluss.Zeichen = New List(Of String)
    '    If cDY.aes_VerschlussZeichen1 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen1)
    '    If cDY.aes_VerschlussZeichen2 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen2)
    '    If cDY.aes_VerschlussZeichen3 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen3)
    '    If cDY.aes_VerschlussZeichen4 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen4)
    '    If cDY.aes_VerschlussZeichen5 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen5)
    '    If cDY.aes_VerschlussZeichen6 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen6)
    '    If cDY.aes_VerschlussZeichen7 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen7)
    '    If cDY.aes_VerschlussZeichen8 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen8)
    '    If cDY.aes_VerschlussZeichen9 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen9)
    '    If cDY.aes_VerschlussZeichen10 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen10)
    '    If cDY.aes_VerschlussZeichen11 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen11)
    '    If cDY.aes_VerschlussZeichen12 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen12)

    '    If cDY.aes_GestellungsfristAnfangDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.AnfangDatumZeit = cDY.aes_GestellungsfristAnfangDatumZeit
    '    If cDY.aes_GestellungsfristEndeDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.EndeDatumZeit = cDY.aes_GestellungsfristEndeDatumZeit

    '    'Ausfuehrer
    '    If (cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Or cDY.aes_AusfuehrerTeilnehmerName <> "") Then
    '        If cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Ausfuehrer.TeilnehmerEORI = cDY.aes_AusfuehrerTeilnehmerEORI
    '        If cDY.aes_AusfuehrerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AusfuehrerTeilnehmerNLNR) Then EA.KopfDaten.Ausfuehrer.TeilnehmerNLNR = cDY.aes_AusfuehrerTeilnehmerNLNR
    '        If cDY.aes_AusfuehrerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Name = cDY.aes_AusfuehrerTeilnehmerName
    '        If cDY.aes_AusfuehrerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Strasse = cDY.aes_AusfuehrerTeilnehmerStrasse
    '        If cDY.aes_AusfuehrerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ort = cDY.aes_AusfuehrerTeilnehmerOrt
    '        If cDY.aes_AusfuehrerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Ausfuehrer.PLZ = cDY.aes_AusfuehrerTeilnehmerPLZ
    '        If cDY.aes_AusfuehrerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Ausfuehrer.LandCode = cDY.aes_AusfuehrerTeilnehmerLandCode
    '        If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Sachbearbeiter = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter
    '        If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefonnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer
    '        If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefaxnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax
    '        If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.EmailAdresse = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail
    '        If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Stellung = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung
    '    End If

    '    'Empfaenger
    '    If (cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Or cDY.aes_EmpfaengerTeilnehmerName <> "") Then
    '        If cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Empfaenger.TeilnehmerEORI = cDY.aes_EmpfaengerTeilnehmerEORI
    '        If cDY.aes_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_EmpfaengerTeilnehmerNLNR) Then EA.KopfDaten.Empfaenger.TeilnehmerNLNR = cDY.aes_EmpfaengerTeilnehmerNLNR
    '        If cDY.aes_EmpfaengerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Empfaenger.Name = cDY.aes_EmpfaengerTeilnehmerName
    '        If cDY.aes_EmpfaengerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Empfaenger.Strasse = cDY.aes_EmpfaengerTeilnehmerStrasse
    '        If cDY.aes_EmpfaengerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Empfaenger.Ort = cDY.aes_EmpfaengerTeilnehmerOrt
    '        If cDY.aes_EmpfaengerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Empfaenger.PLZ = cDY.aes_EmpfaengerTeilnehmerPLZ
    '        If cDY.aes_EmpfaengerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Empfaenger.LandCode = cDY.aes_EmpfaengerTeilnehmerLandCode
    '    End If

    '    'Anmelder
    '    If (cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_AnmelderTeilnehmerName <> "") Then
    '        If cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Anmelder.TeilnehmerEORI = cDY.aes_AnmelderTeilnehmerEORI
    '        If cDY.aes_AnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AnmelderTeilnehmerNLNR) Then EA.KopfDaten.Anmelder.TeilnehmerNLNR = cDY.aes_AnmelderTeilnehmerNLNR
    '        If cDY.aes_AnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.Anmelder.Name = cDY.aes_AnmelderTeilnehmerName
    '        If cDY.aes_AnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Anmelder.Strasse = cDY.aes_AnmelderTeilnehmerStrasse
    '        If cDY.aes_AnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Anmelder.Ort = cDY.aes_AnmelderTeilnehmerOrt
    '        If cDY.aes_AnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Anmelder.PLZ = cDY.aes_AnmelderTeilnehmerPLZ
    '        If cDY.aes_AnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Anmelder.LandCode = cDY.aes_AnmelderTeilnehmerLandCode
    '        If cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter
    '        If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefonnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer
    '        If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefaxnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax
    '        If cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.EmailAdresse = cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail
    '        If cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Stellung = cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung
    '    End If

    '    'VertreterAnmelder
    '    If (cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_VertreterAnmelderTeilnehmerName <> "") Then
    '        If cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.TeilnehmerEORI = cDY.aes_VertreterAnmelderTeilnehmerEORI
    '        If cDY.aes_VertreterAnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VertreterAnmelderTeilnehmerNLNR) Then EA.KopfDaten.VertreterAnmelder.TeilnehmerNLNR = cDY.aes_VertreterAnmelderTeilnehmerNLNR
    '        If cDY.aes_VertreterAnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Name = cDY.aes_VertreterAnmelderTeilnehmerName
    '        If cDY.aes_VertreterAnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Strasse = cDY.aes_VertreterAnmelderTeilnehmerStrasse
    '        If cDY.aes_VertreterAnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ort = cDY.aes_VertreterAnmelderTeilnehmerOrt
    '        If cDY.aes_VertreterAnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.PLZ = cDY.aes_VertreterAnmelderTeilnehmerPLZ
    '        If cDY.aes_VertreterAnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.LandCode = cDY.aes_VertreterAnmelderTeilnehmerLandCode
    '        If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter
    '        If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefonnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer
    '        If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefaxnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax
    '        If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.EmailAdresse = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail
    '        If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Stellung = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung
    '    End If

    '    'Subunternehmer
    '    If (cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Or cDY.aes_SubunternehmerTeilnehmerName <> "") Then
    '        If cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.SubUnternehmer.TeilnehmerEORI = cDY.aes_SubunternehmerTeilnehmerEORI
    '        If cDY.aes_SubunternehmerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_SubunternehmerTeilnehmerNLNR) Then EA.KopfDaten.SubUnternehmer.TeilnehmerNLNR = cDY.aes_SubunternehmerTeilnehmerNLNR
    '        If cDY.aes_SubunternehmerTeilnehmerName IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Name = cDY.aes_SubunternehmerTeilnehmerName
    '        If cDY.aes_SubunternehmerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Strasse = cDY.aes_SubunternehmerTeilnehmerStrasse
    '        If cDY.aes_SubunternehmerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ort = cDY.aes_SubunternehmerTeilnehmerOrt
    '        If cDY.aes_SubunternehmerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.SubUnternehmer.PLZ = cDY.aes_SubunternehmerTeilnehmerPLZ
    '        If cDY.aes_SubunternehmerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.SubUnternehmer.LandCode = cDY.aes_SubunternehmerTeilnehmerLandCode
    '        If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Sachbearbeiter = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter
    '        If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefonnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer
    '        If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefaxnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax
    '        If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.EmailAdresse = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail
    '        If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Stellung = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung
    '    End If

    '    'VerfahrensinhaberPV
    '    If (cDY.aes_VerfahrensinhaberPVTeilnehmerEORI) Then
    '        If cDY.aes_VerfahrensinhaberPVTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerEORI = cDY.aes_VerfahrensinhaberPVTeilnehmerEORI
    '        If cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR) Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerNLNR = cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR
    '        If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Sachbearbeiter = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter
    '        If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefonnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer
    '        If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefaxnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax
    '        If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.EmailAdresse = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail
    '        If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Stellung = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung
    '    End If

    '    'BefoerderungsrouteLand 
    '    EA.KopfDaten.BefoerderungsrouteLand = New List(Of String)
    '    If cDY.aes_BefoerderungsrouteLand1 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand1)
    '    If cDY.aes_BefoerderungsrouteLand2 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand2)
    '    If cDY.aes_BefoerderungsrouteLand3 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand3)
    '    If cDY.aes_BefoerderungsrouteLand4 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand4)
    '    If cDY.aes_BefoerderungsrouteLand5 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand5)
    '    If cDY.aes_BefoerderungsrouteLand6 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand6)
    '    If cDY.aes_BefoerderungsrouteLand7 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand7)
    '    If cDY.aes_BefoerderungsrouteLand8 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand8)
    '    If cDY.aes_BefoerderungsrouteLand9 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand9)
    '    If cDY.aes_BefoerderungsrouteLand10 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand10)
    '    If cDY.aes_BefoerderungsrouteLand11 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand11)
    '    If cDY.aes_BefoerderungsrouteLand12 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand12)

    '    'Warenpositionen
    '    EA.WarenPosition = New List(Of VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp)
    '    If cDY.aes_WARENPOS IsNot Nothing AndAlso cDY.aes_WARENPOS.Count > 0 Then
    '        For Each WP In cDY.aes_WARENPOS
    '            Dim WP_DY As New VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp
    '            If WP.aesWP_PositionsNummer IsNot Nothing Then WP_DY.Positionsnummer = WP.aesWP_PositionsNummer
    '            If WP.aesWP_WarennummerKN8 IsNot Nothing Then WP_DY.WarenNummerKN8 = WP.aesWP_WarennummerKN8
    '            If WP.aesWP_WarennummerTARIC IsNot Nothing Then WP_DY.WarenNummerTARIC = WP.aesWP_WarennummerTARIC
    '            If WP.aesWP_WarennummerZusatz1 IsNot Nothing Then WP_DY.WarenNummerZusatz1 = WP.aesWP_WarennummerZusatz1
    '            If WP.aesWP_WarennummerZusatz2 IsNot Nothing Then WP_DY.WarenNummerZusatz2 = WP.aesWP_WarennummerZusatz2
    '            If WP.aesWP_WarennummerNational IsNot Nothing Then WP_DY.WarenNummerNational = WP.aesWP_WarennummerNational
    '            If WP.aesWP_RegisternummerFremdsystem IsNot Nothing Then WP_DY.RegistrierNummerFremdSystem = WP.aesWP_RegisternummerFremdsystem
    '            If WP.aesWP_Vermerk IsNot Nothing Then WP_DY.Vermerk = WP.aesWP_Vermerk
    '            If WP.aesWP_KennungSendung IsNot Nothing Then WP_DY.KennnummerSendung = WP.aesWP_KennungSendung
    '            If WP.aesWP_UrsprungsbundeslandCode IsNot Nothing Then WP_DY.UrsprungsbundeslandCode = WP.aesWP_UrsprungsbundeslandCode
    '            If WP.aesWP_Eigenmasse IsNot Nothing Then WP_DY.Eigenmasse = WP.aesWP_Eigenmasse
    '            If WP.aesWP_Rohmasse IsNot Nothing Then WP_DY.Rohmasse = WP.aesWP_Rohmasse

    '            If WP.aesWP_Gefahrgutnummer IsNot Nothing Then WP_DY.Gefahrgutnummer = WP.aesWP_Gefahrgutnummer
    '            If WP.aesWP_ZahlungsweiseBefoerderungskosten IsNot Nothing Then WP_DY.ZahlungsweiseBefoerderungskosten = WP.aesWP_ZahlungsweiseBefoerderungskosten
    '            If WP.aesWP_VerfahrenAngemeldetCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenAngemeldetCode = WP.aesWP_VerfahrenAngemeldetCode
    '            If WP.aesWP_VerfahrenVorangegangenCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenVorangegangenCode = WP.aesWP_VerfahrenVorangegangenCode
    '            If WP.aesWP_VerfahrenNationalCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenNationalCode = WP.aesWP_VerfahrenNationalCode
    '            If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode
    '            If WP.aesWP_Menge IsNot Nothing Then WP_DY.Menge = WP.aesWP_Menge
    '            If WP.aesWP_Wert IsNot Nothing Then WP_DY.Wert = WP.aesWP_Wert

    '            WP_DY.Vorpapier = New List(Of VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp)
    '            If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then
    '                Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp
    '                If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode1
    '                If WP.aesWP_ReferenzID1 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID1
    '                If WP.aesWP_Zusatz1 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz1
    '                WP_DY.Vorpapier.Add(VP)
    '            End If
    '            If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then
    '                Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp
    '                If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode2
    '                If WP.aesWP_ReferenzID2 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID2
    '                If WP.aesWP_Zusatz2 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz2
    '                WP_DY.Vorpapier.Add(VP)
    '            End If
    '            If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then
    '                Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp
    '                If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode3
    '                If WP.aesWP_ReferenzID3 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID3
    '                If WP.aesWP_Zusatz3 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz3
    '                WP_DY.Vorpapier.Add(VP)
    '            End If
    '            If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then
    '                Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp
    '                If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode4
    '                If WP.aesWP_ReferenzID4 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID4
    '                If WP.aesWP_Zusatz4 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz4
    '                WP_DY.Vorpapier.Add(VP)
    '            End If
    '            If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then
    '                Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp
    '                If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode5
    '                If WP.aesWP_ReferenzID5 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID5
    '                If WP.aesWP_Zusatz5 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz5
    '                WP_DY.Vorpapier.Add(VP)
    '            End If
    '            If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then
    '                Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp
    '                If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode6
    '                If WP.aesWP_ReferenzID6 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID6
    '                If WP.aesWP_Zusatz6 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz6
    '                WP_DY.Vorpapier.Add(VP)
    '            End If
    '            If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then
    '                Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp
    '                If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode7
    '                If WP.aesWP_ReferenzID7 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID7
    '                If WP.aesWP_Zusatz7 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz7
    '                WP_DY.Vorpapier.Add(VP)
    '            End If
    '            If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then
    '                Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp
    '                If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode8
    '                If WP.aesWP_ReferenzID8 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID8
    '                If WP.aesWP_Zusatz8 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz8
    '                WP_DY.Vorpapier.Add(VP)
    '            End If
    '            If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then
    '                Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp
    '                If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode9
    '                If WP.aesWP_ReferenzID9 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID9
    '                If WP.aesWP_Zusatz9 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz9
    '                WP_DY.Vorpapier.Add(VP)
    '            End If

    '            'Packstueck
    '            WP_DY.Packstueck = New List(Of VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp)
    '            If WP.aesWP_PACKSTUECKE IsNot Nothing AndAlso WP.aesWP_PACKSTUECKE.Count > 0 Then
    '                For Each PK In WP.aesWP_PACKSTUECKE
    '                    Dim PK_DY As New VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp
    '                    If PK.aesWpPk_PackstueckeAnzahl IsNot Nothing Then PK_DY.Anzahl = PK.aesWpPk_PackstueckeAnzahl.ToString.Replace(".", "")
    '                    If PK.aesWpPk_Verpackungsart IsNot Nothing Then PK_DY.VerpackungsartCode = PK.aesWpPk_Verpackungsart
    '                    If PK.aesWpPk_Kennzeichnung IsNot Nothing Then PK_DY.Kennzeichnung = PK.aesWpPk_Kennzeichnung
    '                    WP_DY.Packstueck.Add(PK_DY)
    '                Next
    '            End If

    '            'Container 
    '            WP_DY.ContainerNummer = New List(Of String)
    '            If WP.aesWP_Containernummer1 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer1)
    '            If WP.aesWP_Containernummer2 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer2)
    '            If WP.aesWP_Containernummer3 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer3)
    '            If WP.aesWP_Containernummer4 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer4)

    '            'Unterlage
    '            WP_DY.Unterlage = New List(Of VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp)
    '            If WP.aesWP_UNTERLAGEN IsNot Nothing AndAlso WP.aesWP_UNTERLAGEN.Count > 0 Then
    '                For Each UL In WP.aesWP_UNTERLAGEN
    '                    Dim UL_DY As New VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp
    '                    If UL.aesWpUl_Typ IsNot Nothing Then UL_DY.TypCode = UL.aesWpUl_Typ
    '                    If UL.aesWpUl_QualifierCode IsNot Nothing Then UL_DY.QualifierCode = UL.aesWpUl_QualifierCode
    '                    If UL.aesWpUl_ReferenzID IsNot Nothing Then UL_DY.ReferenzID = UL.aesWpUl_ReferenzID
    '                    If UL.aesWpUl_Zusatz IsNot Nothing Then UL_DY.Zusatz = UL.aesWpUl_Zusatz
    '                    If UL.aesWpUl_Detail IsNot Nothing Then UL_DY.Detail = UL.aesWpUl_Detail
    '                    If UL.aesWpUl_DatumAusstellung IsNot Nothing Then UL_DY.DatumAusstellung = UL.aesWpUl_DatumAusstellung
    '                    If UL.aesWpUl_DatumEndeGueltigkeit IsNot Nothing Then UL_DY.DatumEndeGueltigkeit = UL.aesWpUl_DatumEndeGueltigkeit
    '                    If UL.aesWpUl_Wert IsNot Nothing Then UL_DY.Wert = UL.aesWpUl_Wert
    '                    If UL.aesWpUl_Abschreibungsmenge IsNot Nothing Then UL_DY.Abschreibungsmenge = UL.aesWpUl_Abschreibungsmenge
    '                    If UL.aesWpUl_Masseinheit IsNot Nothing Then UL_DY.Masseinheit = UL.aesWpUl_Masseinheit
    '                    WP_DY.Unterlage.Add(UL_DY)
    '                Next
    '            End If

    '            If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode

    '            'Empfaenger
    '            If (WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Or WP.aesWP_EmpfaengerTeilnehmerName <> "") Then
    '                If WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Then WP_DY.Empfaenger.TeilnehmerEORI = WP.aesWP_EmpfaengerTeilnehmerEORI
    '                If WP.aesWP_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(WP.aesWP_EmpfaengerTeilnehmerNLNR) Then WP_DY.Empfaenger.TeilnehmerNLNR = WP.aesWP_EmpfaengerTeilnehmerNLNR
    '                If WP.aesWP_EmpfaengerTeilnehmerName IsNot Nothing Then WP_DY.Empfaenger.Name = WP.aesWP_EmpfaengerTeilnehmerName
    '                If WP.aesWP_EmpfaengerTeilnehmerStrasse IsNot Nothing Then WP_DY.Empfaenger.Strasse = WP.aesWP_EmpfaengerTeilnehmerStrasse
    '                If WP.aesWP_EmpfaengerTeilnehmerOrt IsNot Nothing Then WP_DY.Empfaenger.Ort = WP.aesWP_EmpfaengerTeilnehmerOrt
    '                If WP.aesWP_EmpfaengerTeilnehmerPLZ IsNot Nothing Then WP_DY.Empfaenger.PLZ = WP.aesWP_EmpfaengerTeilnehmerPLZ
    '                If WP.aesWP_EmpfaengerTeilnehmerLandCode IsNot Nothing Then WP_DY.Empfaenger.LandCode = WP.aesWP_EmpfaengerTeilnehmerLandCode
    '            End If


    '            EA.WarenPosition.Add(WP_DY)
    '        Next
    '    End If


    '    'Lieferbedingungen 
    '    If cDY.aes_LieferbedingungenCode IsNot Nothing Then
    '        EA.KopfDaten.Lieferbedingung = New VollstaendigeAusfuhrAnmeldung.LieferbedingungEVTyp
    '        If cDY.aes_LieferbedingungenCode IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermCode = cDY.aes_LieferbedingungenCode
    '        If cDY.aes_LieferbedingungenText IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermText = cDY.aes_LieferbedingungenText
    '        If cDY.aes_LieferbedingungenOrt IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermOrt = cDY.aes_LieferbedingungenOrt
    '    End If


    '    XML.EinzelAnmeldung.Add(EA)

    '    Dim saveDir = Application.StartupPath & "\Dakosy_SEND\"
    '    If Not IO.Directory.Exists(saveDir) Then
    '        IO.Directory.CreateDirectory(saveDir)
    '    End If

    '    saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml"

    '    'MsgBox(saveFile)
    '    XML.SaveToFile(saveFile)

    '    replaceNullDateXML(saveFile)
    '    Return True
    'End Function

    Shared Sub replaceNullDateXML(XMLFile As String)
        Try
            If Not File.Exists(XMLFile) Then Exit Sub
            Dim lines() As String = File.ReadAllLines(XMLFile)
            Using writer = New 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 exportVERAGKunde(kdNr() As String) As Boolean

        Dim XML As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORT

        For Each s In kdNr
            Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(s)
            Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(s)
            If KUNDE IsNot Nothing And ADRESSE IsNot Nothing Then
                Dim XML_KD As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDaten
                If ADRESSE.Ordnungsbegriff IsNot Nothing Then XML_KD.Kurzname = ADRESSE.Ordnungsbegriff
                If ADRESSE.Name_1 IsNot Nothing Then XML_KD.Name1 = ADRESSE.Name_1
                If ADRESSE.Name_2 IsNot Nothing Then XML_KD.Name2 = ADRESSE.Name_2
                If KUNDE.EORITIN IsNot Nothing Then XML_KD.EORI = KUNDE.EORITIN : XML_KD.EORI_Niederlassung = "0000"

                If ADRESSE.UstIdKz IsNot Nothing And ADRESSE.UstIdKz IsNot Nothing Then XML_KD.UID_Nr = ADRESSE.UstIdKz & ADRESSE.UstIdNr
                XML_KD.Kontakt = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenKontakt
                If ADRESSE.Telefon IsNot Nothing Then XML_KD.Kontakt.Tel = ADRESSE.Telefon
                If ADRESSE.Telefax IsNot Nothing Then XML_KD.Kontakt.Fax = ADRESSE.Telefax
                If ADRESSE.E_Mail IsNot Nothing Then XML_KD.Kontakt.EMail = ADRESSE.E_Mail
                If ADRESSE.Ansprechpartner IsNot Nothing Then XML_KD.Kontakt.Ansprechpartner = ADRESSE.Ansprechpartner

                XML_KD.Adresse = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenAdresse
                If ADRESSE.Straße IsNot Nothing Then XML_KD.Adresse.Strasse = ADRESSE.Straße
                If ADRESSE.PLZ IsNot Nothing Then XML_KD.Adresse.Plz = ADRESSE.PLZ
                If ADRESSE.Ort IsNot Nothing Then XML_KD.Adresse.Ort = ADRESSE.Ort
                If ADRESSE.LandKz IsNot Nothing Then XML_KD.Adresse.LandKz = ADRESSE.LandKz

                XML.KundenDaten.Add(XML_KD)
            End If
        Next

        XML.SaveToFile("C:\Users\DEVELOPER1\Desktop\test\KD_TEST.xml")

        Return True
    End Function
End Class


Class TC_ObjektAktion
    Shared Property OBJ_CREATE As String = "CREATE"
    Shared Property OBJ_CHANGE As String = "CHANGE"
    Shared Property OBJ_CANCEL As String = "CANCEL"
    Shared Property OBJ_SEND As String = "SEND"
End Class