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

UID/My Project/AssemblyInfo.vb

@@ -8,7 +8,7 @@ Imports System.Runtime.InteropServices
 
 ' Die Werte der Assemblyattribute überprüfen
 
-<Assembly: AssemblyTitle("ADMIN")> 
+<Assembly: AssemblyTitle("6")>
 <Assembly: AssemblyDescription("")> 
 <Assembly: AssemblyCompany("")> 
 <Assembly: AssemblyProduct("ADMIN")> 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.1.5")>
-<Assembly: AssemblyFileVersion("1.0.1.5")>
+<Assembly: AssemblyVersion("1.2.0.9")>
+<Assembly: AssemblyFileVersion("1.2.0.9")>

UID/My Project/Resources.Designer.vb

@@ -110,6 +110,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
+        '''</summary>
+        Friend ReadOnly Property asd3ad2asd3asd2asd() As String
+            Get
+                Return ResourceManager.GetString("asd3ad2asd3asd2asd", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
         '''</summary>
@@ -654,15 +663,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 2.0.7 ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Version() As String
-            Get
-                Return ResourceManager.GetString("Version", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

UID/My Project/Resources.resx

@@ -187,9 +187,6 @@
   <data name="connStringAdmin" xml:space="preserve">
     <value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
   </data>
-  <data name="Version" xml:space="preserve">
-    <value>2.0.7</value>
-  </data>
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -304,4 +301,7 @@
   <data name="bbvn6" xml:space="preserve">
     <value />
   </data>
+  <data name="asd3ad2asd3asd2asd" xml:space="preserve">
+    <value />
+  </data>
 </root>

UID/cProgramFunctions.vb

@@ -943,7 +943,7 @@ Public Class cProgramFunctions
                                         'gibt es keine deinierten Std.für einen Feiertag, werden die Stunden nach Mustereinteilung berechnet:
                                         If getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, False) > 0 Then 'Wenn an deisem Tag Stunden angefallen wären (lt. Muster)
                                             Dim getWochenstundenTAG = getDiff(tz.dsttz_von, tz.dsttz_bis, niederlassung, False)
-                                            If IsNumeric(tz.dsttz_pause) Then getWochenstundenTAG += tz.dsttz_pause
+                                            If IsNumeric(tz.dsttz_pause) Then getWochenstundenTAG -= tz.dsttz_pause
                                             getWochenstunden -= getWochenstundenTAG
                                         End If
                                     End If

UID/cSqlDb.vb

@@ -1134,7 +1134,7 @@ Public Class cOptionenDAL
 
                         VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "ADMIN_TOOLS"
                         VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = 1
-                        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version
+                        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion
 
                         'VERAG_PROG_ALLGEMEIN.cAllgemein.USRBER = CInt(dr.Item("ber_sicherheitsstufe"))
                         VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = CInt(dr.Item("mit_id"))

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()