chat, essenebstellungen, vollmachten (gültig bis), bugfix laden bei sendungsdetails kunden (fehlermeldung), sprache bei verzollungsunterlagen BAR, Rechung an Atilla

SDL/kunden/usrCntlKundenBesonderheiten.vb

@@ -84,14 +84,15 @@ Public Class usrCntlKundenBesonderheiten
         End Try
     End Sub
     Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
-        'If dgvBesonderheiten IsNot Nothing Then Exit Sub
+        'If dgvBesonderheiten i Nothing Then Exit Sub
 
-        If dgvBesonderheiten.Columns IsNot Nothing AndAlso dgvBesonderheiten.Columns.Count > 0 Then
-            Try
-                dgvBesonderheiten.Columns.Clear()
-            Catch
-            End Try
-        End If
+        'If dgvBesonderheiten.ColumnCount > 0 Then
+        '    Try
+        '        dgvBesonderheiten.Columns.Clear()
+        '    Catch ex As Exception
+        '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        '    End Try
+        'End If
 
         If kdnrTmp > 0 Then Me.kdNr = kdnrTmp
         If kdNr <= 0 Then Exit Sub
@@ -172,7 +173,9 @@ Public Class usrCntlKundenBesonderheiten
             colm.Name = "clmnRufzeichen"
             colm.DefaultCellStyle.ForeColor = Color.Red
             colm.DefaultCellStyle.Font = New Font(.DefaultCellStyle.Font.FontFamily, .DefaultCellStyle.Font.Size, FontStyle.Bold)
-            .Columns.Insert(2, colm)
+            If Not .Columns.Contains(colm.Name) Then
+                .Columns.Insert(2, colm)
+            End If
 
             ' .GetOrder()
             initDGV_CLMN()

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -941,6 +941,8 @@ Public Class usrCntlKundenuebersicht
                     r.DefaultCellStyle.ForeColor = Color.Gray
                 ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then
                     r.DefaultCellStyle.ForeColor = Color.Red
+                ElseIf IsDate(r.Cells("kdvm_gueltig_bis").Value) AndAlso (CDate(r.Cells("kdvm_gueltig_bis").Value) < Today) Then
+                    r.DefaultCellStyle.ForeColor = Color.Red
                 End If
 
                 If True Then