passage d'un champ d'un masque dans un autre masque

Forum destiné aux questions sur le développement : Formules, LotusScript, Java ...

passage d'un champ d'un masque dans un autre masque

Messagepar guyader » 03 Sep 2010 à 14:11

bonjour,

débutant en LS

j'ai stocké le nom du directeur dans un masque de configuration et je voudrais récupéré ce nom dans un autre masque lorsque la personne valide sa demande pour préparer la signature ...
début de code, mais je ne sais pas comment la récupérer la valeur dans
mon document concerné !! MERCI
Dim cfdrh As NotesDocument
Set cfdrh=curdb.Getprofiledocument("CFDRH")
Dim directeur As NotesItem
Dim pre_directeur As NotesItem
Set directeur=cfdrh.Getfirstitem("nom_directeur_drh")
guyader
Maître-posteur
Maître-posteur
 
Message(s) : 489
Inscrit(e) le : 18 Juil 2005 à 15:30
Localisation : saint-nazaire (LA)

Messagepar Michael DELIQUE » 03 Sep 2010 à 14:51

salut

si tu veux juste récupérer le nom du directeur stocké dans ton document profil
Code : Tout sélectionner
Dim cfdrh As NotesDocument
Set cfdrh=curdb.Getprofiledocument("CFDRH")
Dim directeur As string
Dim pre_directeur As NotesItem
directeur=cfdrh.getitemvalue("nom_directeur_drh")(0)
msgbox directeur
Cordialement

Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Avatar de l’utilisateur
Michael DELIQUE
Administrateur
Administrateur
 
Message(s) : 12183
Inscrit(e) le : 16 Déc 2004 à 10:36
Localisation : Paris/Cergy

Messagepar guyader » 03 Sep 2010 à 14:59

merci
mais pour passer cette valeur dans un autre doc...
faut-il utiliser la 1ère ligne ci-après ou la seconde !!!
sans doute ni l'une , ni 'l'autre !!

doc.nom_directeur=directeur
ou
Call doc.Replaceitemvalue("nom_directeur", directeur.Values)
guyader
Maître-posteur
Maître-posteur
 
Message(s) : 489
Inscrit(e) le : 18 Juil 2005 à 15:30
Localisation : saint-nazaire (LA)

Messagepar Michael DELIQUE » 03 Sep 2010 à 15:07

pas besoin de passer par un objet item

Dim cfdrh As NotesDocument
Set cfdrh=curdb.Getprofiledocument("CFDRH")
Dim directeur As string
Dim pre_directeur As NotesItem
directeur=cfdrh.getitemvalue("nom_directeur_drh")(0)


doc.nom_directeur=directeur
ou
Call doc.Replaceitemvalue("nom_directeur", directeur)

les 2 manieres sont bonnes
Cordialement

Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Avatar de l’utilisateur
Michael DELIQUE
Administrateur
Administrateur
 
Message(s) : 12183
Inscrit(e) le : 16 Déc 2004 à 10:36
Localisation : Paris/Cergy

Messagepar LSong » 08 Sep 2010 à 10:01

tu peu aussi faire comme ca


Dim cfdrh As NotesDocument
Set cfdrh=curdb.Getprofiledocument("CFDRH")
directeur=cfdrh.nom_directeur_drh(0)
LSong
Posteur expérimenté
Posteur expérimenté
 
Message(s) : 353
Inscrit(e) le : 07 Nov 2007 à 14:27
Localisation : Ile de france


Retour vers Développement

cron