Domino 9 und frühere Versionen > Entwicklung
Daten aus Excel als Antwortdokumente importieren
Semeaphoros:
dim s as notessession
dim thisDB as NotesDatabase
dim curdoc as Notesdocument
dim masterdoc as NotesDocument
dim refItem as NotesItem
dim dc as NotesDocumentCollection
set thisDB=s.currentdatabase
set dc=thisDB.UnprocessedDocuments
set curdoc=dc.getfirstdocument
while not curdoc is nothing
set refItem=curdoc.getfirstigem("$ref")
set masterdoc=thisDB.getDocumentByUNID(refitem.text)
call curdoc.makeresponse (masterdoc)
set curdoc=dc.getnextdocument(curdoc)
wend
******
So aus dem hohlen Bauch, ungetestet (!!!!!!) und ohne Error-Handling und so .... also wirklich quick and dirty ....
Das in einen Agenten rein, der auf "ausgewählte Dokumente" anspricht
Christian97:
Vielen Dank Semeaphoros!
ich hab noch den einen Schreibfehler berichtigt
set refItem=curdoc.getfirstitem("$ref")
und dann ging's. :)
Was mich aber nun noch wundert ist, daß ich die Antworten ausschließlich in der eingebetteten Ansicht im Dokument sehe, aber nicht mehr in der normalen Ansicht. Neue Antworten zu den importierten Hauptdokumenten erscheinen überhaupt nicht in den Ansichten.
Christian
koehlerbv:
Hast Du in den Ansichts-Properties "Antwortdokumente hierarchisch anzeigen" gewählt ?
Was mich aber wundert, dass das überhaupt mit dem Import geklappt hat:
Nach dem
--- Code: ---call curdoc.makeresponse (masterdoc)
--- Ende Code ---
fehlt doch das Speichern ...
--- Code: ---call curdoc.Save (True, False, True)
--- Ende Code ---
Bye,
Bernhard
Christian97:
@Bernhard:
"Antwortdokumente hierarchisch anzeigen" ist an.
Nanu ??? Nicht, daß das vorher bei den anderen Versuchen schon geklappt hatte. Ich hab immer auf das Pfeilsymbol gewartet. Ich glaub, ich such mal, welche Variante nun erfolgreich war.
Christian
Semeaphoros:
Wow, danke für die Rückmeldungen, ist ja schon fast unheimlich, dass einfach hingeworfener Code fast sofort läuft .......
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln