Пользователь по умолчанию+заполнение полей

Тема в разделе "Lotus - Программирование", создана пользователем oleg7, 22 фев 2010.

  1. oleg7

    oleg7 Гость

    Не могу понять:
    есть кнопка, по нажати. на которую открывается окно, в нем выберается пользователь и в соответствии с выбранны ФИО заполняются и другие поля
    кнопка:
    Код (Text):
    view := "Alternate";

    mServer:=@Subset(@DbName;1);
    mField1:="поле1";

    mSerDB:=@Prompt( [OkCancelList];"Cписок справочников";"Укажите справочник.....);
    @If( mSerDB="...";mDbName:="names.nsf";mSerDB="...";mDbName:="names2.nsf";@Failure(""));

    mAltUser := @PickList ([Custom]: [Single];mServer:mDbName; view; title; prompt; 1 );
    @SetField(mField1;mAltUser);

    L1:=@DbLookup("":""; @ServerName:"names.nsf";"(Alternate)"; поле1; 6;[FailSilent]);
    @If(@IsError(L1); L1 = ""; "");
    L2:=@DbLookup("":""; "LNS/SV/S-V/UA":"names2.nsf";"(Alternate)"; поле1; 6;[FailSilent]);
    @If(@IsError(L2); L2 = ""; "");
    поле2DS := @Trim(L1 : L2 );
    @SetField ("поле2"; поле2DS);
    Как мне сделать, чтобы по умолчанию подставлялось ФИО пользователя, но бралось оно из "(Alternate)"; и сразу заполнялись остальные поля????


    Добавлено: все вопрос изменяю:
    заполнение по умолчанию @Name([CN];@UserName(1))
    как достать данные из АК в другие поля?
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Смотря сколько надо и каких данных.
    может помочь тема Информация пользователе из Domino Directory
    Возможно, если много всякого о пользователе надо получать, стоит код переписать на скрипт - получать документ из АК и всё вычитывать оттуда.

    Добавлено: если неправильно поняла вопрос - простите :)
     
  3. RAJ

    RAJ Well-Known Member

    Регистрация:
    17 янв 2007
    Сообщения:
    440
    Симпатии:
    0
    если нужен документ, то добавляем ключик [RETURNDOCUMENTUNIQUEID] к DBLOOKUP, получаем UNID дока и вычитываем по
    Код (Text):
    @GetDocField( documentUNID; fieldName )
     
Загрузка...

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