<%
' Ejemplo de uso de libfacturista desde ASP
' Una DLL o Componente para generar XML, sellar y timbrar el CFDI o factura electronica
' Ariel Medina - facturista.com

' libfacturista_com.dll es un ensamblado .net expuesto a COM y
' debe registrarse con regasm.exe /tlb /codebase libfacturista_com.dll

' Crear una carpeta C:\Inetpub\wwwroot\libfacturista\ y
' colocar los archivos de libfacturista ahi

' Configurar el IIS para ejecutar archivos .asp
' y asignar los permisos necesarios al usuario de IIS
' de modo que tenga acceso a los archivos de la DLL

' Debe contar con el framework 3.5+ de .net
'http://www.microsoft.com/es-es/download/details.aspx?id=21


Dim s, archivoFuente
Dim h
Dim libfacturista

Set libfacturista = CreateObject("libfacturista_com.utf16Api")


Response.Write "<pre><b>Ejemplo de uso de libfacturista desde ASP</b><p/>Una DLL o Componente para generar XML, sellar y timbrar el CFDI o facturia electronica</p>"

s = libfacturista.libfacturista_version()

Response.Write s

Response.Write "<p/>"

s = libfacturista.cfdi_estado_cuenta(0,1,"RFC=AAA010101AAA;Servidor=pruebas.ecodex.com.mx;Puerto=2044;TransaccionID=456")

Response.write s

Response.Write "<p/>"

archivoFuente = "C:\Inetpub\wwwroot\libfacturista\cfdi_ejemplo.xml"
h = 0

h = libfacturista.cfdi_xml_cargar(h,archivoFuente)

if h<> 0 then
	Response.Write "Archivo: " & archivoFuente & "<p/>"	

	s  = libfacturista.cfdi_xml_atributo(h,"cfdi:Comprobante/cfdi:Emisor","rfc")
	Response.Write "RFC emisor del CFDI: " & s
	
	Response.Write "<br/>"

	s  = libfacturista.cfdi_xml_atributo(h,"cfdi:Comprobante/cfdi:Receptor","rfc")
	Response.Write "RFC receptor del CFDI: " & s
else
	Response.Write "No se pudo cargar el xml de ejemplo: " & archivoFuente
end if

Response.Write "</pre>"

Set libfacturista = Nothing


%>