AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2016-10-26 15:03:55 +02:00
parent c01c2314d7
commit fdb345e0e0
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@ -5839,6 +5839,9 @@ Public Class frmConstructor_Main
End If End If
MsgBox(msg, MsgBoxStyle.Exclamation) MsgBox(msg, MsgBoxStyle.Exclamation)
End If End If
'Create Session um Fehler bei windows Session icht zu erzeugen
FAU_AD_USER = ""
ClassWindream.Create_Session()
Next Next
Cursor = Cursors.Default Cursor = Cursors.Default
If err = False Then If err = False Then

3
app/DD-Record-Organiser/frmWD_IndexFile.vb
View File

@ -185,6 +185,9 @@ Public Class frmWD_IndexFile
"ADDI will try to give You at least reading rights!", MsgBoxStyle.Exclamation) "ADDI will try to give You at least reading rights!", MsgBoxStyle.Exclamation)
DD_Rights.ClassRights.SetRightExplicit(CURRENT_DOC_ID, CURRENT_FILEIN_WD, Environment.UserName, 1) DD_Rights.ClassRights.SetRightExplicit(CURRENT_DOC_ID, CURRENT_FILEIN_WD, Environment.UserName, 1)
End If End If
'Create Session um Fehler bei windows Session icht zu erzeugen
FAU_AD_USER = ""
ClassWindream.Create_Session()
If CURRENT_REDUNDANT_FORM_ID <> 0 Then If CURRENT_REDUNDANT_FORM_ID <> 0 Then
ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_DOC_ID, CURRENT_FILEIN_WD, CURRENT_REDUNDANT_FORM_ID) ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_DOC_ID, CURRENT_FILEIN_WD, CURRENT_REDUNDANT_FORM_ID)
End If End If