• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Leovon

[VB.NET] Imprimir Factura com Crystal Report

6 mensagens neste tópico

Olá viva,

Malta estou com um problema, eu fiz um pequeno software em Visual Studio 2005, mas agora deparei me com o seguinte.

Quero fazer uma factura ou recibo, tenho um from com textbox's e comobox's e gostava de fazer uma factura apartir daí

será que o crystal report dara para fazer isso? Como posso fazer?  :nono1: :wallbash:

um grande abraço para todos...

Leovon

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

epah, ja fiz uma coisa identica, mas ia buscar a informacao a um DATASET, em que era preenchido de uma Base de Dados conforme a Query que eu utilizava...

agr assim n sei se da para fazer.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

epah, ja fiz uma coisa identica, mas ia buscar a informacao a um DATASET, em que era preenchido de uma Base de Dados conforme a Query que eu utilizava...

agr assim n sei se da para fazer.

já agora podias me explicar como fizes te isso??

é que eu queria fazer uma coisa semelhante já agora podes dar uma vista de olhos neste tópico que eu criei

http://www.portugal-a-programar.pt/index.php?showtopic=11972

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá Leoveon.

Nos  ultimos 8 anos ja criiei mais de 200 crystal reports para todas as areas da minha empresa: armazem,aprovionamnentos,comercial,industrrial,qualidade e contabilidade.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

estrafalhote,

tipo, crias um dataset com as tabelas que vais utilizar, depois quando fores chamar o relatorio, metes o seguinte codigo no botao:


Dim frm As New frm_relatorio

        'cria uma instância do dataset para preenche-lo, e mandar escrever no report
        Dim ds As New Dataset_relatorio

        Try
            Dim sql_tabela1 As String = "SELECT * FROM tabela1"
            Dim sql_tabela2  As String = "SELECT * FROM tabela2"

            '(agr fazer a ligacao a base de dados)

            Dim da_tabela1  As New OleDbDataAdapter
            Dim da_tabela2 As New OleDbDataAdapter

            'Criar os  DataAdapters
            da_tabela1  = New OleDbDataAdapter(sql_tabela1 , coneccaoBD)
            da_tabela2  = New OleDbDataAdapter(sql_tabela2, coneccaoBD)

            'Preencher as tabelas do dastaset a partir dos dataAdaperts
            da_tabela1 .Fill(ds, "tabela1")
            da_tabela2 .Fill(ds, "tabela2")

            'Gerar o relatório a partir do dataset e exibí-lo
            Dim rpt As New CrystalReport1
            rpt.SetDataSource(ds)
            frm.relatorio_ver.ReportSource = rpt

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
        frm.Show()

epah, e isto...

agr espero k percebas.

:P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora