Sendungsdetails, Vermerke, Gesamtsicherheiten

Aviso/frmGesamtsicherheitenNEU.vb

@@ -170,9 +170,25 @@ Public Class frmGesamtsicherheitenNEU
                 .Columns("gs_freitext").HeaderText = "Freitext"
             End With
 
+            Dim changeColor = True
+
+            For i As Integer = 0 To dgvGesamtsicherheit.Rows.Count - 1
+
+                If dgvGesamtsicherheit.Rows(i).Cells("gs_posNr").Value = 1 Then changeColor = IIf(changeColor, False, True)
+
+                If changeColor Then
+                    Me.dgvGesamtsicherheit.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
+                Else
+
+                    Me.dgvGesamtsicherheit.Rows(i).DefaultCellStyle.BackColor = Color.White
+                End If
+
+
+            Next
+
         End If
 
-        calcGesamtsummen()
+                calcGesamtsummen()
 
 
     End Sub
@@ -415,6 +431,23 @@ Public Class frmGesamtsicherheitenNEU
 
             End With
 
+            Dim changeColor = True
+            For i As Integer = 0 To dgvSicherheitsPos.Rows.Count - 1
+
+
+                If dgvSicherheitsPos.Rows(i).Cells("gsp_gspPosId").Value = 1 Then changeColor = IIf(changeColor, False, True)
+
+                If changeColor Then
+                    Me.dgvSicherheitsPos.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
+                Else
+
+                    Me.dgvSicherheitsPos.Rows(i).DefaultCellStyle.BackColor = Color.White
+                End If
+
+
+            Next
+
+
         End If
         btnAddPos.Visible = True