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

Änderung

Browse Source
This commit is contained in:
ja
2022-02-07 11:45:11 +01:00
parent f010dfb68e
commit 842f72eb64
3 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Customers/SDL/Formtemplate IDS Tankkarte.aspx
View File

@@ -162,7 +162,7 @@
//let strHTML4 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
//alert('Horray! 200 status code!' + result[i]);
// alert(result.rows.length)
if (CardNo == result["2"]) {
if (Kennzeichen == result["7"] && SDLNr == result["8"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result["0"]);
document.getElementById('<%=Txt_Lieferdat.ClientID%>').setAttribute('value', result["1"]);
document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result["2"]);

3
Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb
View File

@@ -78,7 +78,7 @@ Partial Class Customers_Default3
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.KundenNr.ToString = KundenNr AndAlso l2.SDLNr = SDLNr And l2.KartenNr = Cardno Then
If l2.KundenNr.ToString = KundenNr AndAlso l2.SDLNr = SDLNr Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -138,6 +138,7 @@ Partial Class Customers_Default3
list.Add(strtempGueltigBis)
list.Add(strtempErsatzKarte)
list.Add(l2.KfzKennzeichen)
list.Add(l2.SDLNr.ToString)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails.Add(list)
End If