Ashx/SIGWeb.ashx

@@ -35,11 +35,33 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             context.Response.Close()
             context.Response.End()
         Else
-            context.Response.ContentType = "text/plain"
+            If context.Request("metodo").Contiene("Contabilizapoliza", "RevisaConexion") Then
+                context.Response.ContentType = "text/json"
+            Else
+                context.Response.ContentType = "text/plain"
+
+            End If
         End If
 
         Try
             Select Case context.Request("metodo")
+                Case "Contabilizapoliza"
+                    Dim CvePrePoliza As Integer = context.Request("CvePrePoliza").ToString().ToEntero()
+                    Dim CveUsuario As Integer = context.Request("CveUsuario").ToString().ToEntero()
+                    Dim CveEmpresa As Integer = context.Request("CveEmpresa").ToString().ToEntero()
+                    GuardaLog(String.Format("?metodo=Contabilizapoliza&CvePrePoliza={0}&CveUsuario={1}&CveEmpresa ={2}", CvePrePoliza, CveUsuario, CveEmpresa))
+                    ActualizaPrePoliza(context)
+                    Dim obj As New ADSNetLibrary.SIGAPI.Models.ResponseModel(Of Object)()
+                    obj.Result = DateTime.Now.ToString()
+                    Dim retorno = JsonConvert.SerializeObject(obj).ToString()
+                    context.Response.Write(retorno)
+                    context.Response.StatusCode = 200
+                Case "RevisaConexion"
+                    Dim obj As New ADSNetLibrary.SIGAPI.Models.ResponseModel(Of Object)()
+                    obj.Result = DateTime.Now.ToString()
+                    Dim retorno = JsonConvert.SerializeObject(obj).ToString()
+                    context.Response.Write(retorno)
+                    context.Response.StatusCode = 200
                 Case "getps"
                     GETPS(context)
                 Case "getps2"