Zollern, etc.

SDL/Fakturierung/cAutomailversand.vb

@@ -982,7 +982,7 @@ Public Class cAutomailversand
         If isEinzelrechnung Then
             RE_Text = "diese Rechnung"
         Else
-            RE_Text = "alle markieren Rechnungen"
+            RE_Text = "alle markierten Rechnungen"
         End If
 
         If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand aktivieren?" & vbNewLine & "Die Rechnungen werden automatisch im Nachtlauf per EMail verschickt!", vbYesNoCancel) Then

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -184,19 +184,11 @@ Public Class frmAbrechnungsMaske
         If Not loaded Then Exit Sub
         Dim dgv As VERAG_PROG_ALLGEMEIN.MyDatagridview = getDGV()
 
-        Dim reNrSQL As String = ""
-        If cbx.Checked Then
-            reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr,cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, "
-        Else
-            reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, "
-        End If
-
-
         With dgv
             Dim sqlstr = ""
 
             If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = "24" Then
-                sqlstr &= "   SELECT R1.FilialenNr, R1.AbfertigungsNr, cast(R1.FilialenNr as varchar) + ' ' + cast(R1.AbfertigungsNr  as varchar) as PosNr, R1.UnterNr, Firma_ID,R1.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr FROM Rechnungsausgang as R1 INNER JOIN Adressen ON AdressenNr=R1.RechnungsKundenNr inner Join Speditionsbuch on Speditionsbuch.FilialenNr = R1.FilialenNr And Speditionsbuch.AbfertigungsNr = R1.AbfertigungsNr and  Speditionsbuch.UnterNr = R1.SpeditionsbuchUnterNr  "
+                sqlstr &= "   SELECT isnull(R1.RechnungsNr,'-') as ReNr, R1.FilialenNr, R1.AbfertigungsNr, cast(R1.FilialenNr as varchar) + ' ' + cast(R1.AbfertigungsNr  as varchar) as PosNr, R1.UnterNr, Firma_ID,R1.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr FROM Rechnungsausgang as R1 INNER JOIN Adressen ON AdressenNr=R1.RechnungsKundenNr inner Join Speditionsbuch on Speditionsbuch.FilialenNr = R1.FilialenNr And Speditionsbuch.AbfertigungsNr = R1.AbfertigungsNr and  Speditionsbuch.UnterNr = R1.SpeditionsbuchUnterNr  "
                 sqlstr &= "   WHERE 1=1 AND R1.Firma_ID=24 "
                 sqlstr &= getRGWhere(cboER_SR._value, FilialNrRestriction)
                 sqlstr &= "   and (SELECT COUNT(*) FROM Rechnungsausgang as R2 where"
@@ -207,7 +199,7 @@ Public Class frmAbrechnungsMaske
             Else
 
                 ' sqlstr &= " SELECT FilialenNr, AbfertigungsNr, UnterNr, Firma_ID, Status, Sammelrechnung, Sachbearbeiter, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, RechnungsNr, RechnungsDatum, DruckDatumZeit, Buchungsjahr, RK_ID"
-                sqlstr &= " SELECT " & reNrSQL & " FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr  as varchar) as PosNr,UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr"
+                sqlstr &= " SELECT cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr  as varchar) as PosNr,UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr"
                 sqlstr &= ",(CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' WHEN Rechnungsdruck=5 THEN 'MAIL+KOPIE' ELSE '-' END) as Rechnungsdruck, isnull(BelegartenKz, '') as BelegartenKz "
                 sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr"
                 sqlstr &= " WHERE 1=1 "
@@ -232,9 +224,14 @@ Public Class frmAbrechnungsMaske
                     .Columns("BelegartenKz").Visible = False
                 End If
 
-
                 If .Columns.Contains("ReNr") Then
-                    .Columns("ReNr").HeaderText = "ReNr."
+
+                    If cbx.Checked Then
+                        .Columns("ReNr").Visible = True
+                    Else
+                        .Columns("ReNr").Visible = False
+                    End If
+
                 End If
 
                 If .Columns.Contains("AUTO_sent") Then

SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb

@@ -563,7 +563,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.MyDatagridview1.ReadOnly = True
         Me.MyDatagridview1.RowHeadersVisible = False
         Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.MyDatagridview1.Size = New System.Drawing.Size(574, 373)
+        Me.MyDatagridview1.Size = New System.Drawing.Size(638, 373)
         Me.MyDatagridview1.TabIndex = 18
         '
         'txtZeitraumBis
@@ -642,7 +642,7 @@ Partial Class frmFaktSammelRgDrucken
         '
         Me.btnNurImport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnNurImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnNurImport.Location = New System.Drawing.Point(836, 437)
+        Me.btnNurImport.Location = New System.Drawing.Point(900, 437)
         Me.btnNurImport.Margin = New System.Windows.Forms.Padding(0)
         Me.btnNurImport.Name = "btnNurImport"
         Me.btnNurImport.Size = New System.Drawing.Size(75, 26)
@@ -656,7 +656,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.MyListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.MyListBox1.FormattingEnabled = True
-        Me.MyListBox1.Location = New System.Drawing.Point(836, 93)
+        Me.MyListBox1.Location = New System.Drawing.Point(900, 93)
         Me.MyListBox1.Name = "MyListBox1"
         Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
         Me.MyListBox1.Size = New System.Drawing.Size(225, 316)
@@ -666,7 +666,7 @@ Partial Class frmFaktSammelRgDrucken
         '
         Me.btnKeine.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnKeine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnKeine.Location = New System.Drawing.Point(985, 437)
+        Me.btnKeine.Location = New System.Drawing.Point(1049, 437)
         Me.btnKeine.Margin = New System.Windows.Forms.Padding(0)
         Me.btnKeine.Name = "btnKeine"
         Me.btnKeine.Size = New System.Drawing.Size(75, 26)
@@ -677,7 +677,7 @@ Partial Class frmFaktSammelRgDrucken
         'lblAbfertigungsarten
         '
         Me.lblAbfertigungsarten.AutoSize = True
-        Me.lblAbfertigungsarten.Location = New System.Drawing.Point(833, 77)
+        Me.lblAbfertigungsarten.Location = New System.Drawing.Point(896, 77)
         Me.lblAbfertigungsarten.Name = "lblAbfertigungsarten"
         Me.lblAbfertigungsarten.Size = New System.Drawing.Size(97, 13)
         Me.lblAbfertigungsarten.TabIndex = 43
@@ -687,7 +687,7 @@ Partial Class frmFaktSammelRgDrucken
         '
         Me.btnNurExport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnNurExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnNurExport.Location = New System.Drawing.Point(911, 437)
+        Me.btnNurExport.Location = New System.Drawing.Point(975, 437)
         Me.btnNurExport.Margin = New System.Windows.Forms.Padding(0)
         Me.btnNurExport.Name = "btnNurExport"
         Me.btnNurExport.Size = New System.Drawing.Size(75, 26)
@@ -699,7 +699,7 @@ Partial Class frmFaktSammelRgDrucken
         '
         Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(833, 412)
+        Me.Label6.Location = New System.Drawing.Point(897, 412)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(234, 13)
         Me.Label6.TabIndex = 49
@@ -710,7 +710,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1069, 472)
+        Me.ClientSize = New System.Drawing.Size(1133, 472)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.btnNurExport)
         Me.Controls.Add(Me.btnNurImport)

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -1,4 +1,5 @@
-Imports Microsoft.Office.Interop
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
+Imports Microsoft.Office.Interop
 
 Public Class frmFaktSammelRgDrucken
 
@@ -147,7 +148,7 @@ Public Class frmFaktSammelRgDrucken
 
                     sqlStr = "
                                     SELECT 
-                                        min(Rechnungsausgang.RechnungsNr) as RENR,
+                                        max(Rechnungsausgang.RechnungsNr) as RENR,
                                         Rechnungsausgang.RechnungsKundenNr,
                                         MAX(Rechnungsausgang.[RechnungsName 1]) AS Firma,
                                         " & If(Sammelrechung = 7, "AvisoId", "0") & " AS AvisoId,
@@ -195,21 +196,34 @@ Public Class frmFaktSammelRgDrucken
             .Columns("Rechnungsdruck").HeaderText = "Rg.Art"
             .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
             .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-            '.Columns(2).Visible = False
-            If .Columns.Contains("LKW") And .Columns.Count = 8 Then
+
+            If .Columns.Contains("LKW") And .Columns.Count >= 8 Then
                 .Columns("LKW").Width = 80
             End If
 
-            If Sammelrechung = 7 Then
-                .Columns("AvisoId").Visible = True
-            Else
-                .Columns("AvisoId").Visible = False
+            If .Columns.Contains("IM_EX") And .Columns.Count >= 8 Then
+                .Columns("IM_EX").Width = 45
             End If
 
             If .Columns.Contains("RechnungsLandKz") AndAlso Sammelrechung = 6 Then .Columns("RechnungsLandKz").Visible = True
+
             If .Columns.Contains("keineMWST") Then .Columns("keineMWST").Visible = False
-            If .Columns.Contains("RENR") Then .Columns("RENR").Visible = False
+
+            If .Columns.Contains("RENR") Then
+                If cbxAUTOMail.Checked Then
+                    .Columns("RENR").Visible = True
+                Else
+                    .Columns("RENR").Visible = False
+                End If
+
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+                    .Columns("RENR").Visible = True
+                End If
+
+            End If
+
             If .Columns.Contains("Steuer") Then .Columns("Steuer").Visible = False
+            If .Columns.Contains("AvisoId") Then .Columns("AvisoId").Visible = False
 
 
             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
@@ -453,7 +467,7 @@ Public Class frmFaktSammelRgDrucken
         If MyDatagridview1.SelectedRows.Count > 0 Then
             For Each r In MyDatagridview1.SelectedRows
                 If r.cells("AvisoId").value Is DBNull.Value Then
-                    MsgBox("Nich alle Speditionsbucheinträge haben eine Aviso-Id. LKW Abrechnung wird abgebrochen.") : Return (New List(Of Integer))
+                    MsgBox("Nicht alle Speditionsbucheinträge haben eine Aviso-Id. LKW Abrechnung wird abgebrochen.") : Return (New List(Of Integer))
                 End If
                 AvisoIds.Add(r.cells("AvisoId").value)
             Next
@@ -628,27 +642,26 @@ Public Class frmFaktSammelRgDrucken
 
             If cAutomailversand.automRechnungsversand_aktivieren() Then
 
-                Dim noRENRExisting As Boolean = False
                 Dim onlyEMAIL As Boolean = True
 
                 If MyDatagridview1.Columns.Contains("RENR") AndAlso MyDatagridview1.Columns.Contains("Rechnungsdruck") Then
-                    noRENRExisting = MyDatagridview1.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) r.Cells("RENR").Value Is Nothing OrElse IsDBNull(r.Cells("RENR").Value))
-                    onlyEMAIL = MyDatagridview1.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) IsDBNull(r.Cells("Rechnungsdruck").Value) OrElse r.Cells("Rechnungsdruck").Value Is Nothing OrElse r.Cells("Rechnungsdruck").Value.ToString() <> "E-MAIL")
 
-                    If noRENRExisting Then
+                    onlyEMAIL = MyDatagridview1.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) r.Cells("Rechnungsdruck").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("Rechnungsdruck").Value) AndAlso r.Cells("Rechnungsdruck").Value.ToString().Trim() = "E-MAIL")
 
-                        If cboFirma._value = "" Then MsgBox("Bitte Firma angeben!") : Exit Sub
-                        If txtZeitraumBis.Text = "" Then MsgBox("Bitte Zeitraum-Bis angeben!") : Exit Sub
-                        If txtRechnungsdatum.Text = "" Then MsgBox("Bitte Rechnungsdatum angeben!") : Exit Sub
-                        If onlyEMAIL Then MsgBox("Sammelrechnungen die per POST/FAX verschickt werden, können nicht gesetzt werden!") : Exit Sub
+                    If cboFirma._value = "" Then MsgBox("Bitte Firma angeben!") : Exit Sub
+                    If txtZeitraumBis.Text = "" Then MsgBox("Bitte Zeitraum-Bis angeben!") : Exit Sub
+                    If txtRechnungsdatum.Text = "" Then MsgBox("Bitte Rechnungsdatum angeben!") : Exit Sub
+                    If Not onlyEMAIL Then MsgBox("Sammelrechnungen die per POST/FAX verschickt werden, können nicht gesetzt werden!") : Exit Sub
 
+                    If vbYes = MsgBox("Es wird eine Beleg-NR vergeben, die Belege gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then
 
-                        If vbYes = MsgBox("Es wird eine Beleg-NR vergeben, die Belege gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then
+                        For Each r In MyDatagridview1.SelectedRows.Cast(Of DataGridViewRow)().Where(Function(x) x.Cells("RENR").Value Is Nothing OrElse IsDBNull(x.Cells("RENR").Value))
 
-                            For Each r In MyDatagridview1.SelectedRows.Cast(Of DataGridViewRow)().Where(Function(x) x.Cells("RENR").Value Is Nothing OrElse IsDBNull(x.Cells("RENR").Value))
-
-                                If IsDate(txtRechnungsdatum.Text) AndAlso IsDate(txtZeitraumBis.Text) AndAlso Not IsDBNull(r.Cells("RechnungsLandKz").Value) AndAlso Not IsDBNull(r.Cells("RechnungsKundenNr").Value) AndAlso IsNumeric(r.Cells("RechnungsKundenNr").Value) Then
+                            If IsDate(txtRechnungsdatum.Text) AndAlso IsDate(txtZeitraumBis.Text) AndAlso Not IsDBNull(r.Cells("RechnungsLandKz").Value) AndAlso Not IsDBNull(r.Cells("RechnungsKundenNr").Value) AndAlso IsNumeric(r.Cells("RechnungsKundenNr").Value) Then
 
+                                Dim RENRExisting As Boolean = False
+                                RENRExisting = r.Cells("RENR").Value IsNot Nothing AndAlso Not IsDBNull(r.Cells("RENR").Value) AndAlso r.Cells("RENR").Value.ToString().Trim() <> ""
+                                If Not RENRExisting Then
 
                                     Me.Enabled = False
                                     Me.Cursor = Cursors.WaitCursor
@@ -664,18 +677,14 @@ Public Class frmFaktSammelRgDrucken
                                     End If
                                     Me.Enabled = True
                                 End If
+                            End If
 
-                            Next
-                            Me.Enabled = True
-                            Me.Cursor = Cursors.Default
+                        Next
+                        Me.Enabled = True
+                        Me.Cursor = Cursors.Default
 
-                        End If
                     End If
 
-                Else
-
-                    MsgBox("Es wurde keine RE-Nr vergeben !") : Exit Sub
-
                 End If
 
                 setMailversand_ALL(True, Firma, Sammelrechung)
@@ -689,6 +698,7 @@ Public Class frmFaktSammelRgDrucken
 
 
 
+
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

SDL/kunden/usrCntlOfferte.vb

@@ -1026,7 +1026,26 @@ Public Class usrCntlOfferte
 
 
                             Dim TextHTML = ""
-                            TextHTML &= "_CHANGEME_"
+                            TextHTML &= "Sehr geehrte Damen und Herren,<br>
+                             <br>wir möchten uns für die gute Zusammenarbeit mit Ihrem Unternehmen herzlich bedanken.<br>
+                             <br>Unsere Aufwendungen für Mitarbeitende, IT-Systeme und Betriebskosten sind Jahr für Jahr gestiegen, so dass wir nicht umhin kommen, unsere Verzollungssätze entsprechend anzupassen.<br>
+                             <br>Ihr Verständnis ist uns wichtig und deshalb möchten wir Ihnen die Einflussfaktoren erläutern:<br><br>
+                            <ul>
+                            <li>Personalkostenerhöhungen in der Branche</li>
+                            <li>Verlagerung der Aufgaben von der Zollverwaltung zu den Spediteuren</li>
+                            <li>Verschärfte gesetzliche Bestimmungen (CBAM, NCTS5,..)</li>
+                            <li>Permanentes Update der elektronischen Zollsysteme</li>
+                            <li>Fortlaufende Weiterbildung unserer Zollsachbearbeitenden</li>
+                            <li>Verlängerte Öffnungszeiten</li>
+                            <li>Inflation, Wirtschaftskrise</li>
+                            <li>Gesteigerte Energiekosten, Versorgungskosten</li>
+                            </ul>
+                            <br>
+                            Beiliegend erhalten Sie eine Aufstellung mit den angepassten Abfertigungssätzen, gültig ab <b> 01. Juni 2026.</b><br>
+                            Wir haben nur die tatsächlichen Personalkostenerhöhungen zum Ansatz genommen. <br>
+                            Dass durch die gesetzlich verschärften Bestimmungen der Zeitaufwand beträchtlich gestiegen ist und damit die Abfertigungszahlen pro Person entsprechend gesunken sind, haben wir bei der Preiskalkulation nicht berücksichtigt. <br>
+                            Diesen Mehraufwand versuchen wir durch Einsparungsmaßnahmen mit modernster Software und Produktionsverbesserungen wett zu machen.<br><br>
+                            Wir bedanken uns für Ihr Verständnis und werden uns auch weiterhin bemühen Ihnen ein zuverlässiger Partner zu sein."
                             TextHTML &= "<br>"
                             TextHTML &= "<br>"
                             TextHTML &= "Mit freundlichen Grüßen<br>"

VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb

@@ -2,7 +2,6 @@
 
 Imports System.Data.SqlClient
 Imports System.Reflection
-Imports jdk.nashorn.internal.objects.annotations
 
 Public Class cAufschubKonten
     Property brgakto_id As Integer
@@ -12,7 +11,7 @@ Public Class cAufschubKonten
     Property brgakto_warn1 As Decimal
     Property brgakto_warn2 As Decimal
     Property brgakto_gs_standort As Object = Nothing
-    Property brgakto_gs_zollsatz As Integer
+    Property brgakto_gs_zollsatz As Decimal
     Property brgakto_gs_ustEnabled As Boolean = False
     Property brgakto_gs_ust As Object = Nothing
     Property brgakto_gs_aktSaldo As Decimal
@@ -100,7 +99,7 @@ Public Class cAufschubKonten
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
@@ -132,7 +131,7 @@ Public Class cAufschubKonten
                 End Using
             End Using
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
@@ -152,7 +151,7 @@ Public Class cAufschubKonten
             Return (" UPDATE [tblBrgAufschubKonten] SET " & str & " WHERE brgakto_id=@brgakto_id ")
 
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return ""
     End Function
@@ -173,7 +172,7 @@ Public Class cAufschubKonten
             values = values.Substring(0, values.Length - 1) 'wg. ','
             Return (" INSERT INTO tblBrgAufschubKonten  (" & str & ") VALUES(" & values & ")  ")
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         Return ""
     End Function
@@ -253,7 +252,7 @@ Public Class cAufschubKonten
             Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]=" & brgakto_id & " and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate.ToShortDateString & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)
 
         Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
 
     End Function

VERAG_PROG_ALLGEMEIN/cSicherheiten.vb

@@ -9,6 +9,7 @@ Public Class Sicherheiten_Standort
     Public Const UNISPED As String = "UNISPED GmbH"
     Public Const AMBAR As String = "AMBAR GmbH"
     Public Const ATILLA As String = "ATILLA GmbH"
+    Public Const ZOLLERN As String = "ZOLLERN"
 End Class
 
 Public Class cSicherheiten