diff --git a/Inventarios/RepExistenciasCostos.aspx b/Inventarios/RepExistenciasCostos.aspx index 482a26a1c..865f278ec 100644 --- a/Inventarios/RepExistenciasCostos.aspx +++ b/Inventarios/RepExistenciasCostos.aspx @@ -131,18 +131,16 @@ ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None"> - - + + - - - - - - - - + + + + + + diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb index 4a0690a7a..ad3a4570a 100644 --- a/Inventarios/RepExistenciasCostos.aspx.vb +++ b/Inventarios/RepExistenciasCostos.aspx.vb @@ -85,13 +85,9 @@ Partial Class Inventarios_RepExistenciasCostos Private Sub CargaPermisos() Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) GvM.Columns(6).Visible = TienePermisoImportes - - GvM.Columns(7).Visible = TienePermisoImportes - - GvM.Columns(9).Visible = TienePermisoImportes + GvM.Columns(8).Visible = TienePermisoImportes GvM.Columns(10).Visible = TienePermisoImportes - GvM.Columns(12).Visible = TienePermisoImportes End Sub Public Sub CargaCombos() @@ -130,7 +126,6 @@ Partial Class Inventarios_RepExistenciasCostos DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) DdlAlmacen.DataBind() DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) @@ -202,11 +197,8 @@ Partial Class Inventarios_RepExistenciasCostos Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201) e.Row.Cells(6).Visible = TienePermisoImportes - e.Row.Cells(7).Visible = TienePermisoImportes - e.Row.Cells(9).Visible = TienePermisoImportes + e.Row.Cells(8).Visible = TienePermisoImportes e.Row.Cells(10).Visible = TienePermisoImportes - e.Row.Cells(12).Visible = TienePermisoImportes - Select Case e.Row.DBCampo("Orden").ToEntero Case 10 @@ -224,8 +216,6 @@ Partial Class Inventarios_RepExistenciasCostos e.Row.Cells(8).Text = "" e.Row.Cells(9).Text = "" e.Row.Cells(10).Text = "" - e.Row.Cells(11).Text = "" - e.Row.Cells(12).Text = "" Case 15 If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto") @@ -240,8 +230,8 @@ Partial Class Inventarios_RepExistenciasCostos e.Row.Cells(1).Visible = False e.Row.Cells(2).Visible = False - e.Row.Cells(11).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####") - e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero + e.Row.Cells(9).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####") + e.Row.Cells(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero End Select