-- documentos de bdh

Compras/PopUpVerFactura.aspx.vb

@@ -223,7 +223,28 @@ Partial Class PopUpVerFactura
                 End If
             End If
 
+        End If
+    End Sub
+
+
+    Private Sub DescargaArchivoDirecto(RutaArchivo As String)
+        If RutaArchivo <> "" Then
+
+            'Dim Path As String = String.Format("{0}\{1}", UsuarioActual.Empresa.Ruta, RutaArchivo)
+            Dim Archivo As New System.IO.FileInfo(RutaArchivo)
+
+            If Archivo.Exists Then
+                HttpContext.Current.Response.Clear()
+                HttpContext.Current.Response.ClearContent()
+                HttpContext.Current.Response.ContentType = "application/octet-stream"
+                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
+                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+                HttpContext.Current.Response.TransmitFile(RutaArchivo)
+                'HttpContext.Current.Response.Flush()
+                HttpContext.Current.Response.End()
             End If
+            Archivo = Nothing
+        End If
     End Sub
 
     Private Sub ReciboAgropecuaria()
@@ -972,6 +993,12 @@ Partial Class PopUpVerFactura
             DescargaFactura(UrlParametros)
         End If
 
+        If UrlParametros("OP").ToString = "File" Then
+
+            DescargaArchivoDirecto(UrlParametros("FILE").ToString)
+
+        End If
+
         'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA VENTA
         If UrlParametros("OP").ToString = "FactVta" Then
             DescargaFacturaVenta(UrlParametros)
@@ -1258,6 +1285,13 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+        'IMPRIME ENTREGAS POR REALIZAR
+        If UrlParametros("OP").ToString = "FILE" Then
+            If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
+                ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
+            End If
+        End If
+
     End Sub
 
     Private Function Parametros(Cadena As String) As Hashtable