Untitled

mail@pastecode.io avatar
unknown
plain_text
7 months ago
2.6 kB
1
Indexable
Never
 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
Leave a Comment