From 9741bab34ebd98393a27a508c78e76b727279b3c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 21 Dec 2023 13:35:44 -0700
Subject: [PATCH] -- cambio a pac4

---
 App_Code/ClsBancos.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"