From a86778e2d9e01ef163b7b2be1e0a996a585fa3d3 Mon Sep 17 00:00:00 2001 From: ja Date: Tue, 8 Feb 2022 16:04:10 +0100 Subject: [PATCH] =?UTF-8?q?Revert=20"Revert=20"Datumsfelder=20wurden=20auf?= =?UTF-8?q?=20Datum-only-Wert=20gek=C3=BCrzt.""?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This reverts commit 8eba2c8b409c2681f76f20092ff77971c0ff4446. --- Customers/SDL/Formtemplate EcoTAX.aspx.vb | 4 ++-- Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb | 4 ++-- Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb | 6 +++--- Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb | 4 ++-- Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb | 6 +++--- Customers/SDL/Formtemplate Plose.aspx.vb | 4 ++-- Customers/SDL/Formtemplate VERAG_Card.aspx.vb | 4 ++-- Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb | 4 ++-- Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb | 4 ++-- Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb | 4 ++-- Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb | 4 ++-- Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb | 4 ++-- Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb | 6 +++--- Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb | 4 ++-- Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb | 6 +++--- Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb | 6 +++--- 16 files changed, 37 insertions(+), 37 deletions(-) diff --git a/Customers/SDL/Formtemplate EcoTAX.aspx.vb b/Customers/SDL/Formtemplate EcoTAX.aspx.vb index 25ec90e..21d8949 100644 --- a/Customers/SDL/Formtemplate EcoTAX.aspx.vb +++ b/Customers/SDL/Formtemplate EcoTAX.aspx.vb @@ -92,10 +92,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.PAN_Nr) = False Then strtempPanNr = l2.PAN_Nr.ToString diff --git a/Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb b/Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb index 619e6e2..507317b 100644 --- a/Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb +++ b/Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb @@ -92,10 +92,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.FREJUS_CARD_Nr) = False Then strtempFREJUSCrdNr = l2.FREJUS_CARD_Nr.ToString diff --git a/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb b/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb index 3eedd33..c75c488 100644 --- a/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb +++ b/Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb @@ -93,10 +93,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If l2.KartenNr.ToString = CardNo Then strtempKartenNr = l2.KartenNr.ToString @@ -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 + strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10) End If If IsNothing(l2.Ersatzkarte) = False Then strtempErsatzKarte = l2.Ersatzkarte.ToString diff --git a/Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb b/Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb index 56dde62..8b0ae61 100644 --- a/Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb +++ b/Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb @@ -84,10 +84,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.Vermerk) = False Then strtempVermerk = l2.Vermerk.ToString diff --git a/Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb b/Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb index d8d6f05..43db2da 100644 --- a/Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb +++ b/Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb @@ -94,10 +94,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.PAN_Nr) = False Then strtempPAN_Nr = l2.PAN_Nr.ToString @@ -109,7 +109,7 @@ Partial Class Customers_Default3 strtempVermerk = l2.Vermerk.ToString End If If IsNothing(l2.GültigBis) = False Then - strtempGueltigBis = l2.GültigBis.ToString + strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10) End If If IsNothing(l2.Retourniert) = False Then strtempRetourniert = l2.Retourniert.ToString diff --git a/Customers/SDL/Formtemplate Plose.aspx.vb b/Customers/SDL/Formtemplate Plose.aspx.vb index 59d23f5..fcf476e 100644 --- a/Customers/SDL/Formtemplate Plose.aspx.vb +++ b/Customers/SDL/Formtemplate Plose.aspx.vb @@ -93,10 +93,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.OBUID) = False Then strtempOBUID = l2.OBUID.ToString diff --git a/Customers/SDL/Formtemplate VERAG_Card.aspx.vb b/Customers/SDL/Formtemplate VERAG_Card.aspx.vb index 58f33e1..39066a5 100644 --- a/Customers/SDL/Formtemplate VERAG_Card.aspx.vb +++ b/Customers/SDL/Formtemplate VERAG_Card.aspx.vb @@ -94,10 +94,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.KartenNr) = False Then strtempKartenNr = l2.KartenNr.ToString diff --git a/Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb b/Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb index b970102..2363753 100644 --- a/Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb @@ -93,10 +93,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.KartenNr) = False Then - strtempKartenNr = l2.KartenNr.ToString + strtempKartenNr = l2.KartenNr.ToString.Substring(0, 10) End If If IsNothing(l2.PIN) = False Then strtempPIN = l2.PIN.ToString diff --git a/Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb b/Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb index cae9a0c..c29c76c 100644 --- a/Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb @@ -96,13 +96,13 @@ Partial Class Customers_Default3 If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Archiviert) = False Then strtempArchivt = l2.Archiviert.ToString End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.VIACARD) = False Then strtempVIACARD = l2.VIACARD.ToString diff --git a/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb b/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb index c713f16..a594033 100644 --- a/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb @@ -94,10 +94,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.VIACARD) = False Then strtempVIACARD = l2.VIACARD.ToString diff --git a/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb b/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb index adb243c..de7f3db 100644 --- a/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb @@ -91,10 +91,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.KartenNr) = False Then strtempKartenNr = l2.KartenNr.ToString diff --git a/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb b/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb index 4f22f83..71178be 100644 --- a/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb @@ -91,10 +91,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.KartenNr) = False Then strtempKartNr = l2.KartenNr.ToString diff --git a/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb b/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb index c6433e6..b4c9c61 100644 --- a/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb @@ -94,10 +94,10 @@ Partial Class Customers_Default3 Dim strtempGueltigbis As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.KartenNr) = False Then strtempKartenNr = l2.KartenNr.ToString @@ -130,7 +130,7 @@ Partial Class Customers_Default3 strtempArchivt = l2.Archiviert.ToString End If If IsNothing(l2.GültigBis) = False Then - strtempGueltigbis = l2.GültigBis.ToString + strtempGueltigbis = l2.GültigBis.ToString.Substring(0, 10) End If ' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk)) diff --git a/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb b/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb index ff676d1..2b5f02d 100644 --- a/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb +++ b/Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb @@ -92,10 +92,10 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Lieferdatum) = False Then - strtempLieferdatum = l2.Lieferdatum.ToString + strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) End If If IsNothing(l2.KartenNr) = False Then strtempKartenNr = l2.KartenNr.ToString diff --git a/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb b/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb index 3696204..faf5fb6 100644 --- a/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb +++ b/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb @@ -94,16 +94,16 @@ Partial Class Customers_Default3 Dim strtempArchivt As String = String.Empty If IsNothing(l2.Bestelldatum) = False Then - strtempbestelltam = l2.Bestelldatum.ToString + strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) End If If IsNothing(l2.Umstellungsdatum) = False Then - strtempUmstellungsdatum = l2.Umstellungsdatum.ToString + strtempUmstellungsdatum = l2.Umstellungsdatum.ToString.Substring(0, 10) End If If IsNothing(l2.Kategorie) = False Then strtempKat = l2.Kategorie.ToString End If If IsNothing(l2.Vertragsabschlussdatum) = False Then - strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString + strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString.Substring(0, 10) End If If IsNothing(l2.Status) = False Then strtempStatus = l2.Status.ToString diff --git a/Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb b/Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb index 7f0a42b..d135aa2 100644 --- a/Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb +++ b/Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb @@ -98,10 +98,10 @@ Partial Class Customers_Default3 strtempbestellNr = l2.BestellNr.ToString End If If IsNothing(l2.Umstellungsdatum) = False Then - strtempUmstellungsdatum = l2.Umstellungsdatum.ToString + strtempUmstellungsdatum = l2.Umstellungsdatum.ToString.Substring(0, 10) End If If IsNothing(l2.Vertragsabschlussdatum) = False Then - strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString + strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString.Substring(0, 10) End If If IsNothing(l2.Kategorie) = False Then strtempKat = l2.Kategorie.ToString @@ -119,7 +119,7 @@ Partial Class Customers_Default3 strtempVermerk = l2.Vermerk.ToString End If If IsNothing(l2.GültigBis) = False Then - strtempGueltigBis = l2.GültigBis.ToString + strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10) End If If IsNothing(l2.Verloren) = False Then strtempVerloren = l2.Verloren.ToString