ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: importer um fichier XML   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

sam. 01 octobre 2022, 09h55
Jean =c3=a0 Grenoble
atoutfox.public.association

Re: importer um fichier XML

Bonjour Luis,

tu devrais utiliser les syntaxes 'modernes' de VFP. D'une part cela va
simplifier le code d'autre part il devrait y avoir une amélioration de la
vitesse d'execution.
je te donne un exemple :

[vfp]
LOCAL mbi AS object
*!* Etiquetas
Create Cursor mbicursor(ref c(18), Design c(60), qtt N(10,3), edebito N(10,3), ;
debito N(10,3), desconto N(10,2), desc2 N(10,2) ,desc3 N(10,2),desc4 N(10,2), ;
desc5 N(10,2), desc6 N(10,2), tabiva N(4,2) , ttdeb N(10,3), ettdeb N(10,3), ;
stns L, Lote c(30), usalote L, Lordem N(20,0), partes N(10,2) , cativo L , ;
stipo N(2,0) , armazem N(5,0), lobs c(10), litem c(20), dedata c(10), ;
atedata c(10)) &&
SCATTER BLANK NAME mbi
mbi.ref = m.OROOT.selectNodes("Documento/Linhas/referencia").Item(0).Text
mbi.Design = m.OROOT.selectNodes("Documento/Linhas/descricao").Item(0).Text
mbi.qtt = m.OROOT.selectNodes("Documento/Linhas/quantidade").Item(0).Text
mbi.lobs =
Alltrim(m.OROOT.selectNodes("Documento/Linhas/lineordernumber").Item(0).Text)
.....
For Each ONODE As 'MSXML2.IXMLDOMNode' In M.ONODELIST
....
mbi.qtt = Val(m.qttetiqueta)
....
mbi.dedata =
Dtoc(m.OROOT.selectNodes("Documento/Linhas/Etiquetas/datarequeridainicial").Item(0).Text)
mbi.desconto = 0.00
....
INSERT INTO mbicursor FROM NAME mbi && c'est simple et rapide !!
...
Endfor

[\vfp]

Bon courage !
Jean à Grenoble

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000020025
20 087 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3