Imports ServiceReference1
Imports ServiceReference2
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim cliente As New ServiceReference1.ReceptorClient
    Dim comprobantes() As ComprobanteValorElectronico
    Dim c As New ComprobanteValorElectronico
    Dim acuse As New Acuse
    Protected Sub ASPxButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ASPxButton1.Click
        cliente.ClientCredentials.UserName.UserName = "CXX1111169M5"
        cliente.ClientCredentials.UserName.Password = "wUDoo7g0ffPmRB+mfyfiMEbMxRTXjXrOb1Jv6IKvxChLZaFyBf/pjMQLw5lk0YsP"

        c.tipoIdentificador = 1
        c.rfcConsulta = "KAAAR6606"
        c.correoElectronico = "correo@gmail.com"
        ReDim comprobantes(0)
        comprobantes(0) = c


        Try
            acuse = cliente.RecibirCove(comprobantes)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class