Monitoring Anpassung, MDM Plose Einarbeitung Consortio, Update SND DY Anm

UID/frmLogin.vb

@@ -68,7 +68,7 @@ Public Class frmLogin
         txtUser.Focus()
         lblAlertTxt.Visible = False
         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
-        lblVersion.Text = lblVersion.Text & " " & My.Resources.Version
+        lblVersion.Text = lblVersion.Text & " " & Application.ProductVersion 'My.Resources.Version
         lblVersion.ContextMenuStrip = ctxUpdate
 
         'auf UPDATES prüfen:
@@ -78,7 +78,7 @@ Public Class frmLogin
 
     Sub UpdateMe(Optional doUpdateAnyway = False)
 
-        If doUpdateAnyway OrElse CInt(ADMIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version.Replace(".", "")) Then
+        If doUpdateAnyway OrElse CInt(ADMIN.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.Replace(".", "")) Then
             Me.Enabled = False
             If doUpdateAnyway OrElse vbYes = MsgBox("Es ist eine neue Programm-Version verfügbar. Das Programm muss aktualisiert werden, bevor Sie es weiter verwenden können. " & vbNewLine & vbNewLine & "Update jetzt durchführen?", CType(vbQuestion + vbYesNo, MsgBoxStyle), "Update verfügbar") Then
                 UpdateADMIN()