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

Änderung jetzt wird auch die Kartennummer angezeigt

Browse Source
This commit is contained in:
ja
2022-02-14 14:30:20 +01:00
parent 8faf1185ab
commit 41b2b297fe
4 changed files with 32 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Customers/LKWs.aspx.vb
View File

@@ -152,6 +152,7 @@ Partial Class LKWS
Dim strstrstrstrtempKundNr As String = String.Empty
Dim strstrstrstrtempHistory As String = String.Empty
Dim strstrstrstrtempSDL As String = String.Empty
Dim strstrstrstrtempGueltigBis As String = String.Empty
For Each l2 In list2
Dim String2 As String = String.Empty
@@ -174,6 +175,7 @@ Partial Class LKWS
tc_Karten_Nr.Text = l2.KartenNr.ToString
strstrstrstrtempKundNr = l2.KundenNr.ToString
strstrstrstrtempHistory = l2.History.ToString
strstrstrstrtempGueltigBis = l2.GültigBis.ToString
If String.Equals(l2.KfzKennzeichen.ToString, l1.KfzKennzeichen.ToString) = True Then
tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_Bez)
@@ -181,7 +183,7 @@ Partial Class LKWS
tr.Cells.Add(tc_Karten_Nr)
'tbl_mainpage.Rows.Add(tr)
TableRows.Add(tr)
strstrstrstrtemp += String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
strstrstrstrtemp += String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + strstrstrstrtempCardno)
End If
list3.Add(strstrstrstrtemp)
@@ -193,7 +195,7 @@ Partial Class LKWS
strtemp2 = l1.Nationalität
End If
tr1.Attributes.Add("onclick", "Javascript:doPostBack('" + tr1.Cells.Item(0).Text + "," + strtemp2 + "," + Kdnrtext + "," + strstrstrstrtempCardno + "," + strstrstrstrtempSDL + "," + strstrstrstrtempHistory + "')")
tr1.Attributes.Add("onclick", "Javascript:doPostBack('" + tr1.Cells.Item(0).Text + "," + strtemp2 + "," + Kdnrtext + "," + strstrstrstrtempCardno + "," + strstrstrstrtempSDL + "," + strstrstrstrtempHistory + "," + strstrstrstrtempGueltigBis + "')")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next
@@ -377,6 +379,7 @@ Partial Class LKWS
Dim strstrstrstrtempKundNr As String = String.Empty
Dim strstrstrstrtempHistory As String = String.Empty
Dim strstrstrstrtempSDL As String = String.Empty
Dim strstrstrstrtempGueltigBis As String = String.Empty
Dim strstrtemp As String = String.Empty
tc_KfzKennz_M.Text = l3.KfzKennzeichen
tr1_M.Cells.Add(tc_KfzKennz_M)
@@ -410,6 +413,7 @@ Partial Class LKWS
tc_Karten_Nr.Text = l2.KartenNr.ToString
strstrstrstrtempKundNr = l2.KundenNr.ToString
strstrstrstrtempHistory = l2.History.ToString
strstrstrstrtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10)
If String.Equals(l2.KfzKennzeichen.ToString, l3.KfzKennzeichen.ToString) = True Then
tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_Bez)
@@ -467,7 +471,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 + "," + strstrstrstrtempCardno + "," + strstrstrstrtempSDL + "," + strstrstrstrtempHistory + "')")
tr1_M.Attributes.Add("onclick", "Javascript:doPostBack_M('" + tr1_M.Cells.Item(0).Text + "," + strtemp2 + "," + Kdnrtext + "," + strstrstrstrtempCardno + "," + strstrstrstrtempSDL + "," + strstrstrstrtempHistory + "," + strstrstrstrtempGueltigBis + "')")
cnt += 1
tbl_2.Rows.Add(tr1_M)
Next
@@ -625,7 +629,7 @@ Partial Class LKWS
End Class
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltable2(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String) As FormattedList
Public Shared Function filltable2(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String, GueltigBis As String) As FormattedList
Dim list As List(Of String) = New List(Of String)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kundennr), Kennzeichen)
@@ -639,7 +643,7 @@ Partial Class LKWS
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10)
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
@@ -679,7 +683,7 @@ Partial Class LKWS
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10)
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
@@ -688,14 +692,14 @@ Partial Class LKWS
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 Then
Entrytemp.Add(l2.SDLNr.ToString)
Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis)
Entrytemp.Add(strtempKartenNr)
Entrytemp.Add(Kennzeichen)
Entrytemp.Add(Kdnrtext)
Entrytemp.Add(SDLNr)
Entrytemp.Add(History)
container.Add(Entrytemp)
Entrytemp.Add(strtempKat)
Entrytemp.Add(strtempGueltigBis)
Entrytemp.Add(strtempKartenNr)
Entrytemp.Add(Kennzeichen)
Entrytemp.Add(Kdnrtext)
Entrytemp.Add(SDLNr)
Entrytemp.Add(History)
container.Add(Entrytemp)
' End If
Next