--ajustes serie/folio

Inventarios/EntradasSalidas.aspx.vb

@@ -463,10 +463,6 @@ Partial Class Inventarios_EntradasSalidas
         End If
         DdlClasificacion.DataBind()
 
-        DdlSeccion.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-        DdlSeccion.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSeccion.DataBind()
-
         DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
         DdlSeccionAlmacen.DataBind()
 
@@ -825,7 +821,7 @@ Partial Class Inventarios_EntradasSalidas
 
             'cargar también los movimentos detalle
             If Mov.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                DdlSeccion.SelectedValueExist(Mov.CveSeccion.ToString)
+
                 DtMovimientos = Mov.DtResultados.FiltraParametros("", "CveMovimientoDetalle")
 
                 DtMovimientos.Columns("No").AutoIncrement = True
@@ -929,7 +925,6 @@ Partial Class Inventarios_EntradasSalidas
         TxtObservaciones.Enabled = True
         DdlMoneda.Enabled = True
         TxtGuia.Enabled = True
-        DdlSeccion.Enabled = True
 
         If CveMovimiento > 0 Then
             DdlAlmacen.Enabled = False
@@ -940,7 +935,7 @@ Partial Class Inventarios_EntradasSalidas
             TxtObservaciones.Enabled = False
             DdlMoneda.Enabled = False
             TxtGuia.Enabled = False
-            DdlSeccion.Enabled = False
+
         End If
         UppGrid.Update()
     End Sub
@@ -2233,10 +2228,10 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
-            GvM.Columns(9).Visible = DtTemp.MAX("Serie").ToString <> ""
-            GvM.Columns(10).Visible = DtTemp.MAX("Lote").ToString <> ""
-            GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToString <> ""
-            GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen").ToString <> ""
+            GvM.Columns(9).Visible = DtTemp.MAX("Serie") <> ""
+            GvM.Columns(10).Visible = DtTemp.MAX("Lote") <> ""
+            GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+            GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen") <> ""
 
         End If
 
@@ -4042,7 +4037,6 @@ Partial Class Inventarios_EntradasSalidas
         If TxtRemision.Visible Then TxtRemision.Enabled = True
         If DdlMoneda.Visible Then DdlMoneda.Enabled = True
         If TxtGuia.Visible Then TxtGuia.Enabled = True
-        If DdlSeccion.Visible Then DdlSeccion.Enabled = True
 
         If BtnEliminar.Visible Then BtnEliminar.Visible = False