--validacion saldo =0

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,8 +543,12 @@ 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
 
+                'si ya está pagada, bloquear.
+                If SaldoVenta <= 0 Then Validada = False
+
+                If Validada Then
                     Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)
 
                     If RFCCliente.ToUpper <> "XAXX010101000" Then
@@ -560,10 +564,8 @@ Partial Class Bancos_PopIEVentas
 
                             Mov.Dispose()
                         End If
-
                     End If
-
-                If Not Validada Then
+                Else
                     BtnGuardar.Visible = False
                 End If
             End If