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

-- valorcompra en MN

Browse Source
This commit is contained in:
rrene
2023-07-06 17:53:47 -07:00
parent c354d1aaf4
commit d61f8e4c8e
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsAF.vb
View File

@@ -44,6 +44,7 @@ Public Class ClsAF
Public Property Descripcion As String Public Property Descripcion As String
Public Property CveCompra As Integer Public Property CveCompra As Integer
Public Property ValorCompra As Double Public Property ValorCompra As Double
Public Property ValorCompraMN As Double
Public Property FechaCompra As Date Public Property FechaCompra As Date
Public Property FechaBaja As Date Public Property FechaBaja As Date
Public Property CuentaInicial As Integer Public Property CuentaInicial As Integer
@@ -573,7 +574,7 @@ Public Class ClsAF
Return Retorno Return Retorno
End Function End Function
Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, ValorCompraMN As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_AF_ActivosFijosCompraUpdate") DataAdapter("PA_AF_ActivosFijosCompraUpdate")
@@ -582,7 +583,8 @@ Public Class ClsAF
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
.Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle
.Add("@TipoAF", SqlDbType.Int).Value = TipoAF .Add("@TipoAF", SqlDbType.Int).Value = TipoAF
.Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
.Add("@ValorCompraMN", SqlDbType.Money).Value = ValorCompraMN
.Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
.Add("@Opcion", SqlDbType.Int).Value = Opcion ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula los AF en base a la CveComrpaDetalle(en tabla AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle ) .Add("@Opcion", SqlDbType.Int).Value = Opcion ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula los AF en base a la CveComrpaDetalle(en tabla AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle )
End With End With