Gesamtsicherheiten - Link zu Excel in neuem Ges-Menü, GUI-Änderungen

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -1,5 +1,6 @@
 Imports SDL
 Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmGesamtsicherheitenMenuNEU
 
@@ -86,11 +87,11 @@ Public Class frmGesamtsicherheitenMenuNEU
             .Columns("gs_filialenNr").HeaderText = "Filiale"
             .Columns("gs_filialenNr").Width = 43
             .Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr."
-            .Columns("gs_abfertigungsNr").Width = 107
+            .Columns("gs_abfertigungsNr").Width = 70
             .Columns("gs_datum").Width = 112
             .Columns("gs_datum").HeaderText = "Datum"
             .Columns("gs_SicherheitsSaldo").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-            .Columns("gs_SicherheitsSaldo").HeaderText = "Sicherheitssaldo"
+            .Columns("gs_SicherheitsSaldo").HeaderText = "offener S-Betrag"
             .Columns("gs_Warenort").Width = 96
             .Columns("gs_Warenort").HeaderText = "Warenort"
             .Columns("gs_avisoId").Width = 96
@@ -125,7 +126,7 @@ Public Class frmGesamtsicherheitenMenuNEU
         For Each row As DataGridViewRow In dgvListe.Rows
             If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then
                 If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
-                    row.DefaultCellStyle.BackColor = Color.Red
+                    row.DefaultCellStyle.BackColor = Color.IndianRed
                 Else
                     row.DefaultCellStyle.BackColor = Color.Green
                 End If
@@ -419,5 +420,28 @@ Public Class frmGesamtsicherheitenMenuNEU
 
 
 
+    End Sub
+
+    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
+
+        Select Case Standort
+
+            Case "Verag GmbH"
+                Process.Start("https://file.verag.ag:5001/d/s/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO/i4_Ss9mG9jR7hB4wStoIbzhvYzlJJJPv-BbegLJoGuQk")
+
+            Case "VERAG AG"
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_AG")
+                DS.OPEN_SINGLE_ORIG()
+
+            Case "VERAG CS"
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_CS")
+                DS.OPEN_SINGLE_ORIG()
+
+            Case "IMEX"
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "IMEX", "", "Gesamtsicherheit_IMEX")
+                DS.OPEN_SINGLE_ORIG()
+
+        End Select
+
     End Sub
 End Class