diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx
index 785ef1ff6..3c6546336 100644
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/Inventarios/TraspasoAlmacen.aspx
@@ -665,7 +665,7 @@
                                  <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="15%" />                                
                                 <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                     <ItemTemplate>
-                                          <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" Visible="false" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                          <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen"  AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
                                         
                                         </asp:DropDownList>
                                     </ItemTemplate>
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 09ed1a802..9ce5b10d3 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1482,8 +1482,8 @@ Partial Class Inventarios_TraspasoAlmacen
 
             GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
             GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("Lote") <> ""
-            GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad") <> ""
-            GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("Serie") <> ""
+            GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad").ToDate > MinFecha
+            GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0
             'Dt.Dispose()
         End If
 
@@ -1533,10 +1533,15 @@ Partial Class Inventarios_TraspasoAlmacen
             Else
                 e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
                 If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenRecepcion.SelectedValue.ToEntero > 0 Then
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero)
+
+                    Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.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
             End If