From 00bfedf7851dcd91c76b6040b7bf22577ead5f9f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 16 Nov 2023 10:46:39 -0700
Subject: [PATCH] -

---
 Compras/Compras.aspx.vb | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 2cf509159..40c9cab95 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2471,7 +2471,7 @@ Partial Class Compras_Compras
                 If TipoCambio <> TipoCambioOriginal Then LblTCO.Text = String.Format("<br/>TC Original: {0}", TipoCambioOriginal.ToString("N4"))
 
 
-                AsignaValoresOriginales(TxtSubTotal.Text.ToDouble, TxtSubTotal2.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDecimal)
+                AsignaValoresOriginales(TxtSubTotal.Text.ToDecimal, TxtSubTotal2.Text.ToDecimal, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDecimal)
                 CalculaTotalPorDevengar()
                 TxtDocumentoImporteFE.Text = dr("Total").ToString
                 RVDocumentoImporte.MaximumValue = dr("Total").ToString.FormatoNumero(2)
@@ -6077,7 +6077,7 @@ Partial Class Compras_Compras
 
                                                                         If importeMN <> 0 Then
 
-                                                                            If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) AndAlso (TxtFecha.Text.ToDate.LastDayOfMonth <> NowADS.LastDayOfMonth And Not EntradaComoGastoConAlmacen Then
+                                                                            If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) AndAlso (TxtFecha.Text.ToDate.LastDayOfMonth <> NowADS.LastDayOfMonth And Not EntradaComoGastoConAlmacen) Then
 
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
                                                                                     ErrorPrepoliza = True
@@ -14285,7 +14285,7 @@ Partial Class Compras_Compras
         OCVinculada = True
         UpPSS.Update()
 
-        AsignaValoresOriginales(TxtSubTotal.Text.ToDouble, TxtSubTotal2.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDecimal)
+        AsignaValoresOriginales(TxtSubTotal.Text.ToDecimal, TxtSubTotal2.Text.ToDecimal, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDecimal)
 
         If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
 
@@ -15630,8 +15630,8 @@ Partial Class Compras_Compras
         TxtTotal.Text = (TmpDT.SUMD("Total") + TmpDT.SUMD("IVA") + TmpDT.SUMD("IEPSPS") - TmpDT.SUMD("RetIVA") - TmpDT.SUMD("RetISR")).FormatoNumero
 
 
-        SubTotalOriginal = TxtSubTotal.Text.ToDouble
-        SubTotal2Original = TxtSubTotal2.Text.ToDouble
+        SubTotalOriginal = TxtSubTotal.Text.ToDecimal
+        SubTotal2Original = TxtSubTotal2.Text.ToDecimal
 
         If TrDescuento.Visible Then TxtDescuento.Text = (TmpDT.SUMD("Descuento")).ToString.FormatoNumero
         If TrRetIVA.Visible Then TxtRetIVA.Text = (TmpDT.SUMD("RetIVA")).ToString.FormatoNumero
@@ -15651,7 +15651,7 @@ Partial Class Compras_Compras
 #End Region
 
 #Region "  TOTALES: VALIDA Y CALCULA  "
-    Private Sub AsignaValoresOriginales(SubTotal As Double, SubTotal2 As Double, IVA As Double, RetIVA As Double, RetISR As Double, Total As Decimal)
+    Private Sub AsignaValoresOriginales(SubTotal As Decimal, SubTotal2 As Decimal, IVA As Double, RetIVA As Double, RetISR As Double, Total As Decimal)
         SubTotalOriginal = SubTotal
         SubTotal2Original = SubTotal2
         IVAOriginal = IVA
@@ -15814,8 +15814,8 @@ Partial Class Compras_Compras
 
 
         TempSubTotal = TxtSubTotal.Text.ToDouble
-        SubTotalOriginal = TxtSubTotal.Text.ToDouble
-        SubTotal2Original = TxtSubTotal2.Text.ToDouble
+        SubTotalOriginal = TxtSubTotal.Text.ToDecimal
+        SubTotal2Original = TxtSubTotal2.Text.ToDecimal
         TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion
         TempSubTotal2 = TempSubTotal - TempDescuentos
         TempIVA = TxtIVA.Text.ToDouble
@@ -15832,8 +15832,8 @@ Partial Class Compras_Compras
         ElseIf DifTotales <> 0 Then
             TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString
             TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + DifTotales).ToString
-            SubTotalOriginal = TxtSubTotal.Text.ToDouble
-            SubTotal2Original = TxtSubTotal2.Text.ToDouble
+            SubTotalOriginal = TxtSubTotal.Text.ToDecimal
+            SubTotal2Original = TxtSubTotal2.Text.ToDecimal
         End If
 
         Dim DiferenciaSubtotales As Decimal = 0.0D