BH, nacherfassung leihgeld, etc.

2025-11-04 15:26:49 +01:00
parent 18b089d9ab
commit 05edf96d95
12 changed files with 3380 additions and 143 deletions
--- a/SDL/buchhaltung/usrCntlBH.Designer.vb
+++ b/SDL/buchhaltung/usrCntlBH.Designer.vb
@@ -37,6 +37,9 @@ Partial Class usrCntlBH
        Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Button14 = New System.Windows.Forms.Button()
        Me.GroupBox11 = New System.Windows.Forms.GroupBox()
+        Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.btnWikiStatusmails = New System.Windows.Forms.Button()
+        Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label52 = New System.Windows.Forms.Label()
        Me.btnZNBverrechnen = New System.Windows.Forms.Button()
        Me.Label51 = New System.Windows.Forms.Label()
@@ -158,9 +161,7 @@ Partial Class usrCntlBH
        Me.Label30 = New System.Windows.Forms.Label()
        Me.Label29 = New System.Windows.Forms.Label()
        Me.Button7 = New System.Windows.Forms.Button()
-        Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.btnWikiStatusmails = New System.Windows.Forms.Button()
-        Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.btn_fehlendeUID = New System.Windows.Forms.Button()
        Me.pnl.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.GroupBox12.SuspendLayout()
@@ -205,6 +206,7 @@ Partial Class usrCntlBH
        'TabPage1
        '
        Me.TabPage1.AutoScroll = True
+        Me.TabPage1.Controls.Add(Me.btn_fehlendeUID)
        Me.TabPage1.Controls.Add(Me.lblUID_zupruefen)
        Me.TabPage1.Controls.Add(Me.Label53)
        Me.TabPage1.Controls.Add(Me.GroupBox12)
@@ -410,6 +412,59 @@ Partial Class usrCntlBH
        Me.GroupBox11.TabIndex = 35
        Me.GroupBox11.TabStop = False
        '
+        'btnDel_
+        '
+        Me.btnDel_.allowBorder = False
+        Me.btnDel_.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnDel_.BackgroundImage = Global.SDL.My.Resources.Resources.del
+        Me.btnDel_.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDel_.FlatAppearance.BorderSize = 0
+        Me.btnDel_.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDel_.ForeColor = System.Drawing.Color.Black
+        Me.btnDel_.Location = New System.Drawing.Point(814, 42)
+        Me.btnDel_.Name = "btnDel_"
+        Me.btnDel_.Size = New System.Drawing.Size(20, 20)
+        Me.btnDel_.TabIndex = 74
+        Me.btnDel_.UseVisualStyleBackColor = True
+        Me.btnDel_.Visible = False
+        '
+        'btnWikiStatusmails
+        '
+        Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
+        Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
+        Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnWikiStatusmails.Location = New System.Drawing.Point(814, 10)
+        Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
+        Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
+        Me.btnWikiStatusmails.TabIndex = 73
+        Me.btnWikiStatusmails.UseVisualStyleBackColor = True
+        '
+        'txtAbBetragAbrechnen
+        '
+        Me.txtAbBetragAbrechnen._DateTimeOnly = False
+        Me.txtAbBetragAbrechnen._numbersOnly = True
+        Me.txtAbBetragAbrechnen._numbersOnlyKommastellen = ""
+        Me.txtAbBetragAbrechnen._numbersOnlyTrennzeichen = True
+        Me.txtAbBetragAbrechnen._Prozent = False
+        Me.txtAbBetragAbrechnen._ShortDateNew = False
+        Me.txtAbBetragAbrechnen._ShortDateOnly = False
+        Me.txtAbBetragAbrechnen._TimeOnly = False
+        Me.txtAbBetragAbrechnen._TimeOnly_Seconds = False
+        Me.txtAbBetragAbrechnen._value = "0"
+        Me.txtAbBetragAbrechnen._Waehrung = False
+        Me.txtAbBetragAbrechnen._WaehrungZeichen = False
+        Me.txtAbBetragAbrechnen.ForeColor = System.Drawing.Color.Black
+        Me.txtAbBetragAbrechnen.Location = New System.Drawing.Point(665, 43)
+        Me.txtAbBetragAbrechnen.MaxLineLength = -1
+        Me.txtAbBetragAbrechnen.MaxLines_Warning = ""
+        Me.txtAbBetragAbrechnen.MaxLines_Warning_Label = Nothing
+        Me.txtAbBetragAbrechnen.Name = "txtAbBetragAbrechnen"
+        Me.txtAbBetragAbrechnen.Size = New System.Drawing.Size(34, 20)
+        Me.txtAbBetragAbrechnen.TabIndex = 42
+        Me.txtAbBetragAbrechnen.Text = "20"
+        Me.txtAbBetragAbrechnen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'Label52
        '
        Me.Label52.AutoSize = True
@@ -1999,58 +2054,18 @@ Partial Class usrCntlBH
        Me.Button7.Text = "Importieren"
        Me.Button7.UseVisualStyleBackColor = True
        '
-        'txtAbBetragAbrechnen
+        'btn_fehlendeUID
        '
-        Me.txtAbBetragAbrechnen._DateTimeOnly = False
-        Me.txtAbBetragAbrechnen._numbersOnly = True
-        Me.txtAbBetragAbrechnen._numbersOnlyKommastellen = ""
-        Me.txtAbBetragAbrechnen._numbersOnlyTrennzeichen = True
-        Me.txtAbBetragAbrechnen._Prozent = False
-        Me.txtAbBetragAbrechnen._ShortDateNew = False
-        Me.txtAbBetragAbrechnen._ShortDateOnly = False
-        Me.txtAbBetragAbrechnen._TimeOnly = False
-        Me.txtAbBetragAbrechnen._TimeOnly_Seconds = False
-        Me.txtAbBetragAbrechnen._value = "0"
-        Me.txtAbBetragAbrechnen._Waehrung = False
-        Me.txtAbBetragAbrechnen._WaehrungZeichen = False
-        Me.txtAbBetragAbrechnen.ForeColor = System.Drawing.Color.Black
-        Me.txtAbBetragAbrechnen.Location = New System.Drawing.Point(665, 43)
-        Me.txtAbBetragAbrechnen.MaxLineLength = -1
-        Me.txtAbBetragAbrechnen.MaxLines_Warning = ""
-        Me.txtAbBetragAbrechnen.MaxLines_Warning_Label = Nothing
-        Me.txtAbBetragAbrechnen.Name = "txtAbBetragAbrechnen"
-        Me.txtAbBetragAbrechnen.Size = New System.Drawing.Size(34, 20)
-        Me.txtAbBetragAbrechnen.TabIndex = 42
-        Me.txtAbBetragAbrechnen.Text = "20"
-        Me.txtAbBetragAbrechnen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'btnWikiStatusmails
-        '
-        Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
-        Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0
-        Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnWikiStatusmails.Location = New System.Drawing.Point(814, 10)
-        Me.btnWikiStatusmails.Name = "btnWikiStatusmails"
-        Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20)
-        Me.btnWikiStatusmails.TabIndex = 73
-        Me.btnWikiStatusmails.UseVisualStyleBackColor = True
-        '
-        'btnDel_
-        '
-        Me.btnDel_.allowBorder = False
-        Me.btnDel_.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnDel_.BackgroundImage = Global.SDL.My.Resources.Resources.del
-        Me.btnDel_.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnDel_.FlatAppearance.BorderSize = 0
-        Me.btnDel_.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnDel_.ForeColor = System.Drawing.Color.Black
-        Me.btnDel_.Location = New System.Drawing.Point(814, 42)
-        Me.btnDel_.Name = "btnDel_"
-        Me.btnDel_.Size = New System.Drawing.Size(20, 20)
-        Me.btnDel_.TabIndex = 74
-        Me.btnDel_.UseVisualStyleBackColor = True
-        Me.btnDel_.Visible = False
+        Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_fehlendeUID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btn_fehlendeUID.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btn_fehlendeUID.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btn_fehlendeUID.Location = New System.Drawing.Point(810, 102)
+        Me.btn_fehlendeUID.Name = "btn_fehlendeUID"
+        Me.btn_fehlendeUID.Size = New System.Drawing.Size(43, 20)
+        Me.btn_fehlendeUID.TabIndex = 35
+        Me.btn_fehlendeUID.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btn_fehlendeUID.UseVisualStyleBackColor = True
        '
        'usrCntlBH
        '
@@ -2239,4 +2254,5 @@ Partial Class usrCntlBH
    Friend WithEvents txtAbBetragAbrechnen As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents btnWikiStatusmails As Button
    Friend WithEvents btnDel_ As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents btn_fehlendeUID As Button
 End Class
--- a/SDL/buchhaltung/usrCntlBH.vb
+++ b/SDL/buchhaltung/usrCntlBH.vb
@@ -1382,29 +1382,31 @@ Public Class usrCntlBH

    Private Sub countIDPruefungen()

+        btn_fehlendeUID.Tag = ""
+
        If txtUID_Jahr.Text <> "" AndAlso IsNumeric(txtUID_Jahr.Text) AndAlso txtUID_Jahr.Text.Length = 4 Then

            If txtUID_Monat.Text = "" OrElse txtUID_Monat.Text <> "" AndAlso IsNumeric(txtUID_Monat.Text) AndAlso CInt(txtUID_Monat.Text) > 0 AndAlso CInt(txtUID_Monat.Text) < 13 Then

-                Dim SQL_FIRMA As String = ""
-                Select Case cbxFirmaUID._value
-                    Case "AMBAR" : SQL_FIRMA = " And Filialen.FilialenNr  IN (5701)"
-                    Case "IMEX" : SQL_FIRMA = " And Filialen.FilialenNr  IN (5501)"
-                    Case "ATILLA" : SQL_FIRMA = " And Filialen.FilialenNr IN (4801)"
-                    Case "UNISPED" : SQL_FIRMA = " AND Filialen.firma='UNISPED' "
-                    Case "VERAG" : SQL_FIRMA = " AND Filialen.firma='VERAG' "
-                    Case Else : SQL_FIRMA = ""
-                End Select
-
+                Dim dt As New DataTable

                Dim Month As Integer = CInt(txtUID_Monat.Text).ToString("D2")
                Dim Year As Integer = CInt(txtUID_Jahr.Text)

                Dim datum = CDate("15." & Month & "." & Year).AddMonths(-1)

-                Dim SQL_UID_zupruefen As String = "Select count(*)  From [Adressen] inner Join kunden On KundenNr=AdressenNr  inner join Filialen On Filialen.FilialenNr=Kunden.FilialenNr where(UstIdGeprüft <= '" & datum & "' OR UstIdGeprüft is null) and (Adressen.UstIdKz is not null And Auswahl='A'" & SQL_FIRMA & ")"
+                dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.get_zupruefendeKunden(-1, datum, cbxFirmaUID._value)
+
+                lblUID_zupruefen.Text = "nicht geprüft: " & dt.Rows.Count
+
+                If dt.Rows.Count > 0 Then
+                    Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, "fehlende UID-Prüfungen_" & IIf(cbxFirmaUID._value <> "", cbxFirmaUID._value, "ALLE") & "_" & datum.ToShortDateString)
+                    btn_fehlendeUID.Tag = path
+                    btn_fehlendeUID.Visible = True
+                Else
+                    btn_fehlendeUID.Visible = False
+                End If

-                lblUID_zupruefen.Text = "nicht geprüft: " & SQL.getValueTxtBySql(SQL_UID_zupruefen, "FMZOLL",,, "0")

            End If

@@ -1427,4 +1429,10 @@ Public Class usrCntlBH
        End If

    End Sub
+
+    Private Sub btn_fehlendeUID_Click(sender As Object, e As EventArgs) Handles btn_fehlendeUID.Click
+        If sender.tag <> "" Then
+            Try : Process.Start(sender.tag) : Catch : End Try
+        End If
+    End Sub
 End Class