Kd VeranlKd

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -520,7 +520,7 @@ Public Class usrCntlKundenuebersicht
             lblAviso.BackColor = Color.White
             txtNeutralisierung.BackColor = Color.White
             txtVorauskasse.BackColor = Color.White
-
+            txtVeranlKd.BackColor = Color.White
 
 
             Select Case checkNullStr(KUNDE.Avis)
@@ -551,6 +551,15 @@ Public Class usrCntlKundenuebersicht
                 txtVorauskasse.BackColor = Color.White
             End If
 
+            If KUNDE_ERW.Veranlagungskunde Then
+                txtVeranlKd.Text = "JA"
+                txtVeranlKd.BackColor = Color.Yellow
+            Else
+                txtVeranlKd.Text = "NEIN"
+                txtVeranlKd.BackColor = Color.White
+            End If
+
+            lblVeranlKd.BackColor = txtVeranlKd.BackColor
             lblVorkasse.BackColor = txtVorauskasse.BackColor
             lblNeutralisierung.BackColor = txtNeutralisierung.BackColor