Kategorii Vo View

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

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

    Olga23 Гость

    Ljudi dobrie pomogite, pogalujsta!!!U menya est View,v kotorom 2 stolbza kategorizirovanni.Pervij-eto imja firmi, 2-eto gorod, v kotorom firma nahoditsya(inogda u odnoj firmi stoit 2 ili 3 goroda)...Mne nugno pod dorodom kagdoj firmi,na ktoruju bil poslan E-mail vivesti znachok, govoryaschi,chto e-mail bil poslamn...
    Kokda u menya bil tolko stolbez s imenem Firmi(kategorozirovannij) to tekst bil:
    @Trim(@If(@IsAvailable(MailsInfo); @Left(MailsInfo;"|");Name1_T : AliasName_T))

    Funkzija iz biblioteki skriptov:
    Function SetVarFields( cdoc As NotesDocument, mdoc As NotesDocument ) As String

    Dim newrtitem As NotesRichtextItem
    Dim textrtitem As NotesRichtextItem
    mail.SendTo = cdoc.EMail_T
    Call mail.RemoveItem( "Body" )
    Set newrtitem = mail.Createrichtextitem( "Body" )
    Set textrtitem = mdoc.Getfirstitem( "Body" )
    Call newrtitem.Appendtext( cdoc.LetterSalutation_T(0) )
    Call newrtitem.Addnewline(2)
    Call newrtitem.Appendrtitem( textrtitem )

    SetVarFields=cdoc.Name1_T(0)+"|"+mail.SendTo(0)

    End Function

    Vse rabotalo...No seychas mne nugno vivesti vsju etu infu pod Gorodom...
    No poka toka ya vigu eto v samom konze spiska imen Firm pod"Ne kategorozirovano", dalshe idet imya kagdoy firmi na kotoruju bil poslan e-mail i pod nim to chto mne nugno...No eto ne to...

    Seychas vse hozyajstvo viglyadit tak:

    Stolbez "Imya Firmi":
    @Trim(Name1_T : AliasName_T)

    Stolbez Gorod:
    @Trim(@If(@IsAvailable(MailsInfo); @Left(MailsInfo;"|");City_T))

    Funkzija:
    Function SetVarFields( cdoc As NotesDocument, mdoc As NotesDocument ) As String

    Dim newrtitem As NotesRichtextItem
    Dim textrtitem As NotesRichtextItem
    mail.SendTo = cdoc.EMail_T
    Call mail.RemoveItem( "Body" )
    Set newrtitem = mail.Createrichtextitem( "Body" )
    Set textrtitem = mdoc.Getfirstitem( "Body" )
    Call newrtitem.Appendtext( cdoc.LetterSalutation_T(0) )
    Call newrtitem.Addnewline(2)
    Call newrtitem.Appendrtitem( textrtitem )

    SetVarFields=cdoc.City_T(0)+"|"+cdoc.Name1_T(0)+"|"+mail.SendTo(0)

    End Function

    City_T-eto gorod (pole iz formi Firmi)
    Pogalujsta pomogite....
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Ничего не понятно.
    Чтобы вывести значок, то добавь столбец со свойством Display values as icon. И пропиши формулу, который выводит нужную иконку.
     
Загрузка...
Статус темы:
Закрыта.

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