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

Überprüfung auf Schlüsselparameter implementiert mit Server-Client Unterstützung

Browse Source
This commit is contained in:
ja
2022-02-03 10:43:16 +01:00
parent f483d07872
commit 6aec0d8ab7
5 changed files with 3424 additions and 3374 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Customers/LKWs.aspx.vb
View File

@@ -147,6 +147,10 @@ Partial Class LKWS
Dim tr As TableRow = New TableRow
Dim list3 As List(Of String) = New List(Of String)
Dim strstrstrstrtemp As String = String.Empty
Dim strstrstrstrtempCardno As String = String.Empty
Dim strstrstrstrtempKennz As String = String.Empty
Dim strstrstrstrtempKundNr As String = String.Empty
Dim strstrstrstrtempHistory As String = String.Empty
For Each l2 In list2
Dim String2 As String = String.Empty
@@ -155,7 +159,8 @@ Partial Class LKWS
Else
Stringtemp = l2.Kategorie.ToString
End If
strstrstrstrtempCardno = l2.KartenNr.ToString
strstrstrstrtempKennz = l2.KfzKennzeichen.ToString
Dim tc_SDL As TableCell = New TableCell
Dim tc_Bez As TableCell = New TableCell
Dim tc_gueltigbis As TableCell = New TableCell
@@ -164,7 +169,8 @@ Partial Class LKWS
tc_Bez.Text = Stringtemp
tc_gueltigbis.Text = l2.GültigBis.ToString
tc_Karten_Nr.Text = l2.KartenNr.ToString
strstrstrstrtempKundNr = l2.KundenNr.ToString
strstrstrstrtempHistory = l2.History.ToString
If String.Equals(l2.KfzKennzeichen.ToString, l1.KfzKennzeichen.ToString) = True Then
tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_Bez)
@@ -184,7 +190,7 @@ Partial Class LKWS
strtemp2 = l1.Nationalität
End If
tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """,""" + Kdnrtext + """,""" + tr1.Cells.Item(3).Text + """')")
tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """,""" + Kdnrtext + """,""" + strstrstrstrtempCardno + """,""" + strstrstrstrtempKennz + """,""" + strstrstrstrtempHistory + """')")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next
@@ -410,7 +416,7 @@ Partial Class LKWS
strtemp2 = l3.Nationalität
End If
tbl_mainpage_M.Rows.Clear()
tr1_M.Attributes.Add("onclick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & strtemp2 & """,""" & Kdnrtext & """,""" & l3.KfzKennzeichen & """,""" + tr1_M.Cells.Item(3).Text + """')")
tr1_M.Attributes.Add("onclick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & strtemp2 & """,""" & Kdnrtext & """,""" & l3.KfzKennzeichen & """')")
cnt += 1
tbl_2.Rows.Add(tr1_M)
Next
@@ -572,6 +578,12 @@ Partial Class LKWS
Dim list As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim sdlnrstrtemp As String = SDLNr.Remove(0, 1)
Dim finalSDLNrstr As String = sdlnrstrtemp.Remove(sdlnrstrtemp.Length - 1, 1)
Dim strtempKundennr As String = Kundennr.Remove(0, 1)
Dim finalstrKundNr As String = Kundennr.Remove(strtempKundennr.Length - 1, 1)
Dim Historytemp As String = History.Remove(0, 1)
Dim finalhistory As String = Historytemp.Remove(Historytemp.Length - 1, 1)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim container As New List(Of List(Of String))
For Each l2 In list2
@@ -590,7 +602,7 @@ Partial Class LKWS
End If
Dim Entrytemp As New List(Of String)
If SDLNr = l2.SDLNr.ToString AndAlso Kennzeichen = l2.KfzKennzeichen.ToString AndAlso Kundennr = l2.KundenNr.ToString AndAlso History = l2.History.ToString Then
If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True AndAlso String.Equals(finalhistory, l2.History.ToString) = True Then
Entrytemp.Add(l2.SDLNr.ToString)
Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis)
@@ -613,7 +625,12 @@ Partial Class LKWS
Dim list As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim sdlnrstrtemp As String = SDLNr.Remove(0, 1)
Dim finalSDLNrstr As String = sdlnrstrtemp.Remove(sdlnrstrtemp.Length - 1, 1)
Dim strtempKundennr As String = Kundennr.Remove(0, 1)
Dim finalstrKundNr As String = Kundennr.Remove(strtempKundennr.Length - 1, 1)
Dim Historytemp As String = History.Remove(0, 1)
Dim finalhistory As String = Historytemp.Remove(Historytemp.Length - 1, 1)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim container As New List(Of List(Of String))
For Each l2 In list2
@@ -632,7 +649,7 @@ Partial Class LKWS
End If
Dim Entrytemp As New List(Of String)
If String.Equals(SDLNr, l2.SDLNr.ToString) = True AndAlso String.Equals(Kennzeichen, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(Kundennr, l2.KundenNr.ToString) = True AndAlso String.Equals(History, l2.History.ToString) = True Then
If String.Equals(finalSDLNrstr, l2.SDLNr.ToString) = True AndAlso String.Equals(finalstr, l2.KfzKennzeichen.ToString) = True AndAlso String.Equals(finalstrKundNr, l2.KundenNr.ToString) = True AndAlso String.Equals(finalhistory, l2.History.ToString) = True Then
Entrytemp.Add(l2.SDLNr.ToString)
Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis)