Imports System.Data.SqlClient
Imports System.Reflection

Public Class cVERAG_out_ncts


    Property ncts_ANR As Object = Nothing
    Property ncts_MRN As Object = Nothing

    Property ncts_firma As Object = Nothing
    Property ncts_niederlassung As Object = Nothing


    'Property ncts_Gestellt As Boolean = False
    'Property ncts_GestelltAm As Object = Nothing 
    Property ncts_ObjectName As Object = Nothing
    Property ncts_ObjectAlias As Object = Nothing
    Property ncts_BezugsnummerVorblendung As Object = Nothing
    Property ncts_Bearbeiter As Object = Nothing
    Property ncts_VersendungsLandCode As Object = Nothing
    Property ncts_BestimmungslandCode As Object = Nothing
    Property ncts_ArtAnmeldung As Object = Nothing
    Property ncts_BeladungsOrt As Object = Nothing

    Property ncts_DurchgangszollstelleDienststellnummer1 As Object = Nothing
    Property ncts_DurchgangszollstelleDienststellnummer2 As Object = Nothing
    Property ncts_DurchgangszollstelleDienststellnummer3 As Object = Nothing
    Property ncts_DurchgangszollstelleDienststellnummer4 As Object = Nothing
    Property ncts_DurchgangszollstelleDienststellnummer5 As Object = Nothing
    Property ncts_DurchgangszollstelleDienststellnummer6 As Object = Nothing
    Property ncts_DurchgangszollstelleDienststellnummer7 As Object = Nothing
    Property ncts_DurchgangszollstelleDienststellnummer8 As Object = Nothing
    Property ncts_DurchgangszollstelleDienststellnummer9 As Object = Nothing

    Property ncts_BestimmungsstelleDienststellennummer As Object = Nothing
    Property ncts_AbgangsDienststellennummer As Object = Nothing
    Property ncts_Wiedergestellungsdatum As Object = Nothing
    Property ncts_KzVereinfachtesVerfahren As Object = Nothing
    Property ncts_GesamtRohmasse As Object = Nothing
    Property ncts_GesamtAnzahlPackstuecke As Object = Nothing
    Property ncts_Verschluss_ArtCode As Object = Nothing
    Property ncts_Verschluss_Anzahl As Object = Nothing
    Property ncts_Verschluss_Zeichen1 As Object = Nothing
    Property ncts_Verschluss_Zeichen2 As Object = Nothing
    Property ncts_Verschluss_Zeichen3 As Object = Nothing
    Property ncts_Verschluss_Zeichen4 As Object = Nothing
    Property ncts_Verschluss_Zeichen5 As Object = Nothing
    Property ncts_Verschluss_Zeichen6 As Object = Nothing
    Property ncts_Verschluss_Zeichen7 As Object = Nothing
    Property ncts_Verschluss_Zeichen8 As Object = Nothing
    Property ncts_Verschluss_Zeichen9 As Object = Nothing
    Property ncts_Verschluss_Zeichen10 As Object = Nothing
    Property ncts_Verschluss_Zeichen11 As Object = Nothing
    Property ncts_Verschluss_Zeichen12 As Object = Nothing
    Property ncts_Verschluss_Zeichen13 As Object = Nothing
    Property ncts_Verschluss_Zeichen14 As Object = Nothing
    Property ncts_Verschluss_Zeichen15 As Object = Nothing
    Property ncts_Verschluss_Zeichen16 As Object = Nothing
    Property ncts_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing
    Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing
    Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing
    Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing
    Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing
    Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing
    Property ncts_Versender_EORI As Object = Nothing
    Property ncts_Versender_NLNR As Object = Nothing
    Property ncts_Versender_TIN As Object = Nothing
    Property ncts_Versender_Name As Object = Nothing
    Property ncts_Versender_StrasseHausnummer As Object = Nothing
    Property ncts_Versender_Ort As Object = Nothing
    Property ncts_Versender_PLZ As Object = Nothing
    Property ncts_Versender_Land As Object = Nothing
    Property ncts_Empfaenger_EORI As Object = Nothing
    Property ncts_Empfaenger_NLNR As Object = Nothing
    Property ncts_Empfaenger_TIN As Object = Nothing
    Property ncts_Empfaenger_Name As Object = Nothing
    Property ncts_Empfaenger_StrasseHausnummer As Object = Nothing
    Property ncts_Empfaenger_Ort As Object = Nothing
    Property ncts_Empfaenger_PLZ As Object = Nothing
    Property ncts_Empfaenger_Land As Object = Nothing
    Property ncts_Hauptverpflichteter_EORI As Object = Nothing
    Property ncts_Hauptverpflichteter_NLNR As Object = Nothing
    Property ncts_Hauptverpflichteter_TIN As Object = Nothing
    Property ncts_Hauptverpflichteter_Name As Object = Nothing
    Property ncts_Hauptverpflichteter_StrasseHausnummer As Object = Nothing
    Property ncts_Hauptverpflichteter_Ort As Object = Nothing
    Property ncts_Hauptverpflichteter_PLZ As Object = Nothing
    Property ncts_Hauptverpflichteter_Land As Object = Nothing
    Property ncts_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing
    Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing
    Property ncts_ZugelassenerEmpfaenger_EORI As Object = Nothing
    Property ncts_ZugelassenerEmpfaenger_TIN As Object = Nothing

    Property ncts_SumA_KzSumASicherheit As Object = Nothing
    Property ncts_SumA_KennnummerSendung As Object = Nothing
    Property ncts_SumA_BesondereUmstaende As Object = Nothing
    Property ncts_SumA_NummerBefoerderung As Object = Nothing
    Property ncts_SumA_Ladeort As Object = Nothing
    Property ncts_SumA_Entladeort As Object = Nothing
    Property ncts_SumA_BefoerderungskostenZahlungsweise As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand1 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand2 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand3 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand4 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand5 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand6 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand7 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand8 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand9 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand10 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand11 As Object = Nothing
    Property ncts_SumA_BefoerderungsrouteLand12 As Object = Nothing
    Property ncts_SumA_Versender_EORI As Object = Nothing
    Property ncts_SumA_Versender_NLNR As Object = Nothing
    Property ncts_SumA_Versender_TIN As Object = Nothing
    Property ncts_SumA_Versender_Name As Object = Nothing
    Property ncts_SumA_Versender_StrasseHausnummer As Object = Nothing
    Property ncts_SumA_Versender_Land As Object = Nothing
    Property ncts_SumA_Versender_PLZ As Object = Nothing
    Property ncts_SumA_Versender_Ort As Object = Nothing

    Property ncts_SumA_Empfaenger_EORI As Object = Nothing
    Property ncts_SumA_Empfaenger_NLNR As Object = Nothing
    Property ncts_SumA_Empfaenger_TIN As Object = Nothing
    Property ncts_SumA_Empfaenger_Name As Object = Nothing
    Property ncts_SumA_Empfaenger_StrasseHausnummer As Object = Nothing
    Property ncts_SumA_Empfaenger_Land As Object = Nothing
    Property ncts_SumA_Empfaenger_PLZ As Object = Nothing
    Property ncts_SumA_Empfaenger_Ort As Object = Nothing

    Property ncts_SumA_Befoerderer_EORI As Object = Nothing
    Property ncts_SumA_Befoerderer_NLNR As Object = Nothing
    Property ncts_SumA_Befoerderer_TIN As Object = Nothing
    Property ncts_SumA_Befoerderer_Name As Object = Nothing
    Property ncts_SumA_Befoerderer_StrasseHausnummer As Object = Nothing
    Property ncts_SumA_Befoerderer_Land As Object = Nothing
    Property ncts_SumA_Befoerderer_PLZ As Object = Nothing
    Property ncts_SumA_Befoerderer_Ort As Object = Nothing
    Property ncts_Stammreferenz As Object = Nothing


    Property ncts_SICHERHEITSANGABEN As New List(Of cDakosy_NCTSOut_Sicherheitsangaben)
    Property ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition)

End Class



Public Class cDakosy_NCTSOut_Sicherheitsangaben

    'Property nctsSA_Id As Integer
    'Property nctsSA_NctsId As Object = Nothing
    Property nctsSA_ArtCode As Object = Nothing
        Property nctsSA_BezeichnungBescheinigun As Object = Nothing
        Property nctsSA_AbgabenBetrag As Object = Nothing
    'Property nctsSA_GRN As Object = Nothing
    'Property nctsSA_Zugriffcode As Object = Nothing
    'Property nctsSA_TIN As Object = Nothing


    'Public selButton As Object = Nothing ' Für die GUI
    'Public SA_OBJECT As Object = Nothing ' Für die GUI

    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

        Sub New()
        End Sub

    'Sub New(nctsSA_Id)
    '    Me.nctsSA_Id = nctsSA_Id
    ' LOAD()
    ' End Sub



End Class


    Public Class cDakosy_NCTSOut_Warenposition
    'Property nctsWP_Id As Integer
    'Property nctsWP_NctsId As Integer
    Property nctsWP_PositionsNummer As Object = Nothing
        Property nctsWP_Warennummer As Object = Nothing
        Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing
        Property nctsWP_Warenbezeichnung As Object = Nothing
        Property nctsWP_Warenwert As Object = Nothing
        Property nctsWP_WarenwertWaehrung As Object = Nothing
        Property nctsWP_SchaetzKz As Object = Nothing
        Property nctsWP_WarenwertProzent As Object = Nothing
        Property nctsWP_VersendungslandPositionCode As Object = Nothing
        Property nctsWP_BestimmungslandPositionCode As Object = Nothing
        Property nctsWP_Rohmasse As Object = Nothing
        Property nctsWP_Eigenmasse As Object = Nothing


        Property nctsWP_VorpapierTyp As Object = Nothing
        Property nctsWP_VorpapierReferenz1 As Object = Nothing
        Property nctsWP_VorpapierZusatz1 As Object = Nothing
        Property nctsWP_VorpapierReferenz2 As Object = Nothing
        Property nctsWP_VorpapierZusatz2 As Object = Nothing
        Property nctsWP_VorpapierReferenz3 As Object = Nothing
        Property nctsWP_VorpapierZusatz3 As Object = Nothing
        Property nctsWP_VorpapierReferenz4 As Object = Nothing
        Property nctsWP_VorpapierZusatz4 As Object = Nothing
        Property nctsWP_VorpapierReferenz5 As Object = Nothing
        Property nctsWP_VorpapierZusatz5 As Object = Nothing
        Property nctsWP_VorpapierReferenz6 As Object = Nothing
        Property nctsWP_VorpapierZusatz6 As Object = Nothing
        Property nctsWP_VorpapierReferenz7 As Object = Nothing
        Property nctsWP_VorpapierZusatz7 As Object = Nothing
        Property nctsWP_VorpapierReferenz8 As Object = Nothing
        Property nctsWP_VorpapierZusatz8 As Object = Nothing
        Property nctsWP_VorpapierReferenz9 As Object = Nothing
        Property nctsWP_VorpapierZusatz9 As Object = Nothing



        Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing
        Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing
        Property nctsWP_BesondereVermeke_Export As Object = Nothing

        Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing
        Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing
        Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing
        Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing


        Property nctsWP_Versender_EORI As Object = Nothing
        Property nctsWP_Versender_NLNR As Object = Nothing
        Property nctsWP_Versender_TIN As Object = Nothing
        Property nctsWP_Versender_Name As Object = Nothing
        Property nctsWP_Versender_StrasseHausnummer As Object = Nothing
        Property nctsWP_Versender_Ort As Object = Nothing
        Property nctsWP_Versender_PLZ As Object = Nothing
        Property nctsWP_Versender_Land As Object = Nothing
        Property nctsWP_Empfaenger_EORI As Object = Nothing
        Property nctsWP_Empfaenger_NLNR As Object = Nothing
        Property nctsWP_Empfaenger_TIN As Object = Nothing
        Property nctsWP_Empfaenger_Name As Object = Nothing
        Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing
        Property nctsWP_Empfaenger_Ort As Object = Nothing
        Property nctsWP_Empfaenger_PLZ As Object = Nothing
        Property nctsWP_Empfaenger_Land As Object = Nothing
        Property nctsWP_SumAKennnummerSendung As Object = Nothing
        Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing
        Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing
        Property nctsWP_SumAVersender_EORI As Object = Nothing
        Property nctsWP_SumAVersender_NLNR As Object = Nothing
        Property nctsWP_SumAVersender_TIN As Object = Nothing
        Property nctsWP_SumAVersender_Name As Object = Nothing
        Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing
        Property nctsWP_SumAVersender_Ort As Object = Nothing
        Property nctsWP_SumAVersender_PLZ As Object = Nothing
        Property nctsWP_SumAVersender_Land As Object = Nothing
        Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing
        Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing
        Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing
        Property nctsWP_SumAEmpfaenger_Name As Object = Nothing
        Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing
        Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing
        Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing
        Property nctsWP_SumAEmpfaenger_Land As Object = Nothing


    'Property nctsWP_KdRefNr As Object = Nothing


    Property nctsWP_PACKSTUECKE As New List(Of cDakosy_NCTSOut_WarenpositionPackstuecke)
        Property nctsWP_UNTERLAGEN As New List(Of cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen)

        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

        Sub New()
            '  Me.nctsWP_NctsId = nctsWP_NctsId
        End Sub



End Class



    Public Class cDakosy_NCTSOut_WarenpositionPackstuecke

    'Property nctsWpPk_Id As Integer
    'Property nctsWpPk_nctsWPId As Integer
    'Property nctsWpPk_NctsId As Integer

    Property nctsWpPk_PackstueckeAnzahl As Object = Nothing
        Property nctsWpPk_Verpackungsart As Object = Nothing
        Property nctsWpPk_ZeichenNummern As Object = Nothing


        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

        Sub New()
            '   Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId
        End Sub


End Class

    Public Class cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen

    'Property nctsWpUl_Id As Integer
    'Property nctsWpUl_nctsWPId As Integer
    'Property nctsWpUl_NctsId As Integer
    Property nctsWpUl_Typ As Object = Nothing
        Property nctsWpUl_Referenz As Object = Nothing
        Property nctsWpUl_Zusatz As Object = Nothing



        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

        Sub New()
            '  Me.nctsWpUl_nctsWPId = nctsWpUl_nctsWPId
        End Sub


    'Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
    '    Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
    '    list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Id", nctsWpUl_Id, , True, True))
    '    list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId))
    '    list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId))
    '    list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ))
    '    list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz))
    '    list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz))
    '    Return list
    'End Function


    'Public Function INSERT() As Boolean
    '    Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
    '    nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list)
    '    Return nctsWpUl_Id > 0
    'End Function

    'Public Function getInsertCmd() As String
    '    Try
    '        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
    '        Dim str As String = ""
    '        Dim values As String = ""
    '        For Each i In list
    '            If Not i.isPrimaryParam Then
    '                str &= "[" & i.Text & "],"
    '                values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
    '            End If
    '        Next
    '        str = str.Substring(0, str.Length - 1) 'wg. ','
    '        values = values.Substring(0, values.Length - 1) 'wg. ','
    '        Return (" INSERT INTO tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen (" & str & ") VALUES(" & values & ")  ")
    '    Catch ex As Exception
    '        MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
    '    End Try
    '    Return ""
    'End Function



End Class
