From 7b35d724c126b3e5c3d25226c5030c48570b180b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 15 May 2025 06:11:40 -0700
Subject: [PATCH] --validacion saldo =0

---
 Bancos/PopIEVentas.aspx.vb | 38 ++++++++++++++++++++------------------
 1 file changed, 20 insertions(+), 18 deletions(-)

diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 4fd113f60..6130f4ab2 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -125,11 +125,11 @@ Partial Class Bancos_PopIEVentas
         End Set
     End Property
 
-    Private Property SaldoVenta As Double
+    Private Property SaldoVenta As Decimal
         Get
-            Return ViewState("SaldoVenta").ToString.ToDouble
+            Return ViewState("SaldoVenta").ToString.ToDecimal
         End Get
-        Set(value As Double)
+        Set(value As Decimal)
             ViewState("SaldoVenta") = value
         End Set
     End Property
@@ -543,27 +543,29 @@ Partial Class Bancos_PopIEVentas
                 TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero
 
                 FechaVenta = dr("Fecha").ToString.ToDate
-                SaldoVenta = dr("Saldo").ToString.ToDouble
+                SaldoVenta = dr("Saldo").ToString.ToDecimal
 
-                Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)
+                'si ya está pagada, bloquear.
+                If SaldoVenta <= 0 Then Validada = False
 
-                If RFCCliente.ToUpper <> "XAXX010101000" Then
-                    Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
+                If Validada Then
+                    Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)
 
-                    If CveProveedor > 0 Then
-                        Dim Mov As New ClsMovimientos
-                        If Mov.GetCxPProveedor(CveProveedor, MinFecha.ToShortDateString, MaxFecha.ToShortDateString, -1, -1, -1, -1, -1, 1, -1, -1, "-1", "-1", "-1") Then
-                            If Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio").Rows.Count > 0 Then
-                                RBLContado.Items(4).Enabled = True
+                    If RFCCliente.ToUpper <> "XAXX010101000" Then
+                        Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
+
+                        If CveProveedor > 0 Then
+                            Dim Mov As New ClsMovimientos
+                            If Mov.GetCxPProveedor(CveProveedor, MinFecha.ToShortDateString, MaxFecha.ToShortDateString, -1, -1, -1, -1, -1, 1, -1, -1, "-1", "-1", "-1") Then
+                                If Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio").Rows.Count > 0 Then
+                                    RBLContado.Items(4).Enabled = True
+                                End If
                             End If
+
+                            Mov.Dispose()
                         End If
-
-                        Mov.Dispose()
                     End If
-
-                End If
-
-                If Not Validada Then
+                Else
                     BtnGuardar.Visible = False
                 End If
             End If