neu

UID/Dienstplan/usrCntlAuswertungWocheAuslastung.vb

@@ -77,7 +77,9 @@
         Return getStd
     End Function
     Function getAbf(datum As Date) As Double
-        Dim art = ""
+        Try
+
+            Dim art = ""
         Dim nl = ""
 
         If DP_SETTINGS Is Nothing Then Return 0
@@ -115,5 +117,8 @@
         '      Return cDIENST.getValueTxtBySql("SELECT count(*) as anz  FROM [Speditionsbuch]  where Abfertigungsdatum = '" & datum.ToShortDateString & "' AND FilialenNr IN (" & filiale & ")  AND Abfertigungsart IN(" & art & ")", "FMZOLL")
         Return cDIENST.getValueTxtBySql(sql, "FMZOLL")
 
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
     End Function
 End Class