From cefe0093f967278f2075802684cddc7e9acbe6fd Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 23 Jul 2020 09:32:14 -0700
Subject: [PATCH] -- secciones recomendadas

---
 Inventarios/EntregaAlmacen.aspx.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 7ef8db2d1..1fda0e0ee 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -886,9 +886,13 @@ Partial Class Inventarios_EntregaAlmacen
             If CBool(e.Row.DBCampo("AplicaSeccion")) Then
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
                 If DdlAlmacen.SelectedValue.ToEntero > 0 Then
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
                     e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    If dtt.Rows.Count > 1 Then
+                        e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    End If
+                    dtt.Dispose()
                 End If
 
             Else