Discussion :

[agnaou]

bonsoir a tous
j'ai créer un from qui me permette d'ajouter une facture a ma listes des factures (tables factures) puis j'ai un button apercu qui me permet de visualiser ma facture (a fin de l'imprimer) pour cella j'utilise un crystal reports .mon pro c'est que le crystal reports doit étre paramettré (code facture) ,ce dernier existe sur une textbox de la form factues et j'ai un autres form qui contient le controle crystalReportsViewer et je ne sais pas comment procédé
et merci d'avance pour votre réponse

[Hinault Romaric]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
            Dim Etat As New ReportDocument
 
            Etat.Load("monrapport.rpt")
 
            'Declaration des variables pour le passage du parametres
            Dim crParameterFieldDefinitions As ParameterFieldDefinitions
            Dim crParameterFieldDefinition As ParameterFieldDefinition
            Dim crParameterValues As New ParameterValues
            Dim crParameterDiscreteValue As New ParameterDiscreteValue
 
            'attribution de la valeur du parametres
            crParameterDiscreteValue.Value = Textbox1.text
 
            crParameterFieldDefinitions = Etat.DataDefinition.ParameterFields
 
            'Parametre de l'etat à passer
            crParameterFieldDefinition = crParameterFieldDefinitions.Item("@nomparametre")
            crParameterValues = crParameterFieldDefinition.CurrentValues
            crParameterValues.Clear()
            crParameterValues.Add(crParameterDiscreteValue)
            crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
 
         try   
             'cas d'une impression direct avec l'imprimante par défaut
            Etat.PrintToPrinter(Nbcopie, False, 0, 0)
            'cas de la visualistaion dans le reportview
            crystalReportsViewer.ReportSource = Report
 
 
        Catch ex As Exception
 
        End Try

n'oublie pas d'importer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
CrystalDecisions.Shared
CrystalDecisions.Windows.Forms
CrystalDecisions.CrystalReports.Engine

[agnaou]

tous d'abord merci pour vous reponse
j'essai de suivi les etapes proposer ici
mais il me renvoi une erreu de genre
"champ count incorrect" la requet a comme syntaxe

("SELECT article.designation, article.prix_unitaire, Devis_article.qte_article, Devis_article.prix_ht, Devis_article.prix_ttc, Factures.echeance, Factures.accompte, Factures.total_facture" & _
"FROM article INNER JOIN Devis INNER JOIN Devis_article ON Devis.num_devis = Devis_article.num_devis INNER JOIN Factures ON Devis.num_devis = Factures.num_devis ON article.num_article = Devis_article.num_article" & _
"WHERE Devis.num_devis=?")

et merci encore une fois pour vous reponse

[Hinault Romaric]

Je croyais que tu avais déjà traverser l'étape de conception et de mise en forme de l'état.
essaye d'exécuter d'abord ta requête via l'analyseur de requête pour voir si elle est juste .

[agnaou]

encore une fois merci pour vous reponses
j'ai déja tester sous accéss(ma base en accéss)et la requet donne le résultat souhaité mais dans le button aperçu c'est une autre chose
(envoie d'erreur)er ce stad je ne comprend pas pourquoi
et merci encore une fois

[Hinault Romaric]

s'il te plait spécifie moi exactement a quelle phase de la conception de ton etat tu rencontre ce problème et donne moi un peu plus de detaille
et j'aimerais savoir quelle version de Crystal report tu utilise ou de Visual studio.

[agnaou]

encore une fois merci pour ta reponse rapide
ok mr
j'ai utlise vb.net 2005
comme j'indique précedament j'ai suivi etape par etape de craetion d'un etat paramétré en lien spécèfié au lien au-dessus,pour cela j'ai unfrom qui cotient selement le controle crystalreportsviewer(pas de textbox1)
et dans le button aperçu j'ai met ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
'visualiser.ShowDialog()
                Dim com As New OdbcCommand
                com.CommandType = CommandType.Text
                com.Connection = con
                com.CommandText = ("SELECT article.designation, article.prix_unitaire, Devis_article.qte_article, Devis_article.prix_ht, Devis_article.prix_ttc, Factures.echeance, Factures.accompte, Factures.total_facture" & _
                "FROM article INNER JOIN Devis INNER JOIN Devis_article ON Devis.num_devis = Devis_article.num_devis INNER JOIN Factures ON Devis.num_devis = Factures.num_devis ON article.num_article = Devis_article.num_article" & _
                "WHERE Devis.num_devis=?")
                Dim par As OdbcParameter = cmd.Parameters.AddWithValue("num_devis", Convert.ToInt32(num_Dv))
                Dim dsCmd As New DataSet
                Dim adpCmd As New OdbcDataAdapter
                adpCmd.SelectCommand = com
                adpCmd.Fill(dsCmd)
                Dim aper As New imprimer_Facture_devis
                Dim etat As New CrystalReport1
                etat.SetParameterValue("num", Convert.ToInt32(num_Dv))
                'etat.SetDataSource(dsCmd.Tables(0))
                aper.CrystalReportViewer1.ReportSource = etat
                aper.MdiParent = Form1
                aper.Visible = True
                'Me.Close()

pour mon crystalreports je cér un paramettre (num de type nombre)sachant que num_devis est un entier
et merci encore une fois

[agnaou]

encore une fois merci pour votre aide
c'est just une erreur d'organisation j'ai dupliqué la requéte (une dans crystal reports et l'autre dans le button aperçu)
merci encore une fois

[Hinault Romaric]

j'ai été loin de mon ordinateur pendant un moment