Generacion de archivos para comprobantes fiscales digitales

Esta es la version casi casi final de la libreria, hubo algunos ajustes internos, otros solo de nomenclatura para estandarizar los metodos, pero basicamente asi quedaria el codido para la generacion de los archivos

Sub Main()
 
      'variables con la ubicacion de los archivos de certificado y llave privada
      Dim fCertificadoDigital As String = "D:\FE\aaa010101aaa_CSD_01.cer"
      Dim fLlavePrivada As String = "D:\FE\aaa010101aaa_CSD_01.key"
 
      'crea el motor de CFD
      Dim mf As New FacturacionElectronica.MotorCFD( _
      fCertificadoDigital, fLlavePrivada, "a0123456789", "D:\FE\MotorTest")
 
      'crea el comprobante fiscal
      Dim cfd As New FacturacionElectronica.Comprobante( _
      Now, "B", 1, 1, 2009, _
      FacturacionElectronica.ComprobanteTipoDeComprobante.ingreso, _
      "Pago en una sola exhibición", "Efectivo", 10, "Pago en efectivo")
 
      With cfd
 
          'declara el rfc del emisor, para la version demo usar: DEMO101010A1A
          Dim RFCEmisor As String = "DEMO101010A1A"
 
          'informacion del emisor
          .AgregaDatosEmisor(rfcemisor, "Industrias del Sur Poniente, S.A. de C.V.", _
                             "Alvaro Obregon", 37, 3, "Col. Roma Norte", _
                             95460, "Monterrey", _
                             "Nuevo Leon", "Nuevo Leon", "Mexico", "", True)
 
          'info del receptor
          .AgregaDatosReceptor("CAUR390312S87", "Rosa María Calderón Uriegas", _
                               "Topochico", 52, "", "Jardines del Valle", "64001", _
                               "Monterrey", "Nuevo Leon", "Nuevo Leon", "Mexico", "")
 
          'informacion de los conceptos
          .AgregaConcepto(2, "PZA", "", "COMPUTADORA GENERICA", 5000.0)
          .AgregaConcepto(1, "PZA", "ACERONE", "LAPTOP ACER", 7000)
 
          'informacion de los impuestos
          .AgregaImpuesto( _
           FacturacionElectronica.ComprobanteImpuestosTrasladoImpuesto.IVA, 16)
 
      End With
 
      'agrega el comprobante a la lista del motor
      mf.Comprobantes.Add(cfd)
 
      'crea un objeto para recibir el resultado de la generacion de archivos
      Dim resultado As FacturacionElectronica.ResultadoProceso = Nothing
 
      'dispara el proceso para la generacion de archivos
      resultado = mf.ProcesarComprobantes(True, False)
 
      Console.WriteLine("Se generaron los archivos para " & _
      resultado.ComprobantesGenerados.Count & " comprobante(s)")
        
      Console.ReadLine()
 
  End Sub

Comentarios?