Domino 9 und frühere Versionen > Entwicklung

Antwortdokument mit Script erstellen

<< < (7/12) > >>

OCS:
bin jetzt soweit, das alles funktioniert, nur mein im backend editiertes dokument (unten doc) wird nach dem erstellen nur nach dem refresh angezigt! ich werd jetzt wohl mal das mit dem "NotesUIWorkspace.EditDocument(total, viele, parameter :D )"  versuchen und dann weiter sehen... hier noch mal mein code, falls er euch intressiert!


Sub Initialize
   Dim uidoc As notesuidocument
   Dim session As notessession
   Set session = New notessession
   Dim item As notesitem
   Dim item2 As notesitem
   Dim workspace As notesuiworkspace
   Dim rtitem As notesrichtextitem
   Dim db As NotesDatabase
   Set workspace = New notesuiworkspace
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim check As String
   Dim ready As Variant
   Dim problem As String
   Set uidoc = workspace.currentdocument
   Dim temp As String
   Dim view As notesview
   Dim schnellstart As String
   Dim aktivid As String
   
   schnellstart = uidoc.fieldgettext("schnellstart")
   aktivid = uidoc.fieldgettext("aktiv_id")
   problem = uidoc.fieldgettext("DocTitel")
   Call uidoc.save
   If schnellstart = "J" Then
      Set db = session.Getdatabase("OCS02/OCS GmbH", "aktiv\fridaakt.nsf", False)
      Set view = db.getview ("ViewActionsUNID")
      Call view.Refresh
      Set collection = view.getalldocumentsbykey(aktivid)
      Set doc = collection.GetFirstDocument()
      Print collection.count
      Call doc.Replaceitemvalue("CheckCall", "X")
      Call doc.Replaceitemvalue("tmp_link", "X")
      Call doc.Replaceitemvalue("CPart", Problem)
      Print collection.count
      Set rtitem = New NotesRichTextItem(doc, "Link")
      Call rtitem.AppendDocLink( uidoc.document, "Dokumentenlink")
      Call rtitem.AppendText("          " )
      Call rtitem.AppendText(Problem)
      
      Call doc.Save( False, False )      
   End If      
End Sub

meld mich morgen nochmal!!

danke für eure hilfe!!

gruß björn!

Semeaphoros:
Axel Jansen temp:
Du solltest da schon noch dazu sagen, dass das Java ist und nicht LotusScript.

koehlerbv:
Java, Semeaphoros ? Eher nicht. Nur das "boolean ..." ist nicht LS-konform.

@Björn: Vor dem Ende Deiner Routine machst Du noch ein uidoc.Close und ein workspace.ViewRefresh, dann solltest Du auch Dein neues Dokument sehen.

Bernhard

Semeaphoros:
Dochdoch Java:
If und End If auf derselben Zeile sollte nach Norm in LS (Basic) nicht gehen, habs allerdings nicht probiert, ob LS das allenfalls toleriert.

Und Strichpunkte am Ende jeder Zeile.

koehlerbv:
Hascht recht, Jens ;-)
LS mag da vieles nicht (und das ist auch gut so, ich mag besonders die pingeligen Compiler)

Aber Axel Jensen ist eben ein Kaffee-Mensch ;-)

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete