fakt, etc.

2026-05-13 13:44:31 +02:00
parent afdc1c3822
commit dcf20568ad
12 changed files with 182 additions and 106 deletions
--- a/SDL/buchhaltung/usrCntlBH.Designer.vb
+++ b/SDL/buchhaltung/usrCntlBH.Designer.vb
@@ -174,6 +174,9 @@ Partial Class usrCntlBH
        Me.txtZRvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label51 = New System.Windows.Forms.Label()
+        Me.Button15 = New System.Windows.Forms.Button()
+        Me.Label61 = New System.Windows.Forms.Label()
+        Me.txtMonateSyskavergleich = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.pnl.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.GroupBox13.SuspendLayout()
@@ -871,6 +874,9 @@ Partial Class usrCntlBH
        '
        'GroupBox2
        '
+        Me.GroupBox2.Controls.Add(Me.txtMonateSyskavergleich)
+        Me.GroupBox2.Controls.Add(Me.Label61)
+        Me.GroupBox2.Controls.Add(Me.Button15)
        Me.GroupBox2.Controls.Add(Me.Label2)
        Me.GroupBox2.Controls.Add(Me.Label5)
        Me.GroupBox2.Controls.Add(Me.Button1)
@@ -883,7 +889,7 @@ Partial Class usrCntlBH
        'Label2
        '
        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(145, 30)
+        Me.Label2.Location = New System.Drawing.Point(145, 23)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(291, 26)
        Me.Label2.TabIndex = 2
@@ -904,9 +910,9 @@ Partial Class usrCntlBH
        '
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button1.Location = New System.Drawing.Point(6, 19)
+        Me.Button1.Location = New System.Drawing.Point(6, 10)
        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(121, 49)
+        Me.Button1.Size = New System.Drawing.Size(121, 37)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "Abgleich starten"
        Me.Button1.UseVisualStyleBackColor = True
@@ -2252,6 +2258,55 @@ Partial Class usrCntlBH
        Me.Label51.TabIndex = 36
        Me.Label51.Text = "Zinsnachberechnung"
        '
+        'Button15
+        '
+        Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button15.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button15.Location = New System.Drawing.Point(6, 49)
+        Me.Button15.Name = "Button15"
+        Me.Button15.Size = New System.Drawing.Size(121, 31)
+        Me.Button15.TabIndex = 29
+        Me.Button15.Text = "          Excel"
+        Me.Button15.UseVisualStyleBackColor = True
+        '
+        'Label61
+        '
+        Me.Label61.AutoSize = True
+        Me.Label61.Location = New System.Drawing.Point(145, 61)
+        Me.Label61.Name = "Label61"
+        Me.Label61.Size = New System.Drawing.Size(226, 13)
+        Me.Label61.TabIndex = 30
+        Me.Label61.Text = "Kunden ohne FIBU-Filiale der letzten x Monate"
+        '
+        'txtMonateSyskavergleich
+        '
+        Me.txtMonateSyskavergleich._DateTimeOnly = False
+        Me.txtMonateSyskavergleich._numbersOnly = True
+        Me.txtMonateSyskavergleich._numbersOnlyKommastellen = ""
+        Me.txtMonateSyskavergleich._numbersOnlyTrennzeichen = False
+        Me.txtMonateSyskavergleich._Prozent = False
+        Me.txtMonateSyskavergleich._ShortDateNew = False
+        Me.txtMonateSyskavergleich._ShortDateOnly = False
+        Me.txtMonateSyskavergleich._TimeOnly = False
+        Me.txtMonateSyskavergleich._TimeOnly_Seconds = False
+        Me.txtMonateSyskavergleich._value = ""
+        Me.txtMonateSyskavergleich._Waehrung = False
+        Me.txtMonateSyskavergleich._WaehrungZeichen = False
+        Me.txtMonateSyskavergleich.ForeColor = System.Drawing.Color.Black
+        Me.txtMonateSyskavergleich.Location = New System.Drawing.Point(383, 58)
+        Me.txtMonateSyskavergleich.MaxLength = 2
+        Me.txtMonateSyskavergleich.MaxLineLength = -1
+        Me.txtMonateSyskavergleich.MaxLines_Warning = ""
+        Me.txtMonateSyskavergleich.MaxLines_Warning_Label = Nothing
+        Me.txtMonateSyskavergleich.Name = "txtMonateSyskavergleich"
+        Me.txtMonateSyskavergleich.Size = New System.Drawing.Size(24, 20)
+        Me.txtMonateSyskavergleich.TabIndex = 43
+        Me.txtMonateSyskavergleich.Text = "3"
+        Me.txtMonateSyskavergleich.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'usrCntlBH
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2456,4 +2511,7 @@ Partial Class usrCntlBH
    Friend WithEvents Label60 As Label
    Friend WithEvents Label58 As Label
    Friend WithEvents btnfortlRENr As Button
+    Friend WithEvents txtMonateSyskavergleich As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label61 As Label
+    Friend WithEvents Button15 As Button
 End Class
--- a/SDL/buchhaltung/usrCntlBH.vb
+++ b/SDL/buchhaltung/usrCntlBH.vb
@@ -1593,5 +1593,32 @@ Public Class usrCntlBH

    End Sub

+    Private Sub Button15_Click_1(sender As Object, e As EventArgs) Handles Button15.Click

+        If txtMonateSyskavergleich.Text <> "" AndAlso IsNumeric(txtMonateSyskavergleich.Text) Then
+
+            Dim SQLString = "select RechnungsKundenNr, Adressen.[Name 1], Kunden.FilialenNr, MAX(cast(RechnungsDatum as Date)) as aktuellsteRE from Rechnungsausgang 
+        inner join Kunden on Kunden.KundenNr = Rechnungsausgang.KundenNrZentrale
+        inner join Adressen on Adressen.AdressenNr = Kunden.KundenNr
+        where cast(RechnungsDatum as date) >= DATEADD(MONTH,-" & txtMonateSyskavergleich.Text & ", GETDATE()) and Kunden.FiBuSchnittstelle = 0 and Kunden.FiBuSchnittstelleNr is null
+        group by RechnungsKundenNr, Adressen.[Name 1], Kunden.FilialenNr
+        order by MAX(cast(RechnungsDatum as Date)) "
+
+            Me.Cursor = Cursors.WaitCursor
+            Dim dt_RE As DataTable = SQL.loadDgvBySql(SQLString, "FMZOLL")
+
+            If dt_RE.Rows.Count > 0 Then
+                cProgramFunctions.genExcelFromDT_NEW(dt_RE,,, "Kunden ohne FIBU-Filiale mit Belegen der letzten " & txtMonateSyskavergleich.Text & " Monate",,, True)
+                Me.Cursor = Cursors.Default
+            Else
+                MsgBox("keine Daten für den ausgewählten Zeitraum!")
+                Me.Cursor = Cursors.Default
+            End If
+
+        End If
+
+
+
+
+    End Sub
 End Class