-- 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)

Inventarios/RecepcionEntrega.aspx.vb

@@ -1894,7 +1894,7 @@ Partial Class Inventarios_RecepcionEntrega
             '' TERMINA: APARTADOS
 
             ' COMIENZA: GARANTIAS
-            If TipoDocto.Contiene("Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
+            If TipoDocto.Contiene("Rem") AndAlso UsuarioActual.CveEmpresa = 14000 AndAlso TipoMovimiento = 1 Then
 
                 Dim CveAlmacenGarantia As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
                 Dim DtGarantias As DataTable = Nothing
@@ -2080,10 +2080,11 @@ Partial Class Inventarios_RecepcionEntrega
 
                                 If TipoMovimiento = 1 Then
                                     ValorMultiplicador = 1
-                                ElseIf TipoMovimiento = 2 Then
-                                    ValorMultiplicador = -1
+                                    'debe de ir primero esta condición, porque la siguiente impide que llegue a esta
                                 ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) And (EsDevolucionVenta = 1) Then
                                     ValorMultiplicador = 1
+                                ElseIf TipoMovimiento = 2 Then
+                                    ValorMultiplicador = -1
                                 End If
 
                                 Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)