Relatorios ????
Pergunta
Respostas
Todas as Respostas
-
Conforme prometido!
Espero ter ajudado, depois não deixe de marcar o post como útil!
1 - crie um arquivo .xsd (DataSet)
2 - No arquivo .xsd crie um TableAdapter e faça a conexão com o banco utilizando o connection
string do seu arquivo web.config e defina o SQL com os campos a serem utilizados no relatório.3 - Apos definir o SQL será exibido o próximo passo com os métodos a serem gerados (deixar todos marcados)
( Caso o SQL sejá complexo, melhor criar uma view no banco de dados)4 - Crie um novo Arquivo .rpt (Crystal Reports)
5 - Vamos criar O relatório pelo wizard
5.1 - No dataSource selecione ADO .NET DataSets (dentro da pasta Project Data)
5.2 - selecione o nome da "visão" que você criou TableAdapter
5.3 - Arraste para a lista de tabelas selecionadas (Selected Tables
6 - Na barra de ferramantas do relatório (Field Explorer), abra o Database Fields e arraste
os campos para o relatório construindo o designer)7 - Pronto até aqui você fez o designer do relatório mapeando com os dados do banco de dados.
8 - Imprimir o relatório:Observações: O relatório será exibido para impressão como um PDF
Protected Sub cmdGerar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdGerar.ClickDim crReportDocument As New ReportDocument
Try
Dim strPathreport As String = Server.MapPath("~\nome_do_relatorio.rpt")
'abrindo o relatório
crReportDocument.Load(strPathreport)'carregando o dataset
Dim dsDados As New DataSet
dsDados.ReadXmlSchema(Server.MapPath("~\App_Code\nome_do_arquivo.xsd"))dsDados = [faça a consulta ao banco de dados utilizando o mesmo SQL que foi utilizado no .xsd]
crReportDocument.SetDataSource(dsDados.Tables(0))'exportando o arquivo para pdf
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim strPDFTmp As String = "c:\exports\" & Session.SessionID.ToString & ".pdf"crDiskFileDestinationOptions = New DiskFileDestinationOptions()
crDiskFileDestinationOptions.DiskFileName = strPDFTmp
crExportOptions = crReportDocument.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
crReportDocument.Export()'escrevendo o pdf para o browser do cliente
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.WriteFile(strPDFTmp)
Response.Flush()
Response.Close()'removendo o pdf do servidor
System.IO.File.Delete(strPDFTmp)Catch ex As Exception
ThrowFinally
'liberando os objetos
crReportDocument.Dispose()
crReportDocument = NothingEnd Try
