cAutomailversand, etc.

2026-10-23 10:07:13 +02:00
parent c9d1febc98
commit 119ff9973d
4 changed files with 20 additions and 8 deletions
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -897,6 +897,10 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
            Select Case art
                Case "3", "4" 'Export
                    sqlWHere = " AND mail_kindOfMail = 'EXP'"
+
+                Case "5" 'Buchhaltung
+                    sqlWHere = " AND mail_kindOfMail = 'BH'"
+
                Case Else
                    sqlWHere = " AND mail_kindOfMail = 'IMP'"
            End Select