From 4e11ca40b3140b59125dcf7b52acb8e8d9b573c3 Mon Sep 17 00:00:00 2001 From: ja Date: Tue, 15 Feb 2022 14:19:37 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20GUI?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb | 2 +- Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb | 2 +- Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb | 2 +- .../SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb | 10 +++++----- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb b/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb index a594033..779b4fc 100644 --- a/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb @@ -74,7 +74,7 @@ Partial Class Customers_Default3 - Public Shared Function filltabledetails(Kennzeichen As String, Kundennr 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)) diff --git a/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb b/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb index de7f3db..03bfbc0 100644 --- a/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb @@ -73,7 +73,7 @@ Partial Class Customers_Default3 - Public Shared Function filltabledetails(Kennzeichen As String, Kundennr 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)) diff --git a/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb b/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb index 71178be..6e48045 100644 --- a/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb @@ -73,7 +73,7 @@ Partial Class Customers_Default3 - Public Shared Function filltabledetails(Kennzeichen As String, Kundennr 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)) diff --git a/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb b/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb index 2b5f02d..17db11f 100644 --- a/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb +++ b/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb @@ -73,12 +73,12 @@ Partial Class Customers_Default3 - 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)) For Each l2 In list2 - If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr.ToString = SDLNr And l2.KartenNr.ToString = CardNo Then + If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr.ToString = SDLNr And l2.KartenNr.ToString = CardNo AndAlso l2.History = History Then Dim strtempbestelltam As String = String.Empty Dim strtempLieferdatum As String = String.Empty Dim strtempKartenNr As String = String.Empty @@ -97,9 +97,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