Para todos aquellos que les pudiera servir este pequeño código, yo lo probe en VFP8 y VFP9:
lcTimbrado= FILETOSTR("D:\Datos\prueba_xml.xml")
lcFolio = STREXTR(lcTimbrado, [UUID="], [" ])
lcFechaTimbrado = STREXTR(lcTimbrado, [FechaTimbrado="], [" ])
lcSelloCFD = STREXTR(lcTimbrado, [selloCFD="], [" ])
lcCertificadoSAT=STREXTR(lcTimbrado, [noCertificadoSAT="], [" ])
lcSelloSAT= STREXTR(lcTimbrado, [selloSAT="], [" ])
ACTIVATE SCREEN
?'folio: '+ lcFolio
?'Fecha timbre: '+ lcFechaTimbrado
?'SelloCFD : '+ lcSelloCFD
?'certificado sat: ' +lcCertificadoSAT
?'SelloSAT : '+ lcSelloSAT
Saludos
DESCARGA SOFTWARE PARA FACTURA ELECTRONICA DE AQUI.
Facturacion, Validacion, Addendas, Librerias de programacion, etc.
CARTA PORTE V3.1
ECODEX TIENE ESTOS NUEVOS DATOS DE CONTACTO :
Comercializacion y Ventas - Evelia Vicke evicke@ecodex.com.mx 33-16-03-03-48
Soporte - Humberto Guerrero soporte@ecodex.com.mx 33-34-90-46-03
.