recopie Source secondaire dans principale

**garciaj** · 08/01/2008, 14h37

Bonjour à tous et toutes,

Je cherche à recopier en une seule fois une arborescence issue d'une source secondaire dans la source principale en vbscript. Je ne veux pas mettre à jour les données une à une car elles sont trop nombreuses.

J'ai bien veillé à ce que les noeuds soient nommés de la même façon mais je bloque dans la partie finale au moment du replaceChild car les namespaces sont différents entre source principale et secondaire. J'ai essayé de modifier les noeuds sélectionnés de la source secondaire avec un setproperty mais ça ne marche pas.

Comment faire ????

Merci d'avance

**virgul** · 15/01/2008, 10h49

Salut et bienvenue,

Si tu commencais par poster ton code ainsi que mettre tes deux fichiers XML en pièce jointe on vera surement ou se situe ton problème.

++

Thierry

**garciaj** · 22/01/2008, 08h41

Rebonjour,

Voici le code vbscript :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
XDocument.DOM.setProperty "SelectionNamespaces", "xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:my=""http://schemas.microsoft.com/office/infopath/2003/myXSD/2008-01-08T08:23:27"" xmlns:xd=""http://schemas.microsoft.com/office/infopath/2003"""
'</namespacesDefinition>
 
Public noeudImport
Public noeudExport
'=======
Sub CTRL_IMPORT_OnClick(eventObj)
'
	Dim tableauNoeudSelectionnes
	Dim noeudSelectionne
	Dim noeudARemplacer
	Dim qryImport
	Dim noeudTemp
'	
' recherche de la ligne courante de la source principale dans le tableau 
'		
	set tableauNoeudSelectionnes = XDocument.View.GetContextNodes()
	set noeudSelectionne = tableauNoeudSelectionnes(0)
'
' Recherche dans la source secondaire
'
	qryImport = noeudSelectionne.selectSingleNode("../my:cleImport").text
 
	chercheImport(qryImport)
'
	set noeudARemplacer = noeudSelectionne.selectSingleNode("./my:enreg")
	set noeudImport = XDocument.DOM.importNode(noeudExport,true)
	msgbox(noeudImport.xml)
	set noeudTemp = noeudSelectionne.replaceChild(noeudImport,noeudARemplacer)
'	
End Sub
'---------------------------------------------------------------------------------------
' On recherche dans la source secondaire le noeud correspondant au résultat de la liste de valeurs
'
sub chercheImport(qryImport)
 
	dim importTableau
	dim importCourant
 
	set importTableau = XDocument.DataObjects("import").DOM.selectNodes("grpImport/enreg")
 
	trouve = 0
	for each importCourant in importTableau
		if importCourant.selectSingleNode("./cle").text = qryImport then
			set noeudExport = importCourant
			trouve = 1
			exit for
		end if
	next
	if trouve = 0 then 
		msgbox("Import inconnu pour : " & qryImport)
	end if
 
end sub

Ca plante au niveau du replacechild du fait je pense d'une difference de namespace. Voici les sources xml :

Source principale :

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<?xml version="1.0" encoding="UTF-8"?><?mso-infoPathSolution solutionVersion="1.0.0.8" productVersion="11.0.8034" PIVersion="1.0.0.0" href="file:///C:\Documents%20and%20Settings\garciaj\Bureau\importNode\importNode.xsn" name="urn:schemas-microsoft-com:office:infopath:importNode:-myXSD-2008-01-08T08-23-27" ?><?mso-application progid="InfoPath.Document"?><my:employe xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:my="http://schemas.microsoft.com/office/infopath/2003/myXSD/2008-01-08T08:23:27" xmlns:xd="http://schemas.microsoft.com/office/infopath/2003" xml:lang="fr">
	<my:employeListe>
		<my:nom>dupont</my:nom>
		<my:prenom>gérard</my:prenom>
		<my:enreg>
			<my:cle></my:cle>
			<my:texte1></my:texte1>
			<my:texte2></my:texte2>
			<my:valeur1></my:valeur1>
			<my:valeur2></my:valeur2>
		</my:enreg>
	</my:employeListe>
	<my:cleImport></my:cleImport>
</my:employe>

Source secondaire :

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<grpImport>
	<enreg>
		<cle>111</cle>
		<texte1>AAAAAA</texte1>
		<texte2>BBBBBB</texte2>
		<Valeur1>10.00</Valeur1>
		<valeur2>20.00</valeur2>
	</enreg>
	<enreg>
		<cle>222</cle>
		<texte1>AAAAAA</texte1>
		<texte2>BBBBBB</texte2>
		<Valeur1>10.00</Valeur1>
		<valeur2>20.00</valeur2>
	</enreg>
	<enreg>
		<cle>333</cle>
		<texte1>AAAAAA</texte1>
		<texte2>BBBBBB</texte2>
		<Valeur1>10.00</Valeur1>
		<valeur2>20.00</valeur2>
	</enreg>
</grpImport>

Bien entendu, dans ce cas simple, on pourrait mettre à jour individuellement chaque valeur, mais mon cas réel est bien plus riche. Mon but est de renseigner de manière globale le noeud enreg de la source principale à partir du noeud enreg de la source secondaire sans mettre à jour chaque noeud.

**virgul** · 22/01/2008, 09h15

Salut,

C'est bien ce que je pensais...

tes namespaces ne sont pas les même donc 2 possibilités s'offre a toi:

La première et la moins perfomante c'est de faire un XSLT qui va t'ajouter tout le namespace my: dans ton XML et après tu pourras remplacé.

La seconde et la plus saine est d'enlever ton namespace my de ta source primaire (l'édition de ton schéma se fera via un éditeur XML et non plus dans l'UI d'infopath). Pour ca il te suffit de recréer ton schéma dans un éditeur XML sans le préfix my.
Dans Infopath sous le menu outils-> Convertir la source de données principale. Puis dans l'assistant séléctionne ton schéma que tu viens de créer.

Il te suffira de répéter la dernière explication pour mettre a jour ton schéma si d'aventure tu voulais le mettre à jour.

Et maintenant ton replacechild fonctionnera.

Attention n'oublie pas de faire une sauvegarde de ton formulaire avant cette manip car si tu oublie quelquechose tu sera bien content si tu peux revenir en arrière.

++

Thierry

**garciaj** · 24/01/2008, 16h11

Merci de ta réponse,

J'ai fait un test de conversion sur un nouveau formulaire dans lequel j'ai créé trois champ avec infopath.

Après avoir extrait les fichiers du formulaire, j'ai mis à jour le fichier myschema.xsd pour enlever le namespace my. Voila le résultat le fichier xsd :
(j'ai enlevé : xmlns:my="http://schemas.microsoft.com/office/infopath/2003/myXSD/2008-01-24T14:35:50")

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<xsd:schema targetNamespace="http://schemas.microsoft.com/office/infopath/2003/myXSD/2008-01-24T14:35:50" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
	<xsd:element name="testChangeNs">
		<xsd:complexType>
			<xsd:sequence>
				<xsd:element ref="my:cle" minOccurs="0"/>
				<xsd:element ref="my:libelle" minOccurs="0"/>
				<xsd:element ref="my:libelle2" minOccurs="0"/>
			</xsd:sequence>
			<xsd:anyAttribute processContents="lax" namespace="http://www.w3.org/XML/1998/namespace"/>
		</xsd:complexType>
	</xsd:element>
	<xsd:element name="cle" type="xsd:string"/>
	<xsd:element name="libelle" type="xsd:string"/>
	<xsd:element name="libelle2" type="xsd:string"/>
</xsd:schema>

Lorsque j'utilise conversion de la source de données principale avec ce fichier, j'ai le message d'erreur suivant :

Le schéma XML du formulaire n'est pas valide ou contient une structure non prise en charge par infopath
myschema.xsd#/schema/element[1][@name = 'testChangeNs']/complexType[1]/sequence[1]/element[1]Référence à un préfixe d'espace de noms non déclaré : 'my'.

**virgul** · 24/01/2008, 18h10

Je pensais que tu allais me répondre tout de suite et je t'aurais directement données plus de précisions sur ton choix...

En faite il faut aussi retirer le my: présent dans tous le xsd ainsi que l'attribut targetschema dans le noeud xsd:schema (targetNamespace="http://schemas.microsoft.com/office/infopath/2003/myXSD/2008-01-24T14:35:50").

voici dans ton cas le résultat (tu peux aussi très bien remplacer le xsd directement dans le repertoire au lieu d'utiliser l'assistant):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:element name="testChangeNs">
	<xsd:complexType>
		<xsd:sequence>
			<xsd:element ref="cle" minOccurs="0"/>
			<xsd:element ref="libelle" minOccurs="0"/>
			<xsd:element ref="libelle2" minOccurs="0"/>
		</xsd:sequence>
		<xsd:anyAttribute processContents="lax" namespace="http://www.w3.org/XML/1998/namespace"/>
	</xsd:complexType>
</xsd:element>
<xsd:element name="cle" type="xsd:string"/>
<xsd:element name="libelle" type="xsd:string"/>
<xsd:element name="libelle2" type="xsd:string"/>
</xsd:schema>

++

Thierry

**garciaj** · 25/01/2008, 14h20

Je te remercie de nouveau de ta réponse. En l'attendant, j'étais parti sur une piste semblable consistant à placer le préfixe my dans la source secondaire. J'ai un peu cafouillé car je ne suis pas spécialiste xml (notamment pour l'instruction setProperty "SelectionNamespaces" sur la source secondaire) et ça fonctionne ^^.

J'ai ajouté ces deux lignes à mon script dans la routine chercheImport et préfixé les objets concernés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
XDocument.DataObjects("import").DOM.setProperty "SelectionNamespaces", "xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:my=""http://schemas.microsoft.com/office/infopath/2003/myXSD/2008-01-08T08:23:27"" xmlns:xd=""http://schemas.microsoft.com/office/infopath/2003"""
 
	set importTableau = XDocument.DataObjects("import").DOM.selectNodes("my:grpImport/my:enreg")

J'ai aussi bien entendu modifié le xml de la source secondaire :

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
<?xml version="1.0" encoding="UTF-8"?>
<?mso-infoPathSolution solutionVersion="1.0.0.8" productVersion="11.0.8034" PIVersion="1.0.0.0" href="file:///C:\Documents%20and%20Settings\garciaj\Bureau\importNode\importNode.xsn" name="urn:schemas-microsoft-com:office:infopath:importNode:-myXSD-2008-01-08T08-23-27" ?>
<?mso-application progid="InfoPath.Document"?>
<my:grpImport xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:my="http://schemas.microsoft.com/office/infopath/2003/myXSD/2008-01-08T08:23:27" xmlns:xd="http://schemas.microsoft.com/office/infopath/2003" xml:lang="fr">
	<my:enreg>
		<my:cle>111</my:cle>
		<my:texte1>AAAAAA</my:texte1>
		<my:texte2>BBBBBB</my:texte2>
		<my:valeur1>10.00</my:valeur1>
		<my:valeur2>20.00</my:valeur2>
	</my:enreg>
	<my:enreg>
		<my:cle>222</my:cle>
		<my:texte1>AAAAAA</my:texte1>
		<my:texte2>BBBBBB</my:texte2>
		<my:valeur1>10.00</my:valeur1>
		<my:valeur2>20.00</my:valeur2>
	</my:enreg>
	<my:enreg>
		<my:cle>333</my:cle>
		<my:texte1>AAAAAA</my:texte1>
		<my:texte2>BBBBBB</my:texte2>
		<my:valeur1>10.00</my:valeur1>
		<my:valeur2>20.00</my:valeur2>
	</my:enreg>
</my:grpImport>

Du coup, le replaceChild fonctionne. Merci encore de tes conseils.

**virgul** · 25/01/2008, 14h49

Ok pas de souci ca marche aussi bien comme ca.

En addition à ton problème voici un article qui t'intéressera peut-être:

http://www.infopathdev.com/blogs/gre...ce-Prefix.aspx

++

Thierry

P.s. clique sur

si tu n'as plus de problème Merci

recopie Source secondaire dans principale

InfoPath .NET

Discussions similaires

Partager

Partager