Решено Uidoc удаление и закрытие

[k85]

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=ws.CurrentDocument
Call uidoc.Close(True)
Call uidoc.DeleteDocument()

почему он открывает следующий документ на просмотр?

 

[alexas1]

Call uidoc.DeleteDocument()

патамушта НИЗЗЯ удалить док в UI из самого себя. Удаляй вызовом агента "удалителя" после закрытия дока.

 

[k85]

пробую по примеру...
Examples: DeleteDocument method

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  If Not ( uidoc.EditMode ) Then
	Call uidoc.DeleteDocument
  End If
End Sub

@alexas1,

вызовом агента "удалителя" после закрытия дока

то есть всесто удаления вызывать агент, который будет удалять именно документ, а не uidoc?

 

[lmike]

цель какая - если просто удалить док из БД - так напуркуя это делать через UI?
получили unid, закрыли док, получили из БД (по unid) бэкэндовый, удалили

 

[alexas1]

агент, который будет удалять именно документ, а не uidoc?

- угу. А в агент передай параметр - UNID, там по нему возьми док и удали.

 

[ToxaRat]

Call uidoc.Close(True)

и даже не крешится?

 

[k85]

@lmike,

Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
sunid = doc.UniversalID
Call uidoc.Close
Set doc = db.getDocumentByUNID(sunid)
Call doc.Remove(True)
Call ws.viewrefresh()

sunid - находит, doc находит нормально (проверяю в дебагере), закрывает, но не удаляется документ

 

[alexas1]

doc находит нормально (проверяю в дебагере), закрывает, но не удаляется документ

- бессмысленный разговор: UI не приемлемо (ws это UI, если чо). Тока агентом снаружи.

 

[lmike]

подъем за волосы

Sub Click(Source As Button)
On Error Goto ErrH
Dim uidoc As NotesUIDocument, doc As NotesDocument, wks As New NotesUIWorkspace, db As NotesDatabase
Set db=wks.CurrentDatabase.Database
Set uidoc=wks.CurrentDocument
Set doc=uidoc.Document
Dim unid As String
unid=doc.UniversalID
uidoc.Close True
Delete uidoc
Set doc=db.GetDocumentByUNID(unid)
Call doc.RemovePermanently(True)
Quit:
Exit Sub
ErrH:
Error Err, RaiseError
End Sub

 

[lmike]

кнопка прям на форме, её можно скрыть и вызывать через JS
document.forms[0].testdel.click();
(задать в HTML пропертях имя и ID, в примере - testdel)

 

[alexas1]

подъем за волосы

- однако!
на Queryclose тоже сработает (я так понимаю - удаление "ненужного" дока по условию...)
Соль - Delete uidoc. Респект!

 

[k85]

@lmike, спасибо!

 

[lmike]

Соль - Delete uidoc. Респект!

еще получение db не из дока
(на всяк случай, ибо - может реф снести) и надо помнить (тем кто не вникал в детали жизни объектов ) - что инстанс doc тоже снесет