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

62
SDL/Fakturierung/cFakturierung.vb
View File

@@ -349,6 +349,11 @@ Public Class cFakturierung
End Select
End If
If RECHNUNG.Firma_ID = 4 Then
strZahlbar &= " (<Rechnungsdatum+10T>)"
End If
'
'Zahlungsziel bei Maut/Diesel.
'DA STIMMT WAS NICHT::::::
'If RECHNUNG.OffertenNr IsNot Nothing And RECHNUNG.RechnungsKundenNr > 0 And RECHNUNG.RechnungsLandKz IsNot Nothing Then
@@ -529,7 +534,7 @@ Public Class cFakturierung
If PARK IsNot Nothing AndAlso PARK.Count > 0 Then
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "Place of fulfilment: DE-94152 Neuhaus am Inn " & vbCrLf & "The tax was paid at the tax office DE-94032 Passau under the tax number 153/105/80268 (UID:DE245897610)" & vbCrLf
Case Else : strText = strText & "Leistungsort: DE-94152 Neuhaus am Inn " & vbCrLf & "Die Steuer wurde beim Finanzamt DE-94032 Passau unter Angabe der Steuernummer 153/105/80268 abgeführt (UID:DE245897610)" & vbCrLf
Case Else : strText = strText & "Leistungsort: DE-94152 Neuhaus am Inn " & vbCrLf & "Die Steuer wurde beim Finanzamt DE-94032 Passau unter der Steuernummer 153/105/80268 abgeführt (UID:DE245897610)" & vbCrLf
End Select
End If
Case 21, 22, 23
@@ -730,6 +735,10 @@ Public Class cFakturierung
rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID:", "").Trim
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI:", "").Trim
If FIRMA.Firma_ID = 4 Then
rpt.lblEORIUeberschrift.Text = "St-Nr.:"
End If
Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case 21 '"UNISPED"
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
@@ -1052,6 +1061,7 @@ Public Class cFakturierung
Case Else : rpt.Label2.Text = ZZTage & " Tage"
End Select
Select Case RECHNUNG.Firma_ID
Case 21, 22, 23, 26, 24 : rpt.Label1.Visible = False : rpt.Label2.Visible = False
End Select
@@ -1072,9 +1082,11 @@ Public Class cFakturierung
rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "")
If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
If FIRMA.Firma_ID = 4 Then
rpt.lblWarenWertUeberschrift.Visible = False
rpt.txtWarenwert.Visible = False
End If
rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "")
@@ -1134,14 +1146,6 @@ Public Class cFakturierung
rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim
rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim
If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
Else
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
End If
' REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern).
' Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
@@ -1178,6 +1182,15 @@ Public Class cFakturierung
End If
If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False
If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False
If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
'ANLAGE ZUR RECHNUNG:
@@ -1352,6 +1365,12 @@ Public Class cFakturierung
If vorschau Then
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False)
Return True
Else
@@ -1367,11 +1386,11 @@ Public Class cFakturierung
rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString
If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
Else
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
End If
Else
@@ -1383,6 +1402,15 @@ Public Class cFakturierung
Return False
End If
Else
If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
Else
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
End If
If RECHNUNG.[DruckDatumZeit] Is Nothing Then
RECHNUNG.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt
RECHNUNG.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen
@@ -3065,7 +3093,7 @@ Public Class cFakturierung
'rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
'rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
rpt.lblLKWId.Text = getLKWID(RechnungsNr, DruckdatumUhrzeit, Rgstatus)
rpt.lblLKWIdUebeschrift.Visible = (rpt.lblLKWId.Text <> "")
rpt.lblLKWIdUebeschrift.Visible = (rpt.lblLKWId.Text.Trim <> "")
rpt.lblRechnungAn.Text = ROW("RechnungsName 1") & vbNewLine

8
SDL/Fakturierung/rptRechnungDruck.Designer.vb generated
View File

@@ -1612,14 +1612,10 @@ Partial Public Class rptRechnungDruck
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblAbfertigungsNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAbfertigungsDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLKWIdUebeschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtBeförderungsmittelUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSendungsdatenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1696,4 +1692,8 @@ Partial Public Class rptRechnungDruck
Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRechnungAn As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblLKWIdUebeschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtBeförderungsmittelUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -527,7 +527,7 @@ Public Class usrCntlFaktAbrechnung
Case "VERAG"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE','VERAGAG_DE') " : pnlDocs.Visible = True
MsgBox("AH")
'MsgBox("AH")
Else
whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True
End If

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

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.7.6")>
<Assembly: AssemblyFileVersion("1.2.7.6")>
<Assembly: AssemblyVersion("1.2.7.7")>
<Assembly: AssemblyFileVersion("1.2.7.7")>

8
SDL/frmMain.Designer.vb generated
View File

@@ -316,13 +316,13 @@ Partial Class frmMain
'
Me.FakturierungToolStripMenuItem.Enabled = False
Me.FakturierungToolStripMenuItem.Name = "FakturierungToolStripMenuItem"
Me.FakturierungToolStripMenuItem.Size = New System.Drawing.Size(163, 22)
Me.FakturierungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.FakturierungToolStripMenuItem.Text = "Fakturierung"
'
'RechnungsdatenToolStripMenuItem
'
Me.RechnungsdatenToolStripMenuItem.Name = "RechnungsdatenToolStripMenuItem"
Me.RechnungsdatenToolStripMenuItem.Size = New System.Drawing.Size(163, 22)
Me.RechnungsdatenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.RechnungsdatenToolStripMenuItem.Text = "Rechnungsdaten"
'
'mnueBuchhaltung
@@ -358,14 +358,14 @@ Partial Class frmMain
'AdministrationToolStripMenuItem1
'
Me.AdministrationToolStripMenuItem1.Name = "AdministrationToolStripMenuItem1"
Me.AdministrationToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.AdministrationToolStripMenuItem1.Size = New System.Drawing.Size(163, 22)
Me.AdministrationToolStripMenuItem1.Text = "Administration"
Me.AdministrationToolStripMenuItem1.Visible = False
'
'EssensbestellungToolStripMenuItem1
'
Me.EssensbestellungToolStripMenuItem1.Name = "EssensbestellungToolStripMenuItem1"
Me.EssensbestellungToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.EssensbestellungToolStripMenuItem1.Size = New System.Drawing.Size(163, 22)
Me.EssensbestellungToolStripMenuItem1.Text = "Essensbestellung"
Me.EssensbestellungToolStripMenuItem1.Visible = False
'

12
SDL/frmMain.vb
View File

@@ -82,6 +82,11 @@ Public Class frmMain
Else
mnueMDM.Enabled = False
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Fakturierung", Me) = 0 Then
FakturierungToolStripMenuItem.Enabled = True
Else
FakturierungToolStripMenuItem.Enabled = False
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Hauptmenü", Me) = 0 Then
mnueZoll.Enabled = True
Else
@@ -1060,6 +1065,13 @@ Public Class frmMain
Dim f As New frmEssensbestellungenAdministration()
f.Show()
End Sub
Private Sub FakturierungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FakturierungToolStripMenuItem.Click
Me.Cursor = Cursors.WaitCursor
Dim f As New SDL.frmAbrechnungsMaske
f.Show(Me)
Me.Cursor = Cursors.Default
End Sub
End Class
Public Class MyRenderer

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
View File

@@ -104,7 +104,7 @@ Public Class cTimasAPI
Dim saldoAsDouble = CDbl(saldo)
saldoAsDouble = Math.Round(saldoAsDouble / 3600, 2)
Dim infoBuilder As New StringBuilder
infoBuilder.Append("Vortag ")
'infoBuilder.Append("Vortag ")
infoBuilder.Append(saldoAsDouble)
infoBuilder.Append(" h")
info = infoBuilder.ToString()

2
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -160,7 +160,7 @@ Public Class cProgramFunctions
Dim line As String = ""
For Each column As DataColumn In dt.Columns
'Add the Data rows.
line += ";" & row(column.ColumnName).ToString().Replace(";", ",")
line += ";" & row(column.ColumnName).ToString().Replace(";", ",").Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ")
Next
'Add new line
txt += line.Substring(1) & vbCrLf