ASP.NET/VB.NET: ERRO EM EXPORTACAO EXCEL!!
ASP.NET/VB.NET: Erro em exportação excel!!
Eu tenho uma exportação excel asp.net com vb.net que exporta a página(conteúdo html) e não exporta os dados, sem dar mensagem de erro.
alguém tem ideia do que possa ser isto?
grato
Eu tenho uma exportação excel asp.net com vb.net que exporta a página(conteúdo html) e não exporta os dados, sem dar mensagem de erro.
alguém tem ideia do que possa ser isto?
grato
Sem código nenhum é impossÃvel saber o que você fez ou qual seria o motivo do erro.
mas ninguem nunca viu este tipo de situação ocorrer??
eu ja vi, mas nao lembro o que fiz para resolver ...
desconfiamos que seja algo nos dados, pois, qdo é feito com poucos dados, nunca dá este erro ........
eu ja vi, mas nao lembro o que fiz para resolver ...
desconfiamos que seja algo nos dados, pois, qdo é feito com poucos dados, nunca dá este erro ........
rotina que chama a rotina que exporta:
Protected Sub btGerar_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles btGerar.ServerClick
If Page.IsValid Then
Dim c As New ExportarEventArgs()
[ô]Dim s As String
RaiseEvent Exportar(Me, c)
If c.Cancel Then Exit Sub
Dim ta As Data.ExportaTXT.eTipoArquivo = CType(CByte(ddlTipoArquivo.SelectedValue), Data.ExportaTXT.eTipoArquivo)
If Me.ID = [Ô]true[Ô] Then
c.vApurada = True
End If
If c.vTipo = TipoNota.NotaTomador Then
EXP = New Data.ExportaTXT(c.Contribuinte, c.Inicio, c.Fim, c.TipoData, ta)
Else
If c.vApurada Then
EXP = New Data.ExportaTXT(c.Contribuinte, c.Inicio, c.Fim, c.TipoData, ta, c.vApurada)
Else
EXP = New Data.ExportaTXT(c.Contribuinte, c.Inicio, c.Fim, c.TipoData, ta)
End If
End If
Response.Clear()
Response.BufferOutput = False
If c.vTipo = TipoNota.NotaTomador Then
Response.AppendHeader([Ô]content-disposition[Ô], [Ô]attachment; filename=[Ô] & EXP.Arquivo(Data.ExportaTXT.eTipoNotas.NFTS))
Else
Response.AppendHeader([Ô]content-disposition[Ô], [Ô]attachment; filename=[Ô] & EXP.Arquivo(Data.ExportaTXT.eTipoNotas.NFSe))
End If
Select Case ta
Case Data.ExportaTXT.eTipoArquivo.CSV
Response.ContentType = [Ô]text/csv[Ô]
Case Else
Response.ContentType = [Ô]text/plain[Ô]
End Select
If c.vTipo = TipoNota.NotaTomador Then
EXP.ExportarNFTS(c.Command, Response.OutputStream, Convert.ToInt32(ddlLayoutArquivo.SelectedValue))
[ô][ô]AQUI CHAMA ROTINA QUE TRAZ DADOS, SQL
Else
[ô]EXP.Exportar2(True, Response.OutputStream, Convert.ToInt32(ddlLayoutArquivo.SelectedValue))
EXP.Exportar(c.Command, Response.OutputStream, Convert.ToInt32(ddlLayoutArquivo.SelectedValue))
[ô]AQUI CHAMA ROTINA QUE TRAZ DADOS, SQL
End If
Response.End()
End If
End Sub
Protected Sub btGerar_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles btGerar.ServerClick
If Page.IsValid Then
Dim c As New ExportarEventArgs()
[ô]Dim s As String
RaiseEvent Exportar(Me, c)
If c.Cancel Then Exit Sub
Dim ta As Data.ExportaTXT.eTipoArquivo = CType(CByte(ddlTipoArquivo.SelectedValue), Data.ExportaTXT.eTipoArquivo)
If Me.ID = [Ô]true[Ô] Then
c.vApurada = True
End If
If c.vTipo = TipoNota.NotaTomador Then
EXP = New Data.ExportaTXT(c.Contribuinte, c.Inicio, c.Fim, c.TipoData, ta)
Else
If c.vApurada Then
EXP = New Data.ExportaTXT(c.Contribuinte, c.Inicio, c.Fim, c.TipoData, ta, c.vApurada)
Else
EXP = New Data.ExportaTXT(c.Contribuinte, c.Inicio, c.Fim, c.TipoData, ta)
End If
End If
Response.Clear()
Response.BufferOutput = False
If c.vTipo = TipoNota.NotaTomador Then
Response.AppendHeader([Ô]content-disposition[Ô], [Ô]attachment; filename=[Ô] & EXP.Arquivo(Data.ExportaTXT.eTipoNotas.NFTS))
Else
Response.AppendHeader([Ô]content-disposition[Ô], [Ô]attachment; filename=[Ô] & EXP.Arquivo(Data.ExportaTXT.eTipoNotas.NFSe))
End If
Select Case ta
Case Data.ExportaTXT.eTipoArquivo.CSV
Response.ContentType = [Ô]text/csv[Ô]
Case Else
Response.ContentType = [Ô]text/plain[Ô]
End Select
If c.vTipo = TipoNota.NotaTomador Then
EXP.ExportarNFTS(c.Command, Response.OutputStream, Convert.ToInt32(ddlLayoutArquivo.SelectedValue))
[ô][ô]AQUI CHAMA ROTINA QUE TRAZ DADOS, SQL
Else
[ô]EXP.Exportar2(True, Response.OutputStream, Convert.ToInt32(ddlLayoutArquivo.SelectedValue))
EXP.Exportar(c.Command, Response.OutputStream, Convert.ToInt32(ddlLayoutArquivo.SelectedValue))
[ô]AQUI CHAMA ROTINA QUE TRAZ DADOS, SQL
End If
Response.End()
End If
End Sub
Bom, vai depender E MUITO em como você faz a exportação...
é do jeito acima... veja lá...
E o que o método [Ô]Exportar[Ô] faz?
era problema na query mesmo, fizeram um tunning, e acabou a lentidão, vlw gentém!
abç
abç
Tópico encerrado , respostas não são mais permitidas