ValidaCFD

Buenas tardes a todos,
Trabajo con Visual Foxpro 9 SP 2
En la elaboración de un cfdi de pago, tengo el siguiente código para recuperar el UUID
lcFolio = STREXTR(lcTimbrado, [UUID="], [" ])
y funciona muy bien, salvo si el pago a efectuar es de un cfdi realizado por sustitución.
En este caso solamente, el código anterior recupera el UUID que encuentra primero en el cfdi.
cfdi:CfdiRelacionado UUID="F1713AED-5506-4C0C-843F-6B60F69627E7"/>
y no el UUID del timbrado que se encuentra mas adelante
Alguien sabe como se podría corregir esto?
Gracias de antemano por la ayuda.

Saludos

Primero extrae el nodo del timbre
lcNodoTimbre = STREXTR(lcTimbrado, [<tfd:TimbreFiscalDigital], [/>])

luego extrae el UUDI
lcFolio = STREXTR(lcNodoTimbre, [UUID="], [" ])

Muchas gracias DADO por tu ayuda

Saludos