26 lines
890 B
VB.net
26 lines
890 B
VB.net
Imports System.IO
|
|
Imports System.Net
|
|
Imports System.IO.Compression
|
|
Imports Extensiones
|
|
|
|
Partial Class Compras_ValidaCFDi
|
|
Inherits System.Web.UI.Page
|
|
|
|
Protected Sub BtnVerificar_Click(sender As Object, e As EventArgs) Handles BtnVerificar.Click
|
|
Dim ObjCFDi As New ClsValidaCFDi
|
|
ObjCFDi.Verificar(TxtFolioFiscal.Text, TxtEmisor.Text, TxtReceptor.Text)
|
|
LtlRValido.Text = ObjCFDi.EsValida.ToString
|
|
LtlEmisor.Text = ObjCFDi.Emisor
|
|
LtlReceptor.Text = ObjCFDi.Receptor
|
|
LtlFechaExp.Text = ObjCFDi.FechaEmision
|
|
LtlFechaCert.Text = ObjCFDi.FechaCertificacion
|
|
LtlPACCert.Text = ObjCFDi.RFCPAC
|
|
LtlTotal.Text = ObjCFDi.Monto.ToString
|
|
LtlEfecto.Text = ObjCFDi.Efecto
|
|
LtlEstado.Text = ObjCFDi.Estado
|
|
LtlRespuestaHTML.Text = ObjCFDi.ResponseHTML
|
|
ObjCFDi.Dispose()
|
|
End Sub
|
|
|
|
End Class
|