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

se consideran los nuevos campos serie,lote y fecha caducidad en el inventario fisico

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-14 09:43:08 -07:00
parent 6ecd8e798c
commit 1bb39f45db
4 changed files with 30 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -103,7 +103,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
lbEstatus.Text = ObjInventario.Estatus
lbFechaF.Text = ObjInventario.FechaF
btnFin.Text = "Iniciar"
btnFin.Text = "<i style='color:#26a69a' class='fa fa-play'></i>Iniciar"
BtnGuardar.Enabled = False
btnFin.ToolTip = "Inicia el Inventario Físico"
Case "3" 'FINALIZADO
@@ -128,7 +128,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
lbFechaI.Text = ObjInventario.FechaI
lbFechaF.Text = ObjInventario.FechaF
BtnGuardar.Enabled = True
btnFin.Text = "Finalizar"
btnFin.Text = "<i class='fa fa-stop' style='color:#cb5a5e'></i>Finalizar"
LBAvance.Visible = UsuarioActual.TienePermisoProceso(178) ' si tiene permiso de ver el avance, se activa
End Select
GvIFD.Visible = False
@@ -293,16 +293,18 @@ Partial Class Inventarios_InventarioFisicoDetalle
Exit Sub
End If
Dim Consulto As Boolean = False
Using Inventarios As New ClsInventarios
If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario,
CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
GvIFDUltimoRegistrado.Columns(5).Visible = SerieLote <> "-1"
GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900"
If GvIFDUltimoRegistrado.Rows.Count > 0 Then
GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900"
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
@@ -390,7 +392,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
#Region " FINALIZAR "
Protected Sub btnFin_Click(sender As Object, e As EventArgs) Handles btnFin.Click
If btnFin.Text = "Iniciar" Then
If btnFin.Text.Contains("Iniciar") Then
Dim Inventarios As New ClsInventarios
Inventarios.UpdateInventarioFisicoEstatus(CveInventarioFisico, 1, UsuarioActual.CveEmpresa)
@@ -526,10 +528,12 @@ Partial Class Inventarios_InventarioFisicoDetalle
Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
divSeccionAlmacen.Visible = AplicaSeccion
divLote.Visible = AplicaLote
divFechaCaducidad.Visible = AplicaCaducidad
divSerie.Visible = AplicaSerie
UPAgregarPro.Update()
End Sub
End Class