From 7f8bd7ad38b962265827f6c2180dfb197c8a740f Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Mon, 13 Dec 2021 16:25:16 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderung=20Implementierung=20Checkbox=20ch?=
 =?UTF-8?q?ecks?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/LKWs.aspx.vb | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index 4838643..6a153cf 100644
--- a/Customers/LKWs.aspx.vb
+++ b/Customers/LKWs.aspx.vb
@@ -80,7 +80,7 @@ Partial Class LKWS
             End If
             Dim chbx2_Kz_ab As CheckBox = New CheckBox()
             chbx2_Kz_ab.Enabled = False
-            If (l1.Abgemeldet = True) Then
+            If l1.Abgemeldet = True Then
                 chbx2_Kz_ab.Checked = True
             Else
                 chbx2_Kz_ab.Checked = False
@@ -178,9 +178,19 @@ Partial Class LKWS
             tc_Nationalitaet.Text = String.Empty
             tr2.Cells.Add(tc_Nationalitaet)
             Dim cbVerk_Such As CheckBox = New CheckBox()
+            If l2.Verkauft = True Then
+                cbVerk_Such.Checked = True
+            Else
+                cbVerk_Such.Checked = False
+            End If
             tc_Verk.Controls.Add(cbVerk_Such)
             tr2.Cells.Add(tc_Verk)
             Dim cb_Kz_An As CheckBox = New CheckBox()
+            If l2.KZAenderung = True Then
+                cb_Kz_An.Checked = True
+            Else
+                cb_Kz_An.Checked = False
+            End If
             tc_KZ_An.Controls.Add(cb_Kz_An)
             tc_Vermerk.Text = l2.Vermerk.ToString
             tr2.Cells.Add(tc_Vermerk)
@@ -224,9 +234,19 @@ Partial Class LKWS
             tc_Nationalitaet_M.Text = String.Empty
             tr2.Cells.Add(tc_Nationalitaet_M)
             Dim cb_Verk_M As CheckBox = New CheckBox()
+            If (li_M.Verkauft = True) Then
+                cb_Verk_M.Checked = True
+            Else
+                cb_Verk_M.Checked = False
+            End If
             tc_Verk_M.Controls.Add(cb_Verk_M)
             tr2.Cells.Add(tc_Verk_M)
             Dim cb_M_2 As CheckBox = New CheckBox()
+            If (li_M.KZAenderung = True) Then
+                cb_M_2.Checked = True
+            Else
+                cb_M_2.Checked = False
+            End If
             tc_KzAn_M.Controls.Add(cb_M_2)
             tr2.Cells.Add(tc_KzAn_M)
             If IsNothing(li_M.Vermerk) = True Then