From bfe0bb489743a5b30a9aea1b446e6bdea08c1b28 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 7 Jul 2021 18:52:18 -0700
Subject: [PATCH] Validar Almacen garantia

---
 Inventarios/RecepcionUsados.aspx.vb | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 8af463766..089a21c47 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2774,6 +2774,11 @@ Partial Class Inventarios_RecepcionUsados
             HdnPSAjusteMarca.Value = CveMarca.ToString()
             HdnPSAjusteClasificacion.Value = CveClasificacion.ToString()
 
+            If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe seleccionar un almacen de tipo garantía", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
             Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
 
             If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es  10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
@@ -2951,6 +2956,12 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
     Private Sub CalculaPorcentajeAjuste()
         Try
+
+            If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe seleccionar un almacen de tipo garantía", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
             If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" Then
                 Dim CveMarca As Integer = -1