ValidaCFD

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