• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Как определить есть ли у документ ответы

  • Автор темы Guest
  • Дата начала
G

Guest

Пробовал, как:
Код:
If (cDoc.Responses) Is Nothing Then ...
так не получается :rolleyes:
 
S

Sandr

Денис Кириченко
cDoc не сохранен?
 
G

Guest

Денис Кириченко
cDoc не сохранен?

Странно, почему через cDoc.Save не хочет сохранять. Только uidoc.Save

Код:
Set uidoc = ws.CurrentDocument
Set сDoc = uidoc.Document

Call cDoc.Save(True, False)

If Not cDoc.Responses.Count > 0 Then Exit Sub

Когда сохраняю через uidoc.Save, так же ругается <_<

Неа не работает и для сохраненного тоже ругается :)
 
O

Omh

Денис Кириченко
Странно, у всех работает, а у тебя нет <_<
Попробуй так:

Код:
Function HasResponses(doc As NotesDocument) As Integer
On Error Goto Errh  

Dim rv As Integer

If doc Is Nothing Then Exit Function

Dim RespDc As NotesDocumentCollection
Set RespDc = Doc.Responses
If Not RespDc Is Nothing Then rv = (RespDc.Count > 0)

HasResponses = rv

Exit Function
errh:
'YOUR ERRORHANDLER
Exit Function
End Function
 
G

Guest

Денис Кириченко
Странно, у всех работает, а у тебя нет <_<
Попробуй так:

Код:
Function HasResponses(doc As NotesDocument) As Integer
On Error Goto Errh  

Dim rv As Integer

If doc Is Nothing Then Exit Function

Dim RespDc As NotesDocumentCollection
Set RespDc = Doc.Responses
If Not RespDc Is Nothing Then rv = (RespDc.Count > 0)

HasResponses = rv

Exit Function
errh:
'YOUR ERRORHANDLER
Exit Function
End Function

Ух, шаман, заработало, спасибочки огромное :)
Правда, от спасибо пьян не будешь ;)
 
O

Omh

Morpheus
Именно так, я велосипед не изобретал.
Просто нормальная ф-ия определения наличия респонсов на LS.
 
G

Guest

Morpheus
Именно так, я велосипед не изобретал.
Просто нормальная ф-ия определения наличия респонсов на LS.

А шо за фигня может происходить, во внедренном представлении не показывается суммарное значение столбца, когда в обычном представлении все есть ?!?!
 
O

Omh

А оно под той категорией, которую ты показываешь как single.
Сделай ещё категорию под той, по которой отбираешь.

И внимательнее посмотри на embedded view: что показывается?
Точнее, показывается ли категория?
 
G

Guest

А оно под той категорией, которую ты показываешь как single.
Сделай ещё категорию под той, по которой отбираешь.

И внимательнее посмотри на embedded view: что показывается?
Точнее, показывается ли категория?

Да все прикольно, только вот сумма показывается не внизу, а вверху :)
Напротива категоризированного поля.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!