From 1e4ad593445bd157d160650bb6a06b52a319b193 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 29 Apr 2024 18:52:18 -0700
Subject: [PATCH] --Validaciones en devoluciones

---
 App_Code/ClsInventarios.vb         |  6 ++++--
 Inventarios/EntregaAlmacen.aspx.vb | 23 ++++++++++++++++++++---
 2 files changed, 24 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index d45f8afca..fa47212e6 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -78,6 +78,7 @@ Public Class ClsInventarios
     Public Property CveVenta As Integer
     Public Property TipoEstatus As Integer
     Public Property EsDevolucionVenta As Integer
+    Public Property CantidadVenta As Decimal
     Public Property CvePersonal As Integer
     Public Property NombreCompleto As String
     Public Property NombreCapturo As String
@@ -3576,8 +3577,9 @@ Public Class ClsInventarios
 
             If Data IsNot Nothing AndAlso Data.Rows.Count = 1 Then
                 Dim dr As DataRow = Data.Rows(0)
-                TipoEstatus = dr("TipoEstatus").ToString.ToEntero
-                EsDevolucionVenta = dr("EsVentaDevolucion").ToString.ToEntero
+                TipoEstatus = dr("TipoEstatus").ToString().ToEntero
+                EsDevolucionVenta = dr("EsVentaDevolucion").ToString().ToEntero
+                CantidadVenta = dr("CantidadVenta").ToString().ToDecimal()
                 Retorno = True
             End If
 
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index d1ff5c083..99e204bf0 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1967,7 +1967,7 @@ Partial Class Inventarios_EntregaAlmacen
         ValidaUsaConsola()
 
 
-
+        Dim CantidadVenta As Decimal = 0
         '' INICIA: VALIDACIONES 
 
         'Valida el estatus de la Venta, si es  = 5 O DevolucionVenta = 2, NO SE SURTE!
@@ -1975,6 +1975,7 @@ Partial Class Inventarios_EntregaAlmacen
         If ObjVentaInv.GetEstatusVentaPorSurtir(CveVentaSurtir) Then
             TipoEstatus = ObjVentaInv.TipoEstatus
             EsDevolucionVenta = ObjVentaInv.EsDevolucionVenta
+            CantidadVenta = ObjVentaInv.CantidadVenta
         End If
         ObjVentaInv.Dispose()
 
@@ -2166,7 +2167,9 @@ Partial Class Inventarios_EntregaAlmacen
             DtDatosVenta = ObjInventario.DtResultados
         End If
         Dim CantidadGV As Decimal = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
-        If CantidadGV > DtDatosVenta.SUMD("CantidadF") Then
+
+        'VERIFICA SI LA CANTIDADES NOT SON MAYORES A LO ESTABLECIDO EN LA VENTA O LO QUE FALTA POR RECIBIR
+        If CantidadGV > DtDatosVenta.SUMD("CantidadF") OrElse Cantidad > CantidadVenta Then
             ObjInventario.RollBack()
             ObjInventario.Dispose()
             ObjConta.Dispose()
@@ -2175,7 +2178,13 @@ Partial Class Inventarios_EntregaAlmacen
             '' identificar que productos no están completos.
             CargaVentaPorSurtir(CveVentaSurtir)
             CargaPendientes()
-            Alert("Ha sido cambiada la informacion de existencias de la venta actual, se han recargado la información.", TipoMensaje.MsgAdvertencia)
+
+            If Cantidad > CantidadVenta Then
+                Alert("No se puede procesar una cantidad mayor a la que esta definida en la venta.", TipoMensaje.MsgAdvertencia)
+            Else
+                Alert("Ha sido cambiada la informacion de existencias de la venta actual, se han recargado la información.", TipoMensaje.MsgAdvertencia)
+            End If
+
             Exit Sub
         End If
 
@@ -3290,6 +3299,14 @@ Partial Class Inventarios_EntregaAlmacen
             End If
         End If
 
+        'SI YA FUE DEVUELTO LA CANTIDAD COMPLETA DE LA DEVOLUCION,MARCAR PARA QUE NO APAREZCA
+        If Not ErrorMovInv AndAlso Cantidad.RoundSQL(6) = CantidadVenta.RoundSQL(6) AndAlso TipoDocto = "Dev" Then
+            If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveVentaSurtir) Then
+                TextoError.AppendFormat("Ocurrió un error al actualizar la devolucion.")
+                ErrorMovInv = True
+            End If
+        End If
+
         If Not ErrorMovInv Then
 
             ObjInventario.Commit()