Importer les données d'un formulaire vers un autre

[Baker]

Salut,Je voudrais migrer un formulaire X vers un nouveau formulaire Y, je veux selectionner dans une vue les formulaire à migrer et puis cliquer sur un bouton action pour migrer tous les formulaires vers le nouveau.Auriez-vous une petite idée sur le code LS!Pour l'instant j'ai fait :[ REM Migre vers la nouvelle fiche Sub Click(Source As Button) REM set variant Dim ws As New NotesUIWorkspace Dim askme As Integer Dim uidoc As NotesUIDocument REM Choose prompt askme = ws.Prompt (PROMPT_YESNO, _"Information", "Are you sure migrate "+COMPANYNAME+" into new form") REM If askme=1 then open select doc, save it and close it If askme = 1 Then Call ws.ComposeDocument( "", "", "my_new_Form" ) Call uidoc.Save <== J'ai une erreur ici Call uidoc.Close <== et là End IfEnd Sub]

[Ludo]

Moi je ferai un copi du formulaire x vers y puis supprime le ydim docCopy As notesdocumentdim doc As notesdocumentSet docCopy = New NotesDocument( db )Call doc.CopyAllItems( docCopy, True ).....Tu peux ajouter des champs.....docCopy.Toto = "Malade".....Call docCopy.Save( True, True )

[Droad]

"Documents sélectionnés dans une vue" implique "Créer un agent 'Migration'"En LS, ça donnerait (sans prompt):dim session as new NotesSessiondim db as NotesDatabasedim coll as NotesDocumentCollectiondim doc as NotesDocumentset db = session.CurrentDatabaseset coll = db.UnprocessedDocumentsset doc = coll.GetFirstDocument()while not doc is nothing doc.Form = "newform" call doc.Save(true, false) set doc = coll.getNextDocument(doc)wendEn formule:FIELD Form := "newform";En action simple:Add Action -> Modify Field ...Dans ton bouton tu appelles l'agent par @Command([ToolsRunMacro]; "Migration")Evidemment, s'il y a des champs nouveaux/modifés/supprimés, il faut un peu compliquer le schmilnblik.[%sig%]

[Baker]

C'est sympa je les test