AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambios en columnas

Browse Source
This commit is contained in:
rrene
2022-01-27 23:34:34 -07:00
parent 1ba698f099
commit 9410d1687b
2 changed files with 12 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Inventarios/RepExistenciasCostos.aspx.vb
View File

@@ -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