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

Parkplatzabrechnung

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-03 11:40:17 +01:00
parent 90a0b3afc3
commit ef89c1359a
9 changed files with 76 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb
View File

@@ -1,4 +1,5 @@
Imports GrapeCity.ActiveReports
Imports System.Globalization
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptLaufzettelZollDE_ATA
@@ -42,7 +43,8 @@ Public Class subRptLaufzettelZollDE_ATA
If Rechnungspreis IsNot Nothing AndAlso IsNumeric(Rechnungspreis) Then
txtRechnungspreisHeader.Visible = True
txtRechnungspreis.Visible = True
txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString(".00") & " " & If(Rechnungswaehrung, "")
' txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString(".00") & " " & If(Rechnungswaehrung, "")
txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString("N2", CultureInfo.CurrentCulture) & " " & If(Rechnungswaehrung, "")
End If
End If
@@ -58,11 +60,12 @@ Public Class subRptLaufzettelZollDE_ATA
barcodeString = barcodeString.Replace("-", "")
Dim ACD = ""
Dim monat = ""
If barcodeString.Length > 13 Then monat = barcodeString.Substring(11, 2)
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7) : ACD = "A"
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) : ACD = "C"
If barcodeString.StartsWith("ATD") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) : ACD = "D"
If barcodeString.Length > 13 Then monat = barcodeString.Substring(11, 2)
If ACD <> "" Then 'ATA/C/D
txtATNr.Visible = True