erste Tests

This commit is contained in:
ja
2021-12-20 11:27:31 +01:00
parent b506a7acc1
commit 5fac93554f
5 changed files with 127 additions and 95 deletions

View File

@@ -142,75 +142,68 @@
<script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.0/umd/popper.min.js" integrity="sha384-cs/chFZiN24E4KMATLdqdvsezGxaGsi4hLGOzlXwp5UZB1LY//20VyM2taTB4QvJ" crossorigin="anonymous"></script>
<script type="text/javascript">
function TableRow_Click(Nat, Kennzeichen) {
debugger
var arr = new Array();
var convertarr;
arr.push(buildtablerow(<%=tbl_mainpage%>,SDL, Bez, gueltigBis, KartNr));
convertarr = JSON.stringfy(arr);
$.ajax({
url: '<%= Page.ResolveUrl("~/Services/Location.aspx") %>',
data: { Address: convertarr },
type: 'POST',
success: function (arr) {
var resultarr = JSON.parse(arr);
// Do something with result, example: result[0].City
for (let i = 0; i < resultarr.length; i++) {
function TableRow_Click(Nat, Kennzeichen) {
let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder.ClientID%>")
let natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>")
let table = document.getElementById("<%=tbl_mainpage.ClientID%>")
Speditionslabel.textContent = Kennzeichen;
natplaceholder.textContent = Nat;
var SDL = resultarr[i].SDLNumber<%'=VERAG_VARIABLES.RandomInteger(Math.Pow(2, 15), Math.Pow(2, 20)).ToString%>;
var Bez = resultarr[i].Bezstr;
var Datumgueltigbis = resultarr[i].Datgueltigbisstr;
var KartenNr = resultarr[i].KartNr;
var rowCount = table.rows.length;
for (let i = rowCount - 1; i > 0; i--) {
table.deleteRow(i);
}
buildtable(resultarr.length,SDL, Bez, Datumgueltigbis, KartenNr)
}
}
});
}
buildtableajax()
}
function TableRow_Click_M(Nat, Kennzeichen) {
var arr_M = new Array();
var convertArr_M;
arr_M.push(buildtablerow(<%=tbl_mainpage_M%>, SDL, Bez, gueltigBis, KartNr));
convertedArr_M = JSON.stringfy(arr_M);
$.ajax({
url: '<%= Page.ResolveUrl("~/Services/Location.aspx") %>',
data: { Address: convertArr_M },
type: 'POST',
success: function (arr_M) {
var resultArr_M = JSON.parse(arr_M);
// Do something with result, example: result[0].City
function TableRow_Click_M(Nat, Kennzeichen) {
let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder_M.ClientID%>");
let natplaceholder = document.getElementById("<%=lbl_Placeholder_M.ClientID%>");
let table_M = document.getElementById("<%=tbl_mainpage_M.ClientID%>")
Speditionslabel.textContent = Kennzeichen;
natplaceholder.textContent = Nat;
var SDL_M = resultArr_M[i].SDLNumber_M;
var Bez_M = resultArr_M[i].Bezstr_M;
var Datumgueltigbis_M = resultArr_M[i].Datgueltigbisstr_M;
var KartenNr_M = resultArr_M[i].KartNr_M;
var rowCount_M = table_M.rows.length;
for (var i = rowCount_M - 1; i > 0; i--) {
var rowCount = table.rows.length;
for (let i = rowCount - 1; i > 0; i--) {
table_M.deleteRow(i);
}
buildtable_M(resultArr_M.length,SDL_M, Bez_M, Datumgueltigbis_M, KartenNr_M)
}
buildtableajax_M()
}
function buildtableajax() {
var address = new Array();
var convertAddress;
address.push(BuildTable(SDL,Bez,gueltigbis,KartNr));
convertedAddress = JSON.stringfy(address);
$.ajax({
url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
data: { Address: convertedAddress },
type: 'POST',
success: function (address) {
var result = JSON.parse(address);
// Do something with result, example: result[0].City
}
});
}
function buildtableajax_M() {
var address = new Array();
var convertAddress;
address.push(BuildTable_M(SDL, Bez, gueltigbis, KartNr));
convertedAddress = JSON.stringfy(address);
$.ajax({
url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
data: { Address: convertedAddress },
type: 'POST',
success: function (address) {
var result = JSON.parse(address);
// Do something with result, example: result[0].City
}
});
}
@@ -312,5 +305,23 @@
td = tr.insertCell();
td.innerHTML = Kartnr;
}
</script>
function BuildTable(SDL, Bez, gueltigbis, KartNr) {
var address = null;
item = {
SDLNr: SDL,
Bezeichnung: Bez,
DateGueltig: gueltigbis,
CardNr: KartNr,
};
}
function BuildTable_M(SDL, Bez, gueltigbis, KartNr) {
var address = null;
item = {
SDLNr: SDL,
Bezeichnung: Bez,
DateGueltig: gueltigbis,
CardNr: KartNr,
};
}
</script>
</asp:Content>

View File

@@ -2,6 +2,7 @@
Imports System
Imports System.Web.Script.Serialization
Imports System.Web.Security
Imports System.Web.Services
Imports System.Web.UI.WebControls
Partial Class LKWS
@@ -125,6 +126,7 @@ Partial Class LKWS
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
Dim stringtemtr As String = String.Empty
Dim tr As TableRow = New TableRow
Dim list3 As List(Of String) = New List(Of String)
For Each l2 In list2
Dim String2 As String = String.Empty
@@ -147,7 +149,8 @@ Partial Class LKWS
tr.Cells.Add(tc_Bez)
tr.Cells.Add(tc_gueltigbis)
tr.Cells.Add(tc_Karten_Nr)
strtemparr = "<tr><td>" + tc_SDL.Text + "</td><td>" + tc_Bez.Text + "</td><td>" + tc_gueltigbis.Text + "</td><td>" + tc_Karten_Nr.Text + "</td></tr>"
list3.Add(tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
'tbl_mainpage.Rows.Add(tr)
TableRows.Add(tr)
End If
@@ -158,7 +161,7 @@ Partial Class LKWS
Else
strtemp2 = l1.Nationalität
End If
ConvertToJSON(list3)
tr1.Attributes.Add("onclick", "Javascript:TableRow_Click(""" & strtemp2 & """,""" & l1.KfzKennzeichen & """)")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
@@ -166,13 +169,14 @@ Partial Class LKWS
'MsgBox("Test3")
End Sub
Public Sub ConvertToJSON(lst As VERAG_PROG_ALLGEMEIN.cSDL_LKW)
Public Sub ConvertToJSON(lst As List(Of String))
Dim jss1 As New JavaScriptSerializer()
Dim _myJSONstring As String = jss1.Serialize(lst)
Dim player As String = (Convert.ToString("var player=") & _myJSONstring) + ";"
Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "player123", player, True)
End Sub
Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer)
'Dim res As Integer
thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
@@ -408,4 +412,5 @@ Partial Class LKWS
Next
End Sub
End Class