diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 964e509e8..d877b25ec 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1146,7 +1146,7 @@ Public Class ClsBancos
                 Ventas.Timbre = Timbre
                 Ventas.Cliente = Cliente
 
-                Dim CvePACEspecial As Integer = 4  'por default estará tomando con el PAC:4
+                Dim CvePACEspecial As Integer = If(UsuarioActual.Empresa.CvePAC = 5, 4, -1)  'por default estará tomando con el PAC:4, si se usa el PAC 5
                 If UsuarioActual.CveEmpresa = 3 Then CvePACEspecial = 4
 
                 Ventas.TipoDocto = "Pag"