-- activación para timbrado de facturas de crédito

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