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

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

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

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

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

Изменить значение поля нескольких документов через @PickList

P

PeNgViN213

Добрый день еще раз! Я вот написал код, но он не работает. Я пытаюсь добиться чтобы через view я выбрал несколько документов и изменить поле "room". А значение для измены взять по формуле. В чем ошибка?

Код:
Sub Initialize
    Dim view As NotesView
    Dim doc As NotesDocument
    Dim item As NotesItem
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim result As Variant
    
    
    Set db = session.CurrentDatabase
    Set dc = db.UnprocessedDocuments
    Set doc = dc.GetFirstDocument
    
    result = Evaluate ({@PickList( [Custom] : [Single] ; "" ; "Справочник\\Помещения"; "Местонахождение"; "Выделите  помещение:"; 3)})
    doc.room = result
End Sub
 

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
разбей задачу на две
1) получение нужного значения
2) вписывание этого значения в нужные доки
 
P

PeNgViN213

разбей задачу на две
1) получение нужного значения
2) вписывание этого значения в нужные доки
ну так я и пытаюсь получить значение, мне нужен список из другого представления, чтобы я выбрал оттуда
 

alexas1

Green Team
10.04.2014
1 202
225
BIT
34
Добрый день еще раз! Я вот написал код, но он не работает. Я пытаюсь добиться чтобы через view я выбрал несколько документов и изменить поле "room". А значение для измены взять по формуле. В чем ошибка?

Код:
Sub Initialize
    Dim view As NotesView
    Dim doc As NotesDocument
    Dim item As NotesItem
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim result As Variant
   
   
    Set db = session.CurrentDatabase
    Set dc = db.UnprocessedDocuments
    Set doc = dc.GetFirstDocument
   
    result = Evaluate ({@PickList( [Custom] : [Single] ; "" ; "Справочник\\Помещения"; "Местонахождение"; "Выделите  помещение:"; 3)})
    doc.room = result
End Sub
резалт у тя - список значений 3-ей колонки
а те нужен список доков (коллекция)
пробежать по ней в цикле и по изменять doc.room (и не забывать сейвить доки)
и... у @PickList есть эквивалент в LS
 
P

PeNgViN213

резалт у тя - список значений 3-ей колонки
а те нужен список доков (коллекция)
пробежать по ней в цикле и по изменять doc.room (и не забывать сейвить доки)
и... у @PickList есть эквивалент в LS
мне и нужен список значений 3 колонки, но у меня не появляется даже окошко с выбором. Вообще ничего не происходит
 
P

PeNgViN213

Алекс прошу помочь, в чем беда, уже два час бьюсь
Код:
Sub Initialize
    Dim workspace As New NotesUIWorkspace
    Dim picklist As Variant
    Dim messagelist As String
    picklist = workspace.PickListStrings( _
    PICKLIST_CUSTOM, _
    True, _
    "Local", _
    "stock", _
    "Оборудование/местонахождению", _
    "Название окна", _
    "Please select some documents.", _
    3, _
    "Местонахождение" )
    If ( IsEmpty( picklist ) ) Then
        MessageBox "Canceled" , , "Resource selected"
    Else
        ForAll plist In picklist
            messagelist = messagelist & plist & Chr(10)
        End ForAll
        MessageBox messagelist  , , "Resource selected"
    End If
End Sub
 
P

PeNgViN213

1516111135449.png


вот так должно быть
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 933
609
BIT
177
Мне нужно все в текущей базе, даже не с другой, просто из другого представления "Оборудование/местонахождению"
пустая строка, в нотусе такие умолчальные правила (для тек. БД - тоже)
 

alexas1

Green Team
10.04.2014
1 202
225
BIT
34
пустая строка, в нотусе такие умолчальные правила (для тек. БД - тоже)
всё же луче всегда так (вдруг база на сервер уедет;)
типа picklist = ws.PickListStrings( PICKLIST_CUSTOM, true, db.server, db.FileName, .....
соотв перед этим - Set db = ws.CurrentDatabase.Database, напр
---------------
пардон, это PeNgViN213 - у
 
P

PeNgViN213

всё же луче всегда так (вдруг база на сервер уедет;)
типа picklist = ws.PickListStrings( PICKLIST_CUSTOM, true, db.server, db.FileName, .....
соотв перед этим - Set db = ws.CurrentDatabase.Database, напр
---------------
пардон, это PeNgViN213 - у
Разобрался, а как получить выбранное значение, не подскажите?
 

alexas1

Green Team
10.04.2014
1 202
225
BIT
34
Разобрался, а как получить выбранное значение, не подскажите?
ну, там (в picklist) и есть список всех выбранных значений (из 3-ей колонки)
соотв, в фороле они и будут (в plist, ток тамжэж не лист жэ, а ток одно значение), на каждую итерацию
----------
если нужны все и сразу, можно их склеить в строку join(picklist)
 
  • Нравится
Реакции: Vertigo
P

PeNgViN213

ну, там (в picklist) и есть список всех выбранных значений (из 3-ей колонки)
соотв, в фороле они и будут (в plist, ток тамжэж не лист жэ, а ток одно значение), на каждую итерацию
----------
если нужны все и сразу, можно их склеить в строку join(picklist)
а есть пример, что я не понял про одно
 

alexas1

Green Team
10.04.2014
1 202
225
BIT
34
а есть пример, что я не понял про одно
... я про название переменной plist - может же запутать (потом, когда всё забудешь): получается, что каждый элемент списка (picklist ) тоже список (plist) \это я ворчу и придираюсь:cool:\
 
P

PeNgViN213

... я про название переменной plist - может же запутать (потом, когда всё забудешь): получается, что каждый элемент списка (picklist ) тоже список (plist) \это я ворчу и придираюсь:cool:\
о боже как сложно =)
Извините меня, я просто только только начинаю
 
Мы в соцсетях:

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