diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx index 350e134..d9d422c 100644 --- a/Customers/LKWs.aspx +++ b/Customers/LKWs.aspx @@ -423,40 +423,60 @@ //addNewRow(SDL,Bez,Datguenstig,KartNr) // Pagemethods.filltable2(<%' =tbl_mainpage %> , SDL, Bez, Datguenstig, KartNr) //} - var data = { - "Kennzeichen": id.split(',')[0] - }; + var data = {}; + data['Kennzeichen'] = id.split(',')[0]; + + $.ajax({ type: "POST", url: "LKWs.aspx/filltable2", contentType: "application/json; charset=utf-8", dataType: "json", - async: "false", data: JSON.stringify(data), - success: function (result) { - + success: function (data) { + result = data.d; + // addheader(); + let strHTML = 'SDL-NrBezeichnungGueltig bisKarten Nummer'; alert('Horray! 200 status code!'); - alert(result.d) - renderTable(result.d) + // alert(result.rows.length) + $(result).each(function () { + let row = $(this)[0]; + strHTML += '' + row["SDL"] + '' + row["Bez"] + '' + row["Gueltigbis"] + '' + row["KartNr"] + ''; + + alert(row) + $('#<%=tbl_mainpage.ClientID%>').innerHTML = strHTML; + }); }, error: function (jqXHR, textStatus, errorThrown) { alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown); } - }); + }); + function OnSuccess(result) { + addheader(); + alert('Horray! 200 status code!'); + alert(result.rows.length) + for (let i = 0; i < result.rows.length; i++) { + let row = $('' + result.rows[i].SDL + '' + result.rows[i].Bez + '' + result.rows[i].DateGueltig + '' + result.rows[i].KartNr + ''); + alert(row) + } + } //filltable2(id.split(',')[0]) } function doPostBack_M(id_M) { let Speditionslabel = document.getElementById('<%=lbl_sped_Placeholder_M.ClientID%>'); let natplaceholder = document.getElementById('<%=lbl_Placeholder_M.ClientID%>'); alert(id_M) - let table_M = document.getElementById('<%=tablemain_m.ClientID%>'); + let table_M = document.getElementById('<%=tbl_mainpage_M.ClientID%>'); let rowCount = table_M.rows.length; + for (let i = rowCount - 1; i > 0; i--) { table_M.deleteRow(i); } Speditionslabel.textContent = id_M.split(',')[0]; natplaceholder.textContent = id_M.split(',')[1]; + + //debugger //for (let i = 0; i <= 5; i++) { // let SDL = "453543535434334543"; @@ -466,28 +486,36 @@ //addNewRow(SDL,Bez,Datguenstig,KartNr) // Pagemethods.filltable2(<%' =tbl_mainpage_M%> , SDL, Bez, Datguenstig, KartNr) //} - var data = { - "Kennzeichen": id_M.split(',')[0] - }; + var data_m = {}; + data_m['Kennzeichen'] = id.split(',')[0]; $.ajax({ type: "POST", url: "LKWs.aspx/filltable2_M", contentType: "application/json; charset=utf-8", dataType: "json", - async: "false", - data: JSON.stringify(data), - success: function (data) { + data: JSON.stringify(data_m), + async: true, + success: function (data_m) { + result = data_m.d; + // addheader(); + let strHTML = ' SDL-Nr Bezeichnung Gueltig bisKarten Nummer'; + alert('Horray! 200 status code!'); - - alert('Horray! 200 status code!'); - alert(data.d) - renderTable_M(data.d); - }, + $(result).each(function () { + let row = $(this)[0]; + strHTML += '' + row["SDL"] + '' + row["Bez"] + '' + row["Gueltigbis"] + '' + row["KartNr"] + ''; + + alert(row) + $('#<%=tbl_mainpage_M.ClientID%>').innerHTML = strHTML; + }); + }, error: function (jqXHR, textStatus, errorThrown) { alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown); - } - }); + } + + }); + //filltable2(id.split(',')[0]) } diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index c212b3c..36b1eb3 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -459,43 +459,40 @@ Partial Class LKWS End Sub End Class - - + + Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry) - Dim strtemp2 As String = Kennzeichen.Remove(Kennzeichen.Length - 1, 1) - Dim strtemp3 As String = strtemp2.Remove(0, 1) - MsgBox(Kdnrtext + vbCr + strtemp3) Dim list As List(Of Entry) = New List(Of Entry) - Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen) - If list2.Count > 0 Then - For Each l2 In list2 - Dim entr As Entry = New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString) - list.Add(entr) - Next - ElseIf list2.Count = 0 Then - Dim container As New Entry("Keine", "gültigen", "Daten", "gefunden!") - list.Add(container) - End If + Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen) + For Each l2 In list2 + Dim Entrytemp As New Entry + Entrytemp.SDL = l2.SDLNr.ToString + Entrytemp.Bez = l2.Kategorie.ToString + Entrytemp.GueltigBis = l2.GültigBis.ToString + Entrytemp.Kartnr = l2.KartenNr.ToString + list.Add(Entrytemp) + Next Return list End Function - - + Public Class Entry + Public SDL As String = String.Empty + Public Bez As String = String.Empty + Public Gueltigbis As String = String.Empty + Public KartNr As String = String.Empty + End Class + Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry) - Dim strtemp2 As String = Kennzeichen.Remove(Kennzeichen.Length - 1, 1) - Dim strtemp3 As String = strtemp2.Remove(0, 1) - MsgBox(Kdnrtext + vbCr + strtemp3) Dim list As List(Of Entry) = New List(Of Entry) - Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen) - If list2.Count > 0 Then - For Each l2 In list2 - Dim entr As Entry = New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString) - list.Add(entr) - Next - ElseIf list2.Count = 0 Then - Dim container As New Entry("Keine", "gültigen", "Daten", "gefunden!") - list.Add(container) - End If + Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen) + For Each l2 In list2 + Dim Entrytemp As New Entry + Entrytemp.SDL = l2.SDLNr.ToString + Entrytemp.Bez = l2.Kategorie.ToString + Entrytemp.Gueltigbis = l2.GültigBis.ToString + Entrytemp.KartNr = l2.KartenNr.ToString + list.Add(Entrytemp) + Next Return list End Function End Class