работа со списками

Тема в разделе "Lotus - Программирование", создана пользователем kilcher, 23 янв 2009.

  1. kilcher

    kilcher Гость

    Добрый день,всем!
    Может кто подскажет как првернуть следующую задумку. В документе имеется три поля все они многозначеные. На скрипте следует все эти знасения скинуть в одно поле. Как бы это сделать? прообовала создавать массив и добавлять значение этих полей как его элементы. Ничего не получилось B)
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    NotesItem AppendToTextList

    This script appends three new text values to the Categories item in a document: "Girls," "Boys," and "Toys."
    Код (Text):
    Dim doc As NotesDocument
    Dim item As NotesItem
    Dim newVals( 1 To 3 ) As String
    '...set value of doc...
    Set item = doc.GetFirstItem( "Categories" )
    newVals( 1 ) = "Girls"
    newVals( 2 ) = "Boys"
    newVals( 3 ) = "Toys"
    Call item.AppendToTextList( newVals )
    Call doc.Save( False, True )
    3 раз повторить Call item.AppendToTextList( doc.GetItemValue("MyItem") )
     
  3. kilcher

    kilcher Гость

    B) Делала и так. Но так как значений у полей много,выдает ошибку.
     
  4. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    какая ошибка? переполнение поля чтоли?
     
  5. kilcher

    kilcher Гость

    Type mismatch.

    Может я значение неверно задаю?
    n1=doc.GetItemValue("order_dp")
    n2=doc.GetItemValue("order_mp")
    n3=doc.GetItemValue("member_name")

    Set item = doc.GetFirstItem( "sendto" )
    newVals( 1 ) = n1
    newVals( 2 ) = n2
    newVals( 3 ) = n3
    Call item.AppendToTextList( newVals )
     
  6. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    массив массивов не получиться, я ж написал произвести 3 раза процедуру

    Set item = doc.GetFirstItem( "sendto" )
    Call item.AppendToTextList( doc.GetItemValue("order_dp") )
    Call item.AppendToTextList( doc.GetItemValue("order_mp") )
    Call item.AppendToTextList( doc.GetItemValue("member_name") )
     
  7. Darker

    Darker Гость

    'sep - Разделитель значений, default ","

    sep=","
    tr=Join(doc.order_dp,sep)+sep+Join(doc.order_mp,sep)+sep+Join(doc.member_name,se
    p)
    doc.sendto=Split(tr,sep)
     
  8. kilcher

    kilcher Гость

    Спасибо! :(
    Могу задать еще один вопрос(не хочется создавать из за негоновую тему)
    Мне следует делать рассылку всем пользователям,которые имеют роль [rout].
    Почитав форум,поняла что надо использовать notesACLEntry = notesACL.GetEntry( name$ ),чтобы вытащить имена пользователей.

    Так ли это?
    notesACLEntry = notesACL.GetEntry( "[rout]" ),или намудрила что-то?
     
  9. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Перебираешь все NotesACLEntry в NotesACL.
    У каждой проверяешь NotesACLEntry.Roles (ArrayGetIndex'ом например)
    Если там есть роль "[rout]", то добавлешь NotesACLEntry.Name в SendTo список.
     
  10. kilcher

    kilcher Гость



    Спасибо! В понедельник будем пробовать :(
     
  11. kilcher

    kilcher Гость

    Всем спасибо! Решила написать что получилось. Так как заметила,что этот вопрос возникает достаточно часто.


    Dim acl As NotesACL
    Dim aclentry As NotesACLEntry
    Set db = s.CurrentDatabase
    Set acl = db.ACL
    Set aclentry = acl.GetFirstEntry
    Dim entryName As String
    Dim memo As NotesDocument

    While Not (aclentry Is Nothing)
    Forall r In aclentry.Roles
    If r="[roles]" Then
    Set memo = New NotesDocument( db )
    Set rtitem = New NotesRichTextItem( memo, "Body" )
    Call rtitem.AppendText("Нажмите ссылку для открытия документа -->")
    Call rtitem.AppendDocLink( note, db.Title )
    memo.Subject = "Утверждение по отчету завершено"
    Call memo.Send( False, aclentry.Name)
    End If
    End Forall
    Set aclentry = acl.GetNextEntry(aclentry)
    Wend
     
Загрузка...
Похожие Темы - работа со списками
  1. vladis222
    Ответов:
    0
    Просмотров:
    1.121
  2. vladis222
    Ответов:
    1
    Просмотров:
    1.960
  3. gx6060
    Ответов:
    2
    Просмотров:
    443
  4. alexas1
    Ответов:
    1
    Просмотров:
    457
  5. Amfion
    Ответов:
    7
    Просмотров:
    667

Поделиться этой страницей