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 @@ -
+ -
-
Almacén
- -
-
Incluir Proyectados
@@ -311,6 +296,20 @@
+
+
Tránsito?
+ + + + + + +
+
+
Almacén
+ +
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")