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

Änderungen parameterübergabe GUI

Browse Source
This commit is contained in:
ja
2022-02-15 15:13:40 +01:00
parent 6c82d9c1f6
commit 104c00be71
5 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Customers/SDL/Formtemplate EcoTAX.aspx
View File

@@ -154,7 +154,7 @@
detailtabelle(param1, param2, param3, param4, param5, param6,param7);
//alert(param1)
function detailtabelle(id, CustomerID, Cardnummer, CustomerNo, SDLNr, History,Pin) {
function detailtabelle(id, CustomerID, Cardnummer, CustomerNo, SDLNr, History,GueltigBis,Pin) {
// alert("Testdata:" + id)
let data = {};
@@ -164,6 +164,7 @@
data['CustomerNo'] = CustomerNo;
data['SDLNr'] = SDLNr;
data['History'] = History;
data['GueltigBis'] = GueltigBis;
data['Pin'] = Pin;
$.ajax({
@@ -189,7 +190,7 @@
document.getElementById('<%=txt_Vertrabschldat.ClientID%>').setAttribute('value', result["3"]);
document.getElementById('<%=txt_Status.ClientID%>').setAttribute('checked', result["4"]);
document.getElementById('<%=txt_Schadstoffklasse.ClientID%>').setAttribute('checked', result["5"]);
document.getElementById('<%=txt_GueltigBis.ClientID%>').setAttribute('checked', result["6"]);
document.getElementById('<%=txt_GueltigBis.ClientID%>').setAttribute('value', result["6"]);
document.getElementById('<%=cb_retourniert%>').setAttribute('checked', result["7"]);
}

8
Customers/SDL/Formtemplate EcoTAX.aspx.vb
View File

@@ -72,7 +72,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, 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(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
@@ -106,9 +106,9 @@ Partial Class Customers_Default3
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
strtempGueltigBis = GueltigBis
If IsNothing(l2.Retourniert) = False Then
strtempretourniert = l2.Retourniert.ToString
End If

8
Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb
View File

@@ -74,7 +74,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, 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(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
@@ -108,9 +108,9 @@ Partial Class Customers_Default3
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10)
End If
strtempGueltigBis = GueltigBis
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If

6
Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb
View File

@@ -96,9 +96,9 @@ Partial Class Customers_Default3
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10)
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
strtempKartenNr = CardNo
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If

6
Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb
View File

@@ -96,9 +96,9 @@ Partial Class Customers_Default3
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10)
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartNr = l2.KartenNr.ToString
End If
strtempKartNr = CardNo
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If