-- mejoras en impresión directa de PDF (libreria de PrintJS).

-- correción de errores.
-- ashx para visualizacion de documentos pdf.
-- cambios de popUpVerFacturas a ClsPaginas para generacion de pdf de ventas.

Ventas/Ventas.aspx.vb

@@ -3467,14 +3467,15 @@ Partial Class Ventas
                 GvPS.Columns(ColumnaSubProyecto).Visible = False
                 ThProyecto.Visible = False
                 ThProyecto2.Visible = False
-
-                TxtCantidad.Text = "1"
-                TxtCantidad.Focus()
                 TrDescripcionVenta.Visible = False
 
+                If CveVenta <= 0 Then
+                    TxtCantidad.Text = "1"
+                    TxtCantidad.Focus()
+                    RegistraScript("abrirDdlPS();", "A1")
+                End If
                 UpPS.Update()
 
-                RegistraScript("$('#TxtCantidad').focus();", "A1")
             End If
 
         End If
@@ -9538,9 +9539,12 @@ Partial Class Ventas
             End If
 
             If UsuarioActual.CveRol = 1 Then
+                LnkDescargaDirecta.Visible = True
+
                 HplImprimirPDFStimulsoft.Visible = True
                 HplImprimirPDFStimulsoft.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=0&STIMULSOFT=1", CveVenta)))
             End If
+
         End If
 
         'NO DEBE IMPRIMIR PDF DE COTIZACION
@@ -10366,7 +10370,6 @@ Partial Class Ventas
                             If File.Exists(ArchivoXML) Then
                                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", ObjFactura.SerieFolio, ObjFactura.TipoDocto)))
                             End If
-
                             Try
                                 'MANDA CORREO
                                 Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
@@ -10376,8 +10379,22 @@ Partial Class Ventas
                             Catch ex As Exception
                                 OnError("Ocurrió un error al enviar el PDF", ex)
                             End Try
+                        Else
+                            'PARA PRUEBAS, GENERAR PDF AUNQUE NO ESTE TIMBRADA
+                            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                                Try
+                                    'MANDA CORREO
+                                    Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
+                                    Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False)
+                                    Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST))
+                                    Hilo.Start()
+                                Catch ex As Exception
+                                    OnError("Ocurrió un error al enviar el PDF", ex)
+                                End Try
+                            End If
                         End If
 
+
                         'DESCARGA PDF
                         If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant", "Egs", "Dev", "Ped") Then
                             'If Not ImprimeAlert Then
@@ -10578,7 +10595,7 @@ Partial Class Ventas
                         End Try
 
                         If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            RegistraScript($"impresionDirecta('/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta))}');", "Imprimir")
+                            ImpresionDirectaPDF()
                         End If
 
                     Else
@@ -15538,7 +15555,7 @@ Partial Class Ventas
 
         'TIMBRADO NUEVO
         Try
-            DescargarFactura(Factura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Regenerar:=True, strURLHOST:=strURLHOST)
+            GenerarPDFVenta(Factura.CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
         Catch ex As Exception
             OnError("Ocurrió un error al generar el PDF", ex)
         End Try
@@ -22038,11 +22055,12 @@ Partial Class Ventas
         'REGENERAR EL PDF
         If Not OcurrioError Then
             Try
-                Dim CveEmpresaPDF As Integer = UsuarioActual.CveEmpresa
-                Dim CveUsuarioPDF As Integer = UsuarioActual.CveUsuario
+                GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
+                'Dim CveEmpresaPDF As Integer = UsuarioActual.CveEmpresa
+                'Dim CveUsuarioPDF As Integer = UsuarioActual.CveUsuario
 
-                Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-                RegenerarPDF(CveVenta, CveEmpresaPDF, CveUsuarioPDF, strURLHOST)
+                'Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
+                'RegenerarPDF(CveVenta, CveEmpresaPDF, CveUsuarioPDF, strURLHOST)
                 '
                 'Dim Hilo As New System.Threading.Thread(Sub() )
                 'Hilo.Start()
@@ -22051,14 +22069,6 @@ Partial Class Ventas
             End Try
         End If
     End Sub
-
-    Private Sub RegenerarPDF(CveVenta As Integer, CveEmpresa As Integer, CveUsuario As Integer, strURLHOST As String)
-        Try
-            DescargarFactura(CveVenta, CveEmpresa, CveUsuario, Regenerar:=True, strURLHOST:=strURLHOST)
-        Catch ex As Exception
-            OnError("Ocurrió error al regenerar el PDF", ex)
-        End Try
-    End Sub
     Private Sub BtnActualizarCuentaTerminal_Click(sender As Object, e As EventArgs) Handles BtnActualizarCuentaTerminal.Click
         Dim ObjVentas As New ClsVentas
         ObjVentas.IniciaTransacSQL()
@@ -23993,7 +24003,7 @@ Partial Class Ventas
         Dim File As Byte() = Nothing
         Try
             Using httpClient = New HttpClient()
-                httpClient.Timeout = New TimeSpan(0, 15, 0)
+                httpClient.Timeout = New TimeSpan(0, 1, 0)
                 Using request = New HttpRequestMessage(HttpMethod.Get, Url)
                     request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CVEUSUARIO={2}", UsuarioActual.CveEmpresa, DateTime.UtcNow.Ticks, UsuarioActual.CveUsuario)))
                     Dim response = httpClient.SendAsync(request).Result
@@ -33615,7 +33625,6 @@ Partial Class Ventas
 
     End Sub
 
-
     Protected Sub TxtFecha_TextChanged(sender As Object, e As EventArgs)
         'SI USUARIO USA AMORTIZACIÓN CONTABLE, se carga las tablas para usarlas mas adelante
         If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.CveEmpresa = 48 AndAlso UsuarioActual.Empresa.UsaAC Then
@@ -33644,33 +33653,6 @@ Partial Class Ventas
         End If
 
     End Sub
-
-    Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer, Optional GetBytes As Boolean = True, Optional Regenerar As Boolean = False, Optional strURLHOST As String = "") As Byte()
-
-        If String.IsNullOrEmpty(strURLHOST) Then
-            strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-        End If
-
-        Dim Url As New Uri(String.Format("{0}/Compras/PopUpVerFactura.aspx?P={1}", strURLHOST, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&REGENERAR={1}", CveVenta, If(Regenerar, "1", "0")))))
-        Dim File As Byte() = Nothing
-        Try
-            Using httpClient As New HttpClient()
-                httpClient.Timeout = New TimeSpan(0, 2, 0)
-                Using request As New HttpRequestMessage(HttpMethod.Get, Url)
-                    request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CveUsuario={2}", CveEmpresa, DateTime.UtcNow.Ticks, CveUsuarioCreo)))
-                    Dim response = httpClient.SendAsync(request).Result
-                    If GetBytes AndAlso response.StatusCode = Net.HttpStatusCode.OK Then
-                        File = response.Content.ReadAsByteArrayAsync().Result
-                    End If
-                End Using
-            End Using
-        Catch ex As Exception
-            File = Nothing
-            OnError("Ocurrió un error al descargar la factura", ex)
-        End Try
-
-        Return File
-    End Function
     Protected Sub LnkGenerarOC_Click(sender As Object, e As EventArgs)
         Response.Redirect($"~/OC/OC.aspx?CveCotizacion={Me.CveVenta}&Tipo=OC")
     End Sub
@@ -33811,11 +33793,12 @@ Partial Class Ventas
         ObjVentas.Dispose()
         'REGENERAR EL PDF
         Try
-            Dim CveEmpresaPDF As Integer = UsuarioActual.CveEmpresa
-            Dim CveUsuarioPDF As Integer = UsuarioActual.CveUsuario
+            GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
+            'Dim CveEmpresaPDF As Integer = UsuarioActual.CveEmpresa
+            'Dim CveUsuarioPDF As Integer = UsuarioActual.CveUsuario
 
-            Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-            RegenerarPDF(CveVenta, CveEmpresaPDF, CveUsuarioPDF, strURLHOST)
+            'Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
+            'RegenerarPDF(CveVenta, CveEmpresaPDF, CveUsuarioPDF, strURLHOST)
         Catch ex As Exception
             OnError("Ocurrió un error al regenerar el PDF", ex)
         End Try
@@ -36578,7 +36561,37 @@ Partial Class Ventas
         CargarSaldoAuxiliar(CveCliente)
     End Sub
 
+    Protected Sub LnkDescargaDirecta_Click(sender As Object, e As EventArgs)
+        ImpresionDirectaPDF()
+    End Sub
 
+    Private Sub ImpresionDirectaPDF()
+        Dim ObjFactura As New Modelos.Factura(UsuarioActual, Me.CveVenta, UsuarioActual.CveEmpresa, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False)
 
+        Dim ExistePDF As Boolean = False
+        Dim ArchivoPDF As String = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
+
+        If File.Exists(ArchivoPDF) Then
+            ExistePDF = True
+        Else
+            'REGENERAR EL PDF
+            Try
+                GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
+                If File.Exists(ArchivoPDF) Then
+                    ExistePDF = True
+                End If
+            Catch ex As Exception
+                OnError("Ocurrió un error al regenerar el PDF", ex)
+            End Try
+        End If
+
+        If ExistePDF Then
+            Dim urlPDF As String = $"/Ashx/SIGDesc.ashx?metodo=descargarPDFVenta&CveVenta={CveVenta}"
+            RegistraScript($"impresionDirecta('{urlPDF}');", "Imprimir")
+        Else
+            Alert("No se pudo imprimir el pdf directamente. favor de descargar manualmente el pdf.", TipoMensaje.MsgAdvertencia)
+        End If
+
+    End Sub
 End Class