Discussion :

[franckdev_dba]

Bonjour à tous, Je suis à la recherche d'une solution qui me permettrai de générer un fichier xml par programmation avec WinDev.
En effet il y a un programme (PHP) existant génère un XML avec une certaine présentation qui exploitée par d'autre service.
Je souhaite générer le fichier XML avec mon programme WinDev qui respectera la même présentation.
En fichier Joint le model xml généré par PHP nommé modelall.xml que je souhaite représenter avec mon programme WinDev.

J'ai écris ce code avec WinDev

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
sNBreligne est une chaîne = TableOccurrence(TABLE_ListeDemande)
	////
	MonXml est une chaîne = "xmltest"
	XMLDocument(MonXml, "")
 
	XMLAjouteFils(MonXml,"Datapreparation","",Vrai)
	XMLAjouteAttribut(MonXml, "LcName","String")
	XMLAjouteAttribut(MonXml, "MCESTransform","@SCP60_SNEDAI.xsl")
	XMLAjouteFils(MonXml,"Job","",Vrai)
	XMLAjouteAttribut(MonXml, "Name",TABLE_ListeABJ.COL_Lot +"_"+DateDuJour()+"_"+HeureSys())
	XMLAjouteAttribut(MonXml, "OutputMagazineQuantity",sNBreligne)
 
      XMLAjouteFils(MonXml, "Cards","",Vrai)
 
	POUR i = 1_À_ Val(sNBreligne)
 
		XMLAjouteFils(MonXml, "Card","",Vrai)
		attribut_card est une chaîne = i
		XMLAjouteAttribut(MonXml, "name",attribut_card)
		XMLAjouteFils(MonXml, "DataFields","",Vrai)
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Id[i])
		XMLAjouteAttribut(MonXml, "name", "ID")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Id[i]+"P.JPG")
		XMLAjouteAttribut(MonXml, "name", "DISPLAYED_PORTRAIT")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_NumBF[i])
		XMLAjouteAttribut(MonXml, "name", "IMMATRICULATION_NUMBER")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Nom[i])
		XMLAjouteAttribut(MonXml, "name", "LAST_NAME")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Prenoms[i])
		XMLAjouteAttribut(MonXml, "name", "FIRST_NAME")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Genre[i])
		XMLAjouteAttribut(MonXml, "name", "GENDER")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_datenais[i])
		XMLAjouteAttribut(MonXml, "name", "DATE_OF_BIRTH")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_LeiuNaiss[i])
		XMLAjouteAttribut(MonXml, "name", "PLACE_OF_BIRTH")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_profession[i])
		XMLAjouteAttribut(MonXml, "name", "JOB")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_DateDemande[i])
		XMLAjouteAttribut(MonXml, "name", "ISSUE_DATE")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_dateValidite[i])
		XMLAjouteAttribut(MonXml, "name", "VALIDITY_DATE")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_ConsulatEtab[i])
		XMLAjouteAttribut(MonXml, "name", "PLACE_OF_ISSUE")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_commue[i])
		XMLAjouteAttribut(MonXml, "name", "PLACE_OF_DELIVERY")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Id[i]+"S.JPG")
		XMLAjouteAttribut(MonXml, "name", "DISPLAYED_SIGNATURE")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Lieuresid_Act[i])
		XMLAjouteAttribut(MonXml, "name", "PLACE_OF_RESIDENCE")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_AdressePers[i])
		XMLAjouteAttribut(MonXml, "name", "ADR_TEL")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_NomPere[i])
		XMLAjouteAttribut(MonXml, "name", "NAME_FATHER")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_NomMere[i])
		XMLAjouteAttribut(MonXml, "name", "NAME_MOTHER")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_PersoneAcontacter[i])
		XMLAjouteAttribut(MonXml, "name", "CONTACT_PERSON")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_ContactPersonne[i])
		XMLAjouteAttribut(MonXml, "name", "TEL_CONTACT_PERSON")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Taille[i])
		XMLAjouteAttribut(MonXml, "name", "SIZE")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Groupsang[i])
		XMLAjouteAttribut(MonXml, "name", "BLOOD_GROUP")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_ddn_pere[i])
		XMLAjouteAttribut(MonXml, "name", "DATE_OF_BIRTH_FATHER")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_ddn_Mere[i])
		XMLAjouteAttribut(MonXml, "name", "DATE_OF_BIRTH_MOTHER")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_ConsulatEtab[i]+".JPG")
		XMLAjouteAttribut(MonXml, "name", "AUTHORITY_SIGNATURE")
		XMLAjouteFils(MonXml, "DataField",TABLE_ListeDemande.COL_Id[i]+"_2D.JPG")
		XMLAjouteAttribut(MonXml, "name", "CODEBARRE")
	XMLParent(MonXml)
		XMLAjouteFils(MonXml,"DocumentNumber",TABLE_ListeDemande.COL_numserie[i])
	FIN
 
	sInfoXML  est une chaîne = XMLConstruitChaîne(MonXml,XMLMiseEnForme)
 
	XMLTermine(MonXml) 
	fSauveTexte(ComplèteRep(fRepExe()) + "model.xml",sInfoXML)

Mais le fichier XmL généré ne respect pas la même présentation que celui du modèle PHP Joint.
Vous trouverai joint également le modèle que je génère avec WinDev qui nommé test.xml
mon problème est comment insérer les différents attributs dans les Balises DataField, afin que mon fichier xml généré soit identique à celui du php.