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

3
Inventarios/RepAnomalias.aspx.vb
View File

@@ -194,9 +194,10 @@ Partial Class Inventarios_RepAnomalias
e.Row.Cells(8).Text = "0" e.Row.Cells(8).Text = "0"
End If End If
If e.Row.Cells(7).Text = MinFecha Then If e.Row.Cells(7).Text = MinFecha.ToString Then
e.Row.Cells(7).Text = "" e.Row.Cells(7).Text = ""
End If End If
e.Row.FCLabel("Lblc").Text = e.Row.RowIndex + 1 e.Row.FCLabel("Lblc").Text = e.Row.RowIndex + 1
End If End If