Création d'un document en LS

[clementbp]

Bonjour,

J'ai un truc tout bête je pense mais qui me pose problème.

J'ai placé dans un action un code qui me permet de récupérer les valeurs du document ouvert pour pré remplir-un nouveau document.

Le problème est que je ne sais pas comment faire pour lui dire de laisser le nouveau document ouvert à l'écran une fois que mon action se soit terminée completement.

J'espère avoir été suffisament claire.

Le code suivant récupère dans une variable la valeur du champ "client" du document courant, recréé un nouveau doc avec le masque "mDemandeCotation" et remet dans le champ "client" la valeur de la variable.
La ligne correspondant à l'enregistrement me servais que pour le test et elle n'a pas lieu d'être.

Merci de votre aide


'Défini les variables permettant de travailler dans le document qui est ouvert
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument

'Récupère les valeurs des champs
Dim ValeurChampClient As String
ValeurChampClient = uidoc.FieldGetText( "Client" )

'Créé un nouveau document Demande de cotation
Dim Session As New NotesSession
Dim db As NotesDatabase
Set db = Session.currentdatabase
Set NouveauDoc = New NotesDocument ( db )
NouveauDoc.Form="mDemandeCotation"
NouveauDoc.Client=ValeurChampClient

'Sauvegarde le document
Call NouveauDoc.Save ( False, True )

[Michael DELIQUE]

salut

tu veux afficher le nouveau document a l'écran

NotesUIWorkSpace.editedocument

[Bidouille]

Salut

Un truc comme cela ?
Je fait la copie des champs à partir d'un doc selectionné dans une vue


Sub Click(Source As Button)

'DECLARATIONS
'Pour la récupération du document sélectionné
Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim SelectedDocUID As String
Dim SelectedDoc As NotesDocument

'Pour la création du nouveau document
Dim uiWks As New NotesUIWorkspace
Dim uiNewDoc As NotesUIDocument

'DOCUMENT ACTUELLEMENT SELECTIONNE
SelectedDocUID = Session.GetEnvironmentString("dddSelectedDocUID")

If SelectedDocUID = "" Then
Msgbox "Sélectionnez d'abord un document."
Exit Sub

Else
Set Db = Session.CurrentDatabase
Set SelectedDoc = Db.GetDocumentByUNID(SelectedDocUID)
End If

'NOUVEAU DOCUMENT AVEC VALEURS PAR DEFAUT
Set uiNewDoc = UIWks.ComposeDocument(,,"Principal")

With uiNewDoc.Document

'Récupération des valeurs des champs à copier .Champ1 = SelectedDoc.Champ1(0)
.Champ2 = SelectedDoc.Champ2(0)
.Champ3 = SelectedDoc.Champ3(0)

etc etc .......


End With


End Sub

[Michael DELIQUE]

dites les enfants, vous pourriez mettre votre code entre les balises [ Code ] [ /code ]

histoire que ça soit plus lisible ?

[Bidouille]

oui chef ,-)

[roubech]

suite (et fin ?) du post -> http://forum.dominoarea.org/creer-un-do ... 26966.html