From 34733b0ee23bc13eb36598cb2e170db5db46aa2a Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sun, 5 Dec 2021 22:49:13 -0700 Subject: [PATCH] RepAnomalias, Se agrega CveInventarioFisicoPadre al crear apartir de, al finalizar inventario agregar productos coicidentes del padre --- App_Code/ClsInventarios.vb | 5 +++- Inventarios/RepAnomalias.aspx | 39 +++++++++++++++++++------------- Inventarios/RepAnomalias.aspx.vb | 25 ++++++++++++++++++-- 3 files changed, 50 insertions(+), 19 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 6164807ae..e253a0892 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -132,6 +132,7 @@ Public Class ClsInventarios Public Property ResponsableRecibio As String Public Property Modulo As String Public Property ConAplicacion As Boolean + Public Property CveInventarioFisicoPadre As Integer @@ -2216,7 +2217,7 @@ Public Class ClsInventarios #Region " INVENTARIOS - INVENTARIO FISICO " - Public Function AddInventarioFisico(CveEmpresa As Integer, InventarioFisico As String, Observaciones As String, Estatus As Integer, CveSubProyecto As Integer, Optional ConAplicacion As Boolean = False) As Boolean + Public Function AddInventarioFisico(CveEmpresa As Integer, InventarioFisico As String, Observaciones As String, Estatus As Integer, CveSubProyecto As Integer, Optional ConAplicacion As Boolean = False, Optional CveInventarioFisicoPadre As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_InventarioFisicoAdd") @@ -2227,6 +2228,7 @@ Public Class ClsInventarios .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@ConAplicacion", SqlDbType.Int).Value = If(ConAplicacion, 1, 0) + .Add("@CveInventarioFisicoPadre", SqlDbType.Int).Value = CveInventarioFisicoPadre .Add("@CveInventarioFisico", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -2318,6 +2320,7 @@ Public Class ClsInventarios FechaF = dr("FechaFin").ToString Estatus = dr("Estatus").ToString ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString) + CveInventarioFisicoPadre = dr("CveInventarioFisicoPadre").ToString.ToEntero Retorno = True End If diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx index 4a0e1d04e..505c30465 100644 --- a/Inventarios/RepAnomalias.aspx +++ b/Inventarios/RepAnomalias.aspx @@ -82,22 +82,22 @@ -
  • - Imprimir PDF -
    • -
  • - Exportar a Excel Productos que Faltan -
    • -
  • - Exporta a Excel Productos que Sobran -
    • +
  • + Imprimir PDF +
    • +
  • + Exportar a Excel Productos que Faltan +
    • +
  • + Exporta a Excel Productos que Sobran +
    • -
  • - Exporta a Excel Productos Coincidentes -
    • -
  • - Exporta a Excel -
    • +
  • + Exporta a Excel Productos Coincidentes +
    • +
  • + Exporta a Excel +
    • @@ -105,7 +105,7 @@ Crear a partir de
  • - Guardar Nuevo Inventario Físico + Guardar Nuevo Inventario Físico
    • @@ -416,10 +416,17 @@
    + + + +
    +
    + +
    diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 587c9d385..bb20e4c8d 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -16,7 +16,21 @@ Partial Class Inventarios_RepAnomalias Set(value As Integer) ViewState("CveInventarioFisico") = value End Set + End Property + + Public Property CveInventarioFisicoPadre As Integer + Get + If ViewState("CveInventarioFisicoPadre") Is Nothing Then + Return -1 + Else + Return CType(ViewState("CveInventarioFisicoPadre"), Integer) + End If + End Get + Set(value As Integer) + ViewState("CveInventarioFisicoPadre") = value + End Set End Property + Public Property CveAlmacen As Integer Get Return CType(ViewState("CveAlmacen"), Integer) @@ -110,6 +124,8 @@ Partial Class Inventarios_RepAnomalias lbFechaF.Text = Inventario.FechaF CveSubProyecto = Inventario.CveSubProyectoInventario aplicacion = Inventario.ConAplicacion + CveInventarioFisicoPadre = Inventario.CveInventarioFisicoPadre + If Inventario.Estatus = "Finalizado" Then btnFin.Visible = False End If @@ -340,7 +356,9 @@ Partial Class Inventarios_RepAnomalias #Region " FINALIZAR " Protected Sub btnFin_Click(sender As Object, e As EventArgs) Handles btnFin.Click Dim Inventarios As New ClsInventarios - Inventarios.IniciaTransacSQL() + Inventarios.IniciaTransacSQL() + + If Inventarios.AddInventarioFisicoResultados(CveInventarioFisico, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If Inventarios.UpdateInventarioFisicoEstatus(CveInventarioFisico, 3, UsuarioActual.CveEmpresa) Then Dim url As String = ("/Inventarios/RepAnomalias.aspx?CveInventarioFisico=" + CveInventarioFisico.ToString) @@ -623,8 +641,11 @@ Partial Class Inventarios_RepAnomalias DtProveedor = Nothing DtUsuario = Nothing + Dim CveInventarioFisicoPadre As Integer = If(ChkRelacionarInventario.Checked, CveInventarioFisico, -1) + + ObjInventario.IniciaTransacSQL() - If ObjInventario.AddInventarioFisico(UsuarioActual.CveEmpresa, TxtTitulo.Text, lbObservaciones.Text, 0, CveSubProyecto, aplicacion) Then + If ObjInventario.AddInventarioFisico(UsuarioActual.CveEmpresa, TxtTitulo.Text, lbObservaciones.Text, 0, CveSubProyecto, aplicacion, CveInventarioFisicoPadre:=CveInventarioFisicoPadre) Then CveInventarioFisicoNew = ObjInventario.CveInventarioFisico If ObjInventario.GetInventarioFisicoDetallesAlmacen(CveInventarioFisico, UsuarioActual.CveEmpresa) Then