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

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

@@ -122,12 +122,13 @@
var param4 = getParamValue('CustomerNo');
var param5 = getParamValue('SDLNr');
var param6 = getParamValue('History');
var param7 = getParamValue('GueltigBis');
$('txt_ClientNr').val(param1);
detailtabelle(param1, param2, param3, param4, param5, param6);
detailtabelle(param1, param2, param3, param4, param5, param6, param7);
//alert(param1)
function detailtabelle(id,CustomerID,Cardnummer,CustomerNo,SDLNr,History) {
function detailtabelle(id,CustomerID,Cardnummer,CustomerNo,SDLNr,History,GueltigBis) {
// alert("Testdata:" + id)
let data = {};
@@ -136,7 +137,8 @@
data['CardNo'] = Cardnummer;
data['CustomerNo'] = CustomerNo;
data['SDLNr'] = SDLNr;
data['History'] = History;
data['History'] = History;
data['GueltigBis'] = GueltigBis;
$.ajax({
type: "POST",

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

@@ -73,7 +73,7 @@ Partial Class Customers_Default3
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, CardNo As String, SDLNr As String, History As String) As FormattedList
Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, CardNo 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)
Dim listdetails As New List(Of List(Of String))
@@ -98,9 +98,9 @@ Partial Class Customers_Default3
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10)
End If
If l2.KartenNr.ToString = CardNo Then
strtempKartenNr = l2.KartenNr.ToString
End If
strtempKartenNr = CardNo
If IsNothing(l2.PIN) = False Then
strtempPin = l2.PIN.ToString
End If
@@ -108,7 +108,7 @@ Partial Class Customers_Default3
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10)
strtempGueltigBis = GueltigBis
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzKarte = l2.Ersatzkarte.ToString