neu

Aviso/frmLogin.vb

@@ -156,7 +156,7 @@ Public Class frmLogin
 
                 Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
                 Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
-                Dim dt = VERAGSQL.loadDgvBySql("SELECT  [AvisoID]  FROM [Aviso] where datum >= '05.03.2022'
+                Dim dt = VERAGSQL.loadDgvBySql("SELECT  [AvisoID]  FROM [Aviso] where datum >= '19.04.2022'
                         and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where  Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0   and status NOT IN (1,2)", "AVISO")
 
                 For Each r In dt.Rows
@@ -276,7 +276,23 @@ Public Class frmLogin
             End If
         End If
 
-        Dim AVISO_OPTIONSDatei As String = "C:\AVISO_OPTIONS.txt"
+        Dim AVISO_OPTIONSDatei As String = Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments & "\AVISO_OPTIONS.txt"
+        If File.Exists(AVISO_OPTIONSDatei) Then
+            Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default)
+            If l.Count > 0 Then
+                For Each li In l
+                    If li.StartsWith("BON:") Then
+                        VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = (li.Replace("BON:", "")).Trim
+                    End If
+                    If li.StartsWith("PRINTER:") Then
+                        VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim
+
+                    End If
+                Next
+            End If
+        End If
+
+        AVISO_OPTIONSDatei = "C:\AVISO_OPTIONS.txt"
         If File.Exists(AVISO_OPTIONSDatei) Then
             Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default)
             If l.Count > 0 Then