diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 57e1c6d3b..59dacbbf0 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4426,10 +4426,14 @@ Partial Class Ventas
         If CveVenta > 0 Then
             DivAlmacen.Visible = False
         Else
+            Dim DTAlmacen As DataTable
             ddlAlmacen.Items.Clear()
-            ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}")
-            ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-            ddlAlmacen.SelectedValue = "-1"
+            DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}")
+            ddlAlmacen.DataSource = DTAlmacen
+            If DTAlmacen Is Nothing Or DTAlmacen.Rows.Count = 0 Then
+                ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+                ddlAlmacen.SelectedValue = "-1"
+            End If
             ddlAlmacen.DataBind()
             If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}").Rows.Count > 0 Then
                 ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)