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

update inv fisico

Browse Source
This commit is contained in:
Hector
2021-08-03 23:33:10 -07:00
parent 65abb0d194
commit 99afe6f69b
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsInventarios.vb
View File

@@ -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

2
Inventarios/InventarioFisico.aspx.vb
View File

@@ -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