Neues Dokument erstellen (LScript)

[Don Pasquale]

Hallo Leute,

ich möchte ein Dokument einer bestimmten Maske erstellen.
Aber irgendwas muss ich vergessen haben, denn es wird kein Dokument erstellt.

Jemand eine Idee ?

Ciao

Don Pasquale

Dim db As NotesDatabase
   
Dim NeuesDokument As NotesDocument
Set NeuesDokument=db.createdocument
NeuesDokument.Form="e4frm_Haupt"
NeuesDokument.e4fld_Indexiert="True"
Set NeuesDokument.e4ihk_DokumentDatum = New NotesDateTime( "Heute" )
Set NeuesDokument.e4ihk_ScanDatum = New NotesDateTime( "Heute" )
NeuesDokument.e4fld_Identnummer= key
NeuesDokument.e4fld_DOC_ID =  subString2$
NeuesDokument.e4fld_Initiator = session.CommonUserName      
NeuesDokument.EXTENDED_ATTR2 = "Posteingang"
NeuesDokument.Indexiert ="True"
NeuesDokument.e4ihk_Status = STATUS_DOKUMENT_ZUSAMMENFASSEN
               
      
Call NeuesDokument.Save( True, True )

[klaussal]

... set db  

[Don Pasquale]

@Klaussal

Das neue Dokument wird erstellt, aber die Felder kann ich nicht
füllen. Die bleiben alle leer.
Ich habe es bereits mit

Item.ReplaceItemValue("FELD",WERT)
proviert.

Ciao

Don Pasquale

[Performance]

vielleicht liegt es an deinen Feldern  
- probiere immer stepbystep mit einem einzigen Feld dann speichern usw...


cu

[forrest g]

hast du das auch drin oder ist dein codeauszug nicht vollständig?

dim session as new notessession
set db = session.currentdatabase

[ata]

... ich kann nur sehen, daß die db nicht initialisiert ist...

ata

[klaussal]

... der schläft heute ...

sein problem von gestern ....
hat der 99 baustellen auf einmal ?

[Don Pasquale]

Hi,

Ich vermute mal, das die Feldermit der bisherigen Methode nicht angelegt werden. Wen ich die Sache über Item anspreche,
dann werden die Felder auch wenn sie bisher nicht existieren
gefüllt, bzw. vorher angelegt.

Meine Lösung :


Set NewDoc = db.createdocument
Set item = Newdoc.AppendItemValue( "e4ihk_DOC_ID",DOC_ID )
Call NewDoc.Save(True,True)


Ciao

Don Pasquale

[Axel]

Hi

kannst es auch mal so versuchen:

Dim db As NotesDatabase  
Dim NeuesDokument As NotesDocument
Dim session As New NotesSession

Set db = session.CurrentDatabase
Set NeuesDokument=db.createdocument
NeuesDokument.Form="e4frm_Haupt"
Call NeuesDokument.ComputeWithForm(True, False)
...

Axel

[Don Pasquale]

@Axel,

ich weiss nichtwieso, aber bei mir klappt es nur so:

Dim db As NotesDatabase  
Dim NewDoc As NotesDocument
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set NewDoc=db.createdocument

Set NewDoc = db.createdocument
Set item = Newdoc.AppendItemValue( "Form","e4frm_Haupt" )
Set item = Newdoc.AppendItemValue( "e4ihk_DOC_ID",DOC_ID )
Call NewDoc.ComputeWithForm(True, False)

Call NewDoc.Save(True,True)


ciao

Don Pasquale

[Axel]

Hi Don,

ist ok. Hauptsache ist das es bei dir funktioniert.

Axel

[Don Pasquale]

So ist es.
 

Ciao

Don Pasquale