pcsoft.fr.windevCopyright 2026, PC SOFT5 Apr 2019 04:39:44 Z7 Mar 2019 16:21:40 ZBonjour à tous, j'ai réalisé en WD23 un WebService SOAP (coté serveur) avec une méthode : PushDATA qui consiste à récupérer un Flux XML envoyé par mon Fournisseur, puis lecture du contenu avec une procédure PG_XML_IMPORT. problème rencontré : ---------------------- je ne récupère jamais son flux. il est toujours vide j'ai fait le test d'un WebService (coté client) avec une fenetre et un bout de code et ça fonctionne. j'ai fait un test avec l'utilitaire SOAP UI, ça ne fonctionne pas. je ne sais plus quoi faire. Auriez-vous une idée ? merci à vous LH ============================= PROCÉDURE PushData(sFluxXML est une chaîne) s_DOCXML est une chaîne="DOCXML" sFichierXML est une chaîne = "c:\temp\PushData_"+DateSys()+"_"+HeureSys()+".xml" sFluxEntrant est une chaîne = sFluxXML sFluxReponse est une chaîne bResFlux est un booléen = Faux fSauveTexte(sFichierXML,sFluxEntrant) bCustomerID = Faux QUAND EXCEPTION DANS //ouverture du document bResFlux = XMLDocument(s_DOCXML,sFluxEntrant) SI bResFlux = Faux ALORS PI_FluxReponse("200") //positionnement à la racine XMLRacine(s_DOCXML) //parcours du document PG_XML_IMPORT(s_DOCXML) //fin du document XMLTermine(s_DOCXML) PI_FluxReponse("OK") FAIRE bResFlux = Faux PI_FluxReponse("100") FIN RENVOYER sFluxReponse PROCÉDURE INTERNE PI_FluxReponse(sErreurCode) SI PAS bResFlux ALORS sFluxReponse=[ <success>false</success> <errorMessage>%1</errorMessage> ] sFluxReponse = ChaîneConstruit(sFluxReponse,sErreurCode) SINON sFluxReponse=[ <success>true</success> <errorMessage>%1</errorMessage> ] sFluxReponse = ChaîneConstruit(sFluxReponse,sErreurCode) FIN FIN ====================== PROCÉDURE PRIVÉE PG_XML_IMPORT(sDocXML, nNiveau=0) nPositionXML est un entier sElement est une chaîne bAttribut est un booléen bBalise est un booléen sData est une chaîne // Parcours de tous les éléments XMLPremier(sDocXML) TANTQUE PAS XMLEnDehors(sDocXML) // Récupère les données de l'élément sData = XMLDonnée(sDocXML) //Type d'élément bAttribut = Faux bBalise = Faux SELON XMLTypeElement(sDocXML) CAS XMLAttribut // Attribut affiché entre côtes sElement = XMLNomElément(sDocXML) bAttribut = Vrai CAS XMLBalise // Attribut affiché entre < et > sElement = XMLNomElément(sDocXML) bBalise = Vrai AUTRE CAS // dont CAS XMLErreur sElement = "Erreur XML" FIN // Il y a des données pour cet élément ? SI ChaîneFormate(sData, ccSansPonctuationNiEspace + ccSansEspace + ccSansAccent) = "" ALORS // Pas de données SINON // OK données SELON sElement CAS "groupName" goXmlImport <- allouer un cXmlImport goXmlImport.PL_Statut_Changer(StAjouter) goXmlImport:m_GroupName = sData CAS "key" goXmlImport:m_Key = sData CAS "value" goXmlImport:m_Value = sData goXmlImport.PL_Data_Enregistrer(goErreur) //CAS "customerID" // bCustomerID = vrai //si GetGUIDid(sData) = "ACTIF" alors bCustomerID = vrai AUTRE CAS FIN FIN // Il y a des balises ou des attributs pour cet élément ? SI XMLFilsExiste(sDocXML, XMLBalise + XMLAttribut) = Vrai ALORS // Sauve la position actuelle nPositionXML = XMLSauvePosition(sDocXML) // Se positionne sur le fils XMLFils(sDocXML) // Parcourt le fils PG_XML_IMPORT(sDocXML, nNiveau+1) // Se repositionne comme avant le positionnement sur le fils XMLRetourPosition(sDocXML, nPositionXML, XMLRPDéfaut) FIN // Suite du XML XMLSuivant(sDocXML) FIN -- LH30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/224532-wd23-webservice-soap-recuperation-xml/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)