Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement WinDev XML sous windev

XML sous windev

9 réponses
Avatar
Portishead
J'utilise une procédure dans un service Web pour l'affichage d'une Table.

ma fonction me renvoie un contenue XML, comment faire pour l'intégrer dans
mon affichage Windev 7.5.

ou extist-il un autre moyen.


merci d'avance
portishead
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Roumegou Eric
Il se trouve que Portishead a formulé :
J'utilise une procédure dans un service Web pour l'affichage d'une Table.

ma fonction me renvoie un contenue XML, comment faire pour l'intégrer dans
mon affichage Windev 7.5.



lire le contenu xml en faisant une boucle de lecture et l'afficher dans
les contrôles que tu veux

ou extist-il un autre moyen.


merci d'avance
portishead



--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
Portishead
Oui c exactement ça !!!
comment doit-on faire ?

tu me sauverai la vie je galère !!
merci

"Roumegou Eric" a écrit dans le message de news:

Il se trouve que Portishead a formulé :
J'utilise une procédure dans un service Web pour l'affichage d'une Table.

ma fonction me renvoie un contenue XML, comment faire pour l'intégrer
dans mon affichage Windev 7.5.



lire le contenu xml en faisant une boucle de lecture et l'afficher dans
les contrôles que tu veux

ou extist-il un autre moyen.


merci d'avance
portishead



--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)



Avatar
dany
"Portishead" a écrit dans le message de news:
42c3ed32$0$20253$
Oui c exactement ça !!!
comment doit-on faire ?

tu me sauverai la vie je galère !!
merci

"Roumegou Eric" a écrit dans le message de news:

Il se trouve que Portishead a formulé :
J'utilise une procédure dans un service Web pour l'affichage d'une
Table.

ma fonction me renvoie un contenue XML, comment faire pour l'intégrer
dans mon affichage Windev 7.5.



lire le contenu xml en faisant une boucle de lecture et l'afficher dans
les contrôles que tu veux

ou extist-il un autre moyen.


merci d'avance
portishead



--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)







aide, index, xml ...
Avatar
Portishead
merci mais j'ai déja regarder ça ne pas apporter grand il n'y a pas
d'exemple pour tester
et vue que je débute avec windev j'aurais besoin d'un peu plus d'aide...

merci dany pour cette super réponse : /
su fu trés enrichissant : /
"dany" a écrit dans le message de news:
da0qqf$ckd$

"Portishead" a écrit dans le message de
news: 42c3ed32$0$20253$
Oui c exactement ça !!!
comment doit-on faire ?

tu me sauverai la vie je galère !!
merci

"Roumegou Eric" a écrit dans le message de news:

Il se trouve que Portishead a formulé :
J'utilise une procédure dans un service Web pour l'affichage d'une
Table.

ma fonction me renvoie un contenue XML, comment faire pour l'intégrer
dans mon affichage Windev 7.5.



lire le contenu xml en faisant une boucle de lecture et l'afficher dans
les contrôles que tu veux

ou extist-il un autre moyen.


merci d'avance
portishead



--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)







aide, index, xml ...



Avatar
Roumegou Eric
Portishead avait prétendu :
Oui c exactement ça !!!
comment doit-on faire ?

tu me sauverai la vie je galère !!
merci


Bon voici une proc ou je prépare une requete avec les accès
alternatifs, la passe à une de mes classes cGestionSql qui me retourne
le contenu de la requete sous forme xml. Puis je remplit une
Zonerépétée Webdev 7 avec ce contenu (ce serait la meme chose avec une
table)

PROCEDURE AfficheMessages()

xmlCh sont des chaînes
curTable est chaîne
docxml est une chaîne="DocXML"
Commande est une chaîne
NumCol est un entier
Orderdft est chaîne
sExped,wdate est une chaîne
lCurreq est un entier
n est un entier
Maxmsg est un entier

//Initiez le nb de msg maxi
Maxmsg

Orderdft="INTMAIL_EXP.MSG_DATETIME DESC" // Renseignez ici
l'ordre par dft ex MSG_ID DESC
curTable="INTMAIL_DEST"
monSQL:RAZ()
// A REMETTRE EN FN
//monsql:AddWhere("INTMAIL_DEST.PPL_ID="+gInterId+" AND DST_LULEA IS
NULL")
monSQL:AddWhere("INTMAIL_DEST.PPL_ID="+gInterId)
monSQL:SetSGBD(gBase)
monSQL:SetCurrentTable(curTable)
monSQL:SetModeSQL(1)
monSQL:AddSelect("INTMAIL_DEST","DST_ID") //Identifiant
message
monSQL:AddSelect("INTMAIL_DEST","MSG_ID") //Identifiant
message
monSQL:AddSelect("INTMAIL_EXP","MSG_SUJET")
monSQL:AddSelect("INTMAIL_EXP","MSG_NOMENCLAIR")
monSQL:AddSelect("INTMAIL_EXP","MSG_DATETIME")
monSQL:AddOrder(Orderdft)
//<SPEC>
monSQL:AddJoin("INTMAIL_DEST.MSG_ID=INTMAIL_EXP.MSG_ID","INNER")
//</SPEC>
xmlCh=Décrypte(monSQL:Requete2XML(),curTable)
// Initalisation de la zone répétée
ZoneRépétéeSupprimeTout(REPETEMSG)

XMLDocument(docxml, xmlCh) //Création du document XML
//Le document est bien au format XML ?
SI PAS ErreurDétectée ALORS
Résultat est une chaîne
i est un entier = 1
Résultat = XMLExtraitChaîne(xmlCh, "TUPLE", i)
TANTQUE Résultat <> "" ET i<=Maxmsg
ZoneRépétéeAjoute(REPETEMSG)
REPETEMSG = ZoneRépétéeOccurrence(REPETEMSG)

DST_ID=Val(XMLVersTexte(XMLExtraitChaîne(Résultat,"INTMAIL_DEST.DST_ID")))
MSG_ID=Val(XMLVersTexte(XMLExtraitChaîne(Résultat,"INTMAIL_DEST.MSG_ID")))
SUJET=XMLVersTexte(XMLExtraitChaîne(Résultat,"INTMAIL_EXP.MSG_SUJET"))
sExped=XMLVersTexte(XMLExtraitChaîne(Résultat,"INTMAIL_EXP.MSG_NOMENCLAIR"))
wdateÚteSGBD(XMLVersTexte(XMLExtraitChaîne(Résultat,"INTMAIL_EXP.MSG_DATETIME")),cFromSGBD,Vrai)
DATEMSGÚteVersChaine(Gauche(wdate,8))+"
"+Gauche(HeureVersChaine(Milieu(wdate,9)),5)
EXPEDLONG=sExped
EXPEDCOURT=Gauche(sExped,8)
i = i + 1
Résultat = XMLExtraitChaîne(xmlCh, "TUPLE", i)
FIN
i=1
n =Val(XMLExtraitChaîne(xmlCh, "NBLIG", i)) //nbre de msg


SINON
Erreur("Ce fichier n'est pas au format XML"+RC+errInfo)
FIN

XMLTermine(docxml)

// Nombre de messages en attente
gpNbMsg=n
SELON n
CAS 0
NBMSG="Vous n'avez pas de messages."
CAS 1
NBMSG="Vous avez un message."
AUTRES CAS
NBMSG="Vous avez "+n+" messages."
FIN

--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
dany
"Portishead" a écrit dans le message de news:
42c3ffcc$0$1235$
merci mais j'ai déja regarder ça ne pas apporter grand il n'y a pas
d'exemple pour tester
et vue que je débute avec windev j'aurais besoin d'un peu plus d'aide...

merci dany pour cette super réponse : /
su fu trés enrichissant : /
"dany" a écrit dans le message de news:
da0qqf$ckd$

"Portishead" a écrit dans le message de
news: 42c3ed32$0$20253$
Oui c exactement ça !!!
comment doit-on faire ?

tu me sauverai la vie je galère !!
merci

"Roumegou Eric" a écrit dans le message de
news:
Il se trouve que Portishead a formulé :
J'utilise une procédure dans un service Web pour l'affichage d'une
Table.

ma fonction me renvoie un contenue XML, comment faire pour l'intégrer
dans mon affichage Windev 7.5.



lire le contenu xml en faisant une boucle de lecture et l'afficher dans
les contrôles que tu veux

ou extist-il un autre moyen.


merci d'avance
portishead



--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)







aide, index, xml ...






je répète : aide, index, xml, document XML
L'exemple présenté est très explicite et les fonctions données te donnent
tout ce dont tu as besoin.
Si tu veux une aide plus précise, dis nous très exactement où tu bloques.

Dan
Avatar
Portishead
Bon j'ai utilisé la procédure dan l'aide comme tu me l'avais conseiller ,
mais dans l'exemple la procédure lit dans un fichier XML;
Dans mon cas la lecture se ferait a partir d'une procédure qui renvoie un
contenue XML.
est qu'il y a quelque chose qui doit changer ?

"dany" a écrit dans le message de news:
daat2h$9sj$

"Portishead" a écrit dans le message de
news: 42c3ffcc$0$1235$
merci mais j'ai déja regarder ça ne pas apporter grand il n'y a pas
d'exemple pour tester
et vue que je débute avec windev j'aurais besoin d'un peu plus d'aide...

merci dany pour cette super réponse : /
su fu trés enrichissant : /
"dany" a écrit dans le message de news:
da0qqf$ckd$

"Portishead" a écrit dans le message de
news: 42c3ed32$0$20253$
Oui c exactement ça !!!
comment doit-on faire ?

tu me sauverai la vie je galère !!
merci

"Roumegou Eric" a écrit dans le message de
news:
Il se trouve que Portishead a formulé :
J'utilise une procédure dans un service Web pour l'affichage d'une
Table.

ma fonction me renvoie un contenue XML, comment faire pour l'intégrer
dans mon affichage Windev 7.5.



lire le contenu xml en faisant une boucle de lecture et l'afficher
dans les contrôles que tu veux

ou extist-il un autre moyen.


merci d'avance
portishead



--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)







aide, index, xml ...






je répète : aide, index, xml, document XML
L'exemple présenté est très explicite et les fonctions données te donnent
tout ce dont tu as besoin.
Si tu veux une aide plus précise, dis nous très exactement où tu bloques.

Dan





Avatar
dany
"Portishead" a écrit dans le message de news:
42ccf554$0$20252$
Bon j'ai utilisé la procédure dan l'aide comme tu me l'avais conseiller ,
mais dans l'exemple la procédure lit dans un fichier XML;
Dans mon cas la lecture se ferait a partir d'une procédure qui renvoie un
contenue XML.
est qu'il y a quelque chose qui doit changer ?



Non ca ne change rien, dans l'aide on a :
//Récupération du contenu XML du fichier "commande.xml"
Source est une chaîne = fChargeTexte("commande.xml")
//Création du document XML
XMLDocument("CdeXML", Source)
SI ErreurDétectée ALORS
Erreur("Erreur lors de la création du document XML")
RETOUR
FIN

donc là au lieu du fChargeTexte("commande.xml")

tu auras ta procédure qui renvoie ton contenu xml sous la forme d'une
chaine.

L'important c'est la création du document XML pour pouvoir utiliser toutes
les fonctions.
Avatar
Portishead
FONCTION ExecSelectTable()

Commande est une chaîne
NumCol est un entier

aff_prod()

SourceXML est une chaîne
//Chargement du contenu XML
SourceXML = fChargeTexte(aff_prod())
XMLDocument("DocXML", aff_prod())

BOUCLE
//Création du document XML


//Le document est bien au format XML ?
SI ErreurDétectée ALORS
Erreur("Le document n'est pas au format XML")
//SINON
// Info("Le document a bien été créé et est prêt à être utilisé")
FIN
XMLRecherche("DocXML", "id_produit", XMLBalise+XMLSousElement)
SI XMLTrouve("DocXML") ALORS
idproduit est un entier = XMLDonnée("DocXML") //contient "CDR-1080"
XMLSuivant("DocXML")
FIN
XMLRecherche("DocXML", "ref_produit", XMLBalise+XMLSousElement)
SI XMLTrouve("DocXML") ALORS
refproduit est une chaîne = XMLDonnée("DocXML") //contient "CDR-1080"
XMLSuivant("DocXML")
FIN
XMLRecherche("DocXML", "designation_produit", XMLBalise+XMLSousElement)
SI XMLTrouve("DocXML") ALORS
designationproduit est une chaîne = XMLDonnée("DocXML") //contient
"CDR-1080"
XMLSuivant("DocXML")
FIN

//Fermeture du document


//Affichage des données
Info("Numéro de commande : " + idproduit, "refproduit : " + ...
refproduit, "desingation produit : " + designationproduit)

NumCol=0
NumCol++;
idproduit//SQLAffChamp("REQTABLE","id_produit",NumCol,SQLTypeColonne("produits","id_produit"))
NumCol++;
refproduit//SQLAffChamp("REQTABLE","ref_produit",NumCol,SQLTypeColonne("produits","ref_produit"))
NumCol++;
designationproduit//SQLAffChamp("REQTABLE","designation_produit",NumCol,SQLTypeColonne("produits","designation_produit"))


SI idproduit <> "" ALORS
XMLSuivant("DocXML")
SINON
XMLTermine("DocXML")
RETOUR
FIN
FIN



voici la fonction que j'utilise pour faire mon affichage dans mon tableau,
mais je bloque un peu.

1- Je n'arrive pas a choisir de condition de sortie de ma boucle valide au
début j'étais partie pour faire un teste tant que idproduit <> ""
mais visiblement ça ne marche pas;

2- Je ne c pas comment affecter dans les colones du tableau (j'ai pas bcp
d'exp en DEV Windev) un peu d'aide serait bien utile

3- J'aurais voulu savoir si pour aller à la valeur suivant dans mon fichier
XML, il fallait bien utilisé la command XMLsuivant.

4- Si d'autres erreurs vous sautent au yeux faite mois signe !!!





"dany" a écrit dans le message de news:
daat2h$9sj$

"Portishead" a écrit dans le message de
news: 42c3ffcc$0$1235$
merci mais j'ai déja regarder ça ne pas apporter grand il n'y a pas
d'exemple pour tester
et vue que je débute avec windev j'aurais besoin d'un peu plus d'aide...

merci dany pour cette super réponse : /
su fu trés enrichissant : /
"dany" a écrit dans le message de news:
da0qqf$ckd$

"Portishead" a écrit dans le message de
news: 42c3ed32$0$20253$
Oui c exactement ça !!!
comment doit-on faire ?

tu me sauverai la vie je galère !!
merci

"Roumegou Eric" a écrit dans le message de
news:
Il se trouve que Portishead a formulé :
J'utilise une procédure dans un service Web pour l'affichage d'une
Table.

ma fonction me renvoie un contenue XML, comment faire pour l'intégrer
dans mon affichage Windev 7.5.



lire le contenu xml en faisant une boucle de lecture et l'afficher
dans les contrôles que tu veux

ou extist-il un autre moyen.


merci d'avance
portishead



--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)







aide, index, xml ...






je répète : aide, index, xml, document XML
L'exemple présenté est très explicite et les fonctions données te donnent
tout ce dont tu as besoin.
Si tu veux une aide plus précise, dis nous très exactement où tu bloques.

Dan