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

Serverseitiges Ändern wurde angefangen implementiert zu werden.

Browse Source
This commit is contained in:
ja
2021-12-16 11:52:00 +01:00
parent 0b7f25475c
commit 53843457f1
9 changed files with 213 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Customers/LKWs.aspx.vb
View File

@@ -9,6 +9,20 @@ Partial Class LKWS
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
Dim tbl2mainpagetemp As Table
Dim TableRows As List(Of TableRow) = New List(Of TableRow)
Dim TableRows_M As List(Of TableRow) = New List(Of TableRow)
Protected Sub Page_OnInit(sender As Object, e As EventArgs)
If TableRows.Count = 0 Then
For Each tr In TableRows
tbl_mainpage_M.Rows.Add(tr)
Next
Else
For Each tr In TableRows
tbl_mainpage.Rows.Add(tr)
Next
End If
End Sub
Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load
VERAG_VARIABLES.initerrorcount()
@@ -57,7 +71,6 @@ Partial Class LKWS
Dim tc_KZ_Ab As TableCell = New TableCell()
Dim tc_Vermerk As TableCell = New TableCell()
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
Dim list3 As List(Of String) = New List(Of String)
tc_KfzKennz.Text = l1.KfzKennzeichen
tr1.Cells.Add(tc_KfzKennz)
@@ -100,6 +113,7 @@ Partial Class LKWS
Dim strtemparr As String = String.Empty
Dim strtemp2 As String = String.Empty
Dim strarrtemp = String.Empty
tbl2mainpagetemp = New Table
For Each l2 In list2
Dim String2 As String = String.Empty
@@ -108,8 +122,21 @@ Partial Class LKWS
Else
Stringtemp = String.Empty
End If
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Dim tr As TableRow = New TableRow
Dim tc_SDL As TableCell = New TableCell
Dim tc_Bez As TableCell = New TableCell
Dim tc_gueltigbis As TableCell = New TableCell
Dim tc_Karten_Nr As TableCell = New TableCell
tc_SDL.Text = l2.SDLNr.ToString
tc_Bez.Text = Stringtemp
tc_gueltigbis.Text = l2.GültigBis.ToString
tc_Karten_Nr.Text = l2.KartenNr.ToString
tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_Bez)
tr.Cells.Add(tc_gueltigbis)
tr.Cells.Add(tc_Karten_Nr)
TableRows.Add(tr)
'MsgBox(TableRows.Count.ToString)
Next
If String.IsNullOrEmpty(l1.Nationalität) = True Then
strtemp2 = "Keine Angabe"
@@ -117,10 +144,7 @@ Partial Class LKWS
strtemp2 = l1.Nationalität
End If
For Each l4 In list3
strarrtemp = String.Join("-", l4.ToString)
Next
tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
tr1.Attributes.Add("onclick", "Javascript:TableRow_Click(""" & strtemp2 & """,""" & l1.KfzKennzeichen & """)")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next
@@ -201,8 +225,7 @@ Partial Class LKWS
Next
End Sub
Protected Sub TableRowClick(ByVal sender As TableRow, e As EventArgs)
End Sub
Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs)
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
@@ -261,9 +284,7 @@ Partial Class LKWS
cnt += 1
Next
End Sub
Protected Sub Button_hid_Click(sender As Object, e As EventArgs)
'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
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
@@ -348,9 +369,10 @@ Partial Class LKWS
For Each Ltenp In list2
str2temptemp = String.Join("-", Ltenp)
Next
tr1_M.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & str2temptemp & """,""" & l3.KfzKennzeichen & """,""" & strtemp2 & """)")
tr1_M.Attributes.Add("OnClick", "Javascript:TableRow_Click_M(""" & strtemp2 & """,""" & l3.KfzKennzeichen & """)")
tbl_2.Rows.Add(tr1_M)
cnt += 1
Next
End Sub
End Class