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

- mejora en unitario

Browse Source
This commit is contained in:
rrene
2024-03-23 15:54:37 -07:00
parent 7af55a8f05
commit 8070b0e6fe
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsProductosServicios.vb
View File

@@ -906,8 +906,6 @@ Public Class ClsProductosServicios
DataAdapter("PA_Inv_UltimoPrecioCompraGet") DataAdapter("PA_Inv_UltimoPrecioCompraGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@PU", SqlDbType.Money).Direction = ParameterDirection.Output .Add("@PU", SqlDbType.Money).Direction = ParameterDirection.Output
@@ -915,7 +913,7 @@ Public Class ClsProductosServicios
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = CDbl(SqlAdapter.SelectCommand.Parameters("@PU").Value) Retorno = SqlAdapter.SelectCommand.Parameters("@PU").Value.ToString.ToDecimal
Catch Ex1 As SqlException Catch Ex1 As SqlException
Me.OnError("Ocurrió un error al obtener el precio unitario.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Me.OnError("Ocurrió un error al obtener el precio unitario.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())