diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 8b4334e83..4a8e19e4e 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2082,8 +2082,13 @@ Partial Class Ventas_ClientesAbonar
         Dim SubProyecto = DrSubProyecto("SubProyecto").ToString
         Dim Proyecto = DrSubProyecto("Proyecto").ToString
 
-        Dim CveSATNC = "84111506"
-        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("")
+        Dim CveSATNC As Integer
+        Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
+        Dim NCBonificacion As Integer = 0
+        If ArrayNC.Length > 6 Then 'CONCEPTO DE PRONTO PAGO
+            CveSATNC = ArrayNC(6).ToEntero()
+        End If
+        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("")
 
         For Each Dr As DataRow In DtImpuestos.Rows
             AgregaTempDTNC(ObjFacturaDevolucion.DtDetalle, DrPS("CvePS").ToString.ToEntero, DrPS("PS").ToString, DrPS("Codigo").ToString, DrPS("PSCodigo").ToString, DrPS("CveTipoPS").ToString.ToEntero, DrPS("Inv_CveMetodoInventario").ToString.ToEntero,