Commit inicial Ventas Productivo

Compras/ValidaCFDi.aspx.vb

@@ -0,0 +1,25 @@
+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
+        LtlEfecto.Text = ObjCFDi.Efecto
+        LtlEstado.Text = ObjCFDi.Estado
+        LtlRespuestaHTML.Text = ObjCFDi.ResponseHTML
+        ObjCFDi.Dispose()
+    End Sub
+    
+End Class