Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

SDL/Fakturierung/cAutomailversand.vb

@@ -1376,7 +1376,7 @@ Public Class cAutomailversand
                 Next
             End If
 
-            If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then
+            If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList, 5, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then
                 API.UPDTAE_OK()
 
 
@@ -1732,7 +1732,7 @@ Public Class cAutomailversand
                 LoadZollAttachments(SPEDBUCH, SPEDBUCH.FilialenNr, FirmaID, False, attachList, Nothing, True)
 
                 Dim accountToSend = setAccountToSend(FirmaID)
-                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend))
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList, 5, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend))
 
                 ''-----------------------------------------------------------------
                 ''Steuerbescheid anfügen

SDL/My Project/AssemblyInfo.vb

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

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -503,8 +503,15 @@ Public Class ustCntlUSTV_AntragPosition
 
     Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown, txtLeistungsbezeichnung.PreviewKeyDown
 
+        lblWarning.Text = ""
+
         If e.KeyValue <> Keys.Tab Then Return
-        If Not CanEdit() Then Return
+
+        If Not CanEdit() Then
+            lblWarning.Text = "keine Berechtigung/bereits abgerech."
+            Return
+        End If
+
         If Not _gridAktiv OrElse Me.FindForm Is Nothing Then Return
 
         lblWarning.Text = ""
@@ -712,7 +719,17 @@ Public Class ustCntlUSTV_AntragPosition
 
     Private Function CanEdit() As Boolean
 
-        Return VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm)
+        Dim allowed As Boolean = False
+
+        allowed = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm)
+
+        If allowed Then
+            If UStV_POS.UStVPo_VZ_RKID IsNot Nothing AndAlso CInt(UStV_POS.UStVPo_VZ_RKID) > 0 Then
+                allowed = False
+            End If
+        End If
+
+        Return allowed
 
     End Function
 

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -104,13 +104,14 @@ Public Class frmBU_Mahnlauf
                              
                              sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift, cast(MAX(d_mahnung)as date) Mahndatum,
                             	case 
+									when Kunden.Abfertigungsverbot = 1 then 'gesperrt'
+									when max(KTO.dec_aktuellersaldo)  - isnull(CASE WHEN Max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) > max(Kunden.UStV_SummeErstattungsbetragEUR) THEN max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) - max(Kunden.UStV_SummeErstattungsbetragEUR) ELSE 0 END ,0) - isnull(max(Kunden.UStV_Summe3470BetragEUR),0) + isnull(max(Kunden.UStV_SummeVZBetragEUR),0) - isnull(max(Kunden.UStV_SummeVorschaubetragEUR),0) - isnull(CASE WHEN ISNULL(max(Kunden.BankgarantieGültigBis), GETDATE()) < GETDATE() THEN 0 ELSE ISNULL(max(Kunden.BankgarantieBetrag), 0) END,0) < 0 then 'ZZ 30 Tage'
 									when max(si_mahnstufe) = 1 Then 'telefonisch' 
-                            when max(si_mahnstufe) = 2 Then 'Freitag'
 									when max(si_mahnstufe) = 3 Then 'Donnerstag' 
-                            when max(si_mahnstufe) = 4 Then 'Mittwoch' 
+									when max(si_mahnstufe) = 2 Then 'Freitag'
-                            when max(si_mahnstufe) >= 5  Then 'gesperrt' 
+									when max(si_mahnstufe) >= 4 Then 'Mittwoch' 
 									else '-'
-                            End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") &
+								end as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") &
                              ", tblKundenKontakt.[kkd_Email] as Email, isnull(kde_betreuer,'') as Betreuer , cast(isnull(si_mahnung,0) as bit) as mahnbar " &
                       "FROM op_debitor OP
 	                    RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND  KTO.i_firm_refid=OP.i_firm_refid
@@ -1332,7 +1333,7 @@ Public Class frmBU_Mahnlauf
 
 
             Case >= 8
-                MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich %HEUTE% zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbelegs!"
+                MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich bis %HEUTE% zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbelegs!"
                 MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist wären wir dann gezwungen, aber ohne weitere vorherige Ankündigung rechtliche Schritte einzuleiten."
                 MAHNTEXT = MAHNSTUFE & ". MAHNUNG"
         End Select

SDL/buchhaltung/rptMahnung.vb

@@ -1,7 +1,3 @@
-Imports GrapeCity.ActiveReports 
-Imports GrapeCity.ActiveReports.Document
-Imports GrapeCity.DataVisualization.Chart
-
 Public Class rptMahnung
     Dim _LAN = ""
     Dim _OPTION = ""

SDL/buchhaltung/usrCntlBH.vb

@@ -2,6 +2,7 @@
 Imports System.Globalization
 Imports System.Text
 Imports System.Web.UI.WebControls.Expressions
+Imports QRCoder.PayloadGenerator.SwissQrCode
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlBH
@@ -2220,6 +2221,7 @@ Public Class usrCntlBH
             End If
 
             Dim importiert As Boolean = False
+            Dim TYP = cbxBankspesentyp._value
 
             Dim fd As New OpenFileDialog
             fd.InitialDirectory = "\\share01.verag.ost.dmn\F\19 VERAG 360 - MDM\Buchhaltung MDM\Bank\Subkonten"
@@ -2267,7 +2269,7 @@ Public Class usrCntlBH
                 exclApp.CutCopyMode = False
 
                 'Try to open exclusively
-                Datei = exclApp.Workbooks.Open(Filename:=fd.FileName, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False)
+                Datei = exclApp.Workbooks.Open(Filename:=fd.FileName, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False, Format:=6, Delimiter:=";")
 
                 If Datei.ReadOnly Then
                     MessageBox.Show("Die Datei wird bereits von einem anderen Benutzer oder einer anderen Excel-Instanz verwendet, bitte Datei vor dem Import schließen!")
@@ -2280,27 +2282,44 @@ Public Class usrCntlBH
                 ' Header einlesen
                 Dim headerMap As New Dictionary(Of String, Integer)(StringComparer.OrdinalIgnoreCase)
 
+                Dim startHeaderRow As Integer = If(TYP = "M", 7, 1)
+
                 For col As Integer = 1 To Blatt.UsedRange.Columns.Count
 
-                    Dim header As String = Convert.ToString(Blatt.Cells(1, col).Value).Trim()
+                    Dim rawHeader As String = Convert.ToString(Blatt.Cells(startHeaderRow, col).Value2)
+
+                    If String.IsNullOrWhiteSpace(rawHeader) Then Continue For
+
+                    If rawHeader.Contains(";") Then
+                        ' Gesamte Kopfzeile steht in einer Zelle
+                        Dim headers As String() = rawHeader.Split(";"c)
+
+                        For i As Integer = 0 To headers.Length - 1
+                            Dim header As String = headers(i).Replace(ChrW(160), " "c).Trim().TrimEnd("."c).Trim()
+
+                            If header <> "" AndAlso Not headerMap.ContainsKey(header) Then
+                                headerMap.Add(header, i + 1)
+                            End If
+                        Next
+                    Else
+                        Dim header As String = rawHeader.Replace(ChrW(160), " "c).Trim().TrimEnd("."c).Trim()
 
                         If header <> "" AndAlso Not headerMap.ContainsKey(header) Then
                             headerMap.Add(header, col)
                         End If
-
+                    End If
                 Next
 
                 ' Pflichtspalten prüfen
-                Dim requiredHeaders As String() = {
+                Dim requiredHeaders As String()
-              "Umsatz-ID",
+
-              "Datum",
+                Select Case TYP
-              "IBAN",
+                    Case "M"
-              "BIC",
+                        requiredHeaders = {"Belegdat", "Belegnr", "BuchText", "Soll EUR", "Haben EUR", "Gegenkto"}
-              "Buchungstext",
+                    Case "Q"
-              "Währung",
+                        requiredHeaders = {"Umsatz-ID", "Datum", "IBAN", "BIC", "Buchungstext", "Währung", "Betrag", "Kontoauszug"}
-              "Betrag",
+                End Select
-              "Kontoauszug"
+
-              }
 
                 For Each h As String In requiredHeaders
 
@@ -2316,38 +2335,20 @@ Public Class usrCntlBH
                     visibleKdNrCheck = True
                 End If
 
-
                 Dim letzteZeile As Integer = Blatt.UsedRange.Rows.Count
 
+                For row As Integer = startHeaderRow + 1 To letzteZeile
 
+                    If TYP = "Q" Then
 
-                For row As Integer = 2 To letzteZeile
+                        Dim Umsatz_ID As String = Convert.ToString(Blatt.Cells(row, headerMap("Umsatz-ID")).Value)
-
+                        Dim Datum As String = Convert.ToString(Blatt.Cells(row, headerMap("Datum")).Value)
-                    Dim Umsatz_ID As String =
+                        Dim IBAN As String = Convert.ToString(Blatt.Cells(row, headerMap("IBAN")).Value)
-                  Convert.ToString(Blatt.Cells(row, headerMap("Umsatz-ID")).Value)
+                        Dim BIC As String = Convert.ToString(Blatt.Cells(row, headerMap("BIC")).Value)
-
+                        Dim Buchungstext As String = Convert.ToString(Blatt.Cells(row, headerMap("Buchungstext")).Value)
-
+                        Dim Währung As String = Convert.ToString(Blatt.Cells(row, headerMap("Währung")).Value)
-                    Dim Datum As String =
+                        Dim Kontoauszug As String = Convert.ToString(Blatt.Cells(row, headerMap("Kontoauszug")).Value)
-                  Convert.ToString(Blatt.Cells(row, headerMap("Datum")).Value)
+                        Dim Betrag As Double = Convert.ToDouble(Blatt.Cells(row, headerMap("Betrag")).Value)
-
-                    Dim IBAN As String =
-                  Convert.ToString(Blatt.Cells(row, headerMap("IBAN")).Value)
-
-                    Dim BIC As String =
-                  Convert.ToString(Blatt.Cells(row, headerMap("BIC")).Value)
-
-                    Dim Buchungstext As String =
-                  Convert.ToString(Blatt.Cells(row, headerMap("Buchungstext")).Value)
-
-                    Dim Währung As String =
-                  Convert.ToString(Blatt.Cells(row, headerMap("Währung")).Value)
-
-                    Dim Kontoauszug As String =
-                  Convert.ToString(Blatt.Cells(row, headerMap("Kontoauszug")).Value)
-
-                    Dim Betrag As Double =
-                  Convert.ToDouble(Blatt.Cells(row, headerMap("Betrag")).Value)
-
                         Dim KundenNrCheck As String = ""
 
                         If headerMap.ContainsKey("KDNR") Then
@@ -2355,10 +2356,6 @@ Public Class usrCntlBH
                         End If
 
 
-
-
-
-
                         If String.IsNullOrWhiteSpace(Umsatz_ID) Then
                             Continue For
                         End If
@@ -2415,14 +2412,87 @@ Public Class usrCntlBH
 
                         End If
 
+                    Else
+
+
+                        Dim Umsatz_ID As String = Convert.ToString(Blatt.Cells(row, headerMap("Belegnr")).Value)
+                        Dim Datum As String = Convert.ToString(Blatt.Cells(row, headerMap("Belegdat")).Value)
+                        Dim Buchungstext As String = Convert.ToString(Blatt.Cells(row, headerMap("BuchText")).Value)
+                        Dim Währung As String = "EUR"
+
+                        Dim SollBetrag As String = Convert.ToString(Blatt.Cells(row, headerMap("Soll EUR")).Value)
+                        Dim HabenBetrag As String = Convert.ToString(Blatt.Cells(row, headerMap("Haben EUR")).Value)
+
+                        Dim Betrag As Double = 0
+                        If SollBetrag <> "" AndAlso IsNumeric(SollBetrag) Then
+                            Betrag = CDbl(SollBetrag)
+                        ElseIf HabenBetrag <> "" AndAlso IsNumeric(HabenBetrag) Then
+                            Betrag = CDbl(HabenBetrag)
+                        End If
+
+                        Dim KundenNrCheck As String = ""
+
+                        If headerMap.ContainsKey("Gegenkto") Then
+                            KundenNrCheck = Convert.ToString(Blatt.Cells(row, headerMap("Gegenkto")).Value)
+                        End If
+
+                        If String.IsNullOrWhiteSpace(Umsatz_ID) Then
+                            Continue For
+                        End If
+
+                        If IsNumeric(Betrag) AndAlso Not String.IsNullOrWhiteSpace(Buchungstext) AndAlso Not String.IsNullOrWhiteSpace(Datum) AndAlso IsDate(Datum) Then
+
+
+                            Dim R As DataRow = dt.NewRow
+                            R("Umsatz-ID") = Umsatz_ID
+                            R("Datum") = Datum
+                            R("Buchungstext") = Buchungstext
+                            R("Währung") = Währung
+                            R("Betrag") = Betrag
+
+                            R("KdNr") = 0
+
+                            If visibleKdNrCheck Then
+
+                                R("KdNrCheck") = KundenNrCheck
+
+                                If KundenNrCheck <> "" AndAlso IsNumeric(KundenNrCheck) Then
+                                    If CInt(KundenNrCheck) = R("KdNr") Then
+                                        R("KdNrValid") = True
+                                    Else
+                                        R("KdNrValid") = False
+                                    End If
+                                End If
+                            End If
+
+
+                            If R("KdNr") = -1 Then
+                                missingKdNr += 1
+                            End If
+
+                            'Betrag laut folgendem Schema berechnen:
+
+                            If Betrag < 0 Then Betrag = Betrag * -1
+                            Betrag = Betrag + 1
+                            Dim aufgerundet As Double = Math.Ceiling(Betrag / 5) * 5
+
+                            R("Gebühr") = aufgerundet
+
+                            dt.Rows.Add(R)
+
+                        Else
+
+                            Continue For
+
+                        End If
+
+
+                    End If
 
                 Next
 
                 If dt.Rows.Count > 0 Then
 
-
-
-
                     Using frm As New frmAbrechnungHandling(dt, Nothing, "Import " & dt.Rows.Count & " Buchungsdaten " & cbxBankspesentyp.SelectedItem.Text & IIf(missingKdNr > 0, missingKdNr & " Kundenkonten konnten nicht gefunden werden!", ""))
 
                         With frm
@@ -2454,7 +2524,7 @@ Public Class usrCntlBH
                             For Each r As DataGridViewRow In frm.dgvHandling.SelectedRows
 
                                 Dim Datum = r.Cells("Datum").Value
-                                Dim TYP = cbxBankspesentyp._value
+
                                     Dim KdNr = 0
 
                                 If frm.cbxDivers.Checked AndAlso visibleKdNrCheck Then

SDL/frmdynMailvorlage.Designer.vb

@@ -111,7 +111,7 @@ Partial Class frmdynMailvorlagen
         Me.mainPanel.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.mainPanel.Location = New System.Drawing.Point(0, 429)
         Me.mainPanel.Name = "mainPanel"
-        Me.mainPanel.Size = New System.Drawing.Size(1295, 457)
+        Me.mainPanel.Size = New System.Drawing.Size(1443, 457)
         Me.mainPanel.TabIndex = 101
         '
         'TextBox2
@@ -185,11 +185,13 @@ Partial Class frmdynMailvorlagen
         'rtb_txthtml
         '
         Me.rtb_txthtml.AcceptsTab = True
+        Me.rtb_txthtml.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window
         Me.rtb_txthtml.Location = New System.Drawing.Point(895, 87)
         Me.rtb_txthtml.Name = "rtb_txthtml"
         Me.rtb_txthtml.ReadOnly = True
-        Me.rtb_txthtml.Size = New System.Drawing.Size(371, 307)
+        Me.rtb_txthtml.Size = New System.Drawing.Size(536, 307)
         Me.rtb_txthtml.TabIndex = 40
         Me.rtb_txthtml.Text = ""
         '
@@ -262,7 +264,7 @@ Partial Class frmdynMailvorlagen
         Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.email_big
         Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn.Location = New System.Drawing.Point(1112, 405)
+        Me.btn.Location = New System.Drawing.Point(1260, 405)
         Me.btn.Margin = New System.Windows.Forms.Padding(5)
         Me.btn.Name = "btn"
         Me.btn.Padding = New System.Windows.Forms.Padding(5)
@@ -362,7 +364,6 @@ Partial Class frmdynMailvorlagen
         Me.rtb_Emailtext.TabIndex = 22
         Me.rtb_Emailtext.Text = ""
         Me.rtb_Emailtext.WordWrap = False
-        Me.rtb_Emailtext.ScrollBars = RichTextBoxScrollBars.Both
         '
         'cbxFirmaChange
         '
@@ -387,7 +388,8 @@ Partial Class frmdynMailvorlagen
         '
         'btnSave
         '
-        Me.btnSave.Location = New System.Drawing.Point(1185, 414)
+        Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSave.Location = New System.Drawing.Point(1337, 414)
         Me.btnSave.Name = "btnSave"
         Me.btnSave.Size = New System.Drawing.Size(75, 23)
         Me.btnSave.TabIndex = 10
@@ -419,7 +421,7 @@ Partial Class frmdynMailvorlagen
         Me.btnAdd.BackgroundImage = Global.SDL.My.Resources.Resources.plus
         Me.btnAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAdd.Location = New System.Drawing.Point(1236, 399)
+        Me.btnAdd.Location = New System.Drawing.Point(1384, 399)
         Me.btnAdd.Name = "btnAdd"
         Me.btnAdd.Size = New System.Drawing.Size(24, 20)
         Me.btnAdd.TabIndex = 103
@@ -431,7 +433,7 @@ Partial Class frmdynMailvorlagen
         Me.btnDelete.BackgroundImage = Global.SDL.My.Resources.Resources.del
         Me.btnDelete.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnDelete.Location = New System.Drawing.Point(1259, 399)
+        Me.btnDelete.Location = New System.Drawing.Point(1407, 399)
         Me.btnDelete.Name = "btnDelete"
         Me.btnDelete.Size = New System.Drawing.Size(24, 20)
         Me.btnDelete.TabIndex = 102
@@ -453,7 +455,7 @@ Partial Class frmdynMailvorlagen
         Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnlTop.Location = New System.Drawing.Point(0, 0)
         Me.pnlTop.Name = "pnlTop"
-        Me.pnlTop.Size = New System.Drawing.Size(1295, 48)
+        Me.pnlTop.Size = New System.Drawing.Size(1443, 48)
         Me.pnlTop.TabIndex = 100
         '
         'Label14
@@ -594,7 +596,7 @@ Partial Class frmdynMailvorlagen
         Me.dgvMailvorlagen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvMailvorlagen.Location = New System.Drawing.Point(0, 54)
         Me.dgvMailvorlagen.Name = "dgvMailvorlagen"
-        Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365)
+        Me.dgvMailvorlagen.Size = New System.Drawing.Size(1431, 365)
         Me.dgvMailvorlagen.TabIndex = 104
         '
         'ContextMenuStrip1
@@ -613,7 +615,7 @@ Partial Class frmdynMailvorlagen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1295, 886)
+        Me.ClientSize = New System.Drawing.Size(1443, 886)
         Me.Controls.Add(Me.mainPanel)
         Me.Controls.Add(Me.btnAdd)
         Me.Controls.Add(Me.btnDelete)

SDL/frmdynMailvorlage.vb

@@ -1,5 +1,4 @@
-Imports DAKOSY_Worker.DEERRE
+Imports Microsoft.Office.Interop
-Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmdynMailvorlagen

SDL/kassenbuch/frmKassenbuch.vb

@@ -216,10 +216,10 @@ Public Class frmKassenbuch
                 lbldailyCashboxClosing.Visible = True
                 Button11.Visible = True
 
-                Dim tagesabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT]  where Day(ftReceiptMoment) = Day(GETDATE()) and ftEndOfDayReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL"))
+                Dim tagesabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT]  where ftReceiptMoment >= CAST(GETDATE() AS DATE) AND ftReceiptMoment < DATEADD(DAY, 1, CAST(GETDATE() AS DATE)) and ftEndOfDayReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL"))
                 If tagesabschluss > 0 Then tagesabschlussIsSet = True
 
-                Dim monatsabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT]  where Month(ftReceiptMoment) = Month(GETDATE()) and ftEndOfMonthReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL"))
+                Dim monatsabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT]  where Month(ftReceiptMoment) = Month(GETDATE()) and Year(ftReceiptMoment) = Year(GETDATE()) and ftEndOfMonthReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL"))
                 If monatsabschluss > 0 Then monatsabschlussIsSet = True
 
                 Dim jahresabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT]  where Year(ftReceiptMoment) = Year(GETDATE()) and ftEndOfYearReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL"))

SDL/kunden/frmKundenSuche.Designer.vb

@@ -22,7 +22,6 @@ Partial Class frmKundenSuche
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
         Me.txtOrt = New System.Windows.Forms.TextBox()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.txtPlz = New System.Windows.Forms.TextBox()
@@ -37,7 +36,8 @@ Partial Class frmKundenSuche
         Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.pnlErweiterteSuche = New System.Windows.Forms.Panel()
-        Me.cbxAlleFirmen = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.cbxAlleFirmen = New VERAG_PROG_ALLGEMEIN.MyCheckbox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.txtSteuerNr = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
@@ -45,12 +45,13 @@ Partial Class frmKundenSuche
         Me.txtEORI = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtUID = New System.Windows.Forms.TextBox()
-        Me.cbxAktiv = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
+        Me.cbxAktiv = New VERAG_PROG_ALLGEMEIN.MyCheckbox()
         Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.FlatButton3 = New System.Windows.Forms.Button()
         Me.pnlTop = New System.Windows.Forms.Panel()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.lklErweitert = New System.Windows.Forms.LinkLabel()
+        Me.lblInfo = New System.Windows.Forms.Label()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.pnlMain.SuspendLayout()
@@ -203,6 +204,7 @@ Partial Class frmKundenSuche
         '
         'pnlErweiterteSuche
         '
+        Me.pnlErweiterteSuche.Controls.Add(Me.Button1)
         Me.pnlErweiterteSuche.Controls.Add(Me.cbxAlleFirmen)
         Me.pnlErweiterteSuche.Controls.Add(Me.Label7)
         Me.pnlErweiterteSuche.Controls.Add(Me.txtSteuerNr)
@@ -226,6 +228,18 @@ Partial Class frmKundenSuche
         Me.pnlErweiterteSuche.TabIndex = 151
         Me.pnlErweiterteSuche.Visible = False
         '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.Black
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(575, 49)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(113, 30)
+        Me.Button1.TabIndex = 154
+        Me.Button1.Text = "Reset"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
         'cbxAlleFirmen
         '
         Me.cbxAlleFirmen._value = ""
@@ -346,13 +360,14 @@ Partial Class frmKundenSuche
         Me.FlatButton3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.FlatButton3.Location = New System.Drawing.Point(450, 49)
         Me.FlatButton3.Name = "FlatButton3"
-        Me.FlatButton3.Size = New System.Drawing.Size(246, 30)
+        Me.FlatButton3.Size = New System.Drawing.Size(113, 30)
         Me.FlatButton3.TabIndex = 7
         Me.FlatButton3.Text = "Suchen"
         Me.FlatButton3.UseVisualStyleBackColor = True
         '
         'pnlTop
         '
+        Me.pnlTop.Controls.Add(Me.lblInfo)
         Me.pnlTop.Controls.Add(Me.Label2)
         Me.pnlTop.Controls.Add(Me.lklErweitert)
         Me.pnlTop.Controls.Add(Me.txtKurzname)
@@ -384,6 +399,16 @@ Partial Class frmKundenSuche
         Me.lklErweitert.TabStop = True
         Me.lklErweitert.Text = "erweiterte Suche"
         '
+        'lblInfo
+        '
+        Me.lblInfo.AutoSize = True
+        Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblInfo.ForeColor = System.Drawing.Color.Red
+        Me.lblInfo.Location = New System.Drawing.Point(115, 7)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Size = New System.Drawing.Size(0, 13)
+        Me.lblInfo.TabIndex = 150
+        '
         'frmKundenSuche
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -433,4 +458,6 @@ Partial Class frmKundenSuche
     Friend WithEvents cbxAlleFirmen As VERAG_PROG_ALLGEMEIN.MyCheckbox
     Friend WithEvents Label7 As Label
     Friend WithEvents txtSteuerNr As TextBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents lblInfo As Label
 End Class

SDL/kunden/frmKundenSuche.vb

@@ -39,7 +39,9 @@
     End Sub
 
     Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click, cbxAlleFirmen.CheckedChanged
+        If txtKurzname.Text <> "" OrElse txtKundenNr.Text <> "" OrElse txtSteuerNr.Text <> "" OrElse txtOrt.Text <> "" OrElse cbxLandKz.Text <> "" OrElse txtPlz.Text <> "" Then
             initSearch()
+        End If
     End Sub
 
     Sub initSearch()
@@ -51,25 +53,52 @@
 
             SQLstr &= "    From [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr WHERE 1=1 "
             Dim suchparam As Boolean = False
-            If txtKurzname.Text <> "" Then SQLstr &= " AND Ordnungsbegriff LIKE '" & txtKurzname.Text & "%'" : suchparam = True
+            If txtKurzname.Text <> "" Then
-            If txtKundenNr.Text <> "" Then SQLstr &= " AND AdressenNr LIKE '" & txtKundenNr.Text & "%'" : suchparam = True
+                SQLstr &= " AND Ordnungsbegriff LIKE '" & setLIke(txtKurzname.Text) & "%'"
-            If txtStrasse.Text <> "" Then SQLstr &= " AND Adressen.Straße LIKE '" & txtStrasse.Text & "%'" : suchparam = True
+                suchparam = True
-            If txtOrt.Text <> "" Then SQLstr &= " AND Adressen.Ort LIKE '" & txtOrt.Text & "%'" : suchparam = True
+            End If
-            If txtPlz.Text <> "" Then SQLstr &= " AND Adressen.[PLZ] LIKE '" & txtPlz.Text & "%'" : suchparam = True
+            If txtKundenNr.Text <> "" Then
-            If txtUID.Text <> "" Then SQLstr &= " AND (Adressen.[UstIdKz] + Adressen.[UstIdNr]) LIKE '" & txtUID.Text.Replace("*", "%") & "'" : suchparam = True
+                SQLstr &= " AND AdressenNr LIKE '" & setLIke(txtKundenNr.Text) & "%'"
-            If txtEORI.Text <> "" Then SQLstr &= " AND [EORITIN] LIKE '" & txtEORI.Text.Replace("*", "%") & "'" : suchparam = True
+                suchparam = True
-            If cbxLandKz.Text <> "" Then SQLstr &= " AND Adressen.LandKz = '" & DirectCast(cbxLandKz.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "'" : suchparam = True
+            End If
-            If txtSteuerNr.Text <> "" Then SQLstr &= " AND Adressen.Steuernummer LIKE '" & txtSteuerNr.Text & "%'" : suchparam = True
+            If txtStrasse.Text <> "" Then
+                SQLstr &= " AND Adressen.Straße LIKE '" & setLIke(txtStrasse.Text) & "%'"
+                suchparam = True
+            End If
+            If txtOrt.Text <> "" Then
+                SQLstr &= " AND Adressen.Ort LIKE '" & setLIke(txtOrt.Text) & "%'"
+                suchparam = True
+            End If
+            If txtPlz.Text <> "" Then
+                SQLstr &= " AND Adressen.[PLZ] LIKE '" & setLIke(txtPlz.Text) & "%'"
+                suchparam = True
+            End If
+            If txtUID.Text <> "" Then
+                SQLstr &= " AND (Adressen.[UstIdKz] + Adressen.[UstIdNr]) LIKE '" & setLIke(txtUID.Text) & "'"
+                suchparam = True
+            End If
+            If txtEORI.Text <> "" Then
+                SQLstr &= " AND [EORITIN] LIKE '" & setLIke(txtEORI.Text) & "'"
+                suchparam = True
+            End If
+            If cbxLandKz.Text <> "" Then
+                SQLstr &= " AND Adressen.LandKz = '" & DirectCast(cbxLandKz.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "'"
+                suchparam = True
+            End If
+            If txtSteuerNr.Text <> "" Then
+                SQLstr &= " AND Adressen.Steuernummer LIKE '" & setLIke(txtSteuerNr.Text) & "%'"
+                suchparam = True
+            End If
             Select Case cbxAktiv.CheckState
                 Case CheckState.Checked : SQLstr &= " AND Auswahl='A' " : suchparam = True
                 Case CheckState.Unchecked : SQLstr &= " AND Auswahl='I' " : suchparam = True
             End Select
             If cbxAlleFirmen.Checked Then
-                SQLstr &= "  AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Alle Firmen
+                SQLstr &= "  AND  (Filialen.Firma IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') OR Filialen.Cluster IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "')) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Alle Firmen
             Else
                 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                    Case "FRONTOFFICE" : SQLstr &= "  AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
+                    Case "FRONTOFFICE" : SQLstr &= "  AND Filialen.Firma IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & ") " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
-                    Case "VERIMEX" : SQLstr &= "  AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
+                    Case "VERIMEX" : SQLstr &= "  AND Filialen.Cluster IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
                     Case "VERAG", "ATILLA" : SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5501','5601','5701','5801') " : suchparam = True
                     Case Else : SQLstr &= "  AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " : suchparam = True
                 End Select
@@ -84,7 +113,13 @@
             Else
                 '  MsgBox("Bitte geben Sie einen Suchbegriff ein!")
             End If
+
+            lblInfo.Text = ""
+
             If .RowCount = 0 Then Exit Sub
+            If .RowCount = 10 Then
+                lblInfo.Text = "ersten 10 Eintrage!"
+            End If
             .Columns("KdNr").Width = 60
             .Columns("Firma").Width = 250
             If .Columns("Firma_intern") IsNot Nothing Then .Columns("Firma_intern").HeaderText = "Firma"
@@ -93,6 +128,16 @@
         End With
     End Sub
 
+    Private Function setLIke(text As String) As String
+        text = text.Trim()
+
+        If text.StartsWith("*") Then
+            text = "%" & text.Substring(1).Replace("*", "")
+        End If
+
+        Return text
+    End Function
+
     Private Sub checkKey(sender As Object, e As KeyEventArgs) Handles txtKurzname.KeyDown, txtKundenNr.KeyDown, txtStrasse.KeyDown, txtOrt.KeyDown, txtPlz.KeyDown
         If DataGridView1.RowCount > 0 Then
             Select Case e.KeyCode
@@ -136,7 +181,10 @@
 
 
     Private Sub txtKurzname_TextChanged(sender As Object, e As EventArgs) Handles txtKurzname.TextChanged, txtKundenNr.TextChanged, txtStrasse.TextChanged, txtOrt.TextChanged, cbxLandKz.TextChanged, txtPlz.TextChanged
+        If txtKurzname.Text <> "" OrElse txtKundenNr.Text <> "" OrElse txtSteuerNr.Text <> "" OrElse txtOrt.Text <> "" OrElse cbxLandKz.Text <> "" OrElse txtPlz.Text <> "" Then
             initSearch()
+        End If
+
     End Sub
 
     Private Sub lklErweitert_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklErweitert.LinkClicked
@@ -165,10 +213,21 @@
     End Sub
 
     Private Sub cbxAktiv_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAktiv.CheckedChanged
+        If txtKurzname.Text <> "" OrElse txtKundenNr.Text <> "" OrElse txtSteuerNr.Text <> "" OrElse txtOrt.Text <> "" OrElse cbxLandKz.Text <> "" OrElse txtPlz.Text <> "" Then
+            initSearch()
+        End If
+    End Sub
+
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        txtKurzname.Text = ""
+        txtKundenNr.Text = ""
+        txtSteuerNr.Text = ""
+        txtOrt.Text = ""
+        cbxLandKz.changeItem("")
+        txtPlz.Text = ""
+
         initSearch()
     End Sub
-
-    Private Sub pnlErweiterteSuche_Paint(sender As Object, e As PaintEventArgs) Handles pnlErweiterteSuche.Paint
-
-    End Sub
 End Class

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -2380,7 +2380,8 @@ Public Class frmMDMDatenverarbetiung
     Function genPLOSEInsertMautD_NEW(von As Date, bis As Date) As Boolean
         Try
 
-            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+
+            'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
 
             pic.Visible = False
 

SDL/seriendruck/usrCntlFakturierung.Designer.vb

@@ -46,6 +46,7 @@ Partial Class usrcntlFakturierung
         Me.Button18 = New System.Windows.Forms.Button()
         Me.Label44 = New System.Windows.Forms.Label()
         Me.GBSammelrechnung = New System.Windows.Forms.GroupBox()
+        Me.btnSR_zuruecksetzen = New System.Windows.Forms.Button()
         Me.PictureBox13 = New System.Windows.Forms.PictureBox()
         Me.Label15 = New System.Windows.Forms.Label()
         Me.PictureBox12 = New System.Windows.Forms.PictureBox()
@@ -109,7 +110,7 @@ Partial Class usrcntlFakturierung
         Me.btnWikiStatusmails = New System.Windows.Forms.Button()
         Me.gb_MDM_Rechnungen = New System.Windows.Forms.GroupBox()
         Me.Label14 = New System.Windows.Forms.Label()
-        Me.btnSR_zuruecksetzen = New System.Windows.Forms.Button()
+        Me.cbxFixeTaxe = New System.Windows.Forms.CheckBox()
         Me.gb_fakturierung.SuspendLayout()
         Me.GBMautberichte.SuspendLayout()
         CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -356,6 +357,7 @@ Partial Class usrcntlFakturierung
         '
         'GBSammelrechnung
         '
+        Me.GBSammelrechnung.Controls.Add(Me.cbxFixeTaxe)
         Me.GBSammelrechnung.Controls.Add(Me.btnSR_zuruecksetzen)
         Me.GBSammelrechnung.Controls.Add(Me.PictureBox13)
         Me.GBSammelrechnung.Controls.Add(Me.Label15)
@@ -423,6 +425,18 @@ Partial Class usrcntlFakturierung
         Me.GBSammelrechnung.TabIndex = 14
         Me.GBSammelrechnung.TabStop = False
         '
+        'btnSR_zuruecksetzen
+        '
+        Me.btnSR_zuruecksetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSR_zuruecksetzen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnSR_zuruecksetzen.Location = New System.Drawing.Point(744, 261)
+        Me.btnSR_zuruecksetzen.Name = "btnSR_zuruecksetzen"
+        Me.btnSR_zuruecksetzen.Size = New System.Drawing.Size(107, 32)
+        Me.btnSR_zuruecksetzen.TabIndex = 135
+        Me.btnSR_zuruecksetzen.Text = "SR-zurücksetzen"
+        Me.btnSR_zuruecksetzen.UseVisualStyleBackColor = True
+        Me.btnSR_zuruecksetzen.Visible = False
+        '
         'PictureBox13
         '
         Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image)
@@ -518,7 +532,7 @@ Partial Class usrcntlFakturierung
         '
         Me.Label11.Location = New System.Drawing.Point(168, 156)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(440, 17)
+        Me.Label11.Size = New System.Drawing.Size(262, 17)
         Me.Label11.TabIndex = 125
         Me.Label11.Text = "6. Fixe Taxe 441 (bei Belegsumme < 500) berechnen"
         '
@@ -1063,17 +1077,16 @@ Partial Class usrcntlFakturierung
         Me.Label14.TabIndex = 73
         Me.Label14.Text = "Rechnungsdaten"
         '
-        'btnSR_zuruecksetzen
+        'cbxFixeTaxe
         '
-        Me.btnSR_zuruecksetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cbxFixeTaxe.AutoSize = True
-        Me.btnSR_zuruecksetzen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.cbxFixeTaxe.Checked = True
-        Me.btnSR_zuruecksetzen.Location = New System.Drawing.Point(744, 261)
+        Me.cbxFixeTaxe.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.btnSR_zuruecksetzen.Name = "btnSR_zuruecksetzen"
+        Me.cbxFixeTaxe.Location = New System.Drawing.Point(428, 156)
-        Me.btnSR_zuruecksetzen.Size = New System.Drawing.Size(107, 32)
+        Me.cbxFixeTaxe.Name = "cbxFixeTaxe"
-        Me.btnSR_zuruecksetzen.TabIndex = 135
+        Me.cbxFixeTaxe.Size = New System.Drawing.Size(15, 14)
-        Me.btnSR_zuruecksetzen.Text = "SR-zurücksetzen"
+        Me.cbxFixeTaxe.TabIndex = 136
-        Me.btnSR_zuruecksetzen.UseVisualStyleBackColor = True
+        Me.cbxFixeTaxe.UseVisualStyleBackColor = True
-        Me.btnSR_zuruecksetzen.Visible = False
         '
         'usrcntlFakturierung
         '
@@ -1201,4 +1214,5 @@ Partial Class usrcntlFakturierung
     Friend WithEvents PictureBox13 As PictureBox
     Friend WithEvents Label15 As Label
     Friend WithEvents btnSR_zuruecksetzen As Button
+    Friend WithEvents cbxFixeTaxe As CheckBox
 End Class

SDL/seriendruck/usrCntlFakturierung.vb

@@ -1,6 +1,7 @@
 Imports System.Globalization
 Imports System.IO
 Imports System.Web.UI.WebControls.Expressions
+Imports java.util
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrcntlFakturierung
@@ -290,7 +291,7 @@ Public Class usrcntlFakturierung
                                                     GROUP BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift]", "FMZOLL")
 
 
-        If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der  " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?", vbYesNoCancel) Then
+        If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der  " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?" & vbNewLine & IIf(cbxFixeTaxe.Checked, "Fixe Taxe wird verrechnet!", "Fixe Taxe wird NICHT verrechnet!"), vbYesNoCancel) Then
             MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub
         End If
 
@@ -622,17 +623,13 @@ Public Class usrcntlFakturierung
 
                 Dim intZlr As Integer = 0
 
-                If r("RechnungsKundenNr") = "401715" Or r("RechnungsKundenNr") = "401943" Or r("RechnungsKundenNr") = "402179" Or r("RechnungsKundenNr") = "402598" Or r("RechnungsKundenNr") = "402656" Or r("RechnungsKundenNr") = "402688" Or r("RechnungsKundenNr") = "402719" Or r("RechnungsKundenNr") = "402888" Or r("RechnungsKundenNr") = "402933" Or r("RechnungsKundenNr") = "401733" Or r("RechnungsKundenNr") = "402245" Or r("RechnungsKundenNr") = "402712" Or r("RechnungsKundenNr") = "402065" Or r("RechnungsKundenNr") = "402712" Or r("RechnungsKundenNr") = "401908" Or r("RechnungsKundenNr") = "401829" Or r("RechnungsKundenNr") = "203083" Then
-                    'MsgBox("Test")
-                End If
 
-
+                ' Bei BetragExclusivFT kleiner als 500€ wird 1x fixe Taxe verrechnet, bei grösser/gleich 500€ oder cbxFixeTaxe nicht gesetzt wird kein fixe Taxe verrechnet.
-                ' Bei BetragExclusivFT kleiner als 500€ wird 1x fixe Taxe verrechnet, bei grösser/gleich 500€ wird kein fixe Taxe verrechnet.
                 ' Zähler auf die Anzahl der fixe Taxe Löschungen einstellen.
 
                 If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
 
-                    If r("BetragExclusivFT") < 500 Then
+                    If r("BetragExclusivFT") < 500 AndAlso cbxFixeTaxe.Checked Then
                         intZlr = r("AnzahlFT") - 1
                     Else
                         intZlr = r("AnzahlFT")
@@ -640,12 +637,20 @@ Public Class usrcntlFakturierung
 
                 Else
 
+                    If cbxFixeTaxe.Checked Then
+
                         If (0 - r("BetragExclusivFT")) < 500 Then
                             intZlr = r("AnzahlFT") - 1
                         Else
                             intZlr = r("AnzahlFT") - 1
                         End If
 
+                    Else
+
+                        intZlr = r("AnzahlFT")
+
+                    End If
+
                 End If
 
 
@@ -1126,7 +1131,7 @@ Public Class usrcntlFakturierung
             Dim hatFehler As Boolean = False
 
             If dtSammelRechnugen.Rows.Count = 0 Then
-                MsgBox("Keine Rechnungen für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang wird abgebrochen.")
+                MsgBox("Keine Rechnungen für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang für die ZNB-liste wird übersprungen.")
                 Return False
             End If
 
@@ -1141,7 +1146,7 @@ Public Class usrcntlFakturierung
             End If
 
             If dtSammelRechnugen_EZB.Rows.Count = 0 Then
-                MsgBox("Keine Rechnungen der Filiale 8001 für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang wird abgebrochen.")
+                MsgBox("Keine Rechnungen der Filiale 8001 für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang für die ZNB-liste wird übersprungen.")
                 Return False
             End If
 
@@ -2615,30 +2620,63 @@ Public Class usrcntlFakturierung
             If vbYes = MsgBox("Soll die Sammelrechnung für den  " & rechnungsdatum & " zurückgesetzt werden?" & vbNewLine & "ACHTUNG, das darf nur von Administratoren durchgeführt werden!!!!", vbYesNoCancel) Then
 
                 Dim SQL As New SQL
+                Dim setBack As Boolean = False
+                Dim LIEFERANT As String = ""
+
 
                 '1. VZ zurücksetzen - wenn vorhanden!
-                SQL.doSQL("UPDATE [VERAG].[dbo].[tblMDM_Zinsberechnung] Set RK_ID = NULL,verrechnet = NULL where RK_ID in (select RK_ID from Rechnungsausgang where cast(RechnungsDatum as date) = '" & rechnungsdatum.ToShortDateString & "' and Firma_ID = 19 and Sammelrechnung = 6 )", "FMZOLL")
+                LIEFERANT = "VZ-Daten"
+                setBack = SQL.doSQL("UPDATE [VERAG].[dbo].[tblMDM_Zinsberechnung] Set RK_ID = NULL,verrechnet = NULL where RK_ID in (select RK_ID from Rechnungsausgang where cast(RechnungsDatum as date) = '" & rechnungsdatum.ToShortDateString & "' and Firma_ID = 19 and Sammelrechnung = 6 )", "FMZOLL")
+
+                If Not createInfo(setBack, LIEFERANT) Then Exit Sub
 
                 '2. SR löschen
-                SQL.doSQL("delete from Rechnungsausgang where cast(RechnungsDatum as date) = '" & rechnungsdatum.ToShortDateString & "' and Firma_ID = 19 and Sammelrechnung = 6 ", "FMZOLL")
+                LIEFERANT = "SR-Rechnung"
+                setBack = SQL.doSQL("delete from Rechnungsausgang where cast(RechnungsDatum as date) = '" & rechnungsdatum.ToShortDateString & "' and Firma_ID = 19 and Sammelrechnung = 6 ", "FMZOLL")
 
+                If Not createInfo(setBack, LIEFERANT) Then Exit Sub
                 '3. Lieferantendaten zurücksetzten
 
                 'PLOSE
-                SQL.doSQL("update tblPLOSE_Details set plose_Fakturiert = 0, plose_FakturiertDatum=NULL where isnull(plose_Fakturiert,0) = 1 and cast(plose_FakturiertDatum as Date) >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL")
+                LIEFERANT = "PLOSE-Daten"
+                setBack = SQL.doSQL("update tblPLOSE_Details set plose_Fakturiert = 0, plose_FakturiertDatum=NULL where isnull(plose_Fakturiert,0) = 1 and cast(plose_FakturiertDatum as Date) >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL")
+
+                If Not createInfo(setBack, LIEFERANT) Then Exit Sub
 
                 'UTA
-                SQL.doSQL("UPDATE [tblUTAImportNew] set charged=0,chargedDatetime=NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL")
+                LIEFERANT = "UTA-Daten"
+                setBack = SQL.doSQL("UPDATE [tblUTAImportNew] set charged=0,chargedDatetime=NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL")
 
-                'IDS
+                If Not createInfo(setBack, LIEFERANT) Then Exit Sub
-                SQL.doSQL("UPDATE [tblIDSTransactionsNew] Set charged = 0 ,chargedDatetime = NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL")
+
+                LIEFERANT = "IDS-Daten"
+                setBack = SQL.doSQL("UPDATE [tblIDSTransactionsNew] Set charged = 0 ,chargedDatetime = NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL")
+
+                If Not createInfo(setBack, LIEFERANT) Then Exit Sub
 
                 'MSE
-                SQL.doSQL("UPDATE [tblMSETransactions] Set charged = 0 , chargedDatetime = NULL where isnull(charged,0) = 1 and chargedDatetime  >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL")
+                setBack = SQL.doSQL("UPDATE [tblMSETransactions] Set charged = 0 , chargedDatetime = NULL where isnull(charged,0) = 1 and chargedDatetime  >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL")
+                LIEFERANT = "MSE-Daten"
+
+                If Not createInfo(setBack, LIEFERANT) Then Exit Sub
 
                 'BANK - Wenn vorhanden
-                SQL.doSQL("UPDATE [VERAG].[dbo].[tblMDM_Bankspesen] Set RK_ID = NULL,verrechnet = NULL, SR_datum = NULL where verrechnet  >= '" & rechnungsdatum.AddDays(1) & "' and SR_datum = '" & rechnungsdatum.ToShortDateString & "'", "FMZOLL")
+                LIEFERANT = "BANK-Daten"
+                setBack = SQL.doSQL("UPDATE [VERAG].[dbo].[tblMDM_Bankspesen] Set RK_ID = NULL,verrechnet = NULL, SR_datum = NULL where verrechnet  >= '" & rechnungsdatum.AddDays(1) & "' and SR_datum = '" & rechnungsdatum.ToShortDateString & "'", "FMZOLL")
 
+                If Not createInfo(setBack, LIEFERANT) Then Exit Sub
+
+
+                'MAUTDATEN
+                LIEFERANT = "Mautbericht-Daten"
+                setBack = SQL.doSQL("delete from tblMautbericht where Billingdate= '" & rechnungsdatum.ToShortDateString & "'", "FMZOLL")
+
+                If Not createInfo(setBack, LIEFERANT) Then Exit Sub
+
+
+                If setBack Then
+                    MsgBox("Rücksetzung erfolgreich!")
+                End If
 
 
 
@@ -2649,4 +2687,16 @@ Public Class usrcntlFakturierung
 
 
     End Sub
+
+    Private Function createInfo(setBack As Boolean, Lieferant As String) As Boolean
+
+        Dim INFO As String = "Achtung die Rücksetzung der " & Lieferant & " ist fehlgeschlagen, Rücksetzung wird abgebrochen!"
+
+        If Not setBack Then
+            MsgBox(INFO)
+        End If
+
+        Return setBack
+
+    End Function
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb

@@ -24,6 +24,9 @@ Public Class cKundenSicherheiten
     Public Property sc_stornoDatum As Date? = Nothing
     Public Property sc_stornoMaId As Integer? = Nothing
 
+    Public Property sc_cbam_jahr As Integer? = Nothing
+    Public Property sc_cbam_quartal As Integer? = Nothing
+
 
     Public hasEntry As Boolean = False
 
@@ -34,6 +37,13 @@ Public Class cKundenSicherheiten
         LOAD()
     End Sub
 
+    Sub New(_sc_kundenNr As String, _sc_cbam_quartal As Integer, _sc_cbam_jahr As Integer)
+        sc_kundenNr = _sc_kundenNr
+        sc_cbam_quartal = _sc_cbam_quartal
+        sc_cbam_jahr = _sc_cbam_jahr
+        LOADCBAM()
+    End Sub
+
     Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
 
@@ -57,6 +67,8 @@ Public Class cKundenSicherheiten
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_storno", sc_storno))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_stornoDatum", sc_stornoDatum))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_stornoMaId", sc_stornoMaId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_cbam_jahr", sc_cbam_jahr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_cbam_quartal", sc_cbam_quartal))
 
         Return list
     End Function
@@ -103,6 +115,33 @@ Public Class cKundenSicherheiten
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
+    Public Sub LOADCBAM()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblKundenSicherheiten WHERE sc_kundenNr=@sc_kundenNr and sc_cbam_quartal = @sc_cbam_quartal and sc_cbam_jahr = @sc_cbam_jahr", conn)
+                    cmd.Parameters.AddWithValue("@sc_kundenNr", sc_kundenNr)
+                    cmd.Parameters.AddWithValue("@sc_cbam_quartal", sc_cbam_quartal)
+                    cmd.Parameters.AddWithValue("@sc_cbam_jahr", sc_cbam_jahr)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim prop As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+                            If dr(li.Text) Is DBNull.Value Then
+                                prop.SetValue(Me, Nothing)
+                            Else
+                                prop.SetValue(Me, dr(li.Text))
+                            End If
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
 
     Public Function getUpdateCmd() As String
         Dim list = getParameterList()

VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb

@@ -1,8 +1,10 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
 Imports System.Runtime.InteropServices.ComTypes
+Imports System.Windows.Forms
 Imports com.sun.tools.javac.util
 Imports java.lang.ProcessBuilder
+Imports Org.BouncyCastle.Crypto.Agreement
 Imports sun.util.resources.cldr.aa
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
@@ -518,6 +520,7 @@ Public Class cVERAG_CustomsDeclarations
     End Function
 
     Public Sub checkfreshCBAMWarning()
+
         Try
             Dim CBAM_ITEMS As New List(Of cVERAG_CustomsDeclarations_Item)
 
@@ -597,6 +600,10 @@ Public Class cVERAG_CustomsDeclarations
                     Dim dateCBAM = If(If(za_ReleaseDate, za_DeclarationDate), Now)
                     Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(vertretenerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year), za_MRN) / 1000
 
+                    Dim quarter As Integer = Math.Ceiling(dateCBAM.Month / 3.0)
+                    Dim CountryOfOrigin As String = If(CBAM_ITEMS.FirstOrDefault()?.zaItem_OriginCountry, "")
+                    createOrUpdateKundenSicherheitseintrag(KD_IND, CountryOfOrigin, vertretenerEORI, quarter, dateCBAM.Year)
+
 
                     'Prüft, ob Vertrag vorliegt:
                     Dim hasValidVertrag_CBAM As Boolean =
@@ -679,6 +686,10 @@ Public Class cVERAG_CustomsDeclarations
 
                                     Dim dateCBAM = If(If(za_ReleaseDate, za_DeclarationDate), Now)
 
+                                    Dim CountryOfOrigin As String = If(CBAM_ITEMS.FirstOrDefault()?.zaItem_OriginCountry, "")
+                                    Dim quarter As Integer = Math.Ceiling(dateCBAM.Month / 3.0)
+                                    createOrUpdateKundenSicherheitseintrag(KD, CountryOfOrigin, importerEORI, quarter, dateCBAM.Year)
+
                                     Dim eigenmasseSumme_Shipment As Decimal = CBAM_ITEMS.Sum(Function(i) If(i.zaItem_NetMass, 0D)) / 1000
                                     Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(importerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year)) / 1000
 
@@ -807,6 +818,101 @@ Public Class cVERAG_CustomsDeclarations
         Return String.Join(", ", result)
     End Function
 
+    Private Function createOrUpdateKundenSicherheitseintrag(KUNDE As cKunde, CountryOfOrigin As String, EORI As String, cbamQquarter As Integer, cbamYear As Integer)
+
+        Dim von As Date
+        Dim bis As Date
+        Dim CBAMZertifikatKosten As Double = 0
+
+        'If CountryOfOrigin = "" Then Return False
+
+        Select Case cbamQquarter
+            Case "1"
+                von = New Date(cbamYear, 1, 1)
+                bis = New Date(cbamYear, 3, 31)
+                CBAMZertifikatKosten = 75.36
+
+            Case "2"
+                von = New Date(cbamYear, 4, 1)
+                bis = New Date(cbamYear, 6, 30)
+                CBAMZertifikatKosten = 75.28
+            Case "3"
+                von = New Date(cbamYear, 7, 1)
+                bis = New Date(cbamYear, 9, 30)
+                CBAMZertifikatKosten = 82.32
+
+            Case "4"
+                von = New Date(cbamYear, 10, 1)
+                bis = New Date(cbamYear, 12, 31)
+                CBAMZertifikatKosten = 0
+        End Select
+
+        Dim EORI_ = {EORI}
+
+        Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI_, CountryOfOrigin, von, bis,, True)
+
+
+        Dim grouped = From za In LIST
+                      Where za.Items IsNot Nothing
+                      From it In za.Items
+                      Let tarif = If(it.zaItem_HSCode IsNot Nothing AndAlso it.zaItem_HSCode.Length >= 8,
+                                   it.zaItem_HSCode.Substring(0, 8),
+                                   it.zaItem_HSCode)
+                      Let country = it.zaItem_OriginCountry
+                      Group By tarif, country
+                    Into grp = Group
+                      Select New With {
+                        .Tarif = tarif,
+                        .Country = country,
+                        .Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)),
+                        .Rohmasse = grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D)),
+                        .RechnungswertEUR = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, 0D))
+                    }
+
+
+
+
+
+        If grouped.Count < 1 Then
+            Return False
+        End If
+
+        Dim gesamtBetrag As Double = 0
+        Dim cost As Double = 0
+        Dim emission As Double = 0
+        Dim benchmark As Double = 0
+
+
+        For Each r In grouped
+            cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(r.Tarif, r.Rohmasse, r.Country, CBAMZertifikatKosten, cbamYear, cost, emission, benchmark)
+            gesamtBetrag += cost
+        Next
+
+        If gesamtBetrag <> 0 Then
+
+            Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear)
+            If Kunde_Sicherheit.hasEntry Then
+
+                Kunde_Sicherheit.sc_Betrag = gesamtBetrag
+                Kunde_Sicherheit.SAVE()
+            Else
+                Kunde_Sicherheit.sc_Waehrung = "EUR"
+                Kunde_Sicherheit.sc_Bemerkung = "CBAM Kosten Q" & cbamQquarter & " " & cbamYear & " / verw. Preis: " & CBAMZertifikatKosten.ToString("N2")
+                Kunde_Sicherheit.sc_Art = "BANKGARANTIE"
+                Kunde_Sicherheit.sc_Betrag = gesamtBetrag
+                Kunde_Sicherheit.sc_gueltigVon = New Date(2026, 1, 1)
+                Kunde_Sicherheit.sc_gueltigBis = New Date(2027, 12, 31)
+                Kunde_Sicherheit.sc_datum = Today()
+                Kunde_Sicherheit.sc_Mitarbeiter = "AUTO"
+                Kunde_Sicherheit.sc_dsId = -1
+                Kunde_Sicherheit.SAVE()
+            End If
+
+        End If
+
+
+    End Function
+
     Public Function getCBAM_KG(EORI As String, von As Date, bis As Date, Optional without_MRN As String = "", Optional isDeclarant As Boolean = False) As Decimal
         Try
             If EORI = "" Then Return 0

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -897,6 +897,10 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
             Select Case art
                 Case "3", "4" 'Export
                     sqlWHere = " AND mail_kindOfMail = 'EXP'"
+
+                Case "5" 'Buchhaltung
+                    sqlWHere = " AND mail_kindOfMail = 'BH'"
+
                 Case Else
                     sqlWHere = " AND mail_kindOfMail = 'IMP'"
             End Select