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

Änderungen Karten GUI Sowie Datentransfer

Browse Source
This commit is contained in:
ja
2022-02-15 14:14:35 +01:00
parent d4e1a16857
commit 245c31861a
26 changed files with 124 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Customers/LKWs.aspx.vb
View File

@@ -153,6 +153,7 @@ Partial Class LKWS
Dim strstrstrstrtempHistory As String = String.Empty
Dim strstrstrstrtempSDL As String = String.Empty
Dim strstrstrstrtempGueltigBis As String = String.Empty
Dim strstrstrstrtempPin As String = String.Empty
For Each l2 In list2
Dim String2 As String = String.Empty
@@ -176,6 +177,7 @@ Partial Class LKWS
strstrstrstrtempKundNr = l2.KundenNr.ToString
strstrstrstrtempHistory = l2.History.ToString
strstrstrstrtempGueltigBis = l2.GültigBis.ToString
strstrstrstrtempPin = l2.PIN.ToString
If String.Equals(l2.KfzKennzeichen.ToString, l1.KfzKennzeichen.ToString) = True Then
tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_Bez)
@@ -195,7 +197,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 + "," + strstrstrstrtempGueltigBis + "')")
tr1.Attributes.Add("onclick", "Javascript:doPostBack('" + tr1.Cells.Item(0).Text + "," + strtemp2 + "," + Kdnrtext + "," + strstrstrstrtempCardno + "," + strstrstrstrtempSDL + "," + strstrstrstrtempHistory + "," + strstrstrstrtempGueltigBis + "," + strstrstrstrtempPin + "')")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next
@@ -380,6 +382,7 @@ Partial Class LKWS
Dim strstrstrstrtempHistory As String = String.Empty
Dim strstrstrstrtempSDL As String = String.Empty
Dim strstrstrstrtempGueltigBis As String = String.Empty
Dim strstrstrstrtempPin As String = String.Empty
Dim strstrtemp As String = String.Empty
tc_KfzKennz_M.Text = l3.KfzKennzeichen
tr1_M.Cells.Add(tc_KfzKennz_M)
@@ -414,6 +417,7 @@ Partial Class LKWS
strstrstrstrtempKundNr = l2.KundenNr.ToString
strstrstrstrtempHistory = l2.History.ToString
strstrstrstrtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10)
strstrstrstrtempPin = l2.PIN.ToString
If String.Equals(l2.KfzKennzeichen.ToString, l3.KfzKennzeichen.ToString) = True Then
tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_Bez)
@@ -629,7 +633,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, GueltigBis As String) As FormattedList
Public Shared Function filltable2(Kennzeichen As String, Kundennr As String, SDLNr As String, History As String, GueltigBis As String, Pin 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)
@@ -659,6 +663,7 @@ Partial Class LKWS
Entrytemp.Add(Kdnrtext)
Entrytemp.Add(SDLNr)
Entrytemp.Add(History)
Entrytemp.Add(Pin)
container.Add(Entrytemp)
' End If
Next
@@ -699,6 +704,7 @@ Partial Class LKWS
Entrytemp.Add(Kdnrtext)
Entrytemp.Add(SDLNr)
Entrytemp.Add(History)
container.Add(Entrytemp)
' End If
Next