Commit inicial Ventas Productivo

ZDG/WhatsApp.aspx.vb

@@ -0,0 +1,26 @@
+Imports Extensiones
+Partial Class ZDG_WhatsApp
+    Inherits System.Web.UI.Page
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Request("p") IsNot Nothing AndAlso Request("p").ToString.Trim <> "" Then
+
+            Dim Par As String = Request("p").ToString.Trim
+            For Each Fol As String In Par.Split(","c)
+                Dim Folio As Integer = Fol.Trim.ToEntero
+
+                If Folio >= 20001 AndAlso Folio <= 45000 Then
+                    Dim ObjDG As New ClsDG
+                    If ObjDG.RegistrarVoto(Folio) Then
+                        Response.Write("1")
+                    End If
+                    ObjDG.Dispose()
+                End If
+            Next
+
+
+        End If
+
+    End Sub
+
+End Class