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

Umstrukturierung Code

Browse Source
This commit is contained in:
ja
2021-12-13 09:33:24 +01:00
parent 934c8674ad
commit bd56ebd9d5
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Customers/LKWs.aspx.vb
View File

@@ -98,7 +98,6 @@ Partial Class LKWS
tr1.Cells.Add(tc_Vermerk) tr1.Cells.Add(tc_Vermerk)
initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt) initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt)
Dim Stringtemp As String = String.Empty Dim Stringtemp As String = String.Empty
Dim Spedlabel As String = String.Empty
For Each l2 In list2 For Each l2 In list2
Dim String2 As String = String.Empty Dim String2 As String = String.Empty
@@ -312,18 +311,17 @@ Partial Class LKWS
End If End If
tr1.Cells.Add(tc_Vermerk_M) tr1.Cells.Add(tc_Vermerk_M)
initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr1, tc_KfzKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KZ_Ab_M, tc_Vermerk_M, cnt) initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr1, tc_KfzKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KZ_Ab_M, tc_Vermerk_M, cnt)
Dim Stringtemp As String = String.Empty Dim Stringtemp_M As String = String.Empty
Dim Spedlabel As String = String.Empty
For Each l2 In list2 For Each l2 In list2
Dim String2 As String = String.Empty Dim String2 As String = String.Empty
If IsNothing(l2.Schadstoffklasse) = False Then If IsNothing(l2.Schadstoffklasse) = False Then
Stringtemp = l2.Kategorie.ToString Stringtemp_M = l2.Kategorie.ToString
Else Else
Stringtemp = String.Empty Stringtemp_M = String.Empty
End If End If
For Each l3 In list3 For Each l3 In list3
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet_M.Text) list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet_M.Text)
Next Next
Next Next
Dim strtemp2 As String = String.Empty Dim strtemp2 As String = String.Empty