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 End Function
Public Function UpdateInventarioFisico(CveInventarioFisico As Integer, InventarioFisico As String, Observaciones As String, 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 Dim Retorno As Boolean = False
DataAdapter("PA_Inv_InventarioFisicoUpdate") DataAdapter("PA_Inv_InventarioFisicoUpdate")
@@ -2216,6 +2216,7 @@ Public Class ClsInventarios
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
.Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@ConAplicacion", SqlDbType.Bit).Value = If(ConAplicacion, 1, 0)
End With End With

2
Inventarios/InventarioFisico.aspx.vb
View File

@@ -657,7 +657,7 @@ Partial Class Inventarios_InventarioFisico
Else Else
If HdnID.Value.ToEntero > 0 Then 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 If Not ObjInventario.RemoveInventarioFisicoAlamacen(HdnID.Value.ToEntero) Then
ErrorClasif = True ErrorClasif = True