Offerte, Sammelredruck, etc.
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
16
SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb
generated
16
SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb
generated
@@ -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)
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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>"
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user