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>' //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('Horray! 200 status code!' + result[i]);
// alert(result.rows.length) // 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_BestNr.ClientID%>').setAttribute('value', result["0"]);
document.getElementById('<%=Txt_Lieferdat.ClientID%>').setAttribute('value', result["1"]); document.getElementById('<%=Txt_Lieferdat.ClientID%>').setAttribute('value', result["1"]);
document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result["2"]); 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 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)) Dim listdetails As New List(Of List(Of String))
For Each l2 In list2 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 strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty Dim strtempKartenNr As String = String.Empty
@@ -138,6 +138,7 @@ Partial Class Customers_Default3
list.Add(strtempGueltigBis) list.Add(strtempGueltigBis)
list.Add(strtempErsatzKarte) list.Add(strtempErsatzKarte)
list.Add(l2.KfzKennzeichen) 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 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) listdetails.Add(list)
End If End If