Offline Modus Verbesserungen, SMB Share für User FIX

Dokumentation/Classes/cDomUser.vb

@@ -71,6 +71,7 @@ Public Class cDomUser
     End Function
 
     Public Function getDomUserByID(ID As String)
+        If Class1.offline Then Exit Function
         Dim ds As New DataSet
 
         cSQL.SQL2DS("select " & SelectItems & " from [SQLGuide01.verag.ost.dmn].doku.dbo.tbl_domuser as Doku left join [SQLGuide01.verag.ost.dmn].ADMIN.dbo.tblMitarbeiter on mit_AliasAD_Username = du_sAMAc WHERE du_ID = '" & ID & "'", ds)
@@ -152,6 +153,7 @@ Public Class cDomUser
         End If
     End Function
     Public Function getFromAvisoUser(Optional ByVal AvisoUser As String = "")
+        If Class1.offline Then Exit Function
         If AvisoUser = "" Then
             AvisoUser = Me.mit_username
         End If
@@ -180,6 +182,7 @@ Public Class cDomUser
     End Function
 
     Public Function getFromAvisoUserLIST(AvisoUser As String)
+        If Class1.offline Then Exit Function
         Dim ds As New DataSet
         Dim AvisoUserList As New List(Of cDomUser)
         cSQL.SQL2DS("select * from ADMIN.dbo.tblMitarbeiter where mit_username = '" & AvisoUser & "'", ds, Class1.DBADMINBuchhaltung)