- columna de folio relacionado

Inventarios/Kardex.aspx.vb

@@ -66,9 +66,9 @@ Partial Class Inventarios_Kardex
     Private Sub CargaPermisos()
         If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        GvM.Columns(13).Visible = TienePermisoImportes ' costo
-        GvM.Columns(14).Visible = TienePermisoImportes ' importe
-        GvM.Columns(16).Visible = TienePermisoImportes ' valor
+        GvM.Columns(14).Visible = TienePermisoImportes ' costo
+        GvM.Columns(15).Visible = TienePermisoImportes ' importe
+        GvM.Columns(17).Visible = TienePermisoImportes ' valor
     End Sub
 
     Private Function isWithFamily() As Boolean
@@ -87,7 +87,7 @@ Partial Class Inventarios_Kardex
         CBLTiposAlmacen.DataSource = GlobalDTTipoAlmacen(-1)
         CBLTiposAlmacen.DataBind()
         For Each item As ListItem In CBLTiposAlmacen.Items
-            If item.Text = "Entrega Adelantado" Then
+            If item.Text.Contiene("Entrega Adelantado", "Transitorio") Then
                 item.Selected = False
             Else
                 item.Selected = True
@@ -199,10 +199,10 @@ Partial Class Inventarios_Kardex
                 AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> ""
                 AplicaLote = DtTemp.MAX("Lote") <> ""
                 AplicaCaducidad = DtTemp.MAX("FechaCaducidad") <> ""
-                If AplicaSeccion Then GvM.Columns(7).Visible = True
-                If AplicaSerie Then GvM.Columns(8).Visible = True
-                If AplicaLote Then GvM.Columns(9).Visible = True
-                If AplicaCaducidad Then GvM.Columns(10).Visible = True
+                If AplicaSeccion Then GvM.Columns(8).Visible = True
+                If AplicaSerie Then GvM.Columns(9).Visible = True
+                If AplicaLote Then GvM.Columns(10).Visible = True
+                If AplicaCaducidad Then GvM.Columns(11).Visible = True
 
                 Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True"
                 LnkSeries.Visible = AuxAplicaSerie