antwortdokument als uidoc aus dem backend erstellen?

[OCS]

hi leute,
habe eine db, von der aus ich in eine andere db gehe und mir ein dokument gezielt anhand der unid suche, funktioniert alles soweit.... hab ich die möglichkeit, jetz ein antwortdokument von diesem dokument im frontend zu erstellen? hoffe das war verständlich...

gruß

björn

zum besseren verständnis, der quelltext bis jetzt...


Sub Initialize
   Dim uidoc As notesuidocument
   Dim session As notessession
   Set session = New notessession
   Dim item 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 currentdoc As NotesDocument
   Dim problem As String
   Set uidoc = workspace.currentdocument
   Dim temp As String
   Dim view As notesview
   Dim aktivid As String
   Dim aktivdoc As notesuidocument
   Dim newdoc As notesuidocument
   
   
   Set currentdoc = uidoc.Document 
   Call uidoc.save   
   aktivid = uidoc.fieldgettext("aktiv_id")
   
   Call uidoc.save
   'Call uidoc.close
   
   
   Set db = session.Getdatabase("SCHMITT01/SCHMITT", "aktiv\aktiv003.nsf", False)
   Set view = db.getview ("ViewActionsUNID")
   Call view.Refresh
   Set collection = view.getalldocumentsbykey(aktivid)
   Set doc = collection.GetFirstDocument()
   Print collection.count
   
   
   und hier will ich ein antwortdokument auf doc erstellen!!!
   
End Sub

[Marinero Atlántico]

In Pseudocode (heisst: die Methoden mögen anders heissen, aber im Groben sollte es stimmen)

Code

Dim docResp as yourResponse
set  docResp = db.createDocument
docResp.makeResponse(doc)

' wichtig. Vergisst man schnell: 
docResp.save true, false

[OCS]

sollte dann wohl jetzt so aussehen:

Sub Initialize
   Dim uidoc As notesuidocument
   Dim session As notessession
   Set session = New notessession
   Dim item 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 currentdoc As NotesDocument
   Dim problem As String
   Set uidoc = workspace.currentdocument
   Dim temp As String
   Dim view As notesview
   Dim aktivid As String
   Dim aktivdoc As notesuidocument
   Dim newdoc As notesdocument
   
   
   Set currentdoc = uidoc.Document 
   Call uidoc.save   
   aktivid = uidoc.fieldgettext("aktiv_id")
   
   Call uidoc.save
   'Call uidoc.close
   
   
   Set db = session.Getdatabase("SCHMITT01/SCHMITT", "aktiv\aktiv003.nsf", False)
   Set view = db.getview ("ViewActionsUNID")
   Call view.Refresh
   Set collection = view.getalldocumentsbykey(aktivid)
   Set doc = collection.GetFirstDocument()
   Print collection.count
   
   Set  newdoc = db.createDocument
   
   Call newdoc.MakeResponse( doc )
   Call newdoc.Save( False, False )
   

  workspace.EditDocument True,newdoc
   

...


bekomme aber den fehler vorgabemaske nicht gefunden!!!

[OCS]

k, hab noch

   newdoc.Form = "aktion"


eingafügt, jetz gehts.... leider übernimmt er keine daten aus dem mutterdokument!!!! an was könte das liegen??

[koehlerbv]

Wenn Du im Backend arbeitest, werden natürlich keine Vorgabewerte übernommen. Da ist Handarbeit angesagt.

Bernhard

[Thomas Schulte]

wollt ich auch gerade sagen

[OCS]

wollt ich nur wissen :-) danke!

[OCS]

noch was anderes, wie kan ich einen string in einen variant schreiben?

[koehlerbv]

Wie meinen ? Variant ist die Hure der LS-Programmierer und ist offen für fast alles 

[OCS]

lol, müsste doch eigentlich mit

variant = string gehen, oder?   da krieg ich nen fehler

set variant = string ? da krieg ich auch nen fehler!

[koehlerbv]

Bitte opfere Grossbuchstaben an den richtigen Stellen für uns - und gib' aussagekräftige Fehlermeldungen an und Code, wo notwendig.

Bernhard

[OCS]

Schuldigung, das mit nur klein schreiben ist ne schlechte Angewohnheit! Also, ich leser mit den CommonUserName aus der Session in einen String aus und möchte diesen String jetzt irgendwie in eine Variable vom Datentyp Variant kopieren.

[koehlerbv]

Das sollte kein Problem darstellen. Code ?

[OCS]

Sub Initialize
   Dim uidoc As notesuidocument
   Dim session As notessession
   Set session = New notessession
   Dim item 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 currentdoc As NotesDocument
   Dim problem As String
   Set uidoc = workspace.currentdocument
   Dim temp As String
   Dim view As notesview
   Dim aktivid As String
   Dim aktivdoc As notesuidocument
   Dim newdoc As notesdocument
   Dim KDNR As notesitem
   Dim name1 As notesitem
   Dim AUFPOS As notesitem
   Dim CLART As notesitem
   Dim CLID As notesitem
   Dim CPART As notesitem
   Dim CPBEZ As notesitem
   Dim CPENDE As notesitem
   Dim CPOCSSB As notesitem
   Dim CPREADER As notesitem
   Dim CPSTATUS As notesitem
   Dim IPSS As notesitem
   Dim Kunde As notesitem
   Dim aufnr As notesitem
   Dim user As String
   
   
   Set currentdoc = uidoc.Document 
   Call uidoc.save   
   aktivid = uidoc.fieldgettext("aktiv_id")
   
   Call uidoc.save
   'Call uidoc.close
   
   
   Set db = session.Getdatabase("SCHMITT01/SCHMITT", "aktiv\aktiv003.nsf", False)
   Set view = db.getview ("ViewActionsUNID")
   Call view.Refresh
   Set collection = view.getalldocumentsbykey(aktivid)
   Set doc = collection.GetFirstDocument()
   Print collection.count
   
   -->      user = session.CommonUserName      Stimmt noch
   
   
   Set NAME1 = doc.getfirstitem("NAME1")
   Set KDNR = doc.Getfirstitem( "KDNR" )
   Set AUFNR = doc.Getfirstitem( "AUFNR" )
   Set AUFPOS = doc.Getfirstitem( "AUFPOS" )
   Set CLART = doc.Getfirstitem( "CLART" )
   Set CLID = doc.Getfirstitem( "CLID" )
   Set CPART = doc.Getfirstitem( "CPART" )
   Set CPBEZ = doc.Getfirstitem( "CPBEZ" )
   Set CPENDE = doc.Getfirstitem( "CPENDE" )

   Set CPOCSSB = user   --> Das lässt schon der Designer nicht zu!!!


   Set CPREADER = doc.Getfirstitem( "CPREADER" )
   Set CPSTATUS = doc.Getfirstitem( "CPSTATUS" )
   Set IPSS = doc.Getfirstitem( "IPSS" )
   Set KUNDE = doc.Getfirstitem( "KUNDE" )
   
   [
   Set  newdoc = db.createDocument
   
   Call newdoc.MakeResponse( doc )
   newdoc.Form = "aktion"
   Call newdoc.save (True, True)
   
   Set KDNR = newdoc.ReplaceitemValue( "KDNR", KDNR )
   Set NAME1 = newdoc.ReplaceitemValue( "NAME1", NAME1 )
   Set AUFNR = newdoc.ReplaceitemValue( "AUFNR", AUFNR )
   Set AUFPOS = newdoc.ReplaceitemValue( "AUFPOS", AUFPOS )
   Set CLART = newdoc.ReplaceitemValue( "CLART", CLART )
   Set CLID  = newdoc.ReplaceitemValue( "CLID", CLID )
   Set CPART = newdoc.ReplaceitemValue( "CPART", CPART )
   Set CPBEZ  = newdoc.ReplaceitemValue( "CPBEZ ", CPBEZ  )
   Set CPENDE = newdoc.ReplaceitemValue( "CPENDE", CPENDE )
   Set CPOCSSB = newdoc.ReplaceitemValue( "CPOCSSB", CPOCSSB )
   Set CPREADER = newdoc.ReplaceitemValue( "CPREADER", CPREADER )
   Set CPSTATUS = newdoc.ReplaceitemValue( "CPSTATUS", CPSTATUS )
   Set IPSS = newdoc.ReplaceitemValue( "IPSS", IPSS )
   Set KUNDE = newdoc.ReplaceitemValue( "KUNDE", KUNDE )
   
   
   Call newdoc.save (True, True)
   workspace.EditDocument True,newdoc
'Call newdoc.Save( False, False )
   'workspace.EditDocument True,newdoc
   
' wichtig. Vergisst man schnell:
   
   
   '
   
End Sub

[Semeaphoros]

Set CPOCSSB = user   --> Das lässt schon der Designer nicht zu!!!

Logisch, jedes Objekt muss mit New instanziiert werden, es sei denn, man bekommt das von einem anderen Objekt erledigt. Hier also zuerst:

Set CPOCSSB = New NotesItem

Das steht in der Hilfe unter NotesItem und das sollte man unbedingt mal nachgelesen haben.

[koehlerbv]

Jo, und warum redest Du von Variant, wenn Du einem NotesItem-Objekt einen String zuweisen willst ?

[Marinero Atlántico]

Wie Bernhard.

Mal so allgemein:

Ich würd an deiner Stelle grundsätzlich die ganzen zu kopierenden Items aus dem Hauptdokument erzeugen.
Wie du ja schon gemacht hast.

Code

Set NAME1 = doc.getfirstitem("NAME1")
   Set KDNR = doc.Getfirstitem( "KDNR" )
   Set AUFNR = doc.Getfirstitem( "AUFNR" )
   Set AUFPOS = doc.Getfirstitem( "AUFPOS" )
   Set CLART = doc.Getfirstitem( "CLART" )
   Set CLID = doc.Getfirstitem( "CLID" )
   Set CPART = doc.Getfirstitem( "CPART" )
   Set CPBEZ = doc.Getfirstitem( "CPBEZ" )
   Set CPENDE = doc.Getfirstitem( "CPENDE" )

Und dann mit NotesItem.copyItemToDocument(newDoc, "neuerItemName") arbeiten (echt guter Tipp, wie ich finde, also in keinem Fall überlesen).

In der Praxis sähe das dann etwa so aus:

Code

NAME1.copyItemToDocument(newDoc, "NAME1")

Die Namen der Items für die zu kopierenden Dokumente in dem alten Dokument und dem neuen Dokument in je einem Array schreiben. Das gleiche mit den Item-Objekten selbst. Oder in 1 Array aus Structs (letzeres ist wohl besser). Das Struct hat dann 2 String-Member (feldNameNew und feldNameAlt sowie 1 NotesItem).
Das würd ich aber morgen machen.

Axel

[OCS]

Sorry, verpeilt! Es geht aber leider  so auch nicht. bekomme beim "Set CPOCSSB = New NotesItem" die Fehlermeldung : Missing Argument to constructor for Notesitem.

[Glombi]

Dann siehe doch bitte mal endlich in der Designer Hilfe nach !

Dort steht
Set notesItem = New NotesItem( notesDocument, name$, value  [, specialType% ] )

Parameters
notesDocument
The document on which to create the item.
name$
String. The name of the new item.
value
The value to assign to the new item. The data type of value determines the type of item that Notes creates:
   Data type of value   Resulting notesItem
   String   Text item containing the value (if specialType% is used, may be Names, Readers, or Authors)
   Array of String   Text item containing each element of the value (if specialType% is used, may be Names, Readers, or Authors)
   Long, Integer, Double, Single, or Currency   Number item containing the value
   Array of Long, Integer, Double, Single, or Currency   Number item containing each element of the value
   Variant of type DATE or NotesDateTime   Date-time item containing the value
   Array of Variant of type DATE or array of NotesDateTime   Date-time item containing each element of the value
   NotesItem   Item whose data type matches the NotesItem type and whose value(s) match the NotesItem value(s)
Type conversion occurs as necessary. For example, floating-point numeric items are double precision so a value of type Single is converted to Double prior to storage.
specialType%
Optional. Constant of type integer. Indicates if a text item should be of type Names, Readers, or Authors. Must be one of the following constants: NAMES, READERS, or AUTHORS. To use specialType%, the value parameter must be a string or array of strings.

Andreas

[Marinero Atlántico]

Code

set  CPOCSSB = new NotesItem (doc, "CPOCSSB", user)
[...]
Call newdoc.MakeResponse( doc )
   newdoc.Form = "aktion"
 NAME1.copyItemToDocument(newDoc, "NAME1")
[...] der ganze Rest so ähnlich. 
   
   Call newdoc.save (True, True)
   workspace.EditDocument True,newdoc
'Call newdoc.Save( False, False )
   'workspace.EditDocument True,newdoc
   
' wichtig. Vergisst man schnell:
   
End Sub

und das mit den Arrays ist ne gute Idee.
Und das mit den structs noch eine bessere.