Domino 9 und frühere Versionen > ND8: Entwicklung

Hauptdokument mit Antwortdokumenten kopieren und autom. ändern

<< < (4/5) > >>

Axel:

--- Zitat von: pimpfling am 28.10.08 - 10:36:08 ---Was muss ich denn machen um aus den resdoc, newresdoc, newdoc richtige Notesdoks zu machen?

--- Ende Zitat ---


Dim resdoc As NotesDocument
Dim newresdoc As NotesDocument
Dim newdoc As NotesDocument


Axel

pimpfling:

--- Zitat von: DAU-in am 28.10.08 - 10:38:25 ---dim doc as ...
dim resdoc as ....  etc.

--- Ende Zitat ---

ok, ok, alles in einer Reihe geht nicht, habs kapiert :)

MadMetzger:
Du solltest dir angwöhnen grundsätzlich mit Option Declare arbeiten. Du kannst ein Notedocument auch in ein Variant packen, aber das ist schlechter Programmierstil und führt dazu, dass einige Fehler erst zur Laufzeit erkannt werden. Das verhinderst du durch setzen von Option Declare. Irgendwo gibt es im Designer auch eine Option, die das automatisch tut.

DAU-in:

--- Zitat von: MadMetzger am 28.10.08 - 10:40:57 --- Irgendwo gibt es im Designer auch eine Option, die das automatisch tut.

--- Ende Zitat ---

In einem Scriptfenster rechte Maustaste, dann auf Programmers Pane gehen, 2. Tab Options: automatically add "Option declare"

Grüsse

DAu-in

pimpfling:

--- Zitat von: DAU-in am 28.10.08 - 10:50:38 ---
--- Zitat von: MadMetzger am 28.10.08 - 10:40:57 --- Irgendwo gibt es im Designer auch eine Option, die das automatisch tut.

--- Ende Zitat ---

In einem Scriptfenster rechte Maustaste, dann auf Programmers Pane gehen, 2. Tab Options: automatically add "Option declare"

Grüsse

DAu-in

--- Ende Zitat ---


Habe ich jetzt so bei mir eingestellt :)

Eine Fehlermeldung bekomme ich jetzt nicht mehr, allerdings hängen die neuen AntwortDoks immer nocht nicht am neuen Hauptdok dran...


Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
Dim resdoc  As NotesDocument
Dim newresdoc  As NotesDocument
Dim newdoc  As NotesDocument
Dim doc As NotesDocument
   
Set db = session.CurrentDatabase   
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set newdoc = doc.CopyToDatabase( db )
Set dc = doc.Responses

If dc.Count > 0 Then
                Set resdoc = dc.GetfirstDocument
   Set newresdoc = resdoc.CopyToDatabase( db )
   Call newresdoc.MakeResponse( newdoc )
End If

Habs jetzt vereinfacht und erstmal nur ein Antwortdokument in der Mangel...

Gruß Stefan

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete