Entradas Salidas Redireccionar al generar Prepoliza

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
@@ -3363,10 +3367,23 @@ Partial Class Inventarios_EntradasSalidas
 
         If ErrorMovInv = False Then
             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