From b7d8bde0d8ad430068404409dc2324a9fc106b92 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sun, 11 Feb 2024 00:45:04 -0700
Subject: [PATCH] =?UTF-8?q?FERRETERA.=20Impresi=C3=B3n=20en=20cobranza/caj?=
 =?UTF-8?q?a.=20formato=20de=20ticket?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsPaginas.vb          | 2 +-
 Compras/PopUpVerFactura.aspx.vb | 3 ++-
 Ventas/PVCobranza.aspx.vb       | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 332020f3c..c0ad45639 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6987,7 +6987,7 @@ Public Class ClsPaginas
                         NombreArchivoDescarga = "FacturaUSA"
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(718) = "1" Then
+                    If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
                         If EsTicket Then
                             NombreArchivo = "FacturaTicket"
                             NombreArchivoDescarga = "FacturaTicket"
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index a2f5a8316..a152c3fcc 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1348,8 +1348,9 @@ Partial Class PopUpVerFactura
                 Dim Guardar As Boolean = UrlParametros("GUARDAR") IsNot Nothing AndAlso UrlParametros("GUARDAR").ToString() = "1"
                 Dim RegenerarPDF As Boolean = UrlParametros("REGENERAR") IsNot Nothing AndAlso UrlParametros("REGENERAR").ToString() = "1"
                 Dim STIMUL As Boolean = UrlParametros("STIMULSOFT") IsNot Nothing AndAlso UrlParametros("STIMULSOFT").ToString() = "1"
+                Dim EsTicket As Boolean = UrlParametros("TICKET") IsNot Nothing AndAlso UrlParametros("TICKET").ToString() = "1"
 
-                GenerarPDFVenta(UrlParametros("CVEVENTA").ToString.ToEntero, AplicaPagare, GuardarPDF:=Guardar, RegenerarPDF:=RegenerarPDF, UsarStimul:=STIMUL)
+                GenerarPDFVenta(UrlParametros("CVEVENTA").ToString.ToEntero, AplicaPagare, GuardarPDF:=Guardar, RegenerarPDF:=RegenerarPDF, UsarStimul:=STIMUL, EsTicket:=EsTicket)
             End If
         End If
 
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 8161e583b..2d74c2710 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -337,7 +337,7 @@ Partial Class Ventas_PVCobranza
                 PnlContado.Visible = False
                 ObjConta.Commit()
                 CargaDatos()
-                Alert("Pago Registrado correctamente.<br/><br/> <a href='#' class='Texto'>Imprimir ticket</a>", TipoMensaje.MsgInformacion)
+                Alert($"Pago Registrado correctamente.<br/><br/> <a href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&TICKET=1&REGENERAR=1", CveVenta))}"" class='Texto'>Imprimir ticket</a>", TipoMensaje.MsgInformacion)
             Else
                 ObjConta.RollBack()
             End If