Documentos 140, correcion folio fiscal complemento pac 5, entrega anexo correcion filrtado de sgmento

Inicio.aspx.vb

@@ -231,6 +231,11 @@ Partial Class Inicio
             'Evaluacion del proveedor
             CargaEvaluacionProveedor()
 
+
+            If UsuarioActual.CveEmpresa = 140 Then
+                DVDescargasBDH.Visible = True
+            End If
+
         End If
 
     End Sub
@@ -1245,4 +1250,38 @@ Partial Class Inicio
         End If
         RegistraScript("$('#DvUnoaUno').modal('hide')")
     End Sub
+
+    'Protected Sub LnkDecargaDoc_Click(sender As Object, e As EventArgs)
+
+    '    Dim NombreArchivo As String = DirectCast(sender, LinkButton).Attributes("NombreArchivo")
+    '    Dim filePath As String = $"{Server.MapPath("~")}\Documentacion\140\{DirectCast(sender, LinkButton).Attributes("NombreArchivo")}"
+
+
+    '    Dim Archivo As New System.IO.FileInfo(filePath)
+
+
+    '    Dim mimeType As String = Nothing
+
+    '    If Archivo.Exists Then
+
+    '        HttpContext.Current.Response.Buffer = True
+    '        HttpContext.Current.Response.Clear()
+    '        HttpContext.Current.Response.ClearContent()
+    '        HttpContext.Current.Response.ContentType = mimeType
+    '        HttpContext.Current.Response.AppendHeader("Content-disposition", "inline; filename=" & NombreArchivo)
+    '        HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+    '        HttpContext.Current.Response.TransmitFile(filePath)
+    '        HttpContext.Current.Response.Flush()
+    '        HttpContext.Current.Response.SuppressContent = True
+    '        HttpContext.Current.ApplicationInstance.CompleteRequest()
+    '        HttpContext.Current.Response.End()
+
+    '        Archivo = Nothing
+    '    End If
+
+
+
+
+    'End Sub
+
 End Class