From 4a294f79ce9e9e00eb6aefd92180a70bf00e52ef Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Mon, 13 Dec 2021 16:28:59 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20Logik?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/LKWs.aspx.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index 6a153cf..6be1542 100644
--- a/Customers/LKWs.aspx.vb
+++ b/Customers/LKWs.aspx.vb
@@ -70,21 +70,21 @@ Partial Class LKWS
             End If
             tr1.Cells.Add(tc_Nationalitaet)
             Dim cbverk As CheckBox = New CheckBox()
-            tc_Verk.Controls.Add(cbverk)
-            cbverk.Enabled = False
-            tr1.Cells.Add(tc_Verk)
             If l1.Verkauft = True Then
                 cbverk.Checked = True
             Else
                 cbverk.Checked = False
             End If
+            tc_Verk.Controls.Add(cbverk)
+            cbverk.Enabled = False
+            tr1.Cells.Add(tc_Verk)
             Dim chbx2_Kz_ab As CheckBox = New CheckBox()
-            chbx2_Kz_ab.Enabled = False
             If l1.Abgemeldet = True Then
                 chbx2_Kz_ab.Checked = True
             Else
                 chbx2_Kz_ab.Checked = False
             End If
+            chbx2_Kz_ab.Enabled = False
             tc_KZ_Ab.Controls.Add(chbx2_Kz_ab)
             tr1.Cells.Add(tc_KZ_Ab)
             If IsNothing(l1.Vermerk) = True Then