From dbdb0c0f29d7d8170c6061949f692eb226d0f501 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 19 Dec 2024 13:38:15 -0700
Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20para=20timbrado=20de=20f?=
 =?UTF-8?q?acturas=20de=20cr=C3=A9dito?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/PVCobranza.aspx.vb | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 05905d7b8..874ea9b7f 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -356,17 +356,21 @@ Partial Class Ventas_PVCobranza
             If e.Row.DBCampo("TipoEntrega") = "2" OrElse e.Row.DBCampo("AplicaImpresionPorAnt") = "1" Then
                 e.Row.FCLinkButton("LnkImprimir").Visible = True
                 ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LnkImprimir"))
-            End If
+            End If
+            If e.Row.DBCampo("CondicionesPago") = "1" Then ' remis de crédito
+                e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs btn-warning"
+                e.Row.FCLinkButton("BtnPagar").Text = "Crédito"
+            End If
 
             If e.Row.DBCampo("AplicaImpresionPorAnt") = "1" Then
                 'SI TIENE SALDO, QUE APLIQUE EL PAGO
                 If e.Row.DBCampo("Saldo").ToDecimal() > 0 Then
                     e.Row.FCLinkButton("BtnPagar").Visible = True
                     If Not e.Row.DBCampo("TipoEntrega") = "2" Then
-                        e.Row.FCLinkButton("LnkImprimir").Visible = False
-                    End If
-                Else
-                    e.Row.FCLinkButton("BtnPagar").Visible = False
+                            e.Row.FCLinkButton("LnkImprimir").Visible = False
+                        End If
+                    Else
+                        e.Row.FCLinkButton("BtnPagar").Visible = False
                 End If
             End If
 
@@ -508,7 +512,6 @@ Partial Class Ventas_PVCobranza
             VentaActual.IEPS = DbRowVenta("IEPS").ToString.ToDecimal
             VentaActual.RetIVA = DbRowVenta("RetIVA").ToString.ToDecimal
             VentaActual.RetISR = DbRowVenta("RetISR").ToString.ToDecimal
-
             VentaActual.PorcentajeIVA = DbRowVenta("PorcentajeIVA").ToString.ToDecimal
             VentaActual.UsuarioActual = UsuarioActual
             VentaActual.CveSubProyecto = DbRowVenta("CveSubProyecto").ToString.ToEntero
@@ -822,6 +825,7 @@ Partial Class Ventas_PVCobranza
                 'venta a crédito
                 ObjFactura.CveFormaPago33 = 20 ' por definir
                 ObjFactura.CveMetodoPago33 = 3 'PPD
+                ObjFactura.CondicionesPago = 1 ' condiciones de pago: crédito
             End If
 
             For Each Dr As DataRow In ObjFactura.DtRemisionesPS.Rows