--Cambios en visualizacion de vista previa

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