diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 43c8ba7ca..94fae70d0 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -261,15 +261,6 @@
-
-
Tránsito?
-
-
-
-
-
-
-
@@ -282,7 +273,7 @@
-
+
Unidad de medida
@@ -296,12 +287,6 @@
-
-
Incluir Proyectados
@@ -311,6 +296,20 @@
+
+
Tránsito?
+
+
+
+
+
+
+
+
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 39b1117ca..f543c7a54 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -184,7 +184,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
dt = ObjMovimientos.DtResultados
Dim ListaBorrar As New List(Of DataColumn)
- If Not TienePermisoImportes AndAlso DdlExistencia.SelectedValue.ToEntero = 2 Then
+ If Not TienePermisoImportes AndAlso DdlExistencia.SelectedValue.ToEntero().Contiene(2, 4) Then
dt.Columns.RemoveAt(dt.Columns.Count - 2) 'CP-quito columna de importe total
dt.Columns.RemoveAt(dt.Columns.Count - 2) 'Valor-quito columna de importe total
End If
@@ -247,17 +247,21 @@ Partial Class Inventarios_KardexAlmacenHorizontal
'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga
- If e.Row.RowIndex = 0 Then
+ If e.Row.RowIndex = 0 AndAlso DdlExistencia.SelectedValue.ToEntero().Contiene(2, 4) Then
e.Row.CssClass = "Totales"
End If
-
'e.Row.Attributes.Add("style", " max-height:31px!important")
- e.Row.HorizontalAlign = HorizontalAlign.Right
- e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
- e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
- e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
+ If DdlExistencia.SelectedValue.ToEntero = 3 Then
+ e.Row.HorizontalAlign = HorizontalAlign.Left
+ Else
+ e.Row.HorizontalAlign = HorizontalAlign.Right
+ e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
+ e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+ e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
+ End If
+
Dim Index As Integer = 0
For Each Cells As TableCell In e.Row.Cells
@@ -315,17 +319,15 @@ Partial Class Inventarios_KardexAlmacenHorizontal
'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
' e.Row.Cells(0).Width = New Unit("200px")
-
- If DdlExistencia.SelectedValue.ToEntero = 2 Then
+ If DdlExistencia.SelectedValue.ToEntero.Contiene(2, 3, 4) Then
Try
+ If DdlExistencia.SelectedValue.ToEntero = 3 Then
+ e.Row.Cells(1).Visible = False
+ End If
e.Row.Cells(2).Visible = False
e.Row.Cells(3).Visible = False
Catch ex As Exception
-
End Try
-
- Else
- e.Row.Cells(0).Visible = False
End If
If e.Row.RowType = DataControlRowType.Header Then
@@ -334,7 +336,6 @@ Partial Class Inventarios_KardexAlmacenHorizontal
End Sub
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-
Imprimir("Excel")
End Sub
Private Sub Imprimir(Optional reporte As String = "PDF")