Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
407
Contabilidad/DescargaRespaldos.aspx.vb
Normal file
407
Contabilidad/DescargaRespaldos.aspx.vb
Normal file
@@ -0,0 +1,407 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Contabilidad_DescargaRespaldos
|
||||
Inherits ClsPaginas
|
||||
|
||||
Protected rutaCon As String = ""
|
||||
Protected rutaRes As String = ""
|
||||
|
||||
Private Sub Contabilidad_DescargaRespaldos_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
Dim empresa As Empresa = getEmpresaBDContPAQi()
|
||||
Dim pilaUrl As New List(Of String)
|
||||
|
||||
ViewState("URLS") = pilaUrl
|
||||
ViewState("URLR") = "/"
|
||||
ViewState("FEMPRESA") = empresa.BDContPAQi
|
||||
ViewState("URLACTUAL") = ""
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
Try
|
||||
'addCaragaLinksInicio()
|
||||
loadEvent()
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub directorioDefault()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub loadEvent()
|
||||
|
||||
Dim lista As List(Of String) = DirectCast(ViewState("URLS"), List(Of String))
|
||||
|
||||
If getUrl() = "" Then
|
||||
addCargaLinksInicio()
|
||||
Else
|
||||
cargarFolderActual()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub addCargaLinksInicio()
|
||||
|
||||
Dim empresa As Empresa = getEmpresaBDContPAQi()
|
||||
Dim BDContPAQi As String = empresa.BDContPAQi
|
||||
|
||||
lblEmpresa.Text = "Empresa: " & empresa.Empresa
|
||||
|
||||
Dim listaFile As New List(Of String)
|
||||
Dim listaDir As New List(Of String)
|
||||
|
||||
Dim listaNombres As New List(Of String)
|
||||
|
||||
Dim GB As Integer = 1073741824
|
||||
Dim MB As Integer = 1048576
|
||||
Dim KB As Integer = 1024
|
||||
Dim resultado As Double = 0.0
|
||||
|
||||
listaFile.Clear()
|
||||
listaDir.Clear()
|
||||
tdBodyDescargas.Controls.Clear()
|
||||
|
||||
If (BDContPAQi <> "") Then
|
||||
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<tr>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:left!important'>CONTPAQI</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td></td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td></td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center!important'>Carpeta</td>"))
|
||||
Dim lnkConpaq As New ImageButton
|
||||
|
||||
lnkConpaq.ID = "lnkContPaq"
|
||||
lnkConpaq.ImageUrl = "~/Imagenes/folder.png"
|
||||
lnkConpaq.PostBackUrl = "#"
|
||||
|
||||
lnkConpaq.Attributes.Add("data-toggle", "tooltip")
|
||||
lnkConpaq.Attributes.Add("data-placement", "right")
|
||||
lnkConpaq.Attributes.Add("title", "Acceder")
|
||||
|
||||
AddHandler lnkConpaq.Click, AddressOf Me.lnkFolderCompaqt
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center'>"))
|
||||
tdBodyDescargas.Controls.Add(lnkConpaq)
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("</tr>"))
|
||||
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<tr>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:left!important'>RESPALDOS</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td></td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td></td>"))
|
||||
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center!important'>Carpeta</td>"))
|
||||
Dim lnkRes As New ImageButton
|
||||
|
||||
lnkRes.ID = "lnkRes"
|
||||
lnkRes.ImageUrl = "~/Imagenes/folder.png"
|
||||
lnkRes.PostBackUrl = "#"
|
||||
|
||||
lnkRes.Attributes.Add("data-toggle", "tooltip")
|
||||
lnkRes.Attributes.Add("data-placement", "right")
|
||||
lnkRes.Attributes.Add("title", "Acceder")
|
||||
|
||||
AddHandler lnkRes.Click, AddressOf Me.lnkFolderRes
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center'>"))
|
||||
tdBodyDescargas.Controls.Add(lnkRes)
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("</tr>"))
|
||||
|
||||
Else
|
||||
dvPanel.Visible = False
|
||||
Alert("No se encontraron descargas relacionadas.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
|
||||
udpDescargas.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub lnkFolderCompaqt(sender As Object, e As EventArgs)
|
||||
|
||||
addUrl(Path.Combine(System.Configuration.ConfigurationManager.AppSettings("ContPAQDescargas").ToString, ViewState("FEMPRESA").ToString))
|
||||
cargarFolderActual()
|
||||
End Sub
|
||||
Protected Sub lnkFolderRes(sender As Object, e As EventArgs)
|
||||
|
||||
If System.Configuration.ConfigurationManager.AppSettings("RespaldosArchivos") <> Nothing Then
|
||||
addUrl(Path.Combine(System.Configuration.ConfigurationManager.AppSettings("RespaldosArchivos"), ViewState("FEMPRESA").ToString))
|
||||
|
||||
cargarFolderActual()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub cargarFolderActual()
|
||||
|
||||
|
||||
tdBodyDescargas.Controls.Clear()
|
||||
Dim empresa As Empresa = getEmpresaBDContPAQi()
|
||||
Dim BDContPAQi As String = empresa.BDContPAQi
|
||||
|
||||
Dim contador As Integer = 0
|
||||
|
||||
Dim listaFile As New List(Of String)
|
||||
Dim listaDir As New List(Of String)
|
||||
|
||||
Dim listaNombres As New List(Of String)
|
||||
|
||||
Dim GB As Integer = 1073741824
|
||||
Dim MB As Integer = 1048576
|
||||
Dim KB As Integer = 1024
|
||||
|
||||
lblEmpresa.Text = "Empresa: " & empresa.Empresa
|
||||
Dim resultado As Double = 0.0
|
||||
|
||||
listaFile.Clear()
|
||||
listaDir.Clear()
|
||||
|
||||
If (BDContPAQi <> "") Then
|
||||
|
||||
Try
|
||||
|
||||
Dim ruta As String = getUrl()
|
||||
|
||||
listaFile.AddRange(Directory.GetFiles(ruta))
|
||||
listaDir.AddRange(Directory.GetDirectories(ruta))
|
||||
|
||||
dvPanel.Visible = True
|
||||
|
||||
For Each d In listaDir
|
||||
|
||||
Dim di As New DirectoryInfo(d)
|
||||
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<tr>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:left!important'>" & di.Name & "</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center!important'></td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center!important'>" & di.CreationTime.ToString("dd/MM/yyyy") & "</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center!important'>Carpeta</td>"))
|
||||
Dim lnk As New ImageButton
|
||||
|
||||
lnk.ID = "lnkFol" & contador
|
||||
lnk.Attributes.Add("fname", di.Name)
|
||||
lnk.ImageUrl = "~/Imagenes/folder.png"
|
||||
lnk.PostBackUrl = "#"
|
||||
|
||||
|
||||
lnk.PostBackUrl = "#"
|
||||
lnk.Attributes.Add("data-toggle", "tooltip")
|
||||
lnk.Attributes.Add("data-placement", "right")
|
||||
lnk.Attributes.Add("title", "Acceder")
|
||||
|
||||
AddHandler lnk.Click, AddressOf Me.lnkFolder
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center'>"))
|
||||
tdBodyDescargas.Controls.Add(lnk)
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("</tr>"))
|
||||
contador = contador + 1
|
||||
|
||||
Next
|
||||
contador = 0
|
||||
For Each s In listaFile
|
||||
|
||||
Dim fi As New FileInfo(s)
|
||||
|
||||
|
||||
Dim sLen As String = fi.Length.ToString()
|
||||
If fi.Length >= (GB) Then
|
||||
resultado = fi.Length / GB
|
||||
sLen = String.Format("{0} Gb", resultado.ToString("#.##"))
|
||||
ElseIf fi.Length >= (MB) Then
|
||||
resultado = fi.Length / MB
|
||||
sLen = String.Format("{0} Mb", resultado.ToString("#.##"))
|
||||
ElseIf fi.Length >= (KB) Then
|
||||
resultado = fi.Length / KB
|
||||
sLen = String.Format("{0} Kb", resultado.ToString("#.##"))
|
||||
End If
|
||||
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<tr>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:left!important'>" & fi.Name & "</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center!important'>" & sLen & "</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center!important'>" & fi.CreationTime.ToString("dd/MM/yyyy") & "</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center!important'>Archivo</td>"))
|
||||
Dim lnk As New ImageButton
|
||||
|
||||
lnk.ID = "lnkDes" & contador
|
||||
lnk.Attributes.Add("fname", fi.Name)
|
||||
lnk.ImageUrl = "~/Imagenes/Abajo.png"
|
||||
lnk.PostBackUrl = "#"
|
||||
|
||||
lnk.Attributes.Add("data-toggle", "tooltip")
|
||||
lnk.Attributes.Add("data-placement", "right")
|
||||
lnk.Attributes.Add("title", "Descargar")
|
||||
|
||||
AddHandler lnk.Click, AddressOf Me.lnkBtnDownload
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("<td style='text-align:center'>"))
|
||||
tdBodyDescargas.Controls.Add(lnk)
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("</td>"))
|
||||
tdBodyDescargas.Controls.Add(New LiteralControl("</tr>"))
|
||||
contador = contador + 1
|
||||
udpDescargas.Update()
|
||||
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
Alert("Error al obtener Archivos." & ex.Message, TipoMensaje.MsgAdvertencia)
|
||||
dvPanel.Visible = False
|
||||
|
||||
End Try
|
||||
Else
|
||||
dvPanel.Visible = False
|
||||
Alert("No se encontraron descargas relacionadas.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
udpDescargas.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub lnkFolder(sender As Object, e As EventArgs)
|
||||
|
||||
Dim lnk As ImageButton
|
||||
lnk = DirectCast(sender, ImageButton)
|
||||
Dim nombre As String = lnk.Attributes("fname")
|
||||
|
||||
addUrl(nombre)
|
||||
|
||||
cargarFolderActual()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub lnkBtnDownload(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
Dim empresa As Empresa = getEmpresaBDContPAQi()
|
||||
Dim BDContPAQi As String = empresa.BDContPAQi
|
||||
|
||||
|
||||
Dim ruta As String = getUrl()
|
||||
|
||||
Dim lnk As ImageButton
|
||||
lnk = DirectCast(sender, ImageButton)
|
||||
|
||||
Dim nombre As String = lnk.Attributes("fname")
|
||||
Dim filename As String = Path.Combine(ruta, nombre)
|
||||
|
||||
If filename <> "" Then
|
||||
|
||||
Dim file As New System.IO.FileInfo(filename)
|
||||
If file.Exists Then
|
||||
|
||||
Response.Clear()
|
||||
Response.AddHeader("Content-Disposition", "attachment; filename=" & cleanFileName(file.Name))
|
||||
Response.AddHeader("Content-Length", file.Length.ToString())
|
||||
Response.ContentType = "application/octet-stream"
|
||||
Response.TransmitFile(file.FullName)
|
||||
Response.End()
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Shared ReadOnly AllowedChars As Dictionary(Of Char, Char) = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ._()0123456789".ToDictionary(Function(c) c)
|
||||
Private Function cleanFileName(fileName As String) As String
|
||||
Dim newFileName As Char() = fileName.ToCharArray()
|
||||
For i As Integer = 0 To newFileName.Length - 1
|
||||
If Not AllowedChars.ContainsKey(newFileName(i)) Then
|
||||
newFileName(i) = "_"c
|
||||
End If
|
||||
Next
|
||||
Return New String(newFileName)
|
||||
End Function
|
||||
|
||||
Private Function getEmpresaBDContPAQi() As Empresa
|
||||
Dim objEmpresa As New ClsSisEmpresas()
|
||||
Dim empresa As New Empresa
|
||||
|
||||
If objEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
||||
' If objEmpresa.GetEmpresas(4, "-1", "-1", "-1", "-1") Then
|
||||
empresa = objEmpresa.Empresa
|
||||
|
||||
End If
|
||||
|
||||
objEmpresa.Dispose()
|
||||
Return empresa
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Function getUrl() As String
|
||||
|
||||
|
||||
Dim listaUrl As List(Of String) = DirectCast(ViewState("URLS"), List(Of String))
|
||||
Dim tempUrl As String = ""
|
||||
|
||||
If listaUrl.Count > 0 Then
|
||||
|
||||
tempUrl = listaUrl(listaUrl.Count - 1)
|
||||
|
||||
End If
|
||||
|
||||
Return tempUrl
|
||||
End Function
|
||||
|
||||
Private Sub addUrl(ByVal folder As String)
|
||||
|
||||
Dim listaUrl As List(Of String) = DirectCast(ViewState("URLS"), List(Of String))
|
||||
Dim tempUrl As String
|
||||
|
||||
If listaUrl.Count = 0 Then
|
||||
listaUrl.Add(folder)
|
||||
Else
|
||||
tempUrl = Path.Combine(listaUrl(listaUrl.Count - 1), folder)
|
||||
listaUrl.Add(tempUrl)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub removerUltimaUrl()
|
||||
|
||||
Dim urls As List(Of String) = DirectCast(ViewState("URLS"), List(Of String))
|
||||
|
||||
If urls.Count > 0 Then
|
||||
urls.RemoveAt(urls.Count - 1)
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub btnImgBack_Click(sender As Object, e As ImageClickEventArgs) Handles btnImgBack.Click
|
||||
removerUltimaUrl()
|
||||
|
||||
If getUrl() = "" Then
|
||||
addCargaLinksInicio()
|
||||
Else
|
||||
cargarFolderActual()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub btnHome_Click(sender As Object, e As ImageClickEventArgs) Handles btnHome.Click
|
||||
|
||||
Dim urlLista As New List(Of String)
|
||||
ViewState("URLS") = urlLista
|
||||
addCargaLinksInicio()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user