Asfinag, Mitarbeiter, UID-Prüfung, Rechnugssuche, Fiskalkunde, Kundenübersicht, div. Auswertungen für Asfinag

UID/cClasses.vb

@@ -217,7 +217,7 @@ Public Class cDienstMitarbAbweichendeWochenstunden
     Property dstaw_dstmaId As Integer
     Property dstaw_von As Date
     Property dstaw_bis As Date
-    Property dstaw_std As Integer
+    Property dstaw_std As Double
 
     Shared Function GET_STD(dstmaId As Integer, datum As Date) As Double
         Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
@@ -276,7 +276,7 @@ Public Class cDienstMitarbAbweichendeWochenstunden
         Dim abw_bool As Boolean = False
 
         For i = 0 To 4
-            Dim abw = 0
+            Dim abw As Double = 0
             For Each l In STD_LIST
                 If l.dstaw_dstmaId = dstmaId AndAlso (datumMontag.AddDays(i) >= l.dstaw_von And datumMontag.AddDays(i) <= l.dstaw_bis) Then
                     abw = l.dstaw_std