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

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