1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Сравнение 2 полей

Тема в разделе "Lotus - Программирование", создана пользователем SkyDream, 18 авг 2006.

Статус темы:
Закрыта.
  1. SkyDream

    SkyDream Гость

    Репутация:
    0
    Помогите сравнить значения 2х полей.

    Имеем 2 поля:

    DocPerson (person1,person2,person3,person4)
    DocPersonOut (person1,person3)


    Необходимо вычислить значения поля DocPerson которые не входят в поле DocPersonOut и вывести их в поле DocPersonInt

    Подскажите как это можно вычислить?

    main As notesdocument
    Dim itema As NotesItem
    Dim itemb As NotesItem
    Set itema = main.GetFirstItem( "DocPerson" )
    Set itemb = main.GetFirstItem( "DocPersonOut" )
     
  2. LuMee

    LuMee Well-Known Member

    Репутация:
    0
    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    А не покатит что-то вроде:
    Код:
    Dim docPerson As Variant
    Dim docPersonOut As Variant
    Dim docPersonIn As Variant
    
    docPerson = doc.DocPerson
    docPersonOut = doc.DocPersonOut
    docPersonIn = Fulltrim(ArrayReplace(docPerson, docPersonOut, ""))
    doc.DocPersonIn = docPersonIn
    Сам не проверял, это так, идея
     
  3. SkyDream

    SkyDream Гость

    Репутация:
    0
    чет не фурычит даже в хелпе почитал
     
  4. LuMee

    LuMee Well-Known Member

    Репутация:
    0
    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Тогда на формулах:
    Код:
    dp:= DpcPerson;
    dpO:= DocPersonOut;
    FIELD DocPersonIn:= @Trim(@Replace(dp; dpO; ""));
    ""
    Кстати, на LS это правильно будет так:
    Код:
    	Dim ws As New NotesUIWorkspace
    Dim doc As NotesDocument
    Dim f1 As Variant, f2 As Variant, f3 As Variant
    
    Set doc = ws.CurrentDocument.Document
    f1 = doc.GetFirstItem("DocPerson").Values
    f2 = doc.GetFirstItem("DocPersonOut").Values
    f3 = Fulltrim(Arrayreplace(f1, f2, ""))
    Call doc.ReplaceItemValue("DocPersonIn", f3)
    ws.CurrentDocument.Refresh
     
  5. SkyDream

    SkyDream Гость

    Репутация:
    0
    ок спасбо огромное!!! я разобрался все получилось
     
Загрузка...
Статус темы:
Закрыта.

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