Domino 9 und frühere Versionen > Entwicklung

Antwortdokument mit Script erstellen

<< < (4/12) > >>

OCS:
also, der debugger läuft komplett durch!

Call uiview.SelectDocument(cpdoc)

benutz ich um das aktuell angeklickte Dokument zu bekommen!
ist der komplette code! das ich sag mal "mutterdokument" hat ne andere form, als das was ich erstellen möchte! das funktioniert manuell ganz gut, aber in backend hab ich halt besagte probleme!

danke das ihr drüber nachdenkt!

Semeaphoros:
Aber Du beantwortest die Fragen nicht oder unvollständig, so kommen wir nicht weiter.

Till_21:
haeng an die items doch mal die eigenschaft issummary...


das bewirkt manchmal wunder !
(wie in bern)

gruss

Glombi:
Ich habe mir mal deie Mühe gemacht, alles zu entfernen, was Du nicht brauchst und die MakeResponse Methode hinzugefügt..

Sub Initialize
   
'Variablen zum Schlüssel auslesen
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim cpdoc As NotesDocument
   
   '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
      
   Set db = session.CurrentDatabase  
   Set collection = db.UnprocessedDocuments   'alle gewählten Dokument
   Set cpdoc = collection.GetFirstDocument  
      
   
   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.MakeResponse( cpdoc )
Call aktivdoc.Save( True, True )      

Andreas

OCS:
ok, werd mir jetz alle threads nochmal durchschauen und stell dann morgen früh die antworten hier rein! wünsch euch nen schönen feierabend!!!

gruß björn

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete