Änderungen Logik

This commit is contained in:
ja
2021-12-13 16:28:59 +01:00
parent 7f8bd7ad38
commit 4a294f79ce

View File

@@ -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