Domino 9 und frühere Versionen > Entwicklung

Antwortdokument mit Script erstellen

(1/12) > >>

OCS:
Hi Leute,
hab das Problem, das ich über eine Ansicht per Klick auf Button ein neues Dokument via Agent erzeigen möchte.. der Agent (Script unten) läuft auch ohne Fehler durch, doch das erzeugte Dokument wird anschließend nicht in der Ansicht angezeigt! Jemmand ne Ahnung an was das liegen könnte??

Gruß Björn


Script:


Sub Initialize
   
'Variablen zum Schlüssel auslesen
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As notesuidocument
   Dim cpdoc As NotesDocument
   Dim uiview As NotesUIView
   
   'Aktivdb
   Dim aktivdoc As notesdocument
   
   
   'Variablen zu auslesen der Items im ausgewählten Checkpunkt
   Dim cpaufnr As notesitem
   Dim cpaufpos As notesitem   
   Dim cpproj As notesitem
   Dim cpocssb  As  notesitem
   Dim cpproocspl As notesitem
   Dim cpende As notesitem
   Dim cpbez As notesitem
   Dim cpartbez As notesitem
   Dim cpname1 As notesitem
   Dim cpipss As notesitem
   Dim cpclart As notesitem
   Dim cpstatus As notesitem
   Dim cpstatusDat As notesitem
   Dim cpendedt As notesitem
   Dim cpclid As notesitem
   Dim cplfnr As notesitem
   Dim cpreader As notesitem
   Dim cpkdnr As notesitem
   Dim cpautor As notesitem
   Dim cpaok As notesitem
   Dim cpmail1 As notesitem
   Dim cpmail2 As notesitem
   Dim cparchive As notesitem
   Dim cpmail1names As notesitem
   Dim cpmail2names As notesitem
   Dim cpmonate As notesitem
   Dim cparchive_no As notesitem
   Dim cparchive_yes As notesitem
   Dim cpdate_ok As notesitem
   Dim user As String
   user = session.CommonUsername
   
   'Variablen in die die Items dann in umgewandelter Form geschrieben werden
   Dim aunr As String
   Dim posi As String
   
   'Variablen um auf FridaAktiv zuzugreifen
   
   Dim db_fri As notesdatabase
   Dim view_fri As notesview   
   Dim collect_Fri As notesdocumentcollection
   Dim doc_fri As NotesDocument
   Dim temp As Variant
   
   Dim adoc As Variant
   
   Set db = session.CurrentDatabase
   Set uiview = workspace.Currentview
   
   Set collection = db.UnprocessedDocuments
   Set cpdoc = collection.GetFirstDocument()
   
   Call uiview.SelectDocument(cpdoc) ' Soll das aktuell ausgewählte Dokument in den Zugriff nehmen
   
   Set aunritem = cpdoc.GetFirstItem( "KOAUNR" )
   Set posiitem = cpdoc.GetFirstItem( "PSPOSI" )
   
   Set cpaufnr = cpdoc.GetFirstItem( "aufnr" )
   Set cpaufpos = cpdoc.GetFirstItem( "aufpos" )
   Set cpproj = cpdoc.GetFirstItem( "proj" )
   Set cpocssb  = cpdoc.GetFirstItem( "cpocssb" )
   Set cpproocspl = cpdoc.GetFirstItem( "proocspl" )
   Set cpende = cpdoc.GetFirstItem( "cpende" )
   Set cpbez = cpdoc.GetFirstItem( "cpbez" )
   Set cpartbez = cpdoc.GetFirstItem( "artbez" )
   Set cpname1 = cpdoc.GetFirstItem( "name1" )
   Set cpipss = cpdoc.GetFirstItem( "ipss" )
   Set cpclart = cpdoc.GetFirstItem( "clart" )
   Set cpstatus = cpdoc.GetFirstItem( "cpstatus" )
   Set cpstatusDat = cpdoc.GetFirstItem( "cpstatusdat" )
   Set cpendedt = cpdoc.GetFirstItem( "cpendedt" )
   Set cpclid = cpdoc.GetFirstItem( "clid" )
   Set cplfnr = cpdoc.GetFirstItem( "cplfnr" )
   Set cpreader = cpdoc.GetFirstItem( "cpreader" )
   Set cpkdnr = cpdoc.GetFirstItem( "kdnr" )
   Set cpautor = cpdoc.GetFirstItem( "cpautor" )
   Set cpaok = cpdoc.GetFirstItem( "aok" )
   Set cpmail1 = cpdoc.GetFirstItem( "cpmail1" )
   Set cpmail2  = cpdoc.GetFirstItem( "cpmail2" )
   Set cparchive = cpdoc.GetFirstItem( "cparchive" )
   Set cpmail1names = cpdoc.GetFirstItem( "cpmail1names" )
   Set cpmail2names = cpdoc.GetFirstItem( "cpmail2names" )
   Set cpmonate = cpdoc.GetFirstItem( "cpmonate" )
   Set cparchive_no = cpdoc.GetFirstItem( "archive_no" )
   Set cparchive_yes = cpdoc.GetFirstItem( "archive_yes" )
   Set cpdate_ok = cpdoc.GetFirstItem( "date_ok" )
   
' Jetzt neue Aktion mit den eingelesenen Items erstellen
   
   
   
   Set aktivdoc = New NotesDocument( db )
   aktivdoc.Form = "aktion"
   Call aktivdoc.replaceitemvalue("aufnr",cpaufnr)
   Call aktivdoc.replaceitemvalue("aufpos",cpaufpos)
   Call aktivdoc.replaceitemvalue("proj",cpproj)
   Call aktivdoc.replaceitemvalue("cpocssb", user)
   Call aktivdoc.replaceitemvalue("cpende",cpende)
   Call aktivdoc.replaceitemvalue("cpbez",cpbez)
   Call aktivdoc.replaceitemvalue("name1",cpname1)
   Call aktivdoc.replaceitemvalue("ipss",cpipss)
   Call aktivdoc.replaceitemvalue("clart",cpclart)
   Call aktivdoc.replaceitemvalue("cpstatus",cpstatus)
   'Call aktivdoc.replaceitemvalue("cpende",cpendedt)
   'Call aktivdoc.replaceitemvalue("aok",cpaok)
   Call aktivdoc.replaceitemvalue("zeitvon","00:00")
   Call aktivdoc.replaceitemvalue("zeitbis","00:00")
   Call aktivdoc.replaceitemvalue("dauer","0")
   Call aktivdoc.replaceitemvalue("tkt","055")
   Call aktivdoc.replaceitemvalue("jnf","N")
   Call aktivdoc.replaceitemvalue("cpart","Björntest")
   
Call aktivdoc.Save( True, True )      
   

   
   
   
End Sub

Semeaphoros:
call workspace.viewrefresh

OCS:
danke für den tipp, aber auch nach dem erneuten öffnen der db ist kein dokument da!!!!  ???

Semeaphoros:
Mach mal einen View mit allen Dokumenten (nicht hierarchisch) und schau, ob das Ding überhaupt in die Datenbank kommt. Wenn Du es dann in diesem View siehst, überprüfe, ob das entstandene Dokument überhaupt die Eigenschaften/Felder usw. hat, die Du erwartest

OCS:
die idee hatte ich auch schon, leider nix da!!

Navigation

[0] Themen-Index

[#] Nächste Seite