Factura Electronica en VFP ayuda con XML

[HalconDivino]

Que tal colegas..

A continuación les presento el programa que desarrollé en VFP para generar la Factura electronica para el SAT Mexico

El programa
1 Toma los datos de la tabla de Facturas
2 Genero la cadena Original manualmente por así convenirme.
3 Genero el sello digital (con ayuda del componente ChilKat)
4 Genero el archivo Factura.Xml (OjO lo escribo como si fuera texto ..si funciona pero no es lo más profesional)

AYUDA ¡¡¡¡

Con el punto 4 ...Yo casí no conosco desarrollos en XML ¡¡¡ Denme una Mano !!!
Quiero Generar el Archivo XML en forma mas profesional con los componentes XMLde VFP

Me podrían pasar el codigo COMPLETO de como crean documentos en XML para la facturas, pedidos, remisiones ...No iimporta si esta en VB, C# ...por mi sería excelente si fuera en VFP ...Pero si no se puede no problema yo me encargo de traducirlo en VFP

Repito lo que quiero son ejemplos de programas COMPLETOS que generen documentos de facturas o de lo que sea para darme una idea.

Al final del Post esta un ejemplo del archivo XML que genera este programa.

De Antemano Gracias
Saludos
Halcón Divino

Link del programa Factura Electronica en VFP
http://www.megaupload.com/?d=DG6IKJEC


Ejemplo del Archivo de salida que genera el programa:

* <?xml version="1.0" encoding="utf-8"?>
* <Comprobante
* xmlns="http://www.sat.gob.mx/cfd/2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sat.gob.mx/cfd/2 http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd"
* version="2.0"
* serie="A"
* folio=" 25810"
* fecha="2010-06-24T16:00:00"
* noAprobacion="1"
* anoAprobacion="2009"
* formaDePago="Una sola exhibición"
* subTotal="4371.00"
* descuento="0.00"
* total="5070.36"
* tipoDeComprobante="ingreso"
* noCertificado="10001200000000022517"
* certificado="MIIDhDC...g=="*
* sello="pJshOP+AIxaewBg9ed+rfez2eWIhKiB+scaDU1sThYw fI1/mfG+DcOLlZXFAuQPPlfCecwSMztezCUYZYqBlxBLqu5A0XJYzU diRB9xm6WpnxgSIT+EoGlGfgAlhnxRsAUhOD9ubaDyHR0Uv0yC kmV0qMd+ZPH85Ji5mKc+ZtAk=">
* <Emisor
* nombre="Elit Grupo Comercial, S.A. de C.V."
* rfc="EGC980817DF3">
* <DomicilioFiscal
* calle="Benito Juarez Ote"
* codigoPostal="67100"
* colonia="Centro"
* estado="Nuevo Leon"
* localidad="Mexico"
* municipio="Cd. Guadalupe"
* noExterior="106"
* noInterior="1"
* pais="Mexico"
* />
* <ExpedidoEn
* calle="Benito Juarez Ote"
* codigoPostal="67100"
* colonia="Centro"
* estado="Nuevo Leon"
* localidad="Cd. Guadalupe"
* municipio="Cd. Guadalupe"
* noExterior="106"
* pais="Mexico"
* />
* </Emisor>
* <Receptor
* nombre="ENVASADORAS DE AGUAS EN MEXICO, S. DE R. L. DE C.V."
* rfc="EAM001231D51">
* <Domicilio
* calle="AVE. LA SILLA"
* codigoPostal="67190"
* colonia="PARQUE IND. LA SILLA"
* estado="NUEVO LEON"
* localidad="GUADALUPE"
* municipio="GUADALUPE"
* noExterior="7707"
* pais="Mexico"
* />
* </Receptor>
* <Conceptos>
* <Concepto
* cantidad="1.000"
* descripcion="ARCO PARA SEGUETA DE ALTA TENS"
* importe="176.00"
* unidad="PIEZA"
* valorUnitario="176.00"
* />
* <Concepto
* cantidad="1.000"
* descripcion="DOBLATUBO DE PALANCA 1/2"
* importe="1696.00"
* unidad="PIEZA"
* valorUnitario="1696.00"
* />
* <Concepto
* cantidad="1.000"
* descripcion="CAUTÍN DE ESTACIÓN PROFESIONAL DE 50 WATTS"
* importe="2499.00"
* unidad="PIEZA"
* valorUnitario="2499.00"
* />
* </Conceptos>
* <Impuestos>
* <Traslados>
* <Traslado
* impuesto="IVA"
* tasa="16.00"
* importe="699.36"/>
* </Traslados>
* </Impuestos>
* </Comprobante>