Validar Almacen garantia

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