From ef89c1359acc2e979389866dd2614ec8f563a65e Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 3 Jan 2024 11:40:17 +0100 Subject: [PATCH] Parkplatzabrechnung --- SDL/Fakturierung/cFakturierung.vb | 62 ++++++++++++++----- SDL/Fakturierung/rptRechnungDruck.Designer.vb | 8 +-- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 2 +- .../subRptLaufzettelZollDE_ATZOLL.vb | 9 ++- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/frmMain.Designer.vb | 8 +-- SDL/frmMain.vb | 12 ++++ .../Schnittstellen/TIMAS/cTimasAPI.vb | 2 +- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 2 +- 9 files changed, 76 insertions(+), 33 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 28a7bc4d..8e4d8beb 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -349,6 +349,11 @@ Public Class cFakturierung End Select End If + If RECHNUNG.Firma_ID = 4 Then + strZahlbar &= " ()" + 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("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - Else - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", 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("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", 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("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) Else - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", 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("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + Else + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", 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 diff --git a/SDL/Fakturierung/rptRechnungDruck.Designer.vb b/SDL/Fakturierung/rptRechnungDruck.Designer.vb index ff8f51ea..4941635e 100644 --- a/SDL/Fakturierung/rptRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck.Designer.vb @@ -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 diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index dd1d45b8..7036144b 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb index 765eceae..98b8b8cd 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb @@ -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 diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 6886ab4d..d24fd22c 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/frmMain.Designer.vb b/SDL/frmMain.Designer.vb index e825036e..7427efb0 100644 --- a/SDL/frmMain.Designer.vb +++ b/SDL/frmMain.Designer.vb @@ -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 ' diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index 52819252..0e817eb8 100644 --- a/SDL/frmMain.vb +++ b/SDL/frmMain.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb index 4d16a280..7a01f525 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb @@ -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() diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index e42fa0ef..9a2c4497 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -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