Hallo,
ich habe Probleme beim Speichern eines Doks.
Trotz Call doc.Save( False, True )
werde ich gefragt ob das Dokument gespeichert werden soll.
Was mache ich in diesem Code falsch ?
Dim ws As New NotesUIWorkSpace
Dim s As New NotesSession
Dim db As Notesdatabase
Dim doc As notesdocument
Dim uidoc As notesUIdocument
Dim vg As String
Set db = s.CurrentDatabase
Set UiDoc = ws.CurrentDocument
Set doc = uidoc.Document
Dim heute As String
heute = Today()
'kann der User das Dokument selber freigeben ?
Dim vEval As Variant
Dim strRolle As String
strRolle = "[direkteFreigabe]"
vEval = Evaluate(|@IsMember("| & strRolle & |"; @UserRoles)|)
If vEval(0) = 1 Then
' User hat die Rolle um die Documente direkt an die Perso zu geben !!!
doc.Status_SWL = STATUS2
doc.Kommentar_TXT = doc.GetItemValue("Kommentar_TXT")(0) & Chr$(10) & heute & " -> Incentives für Mitarbeiter : " & Ucase(doc.INS_MAName(0))
doc.Kommentar_TXT = doc.GetItemValue("Kommentar_TXT")(0) & Chr$(10) & heute & " -> " & STATUSTEXT2 &": " & s.CommonUserName
doc.INS_befürwortetdurch = s.CommonUserName
doc.INS_am = heute
doc.INS_Votum = STATUSTEXT2
doc.INS_Votumdurch = s.CommonUserName
doc.INS_Votumam = heute
Messagebox "Der Antrag wurde zur weiteren Bearbeitung weitergeleitet. ",, doc.Art(0)
Call doc.Save( False, True )
Call uidoc.Close(True)
Exit Sub
Else
'User hat nicht die Rolle !!!
'an wen soll das Doc jetzt weitergeleitet werden ?
vg = doc.INS_BLName(0)
'ist der ausgewählte Kompetenzträger im Urlaub ?
Dim neuerVG As String
neuerVG = Vertreter(vg)
Dim person As NotesName
Set person = New NotesName(neuerVG)
'Felder für Workflow umbenennen
doc.Status_SWL = STATUS
doc.Kommentar_TXT = doc.GetItemValue("Kommentar_TXT")(0) & Chr$(10) & heute & " -> Incentives für Mitarbeiter : " & Ucase(doc.INS_MAName(0))
doc.Kommentar_TXT = doc.GetItemValue("Kommentar_TXT")(0) & Chr$(10) & heute & " -> " & STATUSTEXT &": " & s.CommonUserName
doc.Kommentar_TXT = doc.GetItemValue("Kommentar_TXT")(0) & Chr$(10) & heute & " -> zur Genehmigung an: " & + person.Common
doc.INS_befürwortetdurch = s.CommonUserName
doc.INS_am = heute
'Mail versenden
Dim mailempfänger As String
mailempfänger = neuerVG
Call MAILVERSAND (doc, ICONNR, STATUSTEXT, mailempfänger)
'Versandbeleg erstellen
Call VersandbelegErstellen (doc)
Messagebox "Der Antrag wurde zur weiteren Bearbeitung weitergeleitet. ",, doc.Art(0)
doc.Bearbeiter_letzter = s.UserName
doc.Bearbeiter_aktuell = neuerVG
Call doc.Save( False, True )
Call uidoc.Close(True)
