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

Revert "Datumsfelder wurden auf Datum-only-Wert gekürzt."

Browse Source 
This reverts commit 5bed52aa10.
This commit is contained in:
ja
2022-02-08 16:02:21 +01:00
parent 8496892b95
commit 8eba2c8b40
16 changed files with 37 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -92,10 +92,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.PAN_Nr) = False Then If IsNothing(l2.PAN_Nr) = False Then
strtempPanNr = l2.PAN_Nr.ToString strtempPanNr = l2.PAN_Nr.ToString

4
Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb
View File

@@ -92,10 +92,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.FREJUS_CARD_Nr) = False Then If IsNothing(l2.FREJUS_CARD_Nr) = False Then
strtempFREJUSCrdNr = l2.FREJUS_CARD_Nr.ToString strtempFREJUSCrdNr = l2.FREJUS_CARD_Nr.ToString

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

@@ -93,10 +93,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If l2.KartenNr.ToString = CardNo Then If l2.KartenNr.ToString = CardNo Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString
@@ -108,7 +108,7 @@ Partial Class Customers_Default3
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.GültigBis) = False Then If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10) strtempGueltigBis = l2.GültigBis.ToString
End If End If
If IsNothing(l2.Ersatzkarte) = False Then If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzKarte = l2.Ersatzkarte.ToString strtempErsatzKarte = l2.Ersatzkarte.ToString

4
Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb
View File

@@ -84,10 +84,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.Vermerk) = False Then If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString

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

@@ -94,10 +94,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.PAN_Nr) = False Then If IsNothing(l2.PAN_Nr) = False Then
strtempPAN_Nr = l2.PAN_Nr.ToString strtempPAN_Nr = l2.PAN_Nr.ToString
@@ -109,7 +109,7 @@ Partial Class Customers_Default3
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.GültigBis) = False Then If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10) strtempGueltigBis = l2.GültigBis.ToString
End If End If
If IsNothing(l2.Retourniert) = False Then If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString strtempRetourniert = l2.Retourniert.ToString

4
Customers/SDL/Formtemplate Plose.aspx.vb
View File

@@ -93,10 +93,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.OBUID) = False Then If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString strtempOBUID = l2.OBUID.ToString

4
Customers/SDL/Formtemplate VERAG_Card.aspx.vb
View File

@@ -94,10 +94,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString

4
Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb
View File

@@ -93,10 +93,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString.Substring(0, 10) strtempKartenNr = l2.KartenNr.ToString
End If End If
If IsNothing(l2.PIN) = False Then If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString strtempPIN = l2.PIN.ToString

4
Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb
View File

@@ -96,13 +96,13 @@ Partial Class Customers_Default3
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Archiviert) = False Then If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.VIACARD) = False Then If IsNothing(l2.VIACARD) = False Then
strtempVIACARD = l2.VIACARD.ToString strtempVIACARD = l2.VIACARD.ToString

4
Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb
View File

@@ -94,10 +94,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.VIACARD) = False Then If IsNothing(l2.VIACARD) = False Then
strtempVIACARD = l2.VIACARD.ToString strtempVIACARD = l2.VIACARD.ToString

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

@@ -91,10 +91,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString

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

@@ -91,10 +91,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartNr = l2.KartenNr.ToString strtempKartNr = l2.KartenNr.ToString

6
Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb
View File

@@ -94,10 +94,10 @@ Partial Class Customers_Default3
Dim strtempGueltigbis As String = String.Empty Dim strtempGueltigbis As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString
@@ -130,7 +130,7 @@ Partial Class Customers_Default3
strtempArchivt = l2.Archiviert.ToString strtempArchivt = l2.Archiviert.ToString
End If End If
If IsNothing(l2.GültigBis) = False Then If IsNothing(l2.GültigBis) = False Then
strtempGueltigbis = l2.GültigBis.ToString.Substring(0, 10) strtempGueltigbis = l2.GültigBis.ToString
End If 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)) ' 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))

4
Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb
View File

@@ -92,10 +92,10 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Lieferdatum) = False Then If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10) strtempLieferdatum = l2.Lieferdatum.ToString
End If End If
If IsNothing(l2.KartenNr) = False Then If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString strtempKartenNr = l2.KartenNr.ToString

6
Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb
View File

@@ -94,16 +94,16 @@ Partial Class Customers_Default3
Dim strtempArchivt As String = String.Empty Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString.Substring(0, 10) strtempbestelltam = l2.Bestelldatum.ToString
End If End If
If IsNothing(l2.Umstellungsdatum) = False Then If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString.Substring(0, 10) strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If End If
If IsNothing(l2.Kategorie) = False Then If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString strtempKat = l2.Kategorie.ToString
End If End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString.Substring(0, 10) strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If End If
If IsNothing(l2.Status) = False Then If IsNothing(l2.Status) = False Then
strtempStatus = l2.Status.ToString strtempStatus = l2.Status.ToString

6
Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb
View File

@@ -98,10 +98,10 @@ Partial Class Customers_Default3
strtempbestellNr = l2.BestellNr.ToString strtempbestellNr = l2.BestellNr.ToString
End If End If
If IsNothing(l2.Umstellungsdatum) = False Then If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString.Substring(0, 10) strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString.Substring(0, 10) strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If End If
If IsNothing(l2.Kategorie) = False Then If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString strtempKat = l2.Kategorie.ToString
@@ -119,7 +119,7 @@ Partial Class Customers_Default3
strtempVermerk = l2.Vermerk.ToString strtempVermerk = l2.Vermerk.ToString
End If End If
If IsNothing(l2.GültigBis) = False Then If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString.Substring(0, 10) strtempGueltigBis = l2.GültigBis.ToString
End If End If
If IsNothing(l2.Verloren) = False Then If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString strtempVerloren = l2.Verloren.ToString