From 4c224d2a35395f0ba730d4e0e2ff76a2a02eb79f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 16 Nov 2023 08:30:25 -0700
Subject: [PATCH] -

---
 Compras/Compras.aspx.vb | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index d77cabad5..2cf509159 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -871,19 +871,19 @@ Partial Class Compras_Compras
 #End Region
 
 #Region "  PROPIEDADES DE TOTALES  "
-    Private Property SubTotalOriginal As Double
+    Private Property SubTotalOriginal As Decimal
         Get
-            Return ViewState("SubTotalOriginal").ToString.ToDouble
+            Return ViewState("SubTotalOriginal").ToString.ToDecimal
         End Get
-        Set(value As Double)
+        Set(value As Decimal)
             ViewState("SubTotalOriginal") = value
         End Set
     End Property
-    Private Property SubTotal2Original As Double
+    Private Property SubTotal2Original As Decimal
         Get
-            Return ViewState("SubTotal2Original").ToString.ToDouble
+            Return ViewState("SubTotal2Original").ToString.ToDecimal
         End Get
-        Set(value As Double)
+        Set(value As Decimal)
             ViewState("SubTotal2Original") = value
         End Set
     End Property
@@ -6077,8 +6077,7 @@ Partial Class Compras_Compras
 
                                                                         If importeMN <> 0 Then
 
-
-                                                                            If (TxtFecha.Text <> NowADS().ToString("dd/MM/yyyy")) 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