diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx
index 6d02158f6..f555b67ce 100644
--- a/Inventarios/RecepcionUsados.aspx
+++ b/Inventarios/RecepcionUsados.aspx
@@ -568,7 +568,7 @@
                                                 </div>
                                             </div>
                                             <div class="col-md-4">
-                                                <asp:Button ID="BtnCalcularImporteAjuste" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnCalcularImporteAjuste_Click" runat="server" Text="Recalcular" ValidationGroup="GrpAjuste" />
+                                                <asp:Button ID="BtnCalcularImporteAjuste" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnCalcularImporteAjuste_Click" runat="server" Text="Recalcular" />
                                                 <asp:Button ID="BtnAgregarProductoAjuste" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnAgregarProductoAjuste_Click" runat="server" Text="Agregar" ValidationGroup="GrpAjuste" />
                                             </div>
                                         </div>
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 968f80443..2c20baccc 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -3278,6 +3278,11 @@ Partial Class Inventarios_RecepcionUsados
         End If
     End Sub
     Protected Sub DdlMarcaPSAjuste_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe selecionar un almacen", TipoMensaje.MsgAdvertencia)
+            UpAjuste.Update()
+            Exit Sub
+        End If
         CargaPSAjuste(-1, DdlPSAjuste, CveMarca:=DdlMarcaPSAjuste.SelectedValue.ToEntero())
         UpAjuste.Update()
     End Sub
@@ -3290,7 +3295,7 @@ Partial Class Inventarios_RecepcionUsados
             Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
             Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         Else
-            Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}")
+            Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero()}")
 
             Objeto.Attributes.Add("data-cvesubproyecto", CveSubProyecto)
             'Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString)
@@ -3318,8 +3323,8 @@ Partial Class Inventarios_RecepcionUsados
         End If
 
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-        Dim DtDatos As New DataTable
+        Dim logouri = String.Format("{0}//{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            Dim DtDatos As New DataTable
 
         Dim params As New List(Of ReportParameter)