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

Lösung ansatz gefunden wird morgen implementiert.

Browse Source
This commit is contained in:
ja
2021-12-20 16:46:13 +01:00
parent 01db52b161
commit c8f770fd19
2 changed files with 37 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
Customers/LKWs.aspx
View File

@@ -142,8 +142,8 @@
<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) {
buildtableajax()
function TableRow_Click(Nat, Kennzeichen,tempstrarr) {
debugger
let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder.ClientID%>")
let natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>")
let table = document.getElementById("<%=tbl_mainpage.ClientID%>")
@@ -154,11 +154,13 @@
for (let i = rowCount - 1; i > 0; i--) {
table.deleteRow(i);
}
}
let arrtemp = tempstrarr.split(",")
addNewRow()
}
function TableRow_Click_M(Nat, Kennzeichen) {
buildtableajax_M()
function TableRow_Click_M(Nat, Kennzeichen,tempstrarr_M) {
debugger
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%>")
@@ -169,58 +171,12 @@
for (let i = rowCount - 1; i > 0; i--) {
table_M.deleteRow(i);
}
}
function buildtableajax() {
var LKW = new Array();
var convertLKWs;
LKW.push(BuildTable(SDL,Bez,gueltigbis,KartNr));
LKW = JSON.stringfy(LKW);
$.ajax({
url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
data: { LKW: convertedLKWs },
type: 'POST',
success: function (LKW) {
var result = JSON.parse(LKW);
alert(result[0].SDLNr)
for (let i = 0; i < result.length; i++) {
buildtable(result.length, result[i].SDL, result[i].Bezeichnung, result[i].DateGueltig, result[i].CardNr)
let arrtemp = tempstrarr_M.split("-")
for (int j = 0; j < arrtemp.length; j++) {
alert(arrtemp[j])
}
}
});
}
function buildtableajax_M() {
var LKW_M = new Array();
var convertLKW;
address.push(BuildTable_M(SDL, Bez, gueltigbis, KartNr));
convertedAddress = JSON.stringfy(LKW_M);
$.ajax({
url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
data: { LKW_M: convertedLKWs },
type: 'POST',
success: function (LKW_M) {
var result_M = JSON.parse(LKW_M);
for (let i = 0; i < result_M.length; i++) {
buildtable(result_M.length, result_M[i].SDL, result_M[i].Bezeichnung, result_M[i].DateGueltig, result_M[i].CardNr)
}
}
});
}
function buildtable(n, SDL,Bez,Dtguelt,KartNr) {
let table = document.getElementById("<%=tbl_mainpage.ClientID%>");
addheader();
for (let intz = 0; intz < n; intz++) {
addNewRow(SDL,Bez,Dtguelt,KartNr);
}
}
function buildtable_M(n, SDL,Bez, Dtguelt, KartNr) {
let table_M = document.getElementById("<%=tbl_mainpage_M.ClientID%>");
@@ -329,5 +285,15 @@
CardNr: KartNr,
};
}
</script>
<script type="text/javascript">
function doPostBack(id, strtemp) {
var arr = strtemp.split(",")
for (let i = 0; i < arr.length; i++) {
alert(id + '&' + arr[i]);
}
}
</script>
</asp:Content>

26
Customers/LKWs.aspx.vb
View File

@@ -1,5 +1,6 @@

Imports System
Imports System.ComponentModel
Imports System.Web.Script.Serialization
Imports System.Web.Security
Imports System.Web.Services
@@ -61,7 +62,7 @@ Partial Class LKWS
tblhrow.Cells.Add(tblhc_Kz)
tblhrow.Cells.Add(tblhc_Verm)
tbl_sidemenue.Rows.Add(tblhrow)
Dim strstrstrstretemparr As String = String.Empty
'tbl_sidemenue.Rows.Clear()
'MsgBox("Test2")
For Each l1 In list
@@ -127,6 +128,7 @@ Partial Class LKWS
Dim stringtemtr As String = String.Empty
Dim tr As TableRow = New TableRow
Dim list3 As List(Of String) = New List(Of String)
Dim strstrstrstrtemp As String = String.Empty
For Each l2 In list2
Dim String2 As String = String.Empty
@@ -152,8 +154,10 @@ Partial Class LKWS
tr.Cells.Add(tc_Karten_Nr)
'tbl_mainpage.Rows.Add(tr)
TableRows.Add(tr)
strstrstrstrtemp = tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text
End If
strlongarr = String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
list3.Add(strstrstrstrtemp)
'MsgBox(TableRows.Count.ToString)
Next
If String.IsNullOrEmpty(l1.Nationalität) = True Then
@@ -161,20 +165,20 @@ Partial Class LKWS
Else
strtemp2 = l1.Nationalität
End If
ConvertToJSON(list3)
tr1.Attributes.Add("onclick", "Javascript:TableRow_Click(""" & strtemp2 & """,""" & l1.KfzKennzeichen & """,""" & strlongarr & """)")
tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" & tr1.Cells.Item(0).Text & """,""" & ConvertToJSON(list3) & """')")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next
'MsgBox("Test3")
End Sub
Public Sub ConvertToJSON(lst As List(Of String))
Public Function ConvertToJSON(lst As List(Of String)) As String
Dim jss1 As New JavaScriptSerializer()
Dim _myJSONstring As String = jss1.Serialize(lst)
Dim LKW As String = (Convert.ToString("var LKW=") & _myJSONstring) + ";"
Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "player123", LKW, True)
End Sub
Return _myJSONstring
End Function
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)
@@ -335,6 +339,7 @@ Partial Class LKWS
Dim tc_Vermerk_M As TableCell = New TableCell()
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l3.KfzKennzeichen)
Dim list3 As List(Of String) = New List(Of String)
Dim strstrtemp As String = String.Empty
tc_KfzKennz_M.Text = l3.KfzKennzeichen
tr1_M.Cells.Add(tc_KfzKennz_M)
If IsNothing(l3.Nationalität) = True Then
@@ -395,7 +400,7 @@ Partial Class LKWS
tr.Cells.Add(tc_Bez)
tr.Cells.Add(tc_GueltigBis)
tr.Cells.Add(tc_Kartennr)
strstrtemp += String.Join("-", l2.SDLNr.ToString + "," + Stringtemp_M + "," + l2.GültigBis.ToString + "," + l2.KartenNr.ToString)
'tbl_mainpage_M.Rows.Add(tr)
TableRows_M.Add(tr)
Next
@@ -406,7 +411,8 @@ Partial Class LKWS
strtemp2 = l3.Nationalität
End If
tbl_mainpage_M.Rows.Clear()
tr1_M.Attributes.Add("OnClick", "Javascript:TableRow_Click_M(""" & strtemp2 & """,""" & l3.KfzKennzeichen & """)")
list3.Add(strstrtemp)
tr1_M.Attributes.Add("OnClick", "Javascript:TableRow_Click_M(""" & strtemp2 & """,""" & l3.KfzKennzeichen & """,""" & ConvertToJSON(list3) & """);")
tbl_2.Rows.Add(tr1_M)
cnt += 1
Next