neu

Aviso/frmLogin.vb

@@ -248,6 +248,21 @@ Public Class frmLogin
             End If
         End If
 
+        Dim AVISO_OPTIONSDatei As String = "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
+                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
+
 
         ''hier erfolgt die Anmelde-Prüfung