From 907347168490a26d8899c53a545f3647eca21683 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 28 Sep 2021 21:53:11 -0700
Subject: [PATCH] cambio de float a decimal

---
 App_Code/ClsCompras.vb | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 4aa180e78..d52811978 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -438,12 +438,12 @@ Public Class ClsCompras
     End Function
 
     Public Function AddCompraDetalle(CveCompra As Integer, CveUM As Integer, CvePS As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveActivoFijo As Integer,
-                                     Cantidad As Double, PU As Double, IVA As Double, Total As Double, Descuento As Double, Observaciones As String, CveOCDetalle As Integer,
+                                     Cantidad As Decimal, PU As Decimal, IVA As Decimal, Total As Decimal, Descuento As Decimal, Observaciones As String, CveOCDetalle As Integer,
                                      Optional TipoRecepcion As Integer = -1, Optional CveContrato As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1,
                                      Optional AplicaCostoIndirecto As Integer = -1, Optional EstatusAlmacen As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1,
                                      Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", Optional OtrosGastos As Decimal = 0,
-                                     Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0,
-                                     Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional IEPSPSIVAPorcentaje As Double = 0,
+                                     Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IEPSPS As Decimal = 0, Optional IEPSPSIVA As Decimal = 0,
+                                     Optional IVAPorcentaje As Decimal = 0, Optional RetIVAPorcentaje As Decimal = 0, Optional RetISRPorcentaje As Decimal = 0, Optional IEPSPSPorcentaje As Decimal = 0, Optional IEPSPSIVAPorcentaje As Decimal = 0,
                                      Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
@@ -457,12 +457,12 @@ Public Class ClsCompras
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
-            .Add("@PU", SqlDbType.Float).Value = PU
-            .Add("@IVA", SqlDbType.Float).Value = IVA
-            .Add("@Total", SqlDbType.Float).Value = Total
-            .Add("@Descuento", SqlDbType.Float).Value = Descuento
-            .Add("@OtrosGastos", SqlDbType.Float).Value = OtrosGastos
+            .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad
+            .Add("@PU", SqlDbType.Decimal).Value = PU
+            .Add("@IVA", SqlDbType.Decimal).Value = IVA
+            .Add("@Total", SqlDbType.Decimal).Value = Total
+            .Add("@Descuento", SqlDbType.Decimal).Value = Descuento
+            .Add("@OtrosGastos", SqlDbType.Decimal).Value = OtrosGastos
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle
             .Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion
@@ -476,16 +476,16 @@ Public Class ClsCompras
             .Add("@AF_TipoMantenimiento", SqlDbType.Int).Value = AF_TipoMantenimiento
             .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
             .Add("@CveCompraDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
-            .Add("@RetIVA", SqlDbType.Float).Value = RetIVA
-            .Add("@RetISR", SqlDbType.Float).Value = RetISR
-            .Add("@IEPSPS", SqlDbType.Float).Value = IEPSPS
-            .Add("@IEPSPSIVA", SqlDbType.Float).Value = IEPSPSIVA
+            .Add("@RetIVA", SqlDbType.Decimal).Value = RetIVA
+            .Add("@RetISR", SqlDbType.Decimal).Value = RetISR
+            .Add("@IEPSPS", SqlDbType.Decimal).Value = IEPSPS
+            .Add("@IEPSPSIVA", SqlDbType.Decimal).Value = IEPSPSIVA
 
-            .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje
-            .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje
-            .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje
-            .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje
-            .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje
+            .Add("@IVAPorcentaje", SqlDbType.Decimal).Value = IVAPorcentaje
+            .Add("@RetIVAPorcentaje", SqlDbType.Decimal).Value = RetIVAPorcentaje
+            .Add("@RetISRPorcentaje", SqlDbType.Decimal).Value = RetISRPorcentaje
+            .Add("@IEPSPSPorcentaje", SqlDbType.Decimal).Value = IEPSPSPorcentaje
+            .Add("@IEPSPSIVAPorcentaje", SqlDbType.Decimal).Value = IEPSPSIVAPorcentaje
             .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
             .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
             .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle