neu

Aviso/frmHauptfenster.vb

@@ -421,7 +421,7 @@ Public Class frmHauptfenster
 
         'zuerst noch prüfen, ob unerledigte Aviso auf nicht eingetroffen gesetzt werden können
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
-            Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & "  And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and  Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'  "
+            Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & "  And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and  Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI')  "
             'dateadd(DAY,10,VoraussichtlichesEintreffen)  --> Voraussichtliches Eintreffen muss zudem um 10 Tage überschritten sein --> Container/Hafen haben lange Vorlaufzeiten
             Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL)
             If anz > 0 Then
@@ -530,6 +530,7 @@ Public Class frmHauptfenster
             End If
 
             .Columns("TageBisEintreffen").Visible = False
+            .Columns("Transportmittelart").Visible = False
 
             .Columns("Status").Width = 25
             .Columns("Status").HeaderText = "St."
@@ -765,7 +766,7 @@ Public Class frmHauptfenster
 
 
         Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben,  Freigabe, "
-        hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen "
+        hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
         hSQL &= " FROM Aviso "
         hSQL &= " WHERE 1=1 "
 
@@ -2555,6 +2556,14 @@ Public Class frmHauptfenster
         'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021")
         'Exit Sub
 
+        Dim dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", 717858, {3})
+
+        For Each d In dt.Rows
+            MsgBox(d("LKW_Nr"))
+        Next
+
+
+        Exit Sub
         CHMRC.hmrcTEST()
 
         Exit Sub
@@ -3736,6 +3745,45 @@ Public Class frmHauptfenster
         frm.Standort = "Verag CS"
         frm.Show()
     End Sub
+
+    Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting
+        If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then
+            If gridAviso.Rows(e.RowIndex).Cells("Transportmittelart").Value = "SPRINTER" Then
+                If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
+                    e.Graphics.DrawImage(My.Resources.sprinter_white, e.CellBounds)
+                    'e.CellStyle.BackColor = Color.White
+                End If
+
+
+                If Not e.Handled Then
+                    e.Handled = True
+                    e.PaintContent(e.CellBounds)
+                End If
+            End If
+        End If
+
+    End Sub
+
+    Private Sub VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "VerfahrenshandbuchVERAGGmbHZollWO")
+        DS.OPEN_SINGLE()
+
+    End Sub
+
+    Private Sub ChecklisteWOVERAGGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChecklisteWOCHECKLISTEZEallgemein.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ChecklisteWOCHECKLISTEZEallgemein")
+        DS.OPEN_SINGLE()
+    End Sub
+
+    Private Sub WOCECKLISTEZEWDHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEZEWDHToolStripMenuItem.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEZEWDH")
+        DS.OPEN_SINGLE()
+    End Sub
+
+    Private Sub WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEAbgangVerwahrungsortZV")
+        DS.OPEN_SINGLE()
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions
@@ -5236,14 +5284,14 @@ Public Class AvisoStatusFunctions
 
         SENDUNG_TMP.saveSachbearbeiter = True
 
-        If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
-            MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
-            Return False
-        End If
-        If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
-            MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
-            Return False
-        End If
+        'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
+        '    MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
+        '    Return False
+        'End If
+        'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
+        '    MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
+        '    Return False
+        'End If
 
 
         If SENDUNG_TMP.tblSnd_AbklaerungTR Is Nothing Then