From 08b09024c8f57bb7b1da82a366ff502e89c387ee Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 24 Apr 2024 11:28:06 -0700
Subject: [PATCH] --FIX Pagos e impresiones con NC en cobranza

---
 Ventas/PVCobranza.aspx.vb | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index bf36fa0a1..d41e1bb39 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -292,8 +292,15 @@ Partial Class Ventas_PVCobranza
             End If
 
             If e.Row.DBCampo("AplicaImpresionPorAnt").ToEntero() = 1 Then
-                e.Row.FCLinkButton("BtnPagar").Visible = False
+                'SI TIENE SALDO, QUE APLIQUE EL PAGO
+                If e.Row.DBCampo("Saldo").ToDecimal() > 0 Then
+                    e.Row.FCLinkButton("BtnPagar").Visible = True
+                    e.Row.FCLinkButton("LnkImprimir").Visible = False
+                Else
+                    e.Row.FCLinkButton("BtnPagar").Visible = False
+                End If
             End If
+
         End If
     End Sub
 
@@ -467,6 +474,10 @@ Partial Class Ventas_PVCobranza
                         MsgError = "Error al aplicar el corte"
                     End If
 
+                    If MsgError = "" AndAlso Not ObjVentas.UpdateVentaTicketImpreso(CveVenta, 0) Then
+                        MsgError = "No se pudo desmarcar la impresión"
+                    End If
+
                 Else
                     MsgError = "Error al registrar prepólizas"
                 End If