Data report en VB6

Version imprimable

18/08/2006, 20h50
pobrouwers

Data report en VB6

Bonjour le forum,

J'essaye de faire une application de facturation (en VB6 et utilisation dune base access) et je suis confronté à un probleme concernant le datareport.
J'ai une facture avec plusieurs ligne de produits, le probleme est que si j'insere des txtbox dans le detail du datareport avec les données qui concernent les produits ET egalement le nom du client par exemple, j'aurais pour chaque ligne de produit le nom du client qui apparait dans le rapport.

Ce que je souhaiterais c'est d'avoir le client en header du report mais impossible d'insérer des textbox dans le header du report.

Comment contourner ce probleme ?

Merci d'avance.
19/08/2006, 10h29
khany

Place le nom de ton client dans un label car eux, tu peux les mettre dans le header ;)
20/08/2006, 12h17
pobrouwers

Oui ok mais le rapport ne sera pas dynamique alors.
20/08/2006, 12h44
khany

Là, je suis d'accord avec toi !

Personnellement, je préfère passer par un Rs dans mon programme et allouer mes textboxes, je sais, c'est pas le but du DR mais, il est tellement faible niveau possibilités et flexibilité que je me suis débrouillée ainsi !

Il y a même plein d'impression que je gère avec Printer plutôt que de passer par le DR ou alors je me sers d'Excel ou de Word !

L'idéal est une solution Crystal Report que tu pilotes via VB mais, bon, ce logiciel n'est pas gratuit, loin de là ;)
20/08/2006, 12h51
Acrobat

J'espère que j'ai bien compris le probleme.Ben tu dois ajouter un entète de groupe et regrouper tes champs par clients.
20/08/2006, 13h37
pobrouwers

1 pièce(s) jointe(s)

Re,

Merci pour vos réponses...

Je me doutais bien qu'il fallait que j'ai une entete de groupe mais impossible de la faire fonctionner. Je ne sais pas comment je dois faire avec ma requete sql.

Acrobat Aurais-tu un exemple sous la main pour que je me base dessus ?

Ou alors je joins mon projet et si vous pouvez regarder....

Le code qui concerne le DR se trouve a la fin de frmMain

Merci d'avance.

Code:

1
2
3
4
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Form_Activate()
     BlockInput True
End Sub

20/08/2006, 14h53
khany

J'ai déjà essayé cela Acrobat mais lorsque j'ai des sous-groupes dans les factures (c'est un autre domaine mais qui peut se comparer à des factures), il n'arrive pas à scinder les groupes correctement et surtout à faire des PageBreak quand il faut !

Par contre, à un seul niveau, c'est juste j'aurais du me souvenir de cette façon de faire :oops:
20/08/2006, 15h13
philippef

Comme te l'as dit Acrobat tu fais clic droit sur command1, tu ouvres l'onglet
regroupement, tu cliques "objet command de regroupement" et là tu sélectionnes tous les champs qui doivent être dans l'entête ( le nom, la civilité etc....)
Quand tous tes champs de regroupement sont sélectoinner, cliques sur "appliquer".
Dans les propriétés du datareport, tu mets à jour "datasource" et "datamember".
Après tu fais un clic droit sur le datareport et tu selectionnes "extraire la structure". La tu as message qui t'averti que tous sera effacer, tu dis ok et normalement ton datareport contient une section de regroupement.

Si c'est pas clair, je t'envoie un exemple de facturation qui fonctionne.

Tu as aussi une possibilité de créer des commandes filles sans faire de regroupement mais qui donnent le même résultat.
20/08/2006, 15h24
Mehdi_ab
salut :lol:

j avais le même probléme, mais je l'ai résolu a l'aide du code
Par exemple si t'as un Label(lblClient) dans une section de l'etat(Section2) dans un data report (drMonEtat), tu peux changer la propriété Caption du Label en travaillant avec les collections, alors on aura ce genre du code :
Code:

1 2 3 4 'Section2 est le nom de la sesction ou se trouve le controle lblclient drMonEtat.Sections("Section2").Controls("lblclient").Caption = "MonClient" 'aprés on affiche l'etat drMonEtat.Show
j espére qu ça va t aider ;)
20/08/2006, 17h24
pobrouwers

Re, Merci à tous pour vos réponses,...

Je vais essayer les 2 solutions...
Phillippef peux-tu m'envoyer ton exemple comme ca j'aurais plus facile ;)

Merci, je vous tient au courant du résultat

Donc voilà la requête que j'ai utilisée pour éditer une facture.
Cette requête fait appel à 7 tables :
Sociétés (pour l'entête et le pied de facture),
ClientsFichiers (pour le nom, l'adresse etc)
ClientsFactures(pour les commandes, les livraisons etc)
ClientsFacturesDétail (pour le détail de la facture)
PaiementMode (pour les paiements par chèque etc)
PaiementConditions (pour les paiements à 30 jours etc)
Juridique (pour la forme de la société qui facture etc)

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
SELECT Sociétés.CléSociété, Sociétés.NomSociété, 
    Sociétés.SigleSociété, Sociétés.Adresse1, Sociétés.Adresse2, 
    Sociétés.CodePostal, Sociétés.Ville, Sociétés.Téléphone, 
    Sociétés.Portable, Sociétés.Fax, Sociétés.AdrInternet, 
    Sociétés.Capital, Sociétés.NumRC, Sociétés.LieuRC, 
    Sociétés.Siret, Sociétés.APE, Sociétés.TVAIntracom, 
    ClientsFichiers.CléClient, 
    ClientsFichiers.Adresse1 AS Adr1Cli, 
    ClientsFichiers.Adresse2 AS Adr2Cli, 
    ClientsFichiers.CodeClient, 
    ClientsFichiers.CodePostal AS CodPostCli, 
    ClientsFichiers.CodeTVA AS TVACli, ClientsFichiers.NomClient, 
    ClientsFichiers.Ville AS VilleCli, ClientsFactures.NumFacSys, 
    ClientsFactures.NumFac, ClientsFactures.TypDoc, 
    ClientsFactures.DateFact, ClientsFactures.DateCde, 
    ClientsFactures.NumCommande, 
    ClientsFactures.DateIntervention, 
    ClientsFactures.BonLivraison, ClientsFactures.Civilité, 
    ClientsFactures.NomCivilité, ClientsFactures.AdresseF1, 
    ClientsFactures.AdresseF2, ClientsFactures.CodePostalF, 
    ClientsFactures.VilleF, ClientsFacturesDétail.NumLigne, 
    ClientsFacturesDétail.RéfProduit, 
    ClientsFacturesDétail.Description, 
    ClientsFacturesDétail.CodeTVA, ClientsFacturesDétail.Quantité, 
    ClientsFacturesDétail.PrixUnitaire, 
    ClientsFacturesDétail.Remise, 
    ClientsFacturesDétail.Quantité * ClientsFacturesDétail.PrixUnitaire
     * (1 - ClientsFacturesDétail.Remise / 100) AS THT, 
    PaiementConditions.DescriptConditPaiemt, 
    PaiementMode.DescriptModePaiemt, 
    Juridique.TypeJuridiq
FROM Sociétés, ClientsFichiers, ClientsFactures, 
    ClientsFacturesDétail, PaiementMode, PaiementConditions, 
    Juridique
WHERE Sociétés.CléSociété = ClientsFichiers.CléSociété AND 
    ClientsFichiers.CléClient = ClientsFactures.CléClient AND 
    ClientsFichiers.CléClient = ClientsFacturesDétail.CléClient AND 
    ClientsFactures.NumFacSys = ClientsFacturesDétail.NumFacSys
     AND 
    ClientsFichiers.ModePaiemt = PaiementMode.CléModePaiemt AND
     ClientsFichiers.ConditionsPaiements = PaiementConditions.CléConditPaiemt
     AND Sociétés.CléJuridiq = Juridique.CléJuridiq AND 
    ClientsFactures.NumFacSys = NuFac AND 
    (Sociétés.CléSociété = NumSoc)
ORDER BY ClientsFacturesDétail.NumLigne

Seule la table ClientsFacturesDétail est utilisée dans la section Détail, les autres tables servent au regroupement au niveau de la société et du client.

Si tu suis ce que je t'ai dit ça doit marcher
Je veux bien t'envoyer une copie d'écran, mais je sais pas faire.

20/08/2006, 22h54
pobrouwers

Merci, cela m' a fortement aidé...:D