Mobilfunktion fast fertig (gleiches Befüllungsschleifenproblem wie bei Desktop)

Customers/LKWs.aspx

@@ -186,6 +186,51 @@
             let newCell2 = newRow.insertCell(2)
             let newCell3 = newRow.insertCell(3)
 
+            newCell.innerHTML = par1
+            newCell1.innerHTML = par2
+            newCell2.innerHTML = par3
+            newCell3.innerHTML = par4
+        }
+        function TableRowClick_M(list, Kennzeichen, Nat) {
+            var arrayObject = [];
+            var table = document.getElementById("<%=tbl_2.ClientID%>");
+            var Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder_M.ClientID%>")
+            var natplaceholder = document.getElementById("<%=lbl_Placeholder_M.ClientID%>")
+
+            Speditionslabel.textContent = Kennzeichen
+            natplaceholder.textContent = Nat
+            for (let i = 0; i < list.length; i++) {
+                var Arr = list(i).split(";");
+                for (let arrint = 0; arrint < 5; arrint++)
+                    var SDLNr = Arr[arrint];
+                arrint++;
+                var Bez = Arr[arrint];
+                arrint++;
+                var Gueltigbis = Arr[arrint];
+                arrint++;
+                var KartenNr = Arr[arrint];
+                arrint++;
+                var Placeholder = Arr[arrint];
+                arrint++;
+                var Nat = Arr[arrint];
+                alert(SDLNr)
+                alert(Bez)
+                alert(Gueltigbis)
+                alert(KartenNr)
+                addRow(table.id, SDLNr, Bez, Gueltigbis, KartenNr)
+                arrint;
+            }
+        }
+        function addRow(tableID, par1, par2, par3, par4) {
+            let tableRef = document.getElementById(tableID);
+
+            let newRow = tableRef.insertRow(-1);
+
+            let newCell = newRow.insertCell(0);
+            let newCell1 = newRow.insertCell(1)
+            let newCell2 = newRow.insertCell(2)
+            let newCell3 = newRow.insertCell(3)
+
             newCell.innerHTML = par1
             newCell1.innerHTML = par2
             newCell2.innerHTML = par3

Customers/LKWs.aspx.vb

@@ -8,6 +8,7 @@ Partial Class LKWS
     Inherits System.Web.UI.Page
     Dim Kdnrtext As String = String.Empty
     Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
+    Dim list_M As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
     Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         VERAG_VARIABLES.initerrorcount()
 
@@ -110,7 +111,14 @@ Partial Class LKWS
                     list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet.Text)
                 Next
             Next
-            tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToArray.ToString & """,""" & l1.KfzKennzeichen & """,""" & l1.Nationalität & """)")
+            Dim strtemp2 As String = String.Empty
+
+            If String.IsNullOrEmpty(l1.Nationalität) Then
+                strtemp2 = "Keine Angabe"
+            Else
+                strtemp2 = l1.Nationalität
+            End If
+            tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
         Next
@@ -227,14 +235,14 @@ Partial Class LKWS
             Else
                 tc_Vermerk_M.Text = li_M.Vermerk.ToString
             End If
-
+            tr2.Cells.Add(tc_Vermerk_M)
             initcells(headrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr2, tc_KfZKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KzAn_M, tc_Vermerk_M, cnt)
             tbl_2.Rows.Add(tr2)
             cnt += 1
         Next
     End Sub
     Protected Sub Button_hid_Click(sender As Object, e As EventArgs)
-        MsgBox("Test erfolgreich!")
+        'MsgBox("Test erfolgreich!")
     End Sub
     Protected Sub btn_alle_M_Click(sender As Object, e As EventArgs)
         If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
@@ -244,8 +252,8 @@ Partial Class LKWS
         End If
 
         Dim cnt As Integer = 0
-        list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
 
+        list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
         Dim tblhrow_M As TableHeaderRow = New TableHeaderRow
 
         tblhrow_M.Cells.Add(tbhc_KFZKennz_M)
@@ -253,37 +261,83 @@ Partial Class LKWS
         tblhrow_M.Cells.Add(tbhc_Verk_M)
         tblhrow_M.Cells.Add(tbhc_KZ_An_M)
         tblhrow_M.Cells.Add(tbhc_Verm_M)
+
         tbl_2.Rows.Add(tblhrow_M)
 
-        For Each l3 In list
+        'tbl_sidemenue.Rows.Clear()
-            Dim tr3 As New TableRow
+        'MsgBox("Test2")
-            Dim tc_M_KZFZkennz As TableCell = New TableCell
+        For Each l1 In list_M
-            Dim tc_M_Nat As TableCell = New TableCell
+            Dim tr1 As TableRow = New TableRow()
-            Dim tc_M_Verk As TableCell = New TableCell
+            Dim tc_KfzKennz_M As TableCell = New TableCell()
-            Dim tc_M_KZ_AN As TableCell = New TableCell
+            Dim tc_Nationalitaet_M As TableCell = New TableCell()
-            Dim tc_M_Vermerk As TableCell = New TableCell
+            Dim tc_Verk_M As TableCell = New TableCell()
-
+            Dim tc_KZ_Ab_M As TableCell = New TableCell()
-            tc_M_KZFZkennz.Text = l3.KfzKennzeichen
+            Dim tc_Vermerk_M As TableCell = New TableCell()
-            tr3.Cells.Add(tc_M_KZFZkennz)
+            Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
-            tc_M_Nat.Text = String.Empty
+            Dim list3 As List(Of String) = New List(Of String)
-            tr3.Cells.Add(tc_M_Nat)
+            tc_KfzKennz_M.Text = l1.KfzKennzeichen
-            Dim cb_Verk_M As CheckBox = New CheckBox
+            tr1.Cells.Add(tc_KfzKennz_M)
-            tc_M_Verk.Controls.Add(cb_Verk_M)
+            If IsNothing(l1.Nationalität) = True Then
-            tr3.Cells.Add(tc_M_Verk)
+                tc_Nationalitaet_M.Text = String.Empty
-            Dim cb2_M As CheckBox = New CheckBox
+            ElseIf String.IsNullOrEmpty(l1.Nationalität.ToString) = True Then
-            tc_M_KZ_AN.Controls.Add(cb2_M)
+                tc_Nationalitaet_M.Text = String.Empty
-            tr3.Cells.Add(tc_M_KZ_AN)
-            If IsNothing(l3.Vermerk) = True Then
-                tc_M_Vermerk.Text = String.Empty
-            ElseIf String.IsNullOrEmpty(l3.Vermerk.ToString) = True Then
-                tc_M_Vermerk.Text = String.Empty
             Else
-                tc_M_Vermerk.Text = l3.Vermerk
+                tc_Nationalitaet_M.Text = l1.Nationalität.ToString
             End If
-            tr3.Cells.Add(tc_M_Vermerk)
+            tr1.Cells.Add(tc_Nationalitaet_M)
+            Dim cbverk_M As CheckBox = New CheckBox()
+            tc_Verk_M.Controls.Add(cbverk_M)
+            cbverk_M.Enabled = False
+            tr1.Cells.Add(tc_Verk_M)
+            If l1.Verkauft = True Then
+                cbverk_M.Checked = True
+            Else
+                cbverk_M.Checked = False
+            End If
+            Dim chbx2_Kz_ab_M As CheckBox = New CheckBox()
+            chbx2_Kz_ab_M.Enabled = False
+            If (l1.Abgemeldet = True) Then
+                chbx2_Kz_ab_M.Checked = True
+            Else
+                chbx2_Kz_ab_M.Checked = False
+            End If
+            tc_KZ_Ab_M.Controls.Add(chbx2_Kz_ab_M)
+            tr1.Cells.Add(tc_KZ_Ab_M)
+            If IsNothing(l1.Vermerk) = True Then
+                tc_Vermerk_M.Text = String.Empty
+            ElseIf String.IsNullOrEmpty(l1.Vermerk.ToString) = True Then
+                tc_Vermerk_M.Text = String.Empty
+            Else
+                tc_Vermerk_M.Text = l1.Vermerk.ToString
+            End If
+            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)
+            Dim Stringtemp As String = String.Empty
+            Dim Spedlabel As String = String.Empty
+            For Each l2 In list2
+                Dim String2 As String = String.Empty
+
+                If IsNothing(l2.Schadstoffklasse) = False Then
+                    Stringtemp = l2.Kategorie.ToString
+                Else
+                    Stringtemp = String.Empty
+                End If
+                For Each l3 In list3
+                    list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet_M.Text)
+                Next
+            Next
+            Dim strtemp2 As String = String.Empty
+
+            If String.IsNullOrEmpty(l1.Nationalität) Then
+                strtemp2 = "Keine Angabe"
+            Else
+                strtemp2 = l1.Nationalität
+            End If
+            tr1.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
             cnt += 1
-            initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr3, tc_M_KZFZkennz, tc_M_Nat, tc_M_Verk, tc_M_KZ_AN, tc_M_Vermerk, cnt)
+            tbl_2.Rows.Add(tr1)
         Next
+        'MsgBox("Test3")
     End Sub