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:
+
+ - Personalkostenerhöhungen in der Branche
+ - Verlagerung der Aufgaben von der Zollverwaltung zu den Spediteuren
+ - Verschärfte gesetzliche Bestimmungen (CBAM, NCTS5,..)
+ - Permanentes Update der elektronischen Zollsysteme
+ - Fortlaufende Weiterbildung unserer Zollsachbearbeitenden
+ - Verlängerte Öffnungszeiten
+ - Inflation, Wirtschaftskrise
+ - Gesteigerte Energiekosten, Versorgungskosten
+
+
+ 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