From fcd51bd06e4c9c94f127a7dfab178007003704e6 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Mon, 16 Dec 2019 13:29:45 -0700
Subject: [PATCH] Entradas Salidas  Redireccionar al generar Prepoliza

---
 Inventarios/EntradasSalidas.aspx.vb | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 285af40ba..0282b33e1 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3270,6 +3270,9 @@ Partial Class Inventarios_EntradasSalidas
         Dim ValorInventario As Decimal = 0
         Dim ValorInventarioME As Decimal = 0
 
+        Dim CvePrePolizaRegistrada As Integer = -1
+
+
         ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
         Dim CveVenta As Integer = ObjInventario.CveVenta
         Dim MovAlmacen As Boolean = True
@@ -3287,6 +3290,7 @@ Partial Class Inventarios_EntradasSalidas
             If tmpCostos.Rows.Count > 0 Then
                 Dim Concepto As String = If(TxtObservaciones.Text = "", ConceptoPoliza, $" {TxtObservaciones.Text}")
                 Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                CvePrePolizaRegistrada = CvePrePoliza
 
                 If HdnCveOrdenCompra.Value.ToEntero > 0 Then
                     MovAlmacen = False
@@ -3362,11 +3366,24 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         If ErrorMovInv = False Then
-            ObjInventario.Commit()
+            ObjInventario.Commit()
+            ObjInventario.Dispose()
+            ObjConta.Dispose()
+
+            If CvePrePolizaRegistrada > 0 Then
+                Response.Redirect($"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaRegistrada}", True)
+            End If
+
+
+        Else
+
+
+            ObjInventario.Dispose()
+            ObjConta.Dispose()
+
         End If
 
-        ObjInventario.Dispose()
-        ObjConta.Dispose()
+
 
     End Sub