neu

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -911,6 +911,22 @@ Public Class cAviso
     End Function
 
 
+    Shared Function getAVISO_List(Optional Standort = "SUB", Optional FIRMA = "VERAG") As DataTable
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+        Select Case FIRMA
+            Case "VERAG" : FIRMA = " AND ( FIRMA='VERAG' OR CLUSTER='FRONTOFFICE' )"
+            Case Else : FIRMA = " AND ( FIRMA='" & FIRMA & "') "
+        End Select
+
+        Standort = " AND Grenzstelle = '" & Standort & "' "
+
+        Dim dt = SQL.loadDgvBySql("SELECT TOP 1000  AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben,  Freigabe,  Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen 
+                                    FROM Aviso 
+                                    WHERE 1=1  " & FIRMA & Standort & "   AND Status = 3 ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC", "AVISO")
+        Return dt
+    End Function
+
     Sub UPDATE_FahrerHandy(FahrerHandy As String)
         If AvisoID <= 0 Then Exit Sub
         If If(FahrerHandy, "") = "" Then Exit Sub