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

Änderung Implementierung Checkbox checks

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

22
Customers/LKWs.aspx.vb
View File

@@ -80,7 +80,7 @@ Partial Class LKWS
End If End If
Dim chbx2_Kz_ab As CheckBox = New CheckBox() Dim chbx2_Kz_ab As CheckBox = New CheckBox()
chbx2_Kz_ab.Enabled = False 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
@@ -178,9 +178,19 @@ Partial Class LKWS
tc_Nationalitaet.Text = String.Empty tc_Nationalitaet.Text = String.Empty
tr2.Cells.Add(tc_Nationalitaet) tr2.Cells.Add(tc_Nationalitaet)
Dim cbVerk_Such As CheckBox = New CheckBox() 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) tc_Verk.Controls.Add(cbVerk_Such)
tr2.Cells.Add(tc_Verk) tr2.Cells.Add(tc_Verk)
Dim cb_Kz_An As CheckBox = New CheckBox() 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_KZ_An.Controls.Add(cb_Kz_An)
tc_Vermerk.Text = l2.Vermerk.ToString tc_Vermerk.Text = l2.Vermerk.ToString
tr2.Cells.Add(tc_Vermerk) tr2.Cells.Add(tc_Vermerk)
@@ -224,9 +234,19 @@ Partial Class LKWS
tc_Nationalitaet_M.Text = String.Empty tc_Nationalitaet_M.Text = String.Empty
tr2.Cells.Add(tc_Nationalitaet_M) tr2.Cells.Add(tc_Nationalitaet_M)
Dim cb_Verk_M As CheckBox = New CheckBox() 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) tc_Verk_M.Controls.Add(cb_Verk_M)
tr2.Cells.Add(tc_Verk_M) tr2.Cells.Add(tc_Verk_M)
Dim cb_M_2 As CheckBox = New CheckBox() 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) tc_KzAn_M.Controls.Add(cb_M_2)
tr2.Cells.Add(tc_KzAn_M) tr2.Cells.Add(tc_KzAn_M)
If IsNothing(li_M.Vermerk) = True Then If IsNothing(li_M.Vermerk) = True Then