Vzaimodejstvie Formi I View

[Medevic]

Для: Olga23
Все эти функции, которые ты шлешь, не имеют отношения к делу. Найди откуда вызывается SendMailToList.

 

[Olga23]

Izvinite, nepravilno vas vnachale ponyala.
Vot zdes idet vizov:
Sub Click(Source As Button)
Const ErrHeader = "ne hvataet dannih"
Const ErrNoSubject = "Vpishite temu, pogalujsta."
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
If doc.Subject_T(0) = "" Then
Messagebox ErrNoSubject, 16, ErrHeader
Call SetTable( "Text" )
uidoc.Gotofield("Subject_T")
Exit Sub
End If
If CheckCrit( uidoc ) Then
If uidoc.Editmode Then If doc.Isnewnote Then Call uidoc.save Else Call uidoc.Refresh( True )
Call SendMailToList( doc, False )
If uidoc.Editmode Then
Call uidoc.Refreshhideformulas
Call uidoc.reload
Call SetTable( "Protocol" )
Else
Call uidoc.close( True )
End If
Call ws.Viewrefresh
End If
End Sub

 

[Medevic]

Для: Olga23
Ну вот. Кнопочка находится в документе фирмы. Так ?
В функцию SendMailToList передается этот документ.

Вот здесь у тебя создаются email документы.
<!--QuoteBegin-Olga23+13:12:2005, 12:34 -->
<span class="vbquote">(Olga23 @ 13:12:2005, 12:34 )</span><!--QuoteEBegin-->Call mail.CopyAllItems(tdoc,False)
'Form, in der den Dokument geöffnet wird
tdoc.form="EMailSerien"
tdoc.Name1_T= firmaenInfo(0)
tdoc.City_T= firmaenInfo(1)
tdoc.ContactPerson_T=firmaenInfo(2)
tdoc.ReplyTo=firmaenInfo(3)
tdoc.MailSendAt_D=Now
tdoc.Subject_T=tdoc.Subject
tdoc.MailSendTo=tdoc.sendto

Call tdoc.Save(True,False)

[snapback]28322" rel="nofollow" target="_blank[/snapback]​

[/quote]

Т.е. где-то надо добавить строку:
tdoc.PerDocID_T = mdoc.DocID_T
Во встроенном представлении следовательно прописать формулу DocID_T.

 

[Olga23]

net, knopochka kak raz ne v dokumente firmi. U menya est novaya forma, nazivaetsya dopustim multiplikativnie E-mail, v ney est tabliza, gde est kriterii, komu posilat e-maili, a potom est knopka iskat firmi ili ljudey udovletvoryajushih vibrannim kriteriyam, nu a potom est eta knopka-poslat.Seychas poprobuju sdelat kak Vi mne posovetovali

 

[Olga23]

<!--QuoteBegin-Medevic+13:12:2005, 12:26 -->
<span class="vbquote">(Medevic @ 13:12:2005, 12:26 )</span><!--QuoteEBegin-->Во встроенном представлении следовательно прописать формулу DocID_T.

[snapback]28335" rel="nofollow" target="_blank[/snapback]​

[/quote]
Ya v maske, gde dolgno bit eto vstroennoe View, gde nado pokazat otdelnuju kategoriju, napisala prosto DocID_T, ili eto neverno?

I eshe v samom etom View est stolbez DocID_T, prosto kak pole. Dolgna li ya kakuju to formulu vmesto etogo pisat ili tak i ostavit?

 

[Olga23]

sdelala,vse kak opisala, i vstavila tdoc.PerDocID_T = mdoc.DocID_T, tolko teper v Lotus Notes smotrju svojstva dokumenta, tam vigu PerDocID_T, on ne pustoy, a DocID_T tam voobshe net.
I v dokumente firmi, kogda otkrivayu etot vstroennij View, chtobi uvidet etot e-mail tam, to nichego ne vigu

 

[Olga23]

seychas vot hotela prosto dokument poslannogo e-mail(ne obschego, a dlya kagdoj firmi) otkrit, a poluchila oshibku "Generic LSE Failure (no more info!). Chto teper s etim delat, ne znaete?

 

[Medevic]

<!--QuoteBegin-Olga23+13:12:2005, 13:32 -->
<span class="vbquote">(Olga23 @ 13:12:2005, 13:32 )</span><!--QuoteEBegin-->net, knopochka kak raz ne v dokumente firmi.

[snapback]28336" rel="nofollow" target="_blank[/snapback]​

[/quote]
Тогда попробуй так: tdoc.PerDocID_T = cdoc.DocID_T

 

[Olga23]

nichego ne izmenilos, tolko oshibka priotkritii dokumenta e-mail:
Error processing use list moduleGlobals customerdata)

 

[Medevic]

Для: Olga23
Ты можешь дебаггером пройтись и посмотреть, что такое cdoc в функции SendMailToList ?

 

[Olga23]

tolko chto poprobovala, no tam pered vizovom etoj funkzii stoitsub exit, i dalshe viletaet iz debug. Podskagite pogalujsta kak sdelat, tak chtobi takogo ne bilo.

 

[Medevic]

Для: Olga23
Exit Sub срабатывает, если у текущего документа не заполнено поле Subject_T.

 

[Olga23]

Prostite ug za glupij vopros. Ranshe,kogda ya debug delala, ya videla chto proishodit, a seychas net, ya chto-to vidimo nagala, no ne znayu chto i v helpe nichego podobnogo ne opisano. Ya vigu okno debug, no ono seroe i tolko menju aktivnostanovit, vijti i t.p

Kak mne teper vernutsya k debuggeru, gde ya vigu ,chto proishodit

 

[Olga23]

ok, seychas vse snova ok

 

[Olga23]

posmotrela ya v debaggere cdoc:
pri vipolnenii shaga:
Forall z In AdressIDList
Set tdoc=db.createdocument
Set cdoc = db.Getdocumentbyunid( z )
cdoc bil pustim
If SendDirect Then-tut pojavilis data v Last modified,lastaccessed i created.Ostalnie parametri pusti
Kogda vizivaetsya Call mail.send( False ), togda pojavlyaetsya mnogestvo drugih znachenij, naprimet v Items poyavlyayutsya vse polya,kotorie ya nabljudayu v dokumentah firmi i personi, kotoraya tam rabotaet.
Tak chto kartina poluchaetsya sledujuschaya:
mdoc-eto dokument samogo e-mail (posilayuschegosya na neskolko chelovek)
cdoc-eto dokument,sodergaschij dannie firmi i cheloveka,na kotorih mi posilaem email.
tdoc-eto svoeobraznoe hranilische e-mailov i drugoj infi
firm i ljudey, na kotorih poslali e-mail(mi sjuda eti daniie sohranili,t.k. kogda e-mail posilaetsya, oni nigde ne sohranyayutsya)
Vot.

 

[Olga23]

teper hotelos bi uslishat idei po povodu svyazivaniya so vlogennim predstavleniem

 

[Medevic]

Для: Olga23
Если cdoc - это документ фирмы. У него должно быть непустое поле DocID_T. Посмотри также, совпадает ли это поле со значением свойтсва cdoc.UniversalID. В дебаггере.

Теперь, скажи где у тебя стоит встроенное представление ? На форме документа фирмы ?

 

[Olga23]

da, na forme dokumenta firmi

 

[Olga23]

a cdoc-eto ne dokument firmi, eto kak mne kagetsya dokument, hranyaschij dannie o firme i o ljudyah, kotorie tam rabotayut. Sm: function SendMailToList:
Dim tdoc As NotesDocument
.......

Forall z In AdressIDList
Set tdoc=db.createdocument
Set cdoc = db.Getdocumentbyunid( z )
............

Tak chto,ya ne znayu gde u nego smotret DocID_T:-(

 

[Medevic]

<!--QuoteBegin-Olga23+13:12:2005, 17:39 -->
<span class="vbquote">(Olga23 @ 13:12:2005, 17:39 )</span><!--QuoteEBegin-->Tak chto,ya ne znayu gde u nego smotret DocID_T:-(

[snapback]28358" rel="nofollow" target="_blank[/snapback]​

[/quote]
В дебаггере. Свойство Items. Там все поля. Должно быть и DocID_T.