-- cambio a pac4

2023-12-21 13:35:44 -07:00
parent 5349698f1a
commit 9741bab34e
1 changed files with 1 additions and 1 deletions
--- 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"