From 9a1fc3543034dabd233ef00a5e9a17cdb0355e1b Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 23 Jul 2020 11:14:21 -0700
Subject: [PATCH 1/2] filtro de usuarios, solo los activos

---
 Inventarios/InventarioFisicoDetalle.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index 4cc513ac3..a1678237c 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -57,7 +57,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
 
 #Region "  USUARIOS  "
     Private Sub CargaUsuarios()
-        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre")
         ddlUsuario.DataBind()
         UPPInventario.Update()
         ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString
@@ -206,7 +206,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
             lbFechaI.Text = ObjInventario.FechaI
             lbFechaF.Text = ObjInventario.FechaF
 
-            Alert("Ocurrió un error al obterner el inventario fisico")
+            Alert("Ocurrió un error al obterner el inventario fisico", TipoMensaje.MsgError)
         End If
 
         ObjInventario.Dispose()

From 080af0b7cb170f9f1bda4f691b1bb70762eff8f9 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 23 Jul 2020 11:14:31 -0700
Subject: [PATCH 2/2] secciones de almacen

---
 Inventarios/TraspasoAlmacen.aspx    |  2 +-
 Inventarios/TraspasoAlmacen.aspx.vb | 15 ++++++++++-----
 2 files changed, 11 insertions(+), 6 deletions(-)

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