Established a reply mechanism in the task management system (universal)

xiaoxiao2021-03-06  113

principle:

There is an operation in the document. After clicking, the reply form is behind, bringing the ID of the primary document over, and can get the various information about the main document from this point.

==================

Function newReport () {var f = document.forms [0] window.open ("../ newreport? OpenForm & ID =" f.docid.value, "," ")}

==================

After saving the document, read the reply from the master document when the main browsing document is sent, and then display:

==================

Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim curdoc, doc As NotesDocument Dim docid, htm As String Set db = s.CurrentDatabase Set view = db.GetView ( "Reports") Set curdoc = s.DocumentContext Docid = curdoc.docid (0) SET DOC = view.getfirstdocument if not doc is nothing the htm = {[

HTM = HTM & {

Reply time Reply to people Reply content Operation} While Not Doc is nothing if doc.docid (0 ) = docid kil = htm & = htm & (doc.created) & = htm & doc.reporter (0) & {]} htm = HTM & DOC.BODY & {[} if Doc.reporter (0) = curdoc.thisuser (0) Then HTM = HTM & { Edit} Else HTM = HTM & {} end if htm = HTM & { } End if set doc = view.getnextdocument (doc) wend htm = htm & {]}

END IF

Curdoc.reportBody = HTM

End Sub

==================

effect:

Response time people reply reply operating 2004-8-18 15: 19: 20xynafasfasfasdfasdfawfasdfasfasdfasd edit 2004-8-18 15: 24: 53xynttttttttttttttttttt edit 2004-8-18 16: 07: 44xyn save close Job Title: Re the editing


New Post(0)