From 0eb9ed6245d55e01a1f9b8c12fe5a00ae7f696da Mon Sep 17 00:00:00 2001 From: Hector Javier Rodriguez Flores Date: Sun, 26 Sep 2021 20:44:23 -0700 Subject: [PATCH] --- App_Code/ClsInventarios.vb | 4 ++ Inventarios/InventarioFisico.aspx.vb | 1 + Inventarios/InventarioFisicoDetalle.aspx.vb | 2 +- Inventarios/RepAnomalias.aspx.vb | 69 +++++++++++++++++++-- 4 files changed, 69 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index c256e98fe..24652914e 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -131,6 +131,8 @@ Public Class ClsInventarios Public Property ResponsableCarga As String Public Property ResponsableRecibio As String Public Property Modulo As String + Public Property ConAplicacion As Boolean + @@ -2306,6 +2308,8 @@ Public Class ClsInventarios FechaI = dr("FechaInicio").ToString FechaF = dr("FechaFin").ToString Estatus = dr("Estatus").ToString + ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString) + Retorno = True End If diff --git a/Inventarios/InventarioFisico.aspx.vb b/Inventarios/InventarioFisico.aspx.vb index 4bab376ac..cffe5140e 100644 --- a/Inventarios/InventarioFisico.aspx.vb +++ b/Inventarios/InventarioFisico.aspx.vb @@ -507,6 +507,7 @@ Partial Class Inventarios_InventarioFisico FechaFin = GvRow.DataKey("FechaFin").ToEntero DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) chkUsarApp.Checked = Convert.ToBoolean(GvRow.DataKey("ConAplicacion").ToString) + divUsuarios.Visible = chkUsarApp.Checked CargaGvAlmacen() CargaGvClasificacion() CargaGvProductosServicios() diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index 8070583a5..3f3695a07 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/Inventarios/InventarioFisicoDetalle.aspx.vb @@ -161,7 +161,7 @@ Partial Class Inventarios_InventarioFisicoDetalle End If str.Clear() - CveAlmacenes = CveAlmacenesStr.ToString.Substring(0, CveAlmacenesStr.Length - 1) + CveAlmacenes = CveAlmacenesStr.ToString.Substring(0, CveAlmacenesStr.Length) End If If ObjInventario.GetInventarioFisicoDetallesClasificacion(CveInventarioFisico, UsuarioActual.CveEmpresa) Then diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 12a19714f..029b42eb0 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -41,6 +41,24 @@ Partial Class Inventarios_RepAnomalias End Set End Property + Public Property aplicacion As Boolean + Get + Return CType(ViewState("aplicacion"), Boolean) + End Get + Set(value As Boolean) + ViewState("aplicacion") = value + End Set + End Property + + Public Property CreandoNuevoInventario As Boolean + Get + Return CType(ViewState("CreandoNuevoInventario"), Boolean) + End Get + Set(value As Boolean) + ViewState("CreandoNuevoInventario") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -51,6 +69,7 @@ Partial Class Inventarios_RepAnomalias If CveInventarioFisico > 0 Then CargaDatos(CveInventarioFisico) + CreandoNuevoInventario = False End If End If @@ -72,7 +91,7 @@ Partial Class Inventarios_RepAnomalias lbFechaI.Text = Inventario.FechaI lbFechaF.Text = Inventario.FechaF CveSubProyecto = Inventario.CveSubProyectoInventario - + aplicacion = Inventario.ConAplicacion If Inventario.Estatus = "Finalizado" Then btnFin.Visible = False End If @@ -254,7 +273,7 @@ Partial Class Inventarios_RepAnomalias #End Region - Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvF.RowDataBound, GvS.RowDataBound + Protected Sub GVF_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvF.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("Costo") = "-1" Then e.Row.Cells(8).Text = "0" @@ -264,6 +283,29 @@ Partial Class Inventarios_RepAnomalias End If e.Row.FCLabel("Lblc").Text = e.Row.RowIndex + 1 End If + If e.Row.RowType = DataControlRowType.Header Then + If CreandoNuevoInventario Then + e.Row.FCCheckBox("ChkAllFaltante").Attributes.Add("onclick", "SeleccionarTodosFaltante(this);") + End If + End If + End Sub + + + Protected Sub GVS_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvS.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("Costo") = "-1" Then + e.Row.Cells(8).Text = "0" + End If + 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 + If e.Row.RowType = DataControlRowType.Header Then + If CreandoNuevoInventario Then + e.Row.FCCheckBox("ChkAllSobrante").Attributes.Add("onclick", "SeleccionarTodosSobrante(this);") + End If + End If End Sub #Region " IMPRIMIR " @@ -353,14 +395,14 @@ Partial Class Inventarios_RepAnomalias GvF.Columns(0).Visible = True LnkGuardar.Visible = True LnkCrear.Visible = False - GvF.HeaderRow.FCCheckBox("ChkAllFaltante").Attributes.Add("onclick", "SeleccionarTodosFaltante(this);") + CreandoNuevoInventario = True End If If GvS.Rows.Count > 0 Then GvS.Columns(0).Visible = True LnkGuardar.Visible = True LnkCrear.Visible = False - GvS.HeaderRow.FCCheckBox("ChkAllSobrante").Attributes.Add("onclick", "SeleccionarTodosSobrante(this);") + CreandoNuevoInventario = True End If UPAnomalias.Update() UpdateGvS.Update() @@ -374,13 +416,15 @@ Partial Class Inventarios_RepAnomalias Dim ErrorClasif As Boolean = False Dim ObjInventario As New ClsInventarios Dim CveInventarioFisicoNew As Integer - Dim DtAlmacen, DtClasificacion, DtClasificacionExcluida, DtProveedor As DataTable + Dim DtAlmacen, DtClasificacion, DtClasificacionExcluida, DtProveedor, DtUsuario As DataTable DtAlmacen = Nothing DtClasificacion = Nothing DtClasificacionExcluida = Nothing DtProveedor = Nothing + DtUsuario = Nothing + ObjInventario.IniciaTransacSQL() - If ObjInventario.AddInventarioFisico(UsuarioActual.CveEmpresa, TxtTitulo.Text, lbObservaciones.Text, 0, CveSubProyecto) Then + If ObjInventario.AddInventarioFisico(UsuarioActual.CveEmpresa, TxtTitulo.Text, lbObservaciones.Text, 0, CveSubProyecto, aplicacion) Then CveInventarioFisicoNew = ObjInventario.CveInventarioFisico If ObjInventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then @@ -396,6 +440,18 @@ Partial Class Inventarios_RepAnomalias DtProveedor = ObjInventario.DtResultados.FiltraParametros("Incluye = 1") End If + If ObjInventario.GetInventarioFisicoDetallesUsuarios(CveInventarioFisico, UsuarioActual.CveEmpresa) Then + DtUsuario = ObjInventario.DtResultados.FiltraParametros("Incluye = 1") + End If + + + For Each Gvr As DataRow In DtUsuario.Rows + If Not ObjInventario.AddInventarioFisicoUsuarios(CveInventarioFisicoNew, Gvr("CveUsuario").ToString.ToEntero, Convert.ToBoolean(Gvr("Incluye").ToString), Convert.ToBoolean(Gvr("Cerrado").ToString), Convert.ToBoolean(Gvr("Bloqueado").ToString)) Then + ErrorClasif = True + Exit For + End If + Next + For Each Gvr As DataRow In DtAlmacen.Rows If Not ObjInventario.AddInventarioFisicoAlmacenes(CveInventarioFisicoNew, Gvr("CveAlmacen").ToString.ToEntero) Then ErrorClasif = True @@ -455,6 +511,7 @@ Partial Class Inventarios_RepAnomalias GvS.Columns(0).Visible = False LnkGuardar.Visible = False LnkCrear.Visible = True + CreandoNuevoInventario = False CargaDatos(CveInventarioFisico) Else ObjInventario.RollBack()