fremdrechnungen, etc.

2025-04-03 15:37:12 +02:00
parent a0a21e0c48
commit 32883956d5
8 changed files with 268 additions and 103 deletions
--- a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb
@@ -40,6 +40,7 @@ Partial Class frmBU_Mahnlauf
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.btnKunde = New System.Windows.Forms.Button()
        Me.cbxMahnstufeErh = New System.Windows.Forms.CheckBox()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Button6 = New System.Windows.Forms.Button()
@@ -54,7 +55,7 @@ Partial Class frmBU_Mahnlauf
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.btnKunde = New System.Windows.Forms.Button()
+        Me.cbxZahlungseingaenge = New System.Windows.Forms.CheckBox()
        Me.Panel1.SuspendLayout()
        Me.pnlTop.SuspendLayout()
        Me.Panel2.SuspendLayout()
@@ -64,6 +65,7 @@ Partial Class frmBU_Mahnlauf
        '
        'Panel1
        '
+        Me.Panel1.Controls.Add(Me.cbxZahlungseingaenge)
        Me.Panel1.Controls.Add(Me.cbxNurFaellig)
        Me.Panel1.Controls.Add(Me.MyComboBox1)
        Me.Panel1.Controls.Add(Me.Label7)
@@ -288,6 +290,21 @@ Partial Class frmBU_Mahnlauf
        Me.Panel3.Size = New System.Drawing.Size(1287, 147)
        Me.Panel3.TabIndex = 1
        '
+        'btnKunde
+        '
+        Me.btnKunde.Enabled = False
+        Me.btnKunde.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnKunde.Image = Global.SDL.My.Resources.Resources.person1
+        Me.btnKunde.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnKunde.Location = New System.Drawing.Point(38, 87)
+        Me.btnKunde.Name = "btnKunde"
+        Me.btnKunde.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
+        Me.btnKunde.Size = New System.Drawing.Size(123, 32)
+        Me.btnKunde.TabIndex = 46
+        Me.btnKunde.Text = "zum Kundenblatt"
+        Me.btnKunde.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnKunde.UseVisualStyleBackColor = True
+        '
        'cbxMahnstufeErh
        '
        Me.cbxMahnstufeErh.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -473,20 +490,16 @@ Partial Class frmBU_Mahnlauf
        Me.MyTextBox2.TabIndex = 39
        Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
-        'btnKunde
+        'cbxZahlungseingaenge
        '
-        Me.btnKunde.Enabled = False
-        Me.btnKunde.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnKunde.Image = Global.SDL.My.Resources.Resources.person1
-        Me.btnKunde.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnKunde.Location = New System.Drawing.Point(38, 87)
-        Me.btnKunde.Name = "btnKunde"
-        Me.btnKunde.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
-        Me.btnKunde.Size = New System.Drawing.Size(123, 32)
-        Me.btnKunde.TabIndex = 46
-        Me.btnKunde.Text = "zum Kundenblatt"
-        Me.btnKunde.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnKunde.UseVisualStyleBackColor = True
+        Me.cbxZahlungseingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cbxZahlungseingaenge.AutoSize = True
+        Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(568, 87)
+        Me.cbxZahlungseingaenge.Name = "cbxZahlungseingaenge"
+        Me.cbxZahlungseingaenge.Size = New System.Drawing.Size(114, 17)
+        Me.cbxZahlungseingaenge.TabIndex = 39
+        Me.cbxZahlungseingaenge.Text = "Zahlungseingänge"
+        Me.cbxZahlungseingaenge.UseVisualStyleBackColor = True
        '
        'frmBU_Mahnlauf
        '
@@ -544,4 +557,5 @@ Partial Class frmBU_Mahnlauf
    Friend WithEvents Button6 As Button
    Friend WithEvents cbxMahnstufeErh As CheckBox
    Friend WithEvents btnKunde As Button
+    Friend WithEvents cbxZahlungseingaenge As CheckBox
 End Class
--- a/SDL/buchhaltung/frmBU_Mahnlauf.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb
@@ -9,10 +9,10 @@ Public Class frmBU_Mahnlauf
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Dim listOfTextconserven As cTextkonserve_LIST
    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
-        initDGV()
+        initDGV(cbxZahlungseingaenge.Checked)
    End Sub

-    Sub initDGV()
+    Sub initDGV(Optional zahlungseingaenge As Boolean = False)
        With MyDatagridview1
            .Columns.Clear()

@@ -69,8 +69,35 @@ Public Class frmBU_Mahnlauf
                         " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
                      ORDER BY KTO.c_name"

+
+
+            Dim sqlStringVerag360Zahlungseingaenge = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,/*KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, */  " &
+                             "isnull(( SELECT TOP 1 [Zahlungsinformationen] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].Kunden where KundenNr=i_personenkonto ) ,'') Zahlungsinfo, cast(min (OWNFIELD_Belegdatum)as date) as 'ältesteRg'," &
+                             "count(*) Anzahl, sum(eur_bruttobetrag+eur_zahlung) Ausstand ,min(op.d_netto) Faelligkeit,max(si_mahnstufe) Mahnstufe, cast(MAX(d_mahnung)as date) Mahndatum, max(replace(KTO.c_zahlziel,'0/0/','')) ZZ, 
+
+                            case 
+                            when max(si_mahnstufe) = 1 and max((replace(KTO.c_zahlziel,'0/0/',''))) = 20 Then 'telefonisch' 
+                            when max(si_mahnstufe) = 1 and max((replace(KTO.c_zahlziel,'0/0/',''))) = 30 Then 'ZZ 30 Tage' 
+                            when max(si_mahnstufe) = 1 and cast(MAX(d_mahnung)as date) < (GETDATE()- 60) Then 'Sperre Donnerstag' 
+                            when max(si_mahnstufe) = 2 and max((replace(KTO.c_zahlziel,'0/0/',''))) = 20 Then 'Sperre Freitag' 
+                            when max(si_mahnstufe) = 2 and max((replace(KTO.c_zahlziel,'0/0/',''))) = 30 Then 'ZZ 30 Tage' 
+                            when max(si_mahnstufe) >= 3  Then 'Sperre Donnerstag' 
+                            else '-'
+                            End as sperre" & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") & "
+                      FROM op_debitor OP
+	                    RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND  KTO.i_firm_refid=OP.i_firm_refid
+                      WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
+                        " & If(cbxNurFaellig.Checked, " and op.d_netto<=getdate() and isnull(si_mahnflags,0) <>(1) ", "") & "
+                        " & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & "
+                        " & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & "
+                      group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,KTO.c_email
+                      HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "'
+                         " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
+                      ORDER BY KTO.c_name"
+
+
            'MsgBox(sqlStr)
-            Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, sqlStringVerag360, sqlStr), "FIBU")
+            Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, IIf(zahlungseingaenge, sqlStringVerag360Zahlungseingaenge, sqlStringVerag360), sqlStr), "FIBU")

            .DataSource = dt_OP
            If .Columns.Count = 0 Then Exit Sub
@@ -1248,4 +1275,7 @@ Public Class frmBU_Mahnlauf
        End If
    End Sub

+    Private Sub cbxZahlungseingaenge_CheckedChanged(sender As Object, e As EventArgs) Handles cbxZahlungseingaenge.CheckedChanged
+        'initDGV(cbxZahlungseingaenge.Checked)
+    End Sub
 End Class
--- a/SDL/buchhaltung/usrCntlBH.vb
+++ b/SDL/buchhaltung/usrCntlBH.vb
@@ -95,6 +95,7 @@ Public Class usrCntlBH

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
        End Try
    End Sub