Otobragenie Spiska Adresov

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

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

    Olga23 Гость

    ljudi podskagite pliz,a to ya ug ne znayu chto i delat...U menya est forma, gde est kriterii:mogno vibrat yavlyaetsya li firma klientom,konkurentom i t.p.
    Kogda v zavisimosti ot vibora, posilaetsya e-mail kagdomu sotrudniku firmi.
    V forme est deystvie "test", kotorij ischet eti adresa i vidayet skolko nashel(chislo)...Teper mne bi hotelos sdelat tak, chtobi ya videla kakie! adresa nashlis...Kak eto napisat?
    I eshe toge s tem ge, mne nado otobrazit vo View znachok dlya kagogo cheloveka iz Firm,kotorim poslalsya etot e-mail.A kak eto sdelat....??
     
  2. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Мало информации.

    <!--QuoteBegin-Olga23+15:11:2005, 17:11 -->
    <span class="vbquote">(Olga23 @ 15:11:2005, 17:11 )</span><!--QuoteEBegin-->V forme est deystvie "test", kotorij ischet eti adresa i vidayet skolko nashel(chislo)...Teper mne bi hotelos sdelat tak, chtobi ya videla kakie! adresa nashlis...Kak eto napisat?
    [snapback]27115" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Приведи код кнопочки test.

    <!--QuoteBegin-Olga23+15:11:2005, 17:11 -->
    <span class="vbquote">(Olga23 @ 15:11:2005, 17:11 )</span><!--QuoteEBegin-->I eshe toge s tem ge, mne nado otobrazit vo View znachok dlya kagogo cheloveka iz Firm,kotorim poslalsya etot e-mail.A kak eto sdelat....??

    [snapback]27115" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Где хранятся данные о том, что человеку был послан e-mail ?
    Человек - отдельный документ ?
     
  3. Guest

    Guest Гость

    chelovek eto otdelnij dokument, dannie o tom,chto poslan e-mail nigde poka ne hranyatsya...Tolko est pole skolkim chelovekam bil poslan e-mail...A kod privedu pozge,ne mogu otkrit bazu v dizaynere....Problemi s setju :(
     
  4. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    В документе человека надо сделать поле, где будет хранится информация о посылке письма (например, поле с датой посылки емайла).
    Тогда в представлении добавляешь колонку и ставишь у него свойство "Display values as icons" (почитай в хелпе для подробностей).
     
  5. Olga23

    Olga23 Гость

    ponyatno seychas poprobiju...A naschet koda, to vot:
    Sub Click(Source As Button)
    Set ws = New NotesUIWorkspace
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document
    If CheckCrit( uidoc ) Then Call CheckMailList( doc, True )
    End Sub

    Kak dumaesh,kak luchshe pokazat spisok Adresov tut:kak View ili chto-to eshe?
     
  6. Olga23

    Olga23 Гость

    V dokumente cheloveka ya sozdala novoe pole tipa data...A kak teper sdelat ego datoy otpravleniya iz drugoj formi???
     
  7. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: Olga23
    Приведи еще код CheckMailList. :(

    <!--QuoteBegin-Olga23+16:11:2005, 12:18 -->
    <span class="vbquote">(Olga23 @ 16:11:2005, 12:18 )</span><!--QuoteEBegin-->Kak dumaesh,kak luchshe pokazat spisok Adresov tut:kak View ili chto-to eshe?
    [snapback]27156" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Я бы сделал вывод списка через DialogBox (т.е. вызвал форму, а в ней встроенное представление со свойством Show Single Category). Но для это надо посмотреть на функцию поиска.
     
  8. Olga23

    Olga23 Гость

    Function CheckCrit( uidoc As NotesUIDocument ) As Integer
    Const ErrHeader = "Fehlende Daten"
    Const ErrNoIsCustomer = "Bitte wählen Sie mindestens eine Gruppe von Adressen in der ersten Zeile aus."
    Const ErrNoCoise = |Sie haben "Kunden-Kennzeichen" ausgewählt, aber keine Daten ausgewählt.|
    Const ErrNoProfil = |Sie haben "Kundenprofil" ausgewählt, aber keine Daten ausgewählt.|
    Const ErrNoCategory = |Sie haben "Priorität" ausgewählt, aber keine Daten ausgewählt.|
    Const ErrNoCountry = |Sie haben "Länder" ausgewählt, aber keine Daten ausgewählt.|
    Const ErrNoZip = |Sie haben "PLZ beginnt mit" ausgewählt, aber keine Daten eingegeben.|
    Const ErrNoEmploy = |Sie haben "Mitarbeiter" ausgewählt, aber keine Daten eingegeben.|
    Const ErrNoTurnover = |Sie haben "Umsatz" ausgewählt, aber keine Daten ausgewählt.|
    Const ErrNoCreateDate = |Sie haben "Änderungsdatum" ausgewählt, aber keine Daten eingegeben|
    Const ErrNoChangeDate = |Sie haben "Erstellungsdatum" ausgewählt, aber keine Daten eingegeben|
    Const ErrNoPCoise = |Sie haben "Personen-Kennzeichen" ausgewählt, aber keine Daten ausgewählt.|
    Const ErrNoPJobtitle = |Sie haben "Position" ausgewählt, aber keine Daten ausgewählt.|
    Dim doc As NotesDocument
    Set doc = uidoc.Document

    CheckCrit = False
    If doc.IsCustomer_K(0) = "" Then Messagebox ErrNoIsCustomer, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("IsCustomer_K") : Exit Function
    If doc.Coise_K(0) = "" And doc.CritCustSign_K(0) = "1" Then Messagebox ErrNoCoise, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Coise_K") : Exit Function
    If doc.Profil_K(0) = "" And doc.CritCustProfil_K(0) = "1"Then Messagebox ErrNoProfil, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Profil_K") : Exit Function
    If doc.Category_K(0) = "" And doc.CritCustPrior_K(0) = "1"Then Messagebox ErrNoCategory, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Category_K") : Exit Function
    If doc.Country_T(0) = "" And doc.CritCustCountry_K(0) = "1"Then Messagebox ErrNoCountry, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Country_T") : Exit Function
    If doc.Zip_T(0) = "" And doc.CritCustZip_K(0) = "1"Then Messagebox ErrNoZip, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Zip_T") : Exit Function
    If doc.Employ_N(0) = "" And doc.CritCustEmploy_K(0) = "1"Then Messagebox ErrNoEmploy, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Employ_N") : Exit Function
    If doc.Turnover_K(0) = "" And doc.CritCustTurnover_K(0) = "1"Then Messagebox ErrNoTurnover, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("Turnover_K") : Exit Function
    If doc.CreateStart_D(0) = "" And doc.CritCustCreat_K(0) = "1"Then Messagebox ErrNoCreateDate, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("CreateStart_D") : Exit Function
    If doc.CreateEnd_D(0) = "" And doc.CritCustCreat_K(0) = "1"Then Messagebox ErrNoCreateDate, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("CreateEnd_D") : Exit Function
    If doc.ChangeStart_D(0) = "" And doc.CritCustChang_K(0) = "1"Then Messagebox ErrNoChangeDate, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("ChangeStart_D") : Exit Function
    If doc.ChangeEnd_D(0) = "" And doc.CritCustChang_K(0) = "1"Then Messagebox ErrNoChangeDate, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("ChangeEnd_D") : Exit Function
    If doc.PCoise_K(0) = "" And doc.CritPersSign_K(0) = "1" Then Messagebox ErrNoPCoise, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("PCoise_K") : Exit Function
    If doc.PCategory_K(0) = "" And doc.CritPersPrior_K(0) = "1"Then Messagebox ErrNoCategory, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("PCategory_K") : Exit Function
    If doc.PJobtitle_T(0) = "" And doc.CritPersPrior_K(0) = "1"Then Messagebox ErrNoPJobtitle, 16, ErrHeader : Call SetTable( "MainData" ) : uidoc.Gotofield("PJobtitle_T") : Exit Function
    ' Call doc.save( True, False )
    CheckCrit = True
    End Function





    I check MailList:


    Sub CheckMailList( mdoc As NotesDocument, OnlyEMail As Integer )
    AdressIDList = SetAdressArray( mdoc, OnlyEMail )
    If Isempty( AdressIDList ) Then
    Messagebox NoDocuments, 0, MsgHeader
    Else
    Messagebox Cstr( Ubound( AdressIDList ) + 1 ) + DocumentsFound, 0, MsgHeader
    End If
    End Sub
     
  9. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--QuoteBegin-Olga23+16:11:2005, 12:30 -->
    <span class="vbquote">(Olga23 @ 16:11:2005, 12:30 )</span><!--QuoteEBegin-->V dokumente cheloveka ya sozdala novoe pole tipa data...A kak teper sdelat ego datoy otpravleniya iz drugoj formi???
    [snapback]27159" rel="nofollow" target="_blank[/snapback]​
    [/quote]

    Как у тебя связаны документ человека с документом фирмы ?
     
  10. Olga23

    Olga23 Гость

    U nekotorih poley v svojstvah:Vichislyaemoe pri sostavlenii
     
  11. Olga23

    Olga23 Гость

    Seyhas ya sozdala 2 novih polya:Kto poslal i datu otpravleniya..No ne poluchaetsya ih svyazat s formoj iz kotoroy otpravlyaju e-maili...I kak mne otobrazit ljudej kotorim otpravila?Moget ti mne kriterij vibora podskagesh?Yaprobovala delattak:
    napisala,esli forma = forme otpravleniya i pole SendTo(spisok adresov) !=""--->Pokazivat...No ne to eto...Pliz pomogite, a to proekt gorit... :(
     
  12. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: Olga23
    У тебя должна быть какая-то связь. Например, документ человека - это респонс к документу фирмы. Тогда мы легко можем получить список людей для каждой фирмы.
    Или у документа человека имеется поле с уникальным именем фирмы. Тогда мы тоже легко сможем найти фирму.
     
  13. Olga23

    Olga23 Гость

    Forma iz kotoroj posilaem emaili, kriteriem vibora yavlyaetsya pole, kotoroe v dokumentew Firmi redaktiruemoe, ono ge v dokumente cheloveka Vichislyaemoe pri sostavlenii....A pro svyazi,kotorie pro kotorie ti skazal...Ya ne znayu..Gde eto smotret...Esli v svojstvah formi,to tam nichego net... :( Etu bazu ne ya delala....Seychas vot i prihoditsya plavat...
     
  14. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: Olga23
    Хотя бы скажи, как создаются документы человеков. :(
    Т.е. код покажи.
     
  15. Olga23

    Olga23 Гость

    kod ochen bolshoj :p
    No ya tut koe-chto novoe nashla...Eti Adresa,kotorie nahodyatsya, hranyatsya v massive AdressIDList:

    Sub CheckMailList( mdoc As NotesDocument, OnlyEMail As Integer )
    AdressIDList = SetAdressArray( mdoc, OnlyEMail )
    If Isempty( AdressIDList ) Then
    Messagebox NoDocuments, 0, MsgHeader
    Else
    Messagebox Cstr( Ubound( AdressIDList ) + 1 ) + DocumentsFound, 0, MsgHeader
    End If
    End Sub

    Teper problema:nemogu nayti v Help kak massiv pokazat...A otdelniy View delat ne hochu,t.k.forma zakroetsyai poyavitsya etot View...A dannie ne zapomnyatsya...Chto skagesh? :(
     
  16. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Можно показать через NotesUIWorkspace.Prompt.
    Т.е.
    Код (Text):
    Dim ws As New NotesUIWorkspace
    ...
    Call ws.Prompt(PROMPT_OKCANCELLISTMULT, "", "", "", AdressIDList)
     
  17. Olga23

    Olga23 Гость

    Prosti za glupiy vopros no gde etot skript primenyat?V Pole ya etot skript primenit ne mogu,t.k tam tolko formuli ispolzujutsya :(
     
  18. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: Olga23
    Вставляешь в функцию CheckMailList.
    Код (Text):
    Sub CheckMailList( mdoc As NotesDocument, OnlyEMail As Integer )
    Dim ws As New NotesUIWorkspace
    AdressIDList = SetAdressArray( mdoc, OnlyEMail )
    If Isempty( AdressIDList ) Then
    Messagebox NoDocuments, 0, MsgHeader
    Else
    Messagebox Cstr( Ubound( AdressIDList ) + 1 ) + DocumentsFound, 0, MsgHeader
    Call ws.Prompt(PROMPT_OKCANCELLISTMULT, "", "", "", AdressIDList)
    End If
    End Sub
     
  19. Olga23

    Olga23 Гость

    vidaetsya oshibka:eek:bject variable not set...
     
  20. Olga23

    Olga23 Гость

    ya perestavila etu stroku iz CheckMailList v test....Seycgas vidaetsya okoshko,no vmesto adresov poka ziferki i bukvi
     
Статус темы:
Закрыта.

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