From f7b6537bbdb8df0285913928211dec6f661c3d4f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 6 May 2026 11:11:19 +0200 Subject: [PATCH] Offerte, Sammelredruck, etc. --- SDL/Fakturierung/cAutomailversand.vb | 2 +- SDL/Fakturierung/frmAbrechnungsMaske.vb | 21 +++--- .../frmFaktSammelRgDrucken.Designer.vb | 16 ++--- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 70 +++++++++++-------- SDL/kunden/usrCntlOfferte.vb | 21 +++++- .../Classes/cAufschubKonten.vb | 13 ++-- 6 files changed, 84 insertions(+), 59 deletions(-) diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb index 519ab6d0..a64dcc6c 100644 --- a/SDL/Fakturierung/cAutomailversand.vb +++ b/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 diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 786d8f87..0e832ce1 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/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 diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb index 73c206bf..e52444f2 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb +++ b/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) diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index ab9c86c2..933bed7a 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/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 diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index dd52593c..c8bec129 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -1026,7 +1026,26 @@ Public Class usrCntlOfferte Dim TextHTML = "" - TextHTML &= "_CHANGEME_" + TextHTML &= "Sehr geehrte Damen und Herren,
+  
wir möchten uns für die gute Zusammenarbeit mit Ihrem Unternehmen herzlich bedanken.
+  
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.
+  
Ihr Verständnis ist uns wichtig und deshalb möchten wir Ihnen die Einflussfaktoren erläutern:

+ +
+ Beiliegend erhalten Sie eine Aufstellung mit den angepassten Abfertigungssätzen, gültig ab 01. Juni 2026.
+ Wir haben nur die tatsächlichen Personalkostenerhöhungen zum Ansatz genommen.
+ 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.
+ Diesen Mehraufwand versuchen wir durch Einsparungsmaßnahmen mit modernster Software und Produktionsverbesserungen wett zu machen.

+ Wir bedanken uns für Ihr Verständnis und werden uns auch weiterhin bemühen Ihnen ein zuverlässiger Partner zu sein." TextHTML &= "
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb index f0a97888..33179bdc 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb +++ b/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