Изменить значение поля нескольких документов через @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
 
разбей задачу на две
1) получение нужного значения
2) вписывание этого значения в нужные доки
 
ToxaRat сказал(а):
разбей задачу на две
1) получение нужного значения
2) вписывание этого значения в нужные доки
Нажмите, чтобы раскрыть...
ну так я и пытаюсь получить значение, мне нужен список из другого представления, чтобы я выбрал оттуда
 
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
Нажмите, чтобы раскрыть...
резалт у тя - список значений 3-ей колонки
а те нужен список доков (коллекция)
пробежать по ней в цикле и по изменять doc.room (и не забывать сейвить доки)
и... у @PickList есть эквивалент в LS
 
alexas1 сказал(а):
резалт у тя - список значений 3-ей колонки
а те нужен список доков (коллекция)
пробежать по ней в цикле и по изменять doc.room (и не забывать сейвить доки)
и... у @PickList есть эквивалент в LS
Нажмите, чтобы раскрыть...
мне и нужен список значений 3 колонки, но у меня не появляется даже окошко с выбором. Вообще ничего не происходит
 
alexas1 сказал(а):
Ссылка скрыта от гостей
Нажмите, чтобы раскрыть...
Алекс прошу помочь, в чем беда, уже два час бьюсь
Код: 
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
 
alexas1 сказал(а):
Ссылка скрыта от гостей
Нажмите, чтобы раскрыть...
1516111135449.png


вот так должно быть
 
PeNgViN213 сказал(а):
Мне нужно все в текущей базе, даже не с другой, просто из другого представления "Оборудование/местонахождению"
Нажмите, чтобы раскрыть...
пустая строка, в нотусе такие умолчальные правила (для тек. БД - тоже)
 
lmike сказал(а):
пустая строка, в нотусе такие умолчальные правила (для тек. БД - тоже)
Нажмите, чтобы раскрыть...
всё же луче всегда так (вдруг база на сервер уедет;)
типа picklist = ws.PickListStrings( PICKLIST_CUSTOM, true, db.server, db.FileName, .....
соотв перед этим - Set db = ws.CurrentDatabase.Database, напр
---------------
пардон, это PeNgViN213 - у
 
alexas1 сказал(а):
всё же луче всегда так (вдруг база на сервер уедет;)
типа picklist = ws.PickListStrings( PICKLIST_CUSTOM, true, db.server, db.FileName, .....
соотв перед этим - Set db = ws.CurrentDatabase.Database, напр
---------------
пардон, это PeNgViN213 - у
Нажмите, чтобы раскрыть...
Разобрался, а как получить выбранное значение, не подскажите?
 
PeNgViN213 сказал(а):
Разобрался, а как получить выбранное значение, не подскажите?
Нажмите, чтобы раскрыть...
ну, там (в picklist) и есть список всех выбранных значений (из 3-ей колонки)
соотв, в фороле они и будут (в plist, ток тамжэж не лист жэ, а ток одно значение), на каждую итерацию
----------
если нужны все и сразу, можно их склеить в строку join(picklist)
 
  • Нравится
Реакции: Vertigo
alexas1 сказал(а):
ну, там (в picklist) и есть список всех выбранных значений (из 3-ей колонки)
соотв, в фороле они и будут (в plist, ток тамжэж не лист жэ, а ток одно значение), на каждую итерацию
----------
если нужны все и сразу, можно их склеить в строку join(picklist)
Нажмите, чтобы раскрыть...
а есть пример, что я не понял про одно
 
PeNgViN213 сказал(а):
а есть пример, что я не понял про одно
Нажмите, чтобы раскрыть...
... я про название переменной plist - может же запутать (потом, когда всё забудешь): получается, что каждый элемент списка (picklist ) тоже список (plist) \это я ворчу и придираюсь:cool:\
 
alexas1 сказал(а):
... я про название переменной plist - может же запутать (потом, когда всё забудешь): получается, что каждый элемент списка (picklist ) тоже список (plist) \это я ворчу и придираюсь:cool:\
Нажмите, чтобы раскрыть...
о боже как сложно =)
Извините меня, я просто только только начинаю
 
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

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

Верх Низ