From f9be89581e9f55257bc5e00b0b5d6efdc20264f9 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 7 Sep 2021 12:53:58 -0700
Subject: [PATCH] Correcion, estatus almacen al refacturar

---
 Ventas/Ventas.aspx.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9c6fbc075..4eb79c3ce 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8255,7 +8255,7 @@ Partial Class Ventas
                                 For Each Row As DataRow In DtMovDetalles.Rows
                                     Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
                                     Dim SaldoAlmacen As Decimal = Row("SaldoAlmacen").ToString().ToDecimal()
-                                    Cantidad += Cantidad
+                                    CantidadTotal += Cantidad
 
                                     If SaldoAlmacen < 0 AndAlso Cantidad = Math.Abs(SaldoAlmacen) Then
                                         TotalSalida += Math.Abs(SaldoAlmacen)
@@ -8266,7 +8266,7 @@ Partial Class Ventas
                                 Next
 
                                 'SI SE VERIFICA QUE TODO ESTA SURTIDO, SE MARCA TODA LA FACTURA
-                                If CantidadTotal = Total Then
+                                If CantidadTotal = TotalSalida Then
                                     If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
                                         ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura")
                                     End If
@@ -19962,6 +19962,9 @@ Partial Class Ventas
                         sb.Append("Está seguro de cancelar el documento para realizar la refacturación?.")
                     End If
                 Else
+                    If Not UsuarioActual.Empresa.FacturaProduccion Then
+                        script = "BtnRefacturacionConfirmar();"
+                    End If
                     sb.Append("<b>No encontrado</b> <br/>")
                 End If
             Else