-- actualiza prepóliza contabilizada

-- recdpción entrega, con devolución cancelada

Ashx/SIGWeb.ashx

@@ -38,7 +38,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                 Case "getfraccionarancelaria"
                     GetFraccionArancelaria(context)
                 Case "GetUser"
-                    GetUser(context)
+                    GetUser(context)
+                Case "ActualizaPreP"
+                    ActualizaPrePoliza(context)
 
             End Select
         Catch ex As Exception
@@ -62,6 +64,39 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
         context.Response.Write(CveUsuario.ToString())
         context.Response.StatusCode = 200
+    End Sub
+
+    Private Sub ActualizaPrePoliza(ByVal context As HttpContext)
+        Dim CvePrePoliza As Integer = context.Request("CvePrePoliza").ToString.ToEntero
+        Dim CveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero
+        Dim CveUsuario As Integer = context.Request("CveUsuario").ToString.ToEntero
+        Dim Empresa As New Empresa
+        Dim ObjConta As New ClsContabilidad
+        Dim Retorno As Integer = 0
+
+        Dim ObjEmpresa As New ClsSisEmpresas()
+        If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
+            Empresa = ObjEmpresa.Empresa
+        End If
+        ObjEmpresa.Dispose()
+        Dim IdPoliza As Integer = -1
+
+        ObjConta.GetPrePoliza(CvePrePoliza, CveEmpresa)
+        IdPoliza = ObjConta.DtResultados.FiltroPrimeroValor("IdPoliza", "").ToEntero
+
+        If IdPoliza > 0 Then
+
+            ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
+            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, CveUsuario, Empresa, pIDPoliza:=IdPoliza) Then
+                Retorno = 200
+            End If
+        Else
+            Retorno = 200
+        End If
+        ObjConta.Dispose()
+
+        'context.Response.Write(CveUsuario.ToString())
+        context.Response.StatusCode = Retorno
     End Sub
 
     Private Sub GetImg(ByVal context As HttpContext)