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

option strict on

Browse Source
This commit is contained in:
rrene
2023-08-24 00:38:39 -07:00
parent 85d1bcd386
commit 4c6f8bbaef
15 changed files with 96 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Inventarios/RepAnomalias.aspx.vb
View File

@@ -80,7 +80,7 @@ Partial Class Inventarios_RepAnomalias
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
CveInventarioFisico = If(Request("CveInventarioFisico") IsNot Nothing AndAlso Request("CveInventarioFisico").ToEntero() > 0, Request("CveInventarioFisico").ToEntero(), -1).ToString
CveInventarioFisico = If(Request("CveInventarioFisico") IsNot Nothing AndAlso Request("CveInventarioFisico").ToEntero() > 0, Request("CveInventarioFisico").ToEntero(), -1)
EsAvance = If(Request("EsAvance") IsNot Nothing, CBool(Request("EsAvance").ToEntero), False)
If CveInventarioFisico > 0 Then
@@ -107,12 +107,12 @@ Partial Class Inventarios_RepAnomalias
GvF.Columns(3).Visible = True 'proveedor
GvS.Columns(3).Visible = True 'proveedor
GvC.Columns(3).Visible = True 'proveedor
GvF.Columns(17).Visible = UsuarioActual.Procesos(201) 'costo
GvS.Columns(17).Visible = UsuarioActual.Procesos(201) 'costo
GvC.Columns(17).Visible = UsuarioActual.Procesos(201) 'costo
GvF.Columns(17).Visible = UsuarioActual.TienePermisoProceso(201) 'costo
GvS.Columns(17).Visible = UsuarioActual.TienePermisoProceso(201) 'costo
GvC.Columns(17).Visible = UsuarioActual.TienePermisoProceso(201) 'costo
GvGrupos.Columns(1).Visible = True 'clasificación
GvGrupos.Columns(2).Visible = True 'proveedor
GvGrupos.Columns(17).Visible = UsuarioActual.Procesos(201) 'costo
GvGrupos.Columns(17).Visible = UsuarioActual.TienePermisoProceso(201) 'costo
End If
If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1, UsuarioActual.CveUsuario) Then
@@ -396,7 +396,7 @@ Partial Class Inventarios_RepAnomalias
If e.Row.Cells(7).Text = MinFecha.ToString Then
e.Row.Cells(7).Text = ""
End If
e.Row.FCLabel("Lblc").Text = e.Row.RowIndex + 1
e.Row.FCLabel("Lblc").Text = (e.Row.RowIndex + 1).ToString
End If
If e.Row.RowType = DataControlRowType.Header Then
If CreandoNuevoInventario Then
@@ -416,7 +416,7 @@ Partial Class Inventarios_RepAnomalias
If e.Row.Cells(7).Text = MinFecha.ToString Then
e.Row.Cells(7).Text = ""
End If
e.Row.FCLabel("Lblc").Text = e.Row.RowIndex + 1
e.Row.FCLabel("Lblc").Text = (e.Row.RowIndex + 1).ToString
End If
If e.Row.RowType = DataControlRowType.Header Then
If CreandoNuevoInventario Then