Jump to content
Leovon

[VB.NET] Imprimir Factura com Crystal Report

Recommended Posts

Leovon

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

Share this post


Link to post
Share on other sites
rui_fernandes

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.


Rui Fernandes

Share this post


Link to post
Share on other sites
estrafalhote

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

Share this post


Link to post
Share on other sites
Asgorath

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.


"The Dark Side Clouds Everthing. Impossible To See The Future Is."My rig: Intel Core 2 Quad Q9450 | abit IP35P | 4G Kingston 800 Mhz | XFX GeForce 9800 GX2 1G ddr3 | 2X WD5000AAJS 500Gb Sata 2 | PSU 600W || Caixa El-Diablo | Creative XMod

Share this post


Link to post
Share on other sites
rui_fernandes

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


Rui Fernandes

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.