edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen Logik

Browse Source
This commit is contained in:
ja
2021-12-13 16:28:59 +01:00
parent 7f8bd7ad38
commit 4a294f79ce
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Customers/LKWs.aspx.vb
View File

@@ -70,21 +70,21 @@ Partial Class LKWS
End If End If
tr1.Cells.Add(tc_Nationalitaet) tr1.Cells.Add(tc_Nationalitaet)
Dim cbverk As CheckBox = New CheckBox() Dim cbverk As CheckBox = New CheckBox()
tc_Verk.Controls.Add(cbverk)
cbverk.Enabled = False
tr1.Cells.Add(tc_Verk)
If l1.Verkauft = True Then If l1.Verkauft = True Then
cbverk.Checked = True cbverk.Checked = True
Else Else
cbverk.Checked = False cbverk.Checked = False
End If End If
tc_Verk.Controls.Add(cbverk)
cbverk.Enabled = False
tr1.Cells.Add(tc_Verk)
Dim chbx2_Kz_ab As CheckBox = New CheckBox() 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 chbx2_Kz_ab.Checked = True
Else Else
chbx2_Kz_ab.Checked = False chbx2_Kz_ab.Checked = False
End If End If
chbx2_Kz_ab.Enabled = False
tc_KZ_Ab.Controls.Add(chbx2_Kz_ab) tc_KZ_Ab.Controls.Add(chbx2_Kz_ab)
tr1.Cells.Add(tc_KZ_Ab) tr1.Cells.Add(tc_KZ_Ab)
If IsNothing(l1.Vermerk) = True Then If IsNothing(l1.Vermerk) = True Then