Sub Main()      

    Set mysuite = CreateObject( "MySuite.MySuiteCOM" )

    ' Los parametros son 1 .- Requestor 
    '                    2.- Pais, 
    '                    3.- RFC, 
    '                    4.- Nombre de usuario      
    '                    5.- Sucursal
    '                    6.- Url del web service, por defecto se utiliza el servidor de pruebas
    Call mysuite.nuevoComprobante("11611111-1111-1111-1111-111111111111", _
                                  "MX", _
                                  "AAA010101AAA", _
                                  "PUNTACIELO", _
                                  "PUNTACIELO", _
                                  "http://201.150.36.107/mx.com.fact.wsfront/FactWSFront.asmx")
              
    ' 0 = Factura            
    ' 1 = Nota de credito
    ' 2 = Nota de cargo
    ' 3 = Carta porte
    ' 4 = Recibos de honorarios
    ' 5 = Recibo de arrendamiento
    ' 6 = Recibo de pago de primas                                                             
    ' Los parametros son: 1.- Tipo de documento como se muestra en el listado anterior
    '                     2.- RFC del emisor
    '                     3.- Nombre o razon social del emisor
    '                     4.- Usuario 
    Call mysuite.identificacion(0, "AAA010101AAA", "PUNTA DEL CIELO, S.A. DE C.V", "PUNTACIELO")

    ' Los parametros son: 1.- Calle 
    '                     2.- Colonia
    '                     3.- MunicipioDelegacion
    '                     4.- Estado 
    '                     5.- Pais 
    '                     6.- CodigoPostal
    '                     7.- NumeroExterior 
    '                     8.- NumeroInterior 
    Call mysuite.DomicilioFiscalEmisor("PROGRESO", "TOLUCA", "MEXICO", "MEXICO", "50110", "207-B", "")

    ' Los parametros son: 1.- RFC
    '                     2.- Nombre o razon social
    '                     3.- Calle
    '                     4.- Codigo postal
    '                     5.- Colonia
    '                     6.- Estado
    '                     7.- Localidad
    '                     8.- Municipio / Delegacion
    '                     9.- Numero exterior
    '                    10.- Numero interior
    Call mysuite.datosReceptor("ROED720328665", "DANIEL OLIVER ROJAS ESCOBAR", _
                          "HIDALGO", "50180", _
                          "SANTA ANA", "MEXICO", "TOLUCA", "TOLUCA", "406", "")
 

    ' Los parametros son: 1.- Codigo del producto
    '                     2.- Cantidad
    '                     3.- Unidad de medida
    '                     4.- Descripcion
    '                     5.- Precio unitario
    '                     6.- Impuesto
    Call mysuite.nuevoConcepto("750145678", 5, "PIEZA", "JUGO DE NARANJA", 10, 16)
                              
    ' 101 = MXN = Pesos mexicanos
    ' Los parametros son: 1.- Numero de la moneda
    '                     2.- Tipo de cambio
    Call mysuite.calculaTotales(101, 1)

    ' Los parametros son: 1.- El archivo XML temporal que se va a generar
    Call mysuite.salvaComprobante("C:\Temp.xml")
                                                              
    ' Los parametros son: 1.- El archivo XML temporal que se va a generar
    '                     2.- El directorio donde se dejan los comprobantes el archivo XML y el PDF
    MyMessage mysuite.envioArchivoFactura("C:\Temp.xml", "C:\")                        
                                                                                                   
    ' Liberamos de la memoria el objeto
    Set mysuite = Nothing   

End Sub