From 99afe6f69b8bb09dc52e10dd6bdf9da9ddf858eb Mon Sep 17 00:00:00 2001 From: Hector Date: Tue, 3 Aug 2021 23:33:10 -0700 Subject: [PATCH] update inv fisico --- App_Code/ClsInventarios.vb | 3 ++- Inventarios/InventarioFisico.aspx.vb | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index a4f596a68..e72bfba0e 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -2206,7 +2206,7 @@ Public Class ClsInventarios End Function Public Function UpdateInventarioFisico(CveInventarioFisico As Integer, InventarioFisico As String, Observaciones As String, - CveSubProyecto As Integer) As Boolean + CveSubProyecto As Integer, Optional ConAplicacion As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_InventarioFisicoUpdate") @@ -2216,6 +2216,7 @@ Public Class ClsInventarios .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@ConAplicacion", SqlDbType.Bit).Value = If(ConAplicacion, 1, 0) End With diff --git a/Inventarios/InventarioFisico.aspx.vb b/Inventarios/InventarioFisico.aspx.vb index b47228150..506625d57 100644 --- a/Inventarios/InventarioFisico.aspx.vb +++ b/Inventarios/InventarioFisico.aspx.vb @@ -657,7 +657,7 @@ Partial Class Inventarios_InventarioFisico Else If HdnID.Value.ToEntero > 0 Then - If ObjInventario.UpdateInventarioFisico(HdnID.Value.ToEntero, TxtTitulo.Text, TxtObservaciones.Text, DdlSubProyecto.SelectedValue.ToEntero) Then + If ObjInventario.UpdateInventarioFisico(HdnID.Value.ToEntero, TxtTitulo.Text, TxtObservaciones.Text, DdlSubProyecto.SelectedValue.ToEntero, aplicacion) Then If Not ObjInventario.RemoveInventarioFisicoAlamacen(HdnID.Value.ToEntero) Then ErrorClasif = True