Untitled
unknown
plain_text
2 years ago
2.6 kB
4
Indexable
Protected Sub CarregaArquivos() Dim PreAprovacaoID As Integer = ViewState("PreAprovacaoID") Dim Arquivos As DataTable = ViewState("Arquivos") Dim Linha As DataRow Dim PreAprovacaoArquivos = (From tb In db.PreAprovacaoArquivos _ Where tb.PreAprovacaoID = PreAprovacaoID) For Each item In PreAprovacaoArquivos Linha = Arquivos.NewRow Linha("Linha") = Arquivos.Rows.Count + 1 Linha("Arquivo") = item.Arquivo Linha("NomeArquivo") = item.NomeArquivo Linha("DataEnvio") = item.DataEnvio Arquivos.Rows.Add(Linha) Next ViewState("Arquivos") = Arquivos ArquivosListView.DataSource = Arquivos ArquivosListView.DataBind() ArquivosUpdatePanel.Update() End Sub Protected Sub CriaArquivosDataTable() Dim Arquivos As New DataTable With Arquivos.Columns .Add("Linha") .Add("Arquivo") .Add("NomeArquivo") .Add("DataEnvio") End With ViewState("Arquivos") = Arquivos End Sub Protected Sub IncluirArquivoUploadAttachments_AttachmentAdded(ByVal sender As Object, ByVal args As CuteWebUI.AttachmentItemEventArgs) Handles IncluirArquivoUploadAttachments.AttachmentAdded Dim File As AttachmentItem = args.Item Dim NomeArquivo As String = File.FileName Dim Extensao As String = Mid(NomeArquivo, InStrRev(NomeArquivo, ".", -1)) NomeArquivo = RemoveCaracteres(NomeArquivo.Replace(Extensao, "")) Dim NomeCompleto As String = NomeArquivo & Guid.NewGuid().ToString() & Extensao Dim DataEnvio As DateTime = DateTime.Now If Not IO.Directory.Exists(Server.MapPath("~\PreAprovacaoArquivos")) Then IO.Directory.CreateDirectory(Server.MapPath("~\PreAprovacaoArquivos")) End If Try File.CopyTo(Server.MapPath("~\PreAprovacaoArquivos\" & RemoveCaracteres(NomeCompleto))) Catch ex As System.UnauthorizedAccessException Mensagem("O acesso ao diretorio foi negado. Entre em contato com o administrador do sistema.") Exit Sub End Try IncluirArquivoUploadAttachments.Visible = False IncluirButton.Visible = False Dim Arquivos As New DataTable Dim Linha As DataRow Arquivos = ViewState("Arquivos") Linha = Arquivos.NewRow Linha("Linha") = Arquivos.Rows.Count + 1 Linha("NomeArquivo") = NomeArquivo Linha("Arquivo") = NomeCompleto Linha("DataEnvio") = DataEnvio Arquivos.Rows.Add(Linha) ArquivosListView.DataSource = Arquivos ArquivosListView.DataBind() PreAprovacaoUpdatePanel.Update() ArquivosUpdatePanel.Update() End Sub
Editor is loading...
Leave a Comment