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

retirando cambios en el inventario fisico

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-12-12 17:45:05 -07:00
parent a47f03c57e
commit 388b7fbb27
2 changed files with 32 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -328,37 +328,37 @@ Partial Class Inventarios_InventarioFisicoDetalle
End If
FechaCaducidad = If(TxtFechaCaducidad.Text.Length > 0, TxtFechaCaducidad.Text, MinFecha.ToString)
End If
If AplicaSeccion Then
Dim ObjInv As New ClsInventarios
Dim SeccionesAlmacenDelProducto As New DataTable
If ObjInv.GetProductosServiciosAlmacenSeccion(CveProducto, -1, -1, UsuarioActual.CveEmpresa) Then
SeccionesAlmacenDelProducto = ObjInv.DtResultados.FiltraParametros(String.Format("CveAlmacen IN ({0})", CveAlmacenes))
End If
'Dim SeccionesAlmacenDelProducto As DataTable = (UsuarioActual.CveEmpresa, -1, CveProducto) '.FiltraParametros(String.Format("CveAlmacen IN ({0})", CveAlmacenes))
'Alert(SeccionesAlmacenDelProducto.Rows.Count.ToString)
If SeccionesAlmacenDelProducto.Rows.Count = 1 Then
CveSeccionAlmacen = SeccionesAlmacenDelProducto.FiltroPrimeroValor("CveSeccionAlmacen")
Else
divSeccion.Visible = AplicaSeccion
If DdlSeccionAlmacen.Items.Count = 0 Then
DdlSeccionAlmacen.DataSource = SeccionesAlmacenDelProducto
DdlSeccionAlmacen.DataBind()
DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
'If AplicaSeccion Then
' Dim ObjInv As New ClsInventarios
' Dim SeccionesAlmacenDelProducto As New DataTable
' If ObjInv.GetProductosServiciosAlmacenSeccion(CveProducto, -1, -1, UsuarioActual.CveEmpresa) Then
' SeccionesAlmacenDelProducto = ObjInv.DtResultados.FiltraParametros(String.Format("CveAlmacen IN ({0})", CveAlmacenes))
' End If
' 'Dim SeccionesAlmacenDelProducto As DataTable = (UsuarioActual.CveEmpresa, -1, CveProducto) '.FiltraParametros(String.Format("CveAlmacen IN ({0})", CveAlmacenes))
' 'Alert(SeccionesAlmacenDelProducto.Rows.Count.ToString)
' If SeccionesAlmacenDelProducto.Rows.Count = 1 Then
' CveSeccionAlmacen = SeccionesAlmacenDelProducto.FiltroPrimeroValor("CveSeccionAlmacen")
' Else
' divSeccion.Visible = AplicaSeccion
' If DdlSeccionAlmacen.Items.Count = 0 Then
' DdlSeccionAlmacen.DataSource = SeccionesAlmacenDelProducto
' DdlSeccionAlmacen.DataBind()
' DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
' End If
If DdlSeccionAlmacen.SelectedValue = "-1" Then
RfvSeccionAlmacen.Enabled = True
RfvSeccionAlmacen.Visible = True
RfvSeccionAlmacen.SetFocusOnError = True
RfvSeccionAlmacen.Validate()
RfvSeccionAlmacen.ValidationGroup = " "
Exit Sub
End If
CveSeccionAlmacen = DdlSeccionAlmacen.SelectedValue.ToEntero
End If
ObjInv.Dispose()
SeccionAlmacen = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("SeccionAlmacen", String.Format("CveSeccionAlmacen = {0}", CveSeccionAlmacen))
End If
' If DdlSeccionAlmacen.SelectedValue = "-1" Then
' RfvSeccionAlmacen.Enabled = True
' RfvSeccionAlmacen.Visible = True
' RfvSeccionAlmacen.SetFocusOnError = True
' RfvSeccionAlmacen.Validate()
' RfvSeccionAlmacen.ValidationGroup = " "
' Exit Sub
' End If
' CveSeccionAlmacen = DdlSeccionAlmacen.SelectedValue.ToEntero
' End If
' ObjInv.Dispose()
' SeccionAlmacen = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("SeccionAlmacen", String.Format("CveSeccionAlmacen = {0}", CveSeccionAlmacen))
'End If
RFVSerie.ValidationGroup = "GrpIngresar"
RFVSerie.Enabled = False

3
Inventarios/RepAnomalias.aspx.vb
View File

@@ -194,9 +194,10 @@ Partial Class Inventarios_RepAnomalias
e.Row.Cells(8).Text = "0"
End If
If e.Row.Cells(7).Text = MinFecha Then
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
End If