From 485b9a01c11a52796c59272b6045345d580544ff Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 29 Jan 2024 14:56:36 -0700
Subject: [PATCH] --Cambios en visualizacion de vista previa

---
 Ventas/Ventas.aspx    |  4 ----
 Ventas/Ventas.aspx.vb | 25 ++++++++++---------------
 2 files changed, 10 insertions(+), 19 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 41c750ea0..e8ba1c28f 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -4144,7 +4144,6 @@
                     <asp:UpdatePanel ID="UpFacturar" runat="server" class="portlet light xspadding bordered " style="max-width: 300px;" align="right" UpdateMode="Conditional">
                         <Triggers>
                             <asp:PostBackTrigger ControlID="BtnVistaPrevia" />
-                            <asp:PostBackTrigger ControlID="LBVistaPrevia" />
                         </Triggers>
                         <ContentTemplate>
 
@@ -4186,9 +4185,6 @@
                                                     Facturar <i class="fa fa-angle-down"></i>
                                                 </button>
                                                 <ul class="dropdown-menu">
-                                                    <li>
-                                                        <asp:LinkButton ID="LBVistaPrevia" Text="Vista Previa" OnClick="LBVistaPrevia_Click" runat="server" Visible="false" />
-                                                    </li>
                                                     <li>
                                                         <asp:LinkButton ID="LBFacturarIngreso" Text="Ingreso" OnClick="LBFacturarIngreso_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea facturar como tipo ingreso?" data-btn-ok-label="si" />
                                                     </li>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a4473335d..6746f54e3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2599,7 +2599,6 @@ Partial Class Ventas
                 CargaMedicos()
                 CargaProcedimientos()
                 CargaDdlClientesSucursal()
-                LBVistaPrevia.Visible = True
             End If
 
 
@@ -5662,6 +5661,10 @@ Partial Class Ventas
                         ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
                         TxtTipoCambio.Enabled = True
                     End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                        TrVistaPrevia.Visible = True
+                    End If
                 End If
 
                 'Si es Empresa de Acumuladores
@@ -15590,7 +15593,12 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        CreaObjetosVenta(True)
+        Dim TipoDoctoVistaPrevia As String = ""
+        If CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem" AndAlso BtnsFacturar.Visible = True Then
+            TipoDoctoVistaPrevia = "Ing"
+        End If
+
+        CreaObjetosVenta(True, TipoDoctoVistaPrevia:=TipoDoctoVistaPrevia)
 
         If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
             Alert("Ocurrió un error al procesar los datos para la vista previa. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
@@ -36730,18 +36738,5 @@ Partial Class Ventas
         CargaAnticipos(CveCliente)
     End Sub
 
-    Protected Sub LBVistaPrevia_Click(sender As Object, e As EventArgs)
-        CreaObjetosVenta(True, TipoDoctoVistaPrevia:="Ing")
-
-        If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
-            Alert("Ocurrió un error al procesar los datos para la vista previa. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
-            ObjFactura = Nothing
-            Exit Sub
-        End If
-
-        Dim CartaPorte As Modelos.MSubReportData = Nothing
-
-        ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF")
-    End Sub
 End Class