Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb

@@ -189,21 +189,28 @@ Public Class usrCntlATLAS_EZA
         POSITIONEN = New usrCntlATLAS_EZA_Positionen(EZA, Me)
         DV1 = New usrCntlATLAS_EZA_DV1(EZA)
 
-        Select Case FIRMA_DY
+        'Select Case FIRMA_DY
-            Case "VERAG" : txtDyMandant.Text = "VERG"
+        '    Case "VERAG" : txtDyMandant.Text = "VERG"
-                txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        '        txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-                '  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        '        sdf
-                'Case "SUB" : txtDyNiederlassung.Text = "VERG"
+        '        '  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-                'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
+        '        'Case "SUB" : txtDyNiederlassung.Text = "VERG"
-                ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
+        '        'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
-                'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
+        '        ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
-                'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
+        '        'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
-                'End Select
+        '        'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
-            Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+        '        'End Select
-            Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+        '    Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
-            Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+        '    Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
-            Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+        '    Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
-        End Select
+        '    Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+        'End Select
+
+        'FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me) ??? AUch gut ??
+        txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA")
+        txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA")
+
+
 
 
         cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung='" & txtDyNiederlassung.Text.Replace("DTB", "SUB") & "'  and dySr_visible=1", False, "FMZOLL", True)

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb

@@ -162,22 +162,25 @@ Public Class usrCntlATLAS_NCTS004
 
         AusGestllungToolStripMenuItem.Visible = True
 
-        Select Case FIRMA_DY
+        'Select Case FIRMA_DY
-            Case "VERAG" : txtDyMandant.Text = "VERG"
+        '    Case "VERAG" : txtDyMandant.Text = "VERG"
-                txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        '        txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-                '  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        '        '  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-                'Case "SUB" : txtDyNiederlassung.Text = "VERG"
+        '        'Case "SUB" : txtDyNiederlassung.Text = "VERG"
-                'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
+        '        'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
-                ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
+        '        ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
-                'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
+        '        'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
-                'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
+        '        'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
-                'End Select 
+        '        'End Select 
-            Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+        '    Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
-            Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+        '    Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
-            Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+        '    Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
-            Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+        '    Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
-        End Select
+        'End Select
 
+        '    FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)?
+        txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY)
+        txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "NCTS")
 
         cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text.Replace("DTB", "SUB") & "')  and dySr_visible=1", False, "FMZOLL", True)
         cboStammreferenz.changeItem("")

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb

@@ -43,21 +43,25 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
         cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
         cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
 
-        Select Case FIRMA_DY
+        'Select Case FIRMA_DY
-            Case "VERAG" : txtDyMandant.Text = "VERG"
+        '    Case "VERAG" : txtDyMandant.Text = "VERG"
-                txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        '        txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-                '  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        '        '  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-                'Case "SUB" : txtDyNiederlassung.Text = "VERG"
+        '        'Case "SUB" : txtDyNiederlassung.Text = "VERG"
-                'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
+        '        'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
-                ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
+        '        ''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
-                'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
+        '        'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
-                'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
+        '        'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
-                'End Select 
+        '        'End Select 
-            Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+        '    Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
-            Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+        '    Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
-            Case "IMEX" : txtDyMandant.Text = "VERG" : txtDyNiederlassung.Text = "SUB" 'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG 'txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+        '    Case "IMEX" : txtDyMandant.Text = "VERG" : txtDyNiederlassung.Text = "SUB" 'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG 'txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
-            Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+        '    Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
-        End Select
+        'End Select
+
+        txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "AA")
+        txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "AA")
+
 
         Dim BezugsNr As String = ""
 

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -961,6 +961,7 @@ Public Class cAviso
     Property VerwahrungStatus As Integer
     Property VerwahrungStatusDate As Object = Nothing
     Property EintragMehrfach As Boolean = False
+    Property AvisoTripId As Integer
 
     Public VORPAPIERE As New List(Of cAvisoVorpapier)
 
@@ -1079,6 +1080,13 @@ Public Class cAviso
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         SQL.doSQL("UPDATE AVISO SET FahrerHandy='" & FahrerHandy & "' WHERE AvisoId=" & AvisoID, "AVISO")
     End Sub
+    Sub UPDATE_Trips(AvisoTripId As Integer)
+        If AvisoID <= 0 Then Exit Sub
+        Me.AvisoTripId = AvisoTripId
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        SQL.doSQL("UPDATE AVISO SET AvisoTripId='" & AvisoTripId & "' WHERE AvisoId=" & AvisoID, "AVISO")
+    End Sub
 
 
     Sub UPDATE_FreigabeInfo(Freigabe_Info As String)
@@ -1209,6 +1217,7 @@ Public Class cAvisoDAL
                     daten.VerwahrungStatus = VarToInt(dr.Item("VerwahrungStatus"))
                     daten.VerwahrungStatusDate = If(dr.Item("VerwahrungStatusDate") Is DBNull.Value, Nothing, dr.Item("VerwahrungStatusDate"))
                     daten.EintragMehrfach = VarToBool(dr.Item("EintragMehrfach"))
+                    daten.AvisoTripId = VarToInt(dr.Item("AvisoTripId"))
 
 
 
@@ -1489,17 +1498,17 @@ Public Class cAvisoDAL
             hAuswahl = "INSERT INTO Aviso " &
                        "(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
                        "Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
-                       " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV,VerwahrungStatus,VerwahrungStatusDate, EintragMehrfach) VALUES (" &
+                       " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV,VerwahrungStatus,VerwahrungStatusDate, EintragMehrfach,AvisoTripId) VALUES (" &
                        "@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
                        "@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
-                       "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV,@VerwahrungStatus,@VerwahrungStatusDate, @EintragMehrfach); SELECT CAST(scope_identity() AS int);"
+                       "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV,@VerwahrungStatus,@VerwahrungStatusDate, @EintragMehrfach,@AvisoTripId); SELECT CAST(scope_identity() AS int);"
         Else
             id = d.AvisoID
             'Änderung
             hAuswahl = String.Format(
                        "UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
                        " letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen,  " &
-                       " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,VerwahrungStatus=@VerwahrungStatus,VerwahrungStatusDate=@VerwahrungStatusDate,EintragMehrfach=@EintragMehrfach,FIRMA=@FIRMA" &
+                       " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,VerwahrungStatus=@VerwahrungStatus,VerwahrungStatusDate=@VerwahrungStatusDate,EintragMehrfach=@EintragMehrfach,AvisoTripId=@AvisoTripId,FIRMA=@FIRMA" &
                        " WHERE AvisoID = @AvisoID")
         End If
 
@@ -1576,6 +1585,7 @@ Public Class cAvisoDAL
 
             cmd.Parameters.AddWithValue("@VerwahrungStatusDate", If(d.VerwahrungStatusDate Is Nothing, DBNull.Value, d.VerwahrungStatusDate))
             cmd.Parameters.AddWithValue("@EintragMehrfach", d.EintragMehrfach)
+            cmd.Parameters.AddWithValue("@AvisoTripId", d.AvisoTripId)
 
             Try
                 If d.AvisoID <= 0 Then

VERAG_PROG_ALLGEMEIN/Classes/cAvisoTrips.vb

@@ -0,0 +1,217 @@
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cAvisoTrips
+
+    Property AvisoTripId As Integer
+    Property CreateDatum As Object = Nothing
+    Property LKW_Nr As Object = Nothing
+    Property Zugmaschine As Object = Nothing
+    Property LKW_Nationalitaet As Object = Nothing
+    Property Auftraggeber_KdNr As Object = Nothing
+    Property Frächter_KdNr As Object = Nothing
+    Property Auftraggeber As Object = Nothing
+    Property Frächter As Object = Nothing
+
+    Public hasEntry As Boolean = False
+
+    Dim SQL As New SQL
+
+    Sub New(_AvisoTripId As Integer)
+        Me.AvisoTripId = _AvisoTripId
+        LOAD()
+    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("AvisoTripId", AvisoTripId, , True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CreateDatum", CreateDatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW_Nr", LKW_Nr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zugmaschine", Zugmaschine))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW_Nationalitaet", LKW_Nationalitaet))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Auftraggeber_KdNr", Auftraggeber_KdNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frächter_KdNr", Frächter_KdNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Auftraggeber", Auftraggeber))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frächter", Frächter))
+
+        Return list
+    End Function
+
+    Public Function SAVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = "BEGIN TRAN IF EXISTS(SELECT * FROM AvisoTrips WHERE AvisoTripId=@AvisoTripId) " &
+                     "BEGIN " & getUpdateCmd() & " END " &
+                     "ELSE " &
+                     "BEGIN " & getInsertCmd() & " END " &
+                     "COMMIT TRAN"
+        Dim id = SQL.doSQLVarListID(AvisoTripId, sqlstr, "AVISO", , list)
+        If id > 0 Then AvisoTripId = id
+        Return (id > 0)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
+                Using cmd As New SqlCommand("SELECT * FROM AvisoTrips WHERE AvisoTripId=@AvisoTripId", conn)
+                    cmd.Parameters.AddWithValue("@AvisoTripId", AvisoTripId)
+
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If propInfo IsNot Nothing Then
+                                If dr.Item(li.Text) Is DBNull.Value Then
+                                    propInfo.SetValue(Me, Nothing)
+                                Else
+                                    propInfo.SetValue(Me, dr.Item(li.Text))
+                                End If
+                            End If
+                        Next
+
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & ","
+                End If
+            Next
+
+            str = str.Substring(0, str.Length - 1)
+
+            Return "UPDATE AVISO.dbo.AvisoTrips SET " & str & " WHERE AvisoTripId=@AvisoTripId"
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Return ""
+    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 & ","
+                End If
+            Next
+
+            str = str.Substring(0, str.Length - 1)
+            values = values.Substring(0, values.Length - 1)
+
+            Return "INSERT INTO AvisoTrips (" & str & ") VALUES (" & values & ")"
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Return ""
+    End Function
+
+
+    Public Function getAvisos() As List(Of cAvisoTripsItem)
+        Dim ret As New List(Of cAvisoTripsItem)
+
+        Try
+            Dim sqlstr As String =
+                "SELECT AvisoID, Grenzstelle, Zollstelle " &
+                "FROM Aviso " &
+                "WHERE AvisoTripId = " & Val(AvisoTripId) & " " &
+                "  AND Status NOT IN  ('" & cGlobal.Status_NichtEingetroffen & "') " &
+                "ORDER BY AvisoID"
+
+            Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "AVISO")
+
+            If dt IsNot Nothing Then
+                For Each dr As DataRow In dt.Rows
+
+                    Dim obj As New cAvisoTripsItem
+
+                    If Not IsDBNull(dr("AvisoID")) Then
+                        obj.AvisoId = CInt(dr("AvisoID"))
+                    End If
+                    obj.Grenzstelle = GetGrenzstelleText(dr("Grenzstelle"), dr("Zollstelle"))
+
+                    ret.Add(obj)
+
+                Next
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Return ret
+    End Function
+
+    Public Shared Function GetGrenzstelleText(GrenzstelleObj As Object, ZollstelleObj As Object) As String
+        Try
+            Dim grenze As String = ""
+            Dim zollstelleCode As String = ""
+
+            Dim SQL As New SQL
+
+            If GrenzstelleObj IsNot Nothing AndAlso Not IsDBNull(GrenzstelleObj) Then
+                grenze = GrenzstelleObj.ToString().Trim()
+            End If
+
+            If ZollstelleObj IsNot Nothing AndAlso Not IsDBNull(ZollstelleObj) Then
+                zollstelleCode = ZollstelleObj.ToString().Trim()
+            End If
+
+            If String.IsNullOrEmpty(grenze) OrElse grenze = "???" Then
+
+                If Not String.IsNullOrEmpty(zollstelleCode) Then
+                    Return SQL.getValueTxtBySql(
+                        "SELECT Code + ' - ' + [Description] " &
+                        "FROM tbl_DY_ZollDE_C0141_Zollstellen " &
+                        "WHERE Code='" & zollstelleCode & "' " &
+                        "AND ((StartDate IS NULL OR StartDate < GETDATE()) " &
+                        "AND (EndDate IS NULL OR EndDate > GETDATE()))",
+                        "FMZOLL"
+                    )
+                Else
+                    Return ""
+                End If
+
+            Else
+                Return grenze
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Return ""
+    End Function
+End Class
+
+
+Public Class cAvisoTripsItem
+
+    Property AvisoId As Integer
+    Property Grenzstelle As String
+End Class

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -362,6 +362,7 @@
     <Compile Include="Classes\cAvisoAnhangsarten.vb" />
     <Compile Include="Classes\cAvisoBenachrichtigungen.vb" />
     <Compile Include="Classes\cAvisoStatusMails.vb" />
+    <Compile Include="Classes\cAvisoTrips.vb" />
     <Compile Include="Classes\cBesuchsbericht.vb" />
     <Compile Include="Classes\cBonitaetsauskunft.vb" />
     <Compile Include="Classes\cChilkat_Helper.vb" />