edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mahnlauf, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-10-22 14:51:49 +02:00
parent 5c4db84753
commit c9d1febc98
4 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -103,14 +103,15 @@ Public Class frmBU_Mahnlauf
- 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) as Risiko,
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 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) >= 5 Then 'gesperrt'
else '-'
End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") &
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) = 3 Then 'Donnerstag'
when max(si_mahnstufe) = 2 Then 'Freitag'
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") &
", 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

4
SDL/buchhaltung/rptMahnung.vb
View File

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

22
SDL/frmdynMailvorlage.Designer.vb generated
View File

@@ -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)

5
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
View File

@@ -896,14 +896,15 @@ Public Class cVERAG_CustomsDeclarations
Kunde_Sicherheit.sc_Betrag = gesamtBetrag
Kunde_Sicherheit.SAVE()
Else
Kunde_Sicherheit.sc_Bemerkung = "EUR"
Kunde_Sicherheit.sc_Bemerkung = "CBAM Kosten Q" & cbamQquarter & " " & cbamYear & " / verw. Preis: " & CBAMZertifikatKosten.ToString("N2") & " EUR"
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