neu

Aviso/frmLogin.vb

@@ -220,12 +220,14 @@ Public Class frmLogin
         'ADMIN-Login
         If txtSachbear.Text.Trim = "ADMIN" And txtKennwort.Text = My.Resources.ADMIN_pwd Then
             AdminLoginOK()
+            VERAG_PROG_ALLGEMEIN.cAllgemein.buildConnectionDATENARCHIV()
             Exit Sub
         End If
 
         ' normaler Login
         If CBool(ADMIN.checkLogin(txtSachbear.Text.Trim, txtKennwort.Text, firma)) Then
             loginOK()
+            VERAG_PROG_ALLGEMEIN.cAllgemein.buildConnectionDATENARCHIV()
         Else
             '  MsgBox("Benutzername oder Kennwort ist falsch!", MsgBoxStyle.Exclamation, "Fehler bei Anmeldung")
             lblAlertTxt.Visible = True
@@ -366,7 +368,7 @@ Public Class frmLogin
         UpdateAVISO()
     End Sub
 
-    Public Sub UpdateAVISO()
+    Public Sub UpdateAVISO(Optional full As Boolean = False)
         'Zuerst den Updater Prüfen:
         cProgramFunctions.updateUpdater()
 
@@ -374,7 +376,10 @@ Public Class frmLogin
             MsgBox("ERROR_UPDATE: Update konnte nicht fortgesetzt werden." & vbNewLine & vbNewLine & "Update-Datei existiert nicht.", vbCritical)
         Else
             Application.Exit()
-            Process.Start("AVISOUPDATER.exe")
+            '  Process.Start("AVISOUPDATER.exe" & If(full, " full", ""))
+            Dim startInfo = New ProcessStartInfo("AVISOUPDATER.exe")
+            If full Then startInfo.Arguments = "full"
+            Process.Start(startInfo)
         End If
     End Sub
 
@@ -475,7 +480,7 @@ Public Class frmLogin
     End Sub
 
     Private Sub UpdateToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem1.Click
-        UpdateAVISO()
+        UpdateAVISO(True)
     End Sub