From 07aca135316fb653a34926625fb1291fef470d3b Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 5 Mar 2024 14:34:55 -0700
Subject: [PATCH] Ferretera. Validacion de existencia, cambio de vigencia

---
 Inventarios/EntradasSalidas.aspx.vb | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 9823c5e99..c89c8e8a7 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -4398,7 +4398,7 @@ Partial Class Inventarios_EntradasSalidas
 
         If Valido Then
             Dim CveClasificacion As Integer
-            Dim CveUM As Double
+            Dim CveUM As Integer
             Dim CodigoPS As String = ""
             Dim PS As String = ""
 
@@ -4415,6 +4415,14 @@ Partial Class Inventarios_EntradasSalidas
                 PS = dr("PS").ToString.ToString
             End If
 
+            Dim CantidadExistencia = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenCambioVigencias.SelectedValue.ToEntero, CveSeccionAlmacen, Serie, Lote, Caducidad.ToDateTime())
+
+            If Cantidad > CantidadExistencia Then
+                Dim msg = $"El producto {PS} no tiene existencia. " + If(Serie.Length > 0, $"Serie: {Serie} ", "") + If(Lote.Length > 0, $"Lote: {Lote} ", "") + If(Caducidad.ToDateTime() > MinFecha, $"Caducidad: {Caducidad} ", "")
+                Alert(msg, TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
             Dim registro As DataRow = DtMovimientosCambioVigencias.NewRow
             registro.Item("Cantidad") = Cantidad
             registro.Item("CveUM") = CveUM