merge ,

KD-Übers

SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb

@@ -25,6 +25,8 @@ Partial Class frmBU_Mahnlauf
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBU_Mahnlauf))
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lblBetreuer = New System.Windows.Forms.Label()
+        Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxZahlungseingaenge = New System.Windows.Forms.CheckBox()
@@ -62,8 +64,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.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.lblBetreuer = New System.Windows.Forms.Label()
+        Me.cbxNewDGV = New System.Windows.Forms.CheckBox()
         Me.Panel1.SuspendLayout()
         Me.pnlTop.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -73,6 +74,7 @@ Partial Class frmBU_Mahnlauf
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.cbxNewDGV)
         Me.Panel1.Controls.Add(Me.lblBetreuer)
         Me.Panel1.Controls.Add(Me.cboBetreuer)
         Me.Panel1.Controls.Add(Me.cbxKontotyp)
@@ -95,6 +97,28 @@ Partial Class frmBU_Mahnlauf
         Me.Panel1.Size = New System.Drawing.Size(1514, 132)
         Me.Panel1.TabIndex = 0
         '
+        'lblBetreuer
+        '
+        Me.lblBetreuer.AutoSize = True
+        Me.lblBetreuer.Location = New System.Drawing.Point(329, 114)
+        Me.lblBetreuer.Name = "lblBetreuer"
+        Me.lblBetreuer.Size = New System.Drawing.Size(50, 13)
+        Me.lblBetreuer.TabIndex = 50
+        Me.lblBetreuer.Text = "Betreuer:"
+        Me.lblBetreuer.Visible = False
+        '
+        'cboBetreuer
+        '
+        Me.cboBetreuer._allowedValuesFreiText = Nothing
+        Me.cboBetreuer._allowFreiText = False
+        Me.cboBetreuer._value = ""
+        Me.cboBetreuer.FormattingEnabled = True
+        Me.cboBetreuer.Location = New System.Drawing.Point(410, 111)
+        Me.cboBetreuer.Name = "cboBetreuer"
+        Me.cboBetreuer.Size = New System.Drawing.Size(97, 21)
+        Me.cboBetreuer.TabIndex = 49
+        Me.cboBetreuer.Visible = False
+        '
         'cbxKontotyp
         '
         Me.cbxKontotyp._allowedValuesFreiText = Nothing
@@ -602,27 +626,18 @@ Partial Class frmBU_Mahnlauf
         Me.MyTextBox2.TabIndex = 39
         Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
-        'cboBetreuer
+        'cbxNewDGV
         '
-        Me.cboBetreuer._allowedValuesFreiText = Nothing
-        Me.cboBetreuer._allowFreiText = False
-        Me.cboBetreuer._value = ""
-        Me.cboBetreuer.FormattingEnabled = True
-        Me.cboBetreuer.Location = New System.Drawing.Point(410, 111)
-        Me.cboBetreuer.Name = "cboBetreuer"
-        Me.cboBetreuer.Size = New System.Drawing.Size(97, 21)
-        Me.cboBetreuer.TabIndex = 49
-        Me.cboBetreuer.Visible = False
-        '
-        'lblBetreuer
-        '
-        Me.lblBetreuer.AutoSize = True
-        Me.lblBetreuer.Location = New System.Drawing.Point(329, 114)
-        Me.lblBetreuer.Name = "lblBetreuer"
-        Me.lblBetreuer.Size = New System.Drawing.Size(50, 13)
-        Me.lblBetreuer.TabIndex = 50
-        Me.lblBetreuer.Text = "Betreuer:"
-        Me.lblBetreuer.Visible = False
+        Me.cbxNewDGV.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cbxNewDGV.AutoSize = True
+        Me.cbxNewDGV.Checked = True
+        Me.cbxNewDGV.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxNewDGV.Location = New System.Drawing.Point(1118, 54)
+        Me.cbxNewDGV.Name = "cbxNewDGV"
+        Me.cbxNewDGV.Size = New System.Drawing.Size(88, 17)
+        Me.cbxNewDGV.TabIndex = 51
+        Me.cbxNewDGV.Text = "neue Ansicht"
+        Me.cbxNewDGV.UseVisualStyleBackColor = True
         '
         'frmBU_Mahnlauf
         '
@@ -689,4 +704,5 @@ Partial Class frmBU_Mahnlauf
     Friend WithEvents Label9 As Label
     Friend WithEvents lblBetreuer As Label
     Friend WithEvents cboBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbxNewDGV As CheckBox
 End Class

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -8,10 +8,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(cbxZahlungseingaenge.Checked)
+        initDGV(cbxZahlungseingaenge.Checked, cbxNewDGV.Checked)
     End Sub
 
-    Sub initDGV(Optional zahlungseingaenge As Boolean = False)
+    Sub initDGV(Optional zahlungseingaenge As Boolean = False, Optional newDGV As Boolean = False)
         With MyDatagridview1
             .Columns.Clear()
 
@@ -45,6 +45,57 @@ Public Class frmBU_Mahnlauf
                          " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
                       ORDER BY KTO.c_name"
 
+            Dim sqlStr_New = "WITH EmailCTE AS (
+                               SELECT
+                                   kkd_KundenNr" & IIf(Firma_ID = 7, ",MAX(CASE WHEN kkd_kkaId = 18 THEN kkd_Email END) AS EmailMAhnungAtilla", "") & ",MAX(CASE WHEN kkd_kkaId = 10 THEN kkd_Email END) AS EmailMahnung
+                               FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt]
+                               WHERE kkd_kkaId IN (" & IIf(Firma_ID = 7, "10, 18", "10") & ")
+                               GROUP BY kkd_KundenNr
+                           )
+                           SELECT
+                               OP.i_personenkonto                     AS Konto,
+                               KTO.c_name,
+                               KTO.c_landid                           AS Land,
+                               KTO.c_plz + ' ' + KTO.c_ort            AS Ort,
+                               COALESCE(" & IIf(Firma_ID = 7, "E.EmailMAhnungAtilla,", "") & "E.EmailMahnung, '')  AS Email,
+                               ISNULL(K.VK, '')                       AS VK,
+                               KTO.c_zahlziel                         AS Zahlungsziel,
+                               COUNT(*)                               AS Anzahl,
+                               SUM(OP.eur_bruttobetrag + OP.eur_zahlung) AS Ausstand,
+                               MIN(OP.d_netto)                        AS Faelligkeit,
+                               MAX(OP.si_mahnstufe)                   AS Mahnstufe,
+                               CAST(MAX(OP.d_mahnung) AS date)        AS Mahndatum," &
+                               If(cbxNurFaellig.Checked, "", "SUM(CASE WHEN OP.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig,") & "
+                               CAST(ISNULL(si_mahnung,0) AS bit)   AS mahnbar
+                           FROM op_debitor OP
+                           JOIN fibu_konto KTO
+                               ON OP.i_personenkonto = KTO.i_konto
+                              AND OP.i_firm_refid    = KTO.i_firm_refid
+                           LEFT JOIN EmailCTE E ON E.kkd_KundenNr = OP.i_personenkonto
+                           LEFT JOIN (
+                               SELECT KundenNr, Vorkasse AS VK
+                               FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].Kunden
+                           ) K
+                               ON K.KundenNr = OP.i_personenkonto
+                           WHERE OP.i_firm_refid = '" & Firma_ID & "'
+                             AND OP.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
+                               OP.i_personenkonto,
+                               KTO.c_name,
+                               KTO.c_landid,
+                               KTO.c_plz,
+                               KTO.c_ort,
+                               KTO.c_zahlziel,
+                               ISNULL(si_mahnung,0),
+                               COALESCE(" & IIf(Firma_ID = 7, "E.EmailMAhnungAtilla,", "") & "E.EmailMahnung, ''),
+                               ISNULL(K.VK,'')
+                           HAVING SUM(OP.eur_bruttobetrag + OP.eur_zahlung) > '" & MyTextBox1._value & "'
+                           ORDER BY KTO.c_name;"
+
+
+
             Dim sqlStringVerag360 = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,Kunden.Abfertigungsverbot as AV,max(KTO.dec_aktuellersaldo) as Saldo,/*KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, */  " &
                              "sum(eur_bruttobetrag+eur_zahlung) as Ausstand,cast(min(d_rechnung)as date) as 'ältesteRg',/*min(op.d_netto) Faelligkeit,*/max(si_mahnstufe) as MS,max(Kunden.UStV_Summe3470BetragEUR) as '3470',max(Kunden.Versicherungssumme) as V, 
                              
@@ -94,7 +145,7 @@ Public Class frmBU_Mahnlauf
 
 
             'MsgBox(sqlStr)
-            Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, IIf(zahlungseingaenge, sqlStringVerag360Zahlungseingaenge, sqlStringVerag360), sqlStr), "FIBU")
+            Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, IIf(zahlungseingaenge, sqlStringVerag360Zahlungseingaenge, sqlStringVerag360), IIf(newDGV, sqlStr_New, sqlStr)), "FIBU")
 
             .DataSource = dt_OP
             If .Columns.Count = 0 Then Exit Sub
@@ -292,24 +343,23 @@ Public Class frmBU_Mahnlauf
         'Wenn <0, dann Guthaben!!
     End Function
 
-
-    Public Function increaseMahnstufe(KdNr As Integer, Firma_ID As Integer) As Boolean
+    Public Function increaseMahnstufe(KdNr As Integer, Firma_ID As Integer, ErhoehungBeiMahnsperre As Boolean) As Boolean '
         Dim sqlStr = "UPDATE op_debitor  SET si_mahnstufe=(isnull(si_mahnstufe,0)+1),d_mahnung=GETDATE()
                     WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
-                    and i_personenkonto='" & KdNr & "'  and dec_fremdbrutto>0 and (si_mahnstufe  >=0 OR si_mahnstufe is NULL) and d_netto<=getdate()"
+                    and i_personenkonto='" & KdNr & "'  and dec_fremdbrutto>0 and (si_mahnstufe  >=0 OR si_mahnstufe is NULL) " & IIf(ErhoehungBeiMahnsperre, "", "AND isnull(si_mahnflags,0) <>(1)") & " and d_netto<=getdate()"
         Return SQL.doSQL(sqlStr, "FIBU")
     End Function
 
-    Public Function redoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date) As Boolean
+    Public Function redoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date, ErhoehungBeiMahnsperre As Boolean) As Boolean
         Dim sqlStr = " UPDATE op_debitor SET si_mahnstufe=(si_mahnstufe-1)
                     WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
                      and (si_mahnstufe  >0 AND si_mahnstufe is not NULL) and d_mahnung>='" & Mahn_Datum.ToShortDateString & "'  and d_netto<=getdate()"
         Return SQL.doSQL(sqlStr, "FIBU")
     End Function
-    Public Function cntRedoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date) As Integer
+    Public Function cntRedoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date, MahnsperreBeruecksichtigen As Boolean) As Integer
         Dim sqlStr = " SELECT COUNT(*) FROM op_debitor 
                     WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
-                     and (si_mahnstufe  >0 AND si_mahnstufe is not NULL) and d_mahnung>='" & Mahn_Datum.ToShortDateString & "' and d_netto<=getdate()"
+                     and (si_mahnstufe  >0 AND si_mahnstufe is not NULL) " & IIf(MahnsperreBeruecksichtigen, "", "AND isnull(si_mahnflags,0) <>(1)") & " and d_mahnung>='" & Mahn_Datum.ToShortDateString & "' and d_netto<=getdate()"
         Return SQL.getValueTxtBySql(sqlStr, "FIBU",,, 0)
     End Function
     Public Shared Function doMahnung(Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, art As String, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "", Optional showErr As Boolean = True, Optional hideMahnstopp As Boolean = True) As Boolean
@@ -1374,9 +1424,9 @@ Public Class frmBU_Mahnlauf
                 For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
 
 
-                    Dim mahnsperre As Boolean = r.Cells("mahnbar").Value
+                    Dim mahnbar As Boolean = r.Cells("mahnbar").Value
 
-                    If Not cbxMahnsperre.Checked Or (cbxMahnsperre.Checked And mahnsperre) Then
+                    If Not cbxMahnsperre.Checked Or (cbxMahnsperre.Checked And mahnbar) Then ' Mahnsperre -> Kunde mit Mahnsperre wird NICHT gemahnt!
 
                         Dim Konto = r.Cells("Konto").Value
                         Dim FirmaId = cboFirma._value
@@ -1385,18 +1435,18 @@ Public Class frmBU_Mahnlauf
                             Dim Path = ""
                             Select Case AUSGABE
                                 Case "PDF"
-                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
+                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId, Not cbxMahnsperre.Checked)
                                     If doMahnung(4, Konto, FirmaId, "ZE", Path, srchPrinter) Then
                                         PDF_LIST.Add(Path)
                                     End If
                                 Case "MAIL"
-                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
+                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId, Not cbxMahnsperre.Checked)
                                     doMahnung(2, Konto, FirmaId, "ZE",, srchPrinter)
                                 Case "MAIL_SEND"
-                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
+                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId, Not cbxMahnsperre.Checked)
                                     doMahnung(5, Konto, FirmaId, "ZE",, srchPrinter)
                                 Case "PRINT"
-                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
+                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId, Not cbxMahnsperre.Checked)
                                     doMahnung(0, Konto, FirmaId, "ZE",, srchPrinter)
                             End Select
                         End If
@@ -1474,9 +1524,9 @@ Public Class frmBU_Mahnlauf
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
         If MyTextBox2._value <> "" Then
             Dim mahndatum As Date = MyTextBox2._value
-            Dim cntRedo As Integer = cntRedoMahnstufe(cboFirma._value, mahndatum)
+            Dim cntRedo As Integer = cntRedoMahnstufe(cboFirma._value, mahndatum, Not cbxMahnsperre.Checked)
             If vbYes = MsgBox("Möchten Sie wirklich den Mahnzähler zurücksetzen?" & vbNewLine & "Ab Mahndatum: " & mahndatum & vbNewLine & "Betrifft '" & cntRedo & "' Mahnungen/Einträge " & mahndatum, vbYesNoCancel) Then
-                If redoMahnstufe(cboFirma._value, mahndatum) Then
+                If redoMahnstufe(cboFirma._value, mahndatum, Not cbxMahnsperre.Checked) Then
                     MsgBox("Der Mahnzähler wurde erfolgreich zurückgesetzt.")
                 End If
             End If
@@ -1524,12 +1574,14 @@ Public Class frmBU_Mahnlauf
             cbxZahlungseingaenge.Visible = True
             cboBetreuer.Visible = True
             lblBetreuer.Visible = True
+            cbxNewDGV.Visible = False
 
         Else
             cbxZahlungseingaenge.Visible = False
             cbxZahlungseingaenge.Checked = False
             cboBetreuer.Visible = False
             lblBetreuer.Visible = False
+            cbxNewDGV.Visible = True
 
         End If
     End Sub
@@ -1541,7 +1593,7 @@ Public Class frmBU_Mahnlauf
                 If Not VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirma._value) Then
                     MsgBox("Fehler beim aktualisieren der OPs aus Syska!")
                 Else
-                    initDGV(cbxZahlungseingaenge.Checked)
+                    initDGV(cbxZahlungseingaenge.Checked, cbxNewDGV.Checked)
                 End If
 
 

SDL/buchhaltung/usrCntlBH.Designer.vb

@@ -25,6 +25,16 @@ Partial Class usrCntlBH
         Me.Label6 = New System.Windows.Forms.Label()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
+        Me.btnfortlRENr = New System.Windows.Forms.Button()
+        Me.btnfehlendeBelege = New System.Windows.Forms.Button()
+        Me.btnBelegeOhnePOS = New System.Windows.Forms.Button()
+        Me.txtRE_Jahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label59 = New System.Windows.Forms.Label()
+        Me.txtRE_Monat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxFirma_RE = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label60 = New System.Windows.Forms.Label()
+        Me.Label58 = New System.Windows.Forms.Label()
         Me.btn_fehlendeUID = New System.Windows.Forms.Button()
         Me.lblUID_zupruefen = New System.Windows.Forms.Label()
         Me.Label53 = New System.Windows.Forms.Label()
@@ -166,6 +176,7 @@ Partial Class usrCntlBH
         Me.Label51 = New System.Windows.Forms.Label()
         Me.pnl.SuspendLayout()
         Me.TabPage1.SuspendLayout()
+        Me.GroupBox13.SuspendLayout()
         Me.GroupBox12.SuspendLayout()
         Me.GroupBox10.SuspendLayout()
         Me.GroupBox8.SuspendLayout()
@@ -209,6 +220,8 @@ Partial Class usrCntlBH
         'TabPage1
         '
         Me.TabPage1.AutoScroll = True
+        Me.TabPage1.Controls.Add(Me.GroupBox13)
+        Me.TabPage1.Controls.Add(Me.Label58)
         Me.TabPage1.Controls.Add(Me.btn_fehlendeUID)
         Me.TabPage1.Controls.Add(Me.lblUID_zupruefen)
         Me.TabPage1.Controls.Add(Me.Label53)
@@ -236,6 +249,155 @@ Partial Class usrCntlBH
         Me.TabPage1.Text = "Allgemein"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
+        'GroupBox13
+        '
+        Me.GroupBox13.Controls.Add(Me.btnfortlRENr)
+        Me.GroupBox13.Controls.Add(Me.btnfehlendeBelege)
+        Me.GroupBox13.Controls.Add(Me.btnBelegeOhnePOS)
+        Me.GroupBox13.Controls.Add(Me.txtRE_Jahr)
+        Me.GroupBox13.Controls.Add(Me.Label59)
+        Me.GroupBox13.Controls.Add(Me.txtRE_Monat)
+        Me.GroupBox13.Controls.Add(Me.cbxFirma_RE)
+        Me.GroupBox13.Controls.Add(Me.Label60)
+        Me.GroupBox13.Location = New System.Drawing.Point(480, 21)
+        Me.GroupBox13.Name = "GroupBox13"
+        Me.GroupBox13.Size = New System.Drawing.Size(372, 79)
+        Me.GroupBox13.TabIndex = 39
+        Me.GroupBox13.TabStop = False
+        '
+        'btnfortlRENr
+        '
+        Me.btnfortlRENr.Enabled = False
+        Me.btnfortlRENr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnfortlRENr.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnfortlRENr.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnfortlRENr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnfortlRENr.Location = New System.Drawing.Point(236, 56)
+        Me.btnfortlRENr.Name = "btnfortlRENr"
+        Me.btnfortlRENr.Size = New System.Drawing.Size(130, 22)
+        Me.btnfortlRENr.TabIndex = 42
+        Me.btnfortlRENr.Text = "ReNr fortl."
+        Me.btnfortlRENr.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnfortlRENr.UseVisualStyleBackColor = True
+        '
+        'btnfehlendeBelege
+        '
+        Me.btnfehlendeBelege.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnfehlendeBelege.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnfehlendeBelege.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnfehlendeBelege.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnfehlendeBelege.Location = New System.Drawing.Point(236, 32)
+        Me.btnfehlendeBelege.Name = "btnfehlendeBelege"
+        Me.btnfehlendeBelege.Size = New System.Drawing.Size(130, 22)
+        Me.btnfehlendeBelege.TabIndex = 41
+        Me.btnfehlendeBelege.Text = "fehlende Belege"
+        Me.btnfehlendeBelege.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnfehlendeBelege.UseVisualStyleBackColor = True
+        '
+        'btnBelegeOhnePOS
+        '
+        Me.btnBelegeOhnePOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBelegeOhnePOS.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnBelegeOhnePOS.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnBelegeOhnePOS.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBelegeOhnePOS.Location = New System.Drawing.Point(236, 8)
+        Me.btnBelegeOhnePOS.Name = "btnBelegeOhnePOS"
+        Me.btnBelegeOhnePOS.Size = New System.Drawing.Size(130, 22)
+        Me.btnBelegeOhnePOS.TabIndex = 40
+        Me.btnBelegeOhnePOS.Text = "Belege ohne POS"
+        Me.btnBelegeOhnePOS.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnBelegeOhnePOS.UseVisualStyleBackColor = True
+        '
+        'txtRE_Jahr
+        '
+        Me.txtRE_Jahr._DateTimeOnly = False
+        Me.txtRE_Jahr._numbersOnly = True
+        Me.txtRE_Jahr._numbersOnlyKommastellen = ""
+        Me.txtRE_Jahr._numbersOnlyTrennzeichen = False
+        Me.txtRE_Jahr._Prozent = False
+        Me.txtRE_Jahr._ShortDateNew = False
+        Me.txtRE_Jahr._ShortDateOnly = False
+        Me.txtRE_Jahr._TimeOnly = False
+        Me.txtRE_Jahr._TimeOnly_Seconds = False
+        Me.txtRE_Jahr._value = ""
+        Me.txtRE_Jahr._Waehrung = False
+        Me.txtRE_Jahr._WaehrungZeichen = False
+        Me.txtRE_Jahr.ForeColor = System.Drawing.Color.Black
+        Me.txtRE_Jahr.Location = New System.Drawing.Point(108, 13)
+        Me.txtRE_Jahr.MaxLength = 4
+        Me.txtRE_Jahr.MaxLineLength = -1
+        Me.txtRE_Jahr.MaxLines_Warning = ""
+        Me.txtRE_Jahr.MaxLines_Warning_Label = Nothing
+        Me.txtRE_Jahr.Name = "txtRE_Jahr"
+        Me.txtRE_Jahr.Size = New System.Drawing.Size(64, 20)
+        Me.txtRE_Jahr.TabIndex = 39
+        Me.txtRE_Jahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label59
+        '
+        Me.Label59.AutoSize = True
+        Me.Label59.Location = New System.Drawing.Point(6, 16)
+        Me.Label59.Name = "Label59"
+        Me.Label59.Size = New System.Drawing.Size(62, 13)
+        Me.Label59.TabIndex = 38
+        Me.Label59.Text = "Monat/Jahr"
+        '
+        'txtRE_Monat
+        '
+        Me.txtRE_Monat._DateTimeOnly = False
+        Me.txtRE_Monat._numbersOnly = True
+        Me.txtRE_Monat._numbersOnlyKommastellen = ""
+        Me.txtRE_Monat._numbersOnlyTrennzeichen = False
+        Me.txtRE_Monat._Prozent = False
+        Me.txtRE_Monat._ShortDateNew = False
+        Me.txtRE_Monat._ShortDateOnly = False
+        Me.txtRE_Monat._TimeOnly = False
+        Me.txtRE_Monat._TimeOnly_Seconds = False
+        Me.txtRE_Monat._value = ""
+        Me.txtRE_Monat._Waehrung = False
+        Me.txtRE_Monat._WaehrungZeichen = False
+        Me.txtRE_Monat.ForeColor = System.Drawing.Color.Black
+        Me.txtRE_Monat.Location = New System.Drawing.Point(74, 13)
+        Me.txtRE_Monat.MaxLength = 2
+        Me.txtRE_Monat.MaxLineLength = -1
+        Me.txtRE_Monat.MaxLines_Warning = ""
+        Me.txtRE_Monat.MaxLines_Warning_Label = Nothing
+        Me.txtRE_Monat.Name = "txtRE_Monat"
+        Me.txtRE_Monat.Size = New System.Drawing.Size(24, 20)
+        Me.txtRE_Monat.TabIndex = 35
+        Me.txtRE_Monat.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'cbxFirma_RE
+        '
+        Me.cbxFirma_RE._allowedValuesFreiText = Nothing
+        Me.cbxFirma_RE._allowFreiText = False
+        Me.cbxFirma_RE._value = ""
+        Me.cbxFirma_RE.DropDownWidth = 200
+        Me.cbxFirma_RE.FormattingEnabled = True
+        Me.cbxFirma_RE.Location = New System.Drawing.Point(47, 34)
+        Me.cbxFirma_RE.Name = "cbxFirma_RE"
+        Me.cbxFirma_RE.Size = New System.Drawing.Size(125, 21)
+        Me.cbxFirma_RE.TabIndex = 36
+        '
+        'Label60
+        '
+        Me.Label60.AutoSize = True
+        Me.Label60.Location = New System.Drawing.Point(6, 38)
+        Me.Label60.Name = "Label60"
+        Me.Label60.Size = New System.Drawing.Size(35, 13)
+        Me.Label60.TabIndex = 37
+        Me.Label60.Text = "Firma:"
+        '
+        'Label58
+        '
+        Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label58.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label58.Location = New System.Drawing.Point(479, 3)
+        Me.Label58.Name = "Label58"
+        Me.Label58.Size = New System.Drawing.Size(298, 18)
+        Me.Label58.TabIndex = 38
+        Me.Label58.Text = "BELEGE PRÜFEN"
+        '
         'btn_fehlendeUID
         '
         Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -714,7 +876,7 @@ Partial Class usrCntlBH
         Me.GroupBox2.Controls.Add(Me.Button1)
         Me.GroupBox2.Location = New System.Drawing.Point(6, 15)
         Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.Size = New System.Drawing.Size(847, 86)
+        Me.GroupBox2.Size = New System.Drawing.Size(461, 86)
         Me.GroupBox2.TabIndex = 4
         Me.GroupBox2.TabStop = False
         '
@@ -2103,6 +2265,8 @@ Partial Class usrCntlBH
         Me.pnl.PerformLayout()
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
+        Me.GroupBox13.ResumeLayout(False)
+        Me.GroupBox13.PerformLayout()
         Me.GroupBox12.ResumeLayout(False)
         Me.GroupBox12.PerformLayout()
         Me.GroupBox10.ResumeLayout(False)
@@ -2282,4 +2446,14 @@ Partial Class usrCntlBH
     Friend WithEvents txtZRvon As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents txtZRbis As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label51 As Label
+    Friend WithEvents GroupBox13 As GroupBox
+    Friend WithEvents btnfehlendeBelege As Button
+    Friend WithEvents btnBelegeOhnePOS As Button
+    Friend WithEvents txtRE_Jahr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label59 As Label
+    Friend WithEvents txtRE_Monat As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxFirma_RE As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label60 As Label
+    Friend WithEvents Label58 As Label
+    Friend WithEvents btnfortlRENr As Button
 End Class

SDL/buchhaltung/usrCntlBH.vb

@@ -29,6 +29,11 @@ Public Class usrCntlBH
         cboAbfVerbFirma.fillWithSQL("SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True)
         cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
 
+        cbxFirma_RE.fillWithSQL("SELECT Firma_ID, Firma_Bez FROM [VERAG].[dbo].[tblFirma] where Firma_ID in (1,4,7,11,19,20,21,22,23,24,26)", False, "FMZOLL", True)
+
+        txtRE_Jahr.Text = Now().Year
+        txtRE_Monat.Text = Now().Month
+
         cbxFirmaUID.Items.Add(New MyListItem("AMBAR", "AMBAR"))
         cbxFirmaUID.Items.Add(New MyListItem("IMEX", "IMEX"))
         cbxFirmaUID.Items.Add(New MyListItem("ATILLA", "ATILLA"))
@@ -1452,5 +1457,135 @@ Public Class usrCntlBH
         End If
     End Sub
 
+    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnBelegeOhnePOS.Click, btnfehlendeBelege.Click, btnfortlRENr.Click
+
+        Try
+
+            If txtRE_Jahr.Text <> "" AndAlso IsNumeric(txtRE_Jahr.Text) AndAlso txtRE_Jahr.Text.Length = 4 Then
+
+                    If txtRE_Monat.Text = "" OrElse txtRE_Monat.Text <> "" AndAlso IsNumeric(txtRE_Monat.Text) AndAlso CInt(txtRE_Monat.Text) > 0 AndAlso CInt(txtRE_Monat.Text) < 13 Then
+                    Dim Bezeichnung As String = ""
+                    Dim SQL_RE As String = ""
+
+                    Select Case sender.Name
+
+
+                        Case "btnfehlendeBelege"
+
+                            If cbxFirma_RE._value = "" Then MsgBox("Es muss eine Firma angegeben werden!") : Exit Sub
+                            If CInt(txtRE_Jahr.Text) < 2026 Then MsgBox("Erst ab Jahr 2026 möglich!") : Exit Sub
+
+                            Bezeichnung = "fehlende BELEGE von " & cbxFirma_RE.SelectedItem.Text & " Zeitraum: " & txtRE_Monat.Text & "/" & txtRE_Jahr.Text
+
+                            SQL_RE = "DECLARE @Month   INT = " & txtRE_Monat.Text & ";
+                                      DECLARE @Year    INT = " & txtRE_Jahr.Text & ";
+                                      DECLARE @FirmaID INT = " & cbxFirma_RE._value & ";
+                                      
+                                      SELECT DISTINCT
+                                             REPLACE(
+                                               REPLACE(
+                                                 REPLACE(da.da_name, 'Rechnung_', ''),
+                                               '.pdf', ''),
+                                             'Gutschrift_', '') AS RechnungsNr, da_name as Bezeichnung
+                                      FROM tblDatenarchiv da
+                                      WHERE da.da_kategorie = 'Rechnungen'
+                                        AND da.da_ordner = 'Firma_' + CAST(@FirmaID AS VARCHAR)
+                                        AND da.da_uOrdner1 = CAST(@Year AS VARCHAR) + '_' + CAST(@Month AS VARCHAR)
+                                        AND LEFT(da.da_name, 6) <> 'Sammel'
+                                        AND NOT EXISTS (
+                                              SELECT 1
+                                              FROM Rechnungsausgang ra
+                                              WHERE ra.RechnungsNr =
+                                                    REPLACE(
+                                                      REPLACE(
+                                                        REPLACE(da.da_name, 'Rechnung_', ''),
+                                                      '.pdf', ''),
+                                                    'Gutschrift_', '')
+                                                AND MONTH(ra.RechnungsDatum) = @Month
+                                                AND YEAR(ra.RechnungsDatum)  = @Year
+                                                AND ra.Firma_ID = @FirmaID
+                                                AND ra.Sammelrechnung = 0
+                                        ) UNION
+
+                       
+                                      
+                                      SELECT DISTINCT
+                                         REPLACE(
+                                           REPLACE(da.da_name, 'Sammelrechnung_', ''),
+                                         '.pdf', '') AS RechnungsNr, da_name as Bezeichnung
+                                FROM tblDatenarchiv da
+                                WHERE da.da_kategorie = 'Rechnungen'
+                                  AND da.da_ordner = 'Firma_' + CAST(@FirmaID AS VARCHAR)
+                                  AND da.da_uOrdner1 = CAST(@Year AS VARCHAR) + '_' + CAST(@Month AS VARCHAR)
+                                  AND LEFT(da.da_name, 6) = 'Sammel'
+                                  AND NOT EXISTS (
+                                        SELECT 1
+                                        FROM Rechnungsausgang ra
+                                        WHERE ra.RechnungsNr =
+                                                REPLACE(
+                                                  REPLACE(da.da_name, 'Sammelrechnung_', ''),
+                                                '.pdf', '')
+                                          AND MONTH(ra.RechnungsDatum) = @Month
+                                          AND YEAR(ra.RechnungsDatum)  = @Year
+                                          AND ra.Firma_ID = @FirmaID
+                                          AND ra.Sammelrechnung <> 0
+                                  );"
+
+
+                        Case "btnBelegeOhnePOS"
+                            Bezeichnung = "BELEGE ohne Positionen" & IIf(cbxFirma_RE._value <> "", " von " & cbxFirma_RE.SelectedItem.Text, "") & "  Zeitraum: " & txtRE_Monat.Text & "/" & txtRE_Jahr.Text
+                            SQL_RE = "Select * From Rechnungsausgang r Where YEAR(r.RechnungsDatum) = " & txtRE_Jahr.Text & " AND MONTH(r.RechnungsDatum) = " & txtRE_Monat.Text & "  AND Not EXISTS( SELECT 1 From RechnungsausgangPositionen p Where p.RK_ID = r.RK_ID) " & IIf(cbxFirma_RE._value <> "", "  AND r.[Firma_ID] = " & cbxFirma_RE._value, "")
+
+                        Case "btnfortlRENr"
+                            If cbxFirma_RE._value = "" Then MsgBox("Es muss eine Firma angegeben werden!") : Exit Sub
+
+                            Dim ignoreMonth As Boolean = False
+
+                            If vbYes = MsgBox("Möchten Sie die fortlaufende Re-Nr für das Gesamtjahr " & txtRE_Jahr.Text & " prüfen?", vbYesNoCancel) Then ignoreMonth = True
+
+
+                            Bezeichnung = "Lücken in der fortl. Belegnummerierung von " & cbxFirma_RE.SelectedItem.Text & " Zeitraum: " & IIf(Not ignoreMonth, txtRE_Monat.Text & "/" & txtRE_Jahr.Text, txtRE_Jahr.Text)
+                            SQL_RE = "WITH Nummern AS (
+                                        SELECT
+                                            RechnungsNr,
+                                            LEAD(RechnungsNr) OVER (ORDER BY RechnungsNr) AS NextRechnungsNr
+                                        FROM Rechnungsausgang
+                                        WHERE Firma_ID = " & cbxFirma_RE._value & "
+                                          AND YEAR(RechnungsDatum) = " & txtRE_Jahr.Text & IIf(Not ignoreMonth, " and Month(RechnungsDatum) = " & txtRE_Monat.Text, "") &
+                                        " GROUP BY RechnungsNr
+                                    )
+                                    SELECT
+                                        RechnungsNr + 1 AS FehlendeVon,
+                                        NextRechnungsNr - 1 AS FehlendeBis
+                                    FROM Nummern
+                                    WHERE NextRechnungsNr IS NOT NULL
+                                      AND NextRechnungsNr > RechnungsNr + 1
+                                    ORDER BY FehlendeVon;"
+
+                    End Select
+
+                    Me.Cursor = Cursors.WaitCursor
+                    Dim dt_RE As DataTable = SQL.loadDgvBySql(SQL_RE, "FMZOLL")
+
+                    If dt_RE.Rows.Count > 0 Then
+                        cProgramFunctions.genExcelFromDT_NEW(dt_RE,,, Bezeichnung,,, True)
+                        Me.Cursor = Cursors.Default
+                        Else
+                            MsgBox("keine Daten für den ausgewählten Zeitraum!")
+                            Me.Cursor = Cursors.Default
+                        End If
+
+                    End If
+
+                End If
+
+
+        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
+
 
 End Class