Discussion :

[kiminfor]

Bonjour,
Je cherche une solution à un problème que j'ai rencontré au cours du développement d'une application de gestion de Budget financier d'une entreprise.
La première partie de l'application est achevée, elle consiste à saisir les données des chapitres, articles, factures, fournisseurs.
Pour la partie impression si l'utilisateur décide de tout imprimer, le programme doit faire une sélection par partie c'est-à-dire: sur la première page toute les factures du même chapitre et article doivent y figurés

Page 1-- Chapitre 1-- Article 1---Facture 1
--------------------------------Facture 2
--------------------------------Facture 3

Page 2-- Chapitre 1-- Article 2---Facture 4
--------------------------------Facture 5
--------------------------------Facture 6

Page 3-- Chapitre 2-- Article 1---Facture 7
--------------------------------Facture 8
--------------------------------Facture 9

Devrai-je utilser sql pour la sélection et print before pour imprimer la selection??
Comment procéder ?

[Just-Soft]

Salut;

• Tout à fait pour le SQL y a pas mieux dans ton cas.
• Print Before je ne connais pas par contre tu peux utiliser BeforePrint pour restreindre le champ d'application.

[kiminfor]

Salut, merci pour la réponse

Print Before je ne connais pas par contre tu peux utiliser BeforePrint

c'est ce que je voulais dire BeforePrint.
Pour le SQL je n'ai pas encore trouvé la formule qu'il faut, j'ai essayé ceci mais ça ne donne rien pour le moment

Code :

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

1
2
3
4
 
SELECT NUMFACTURE
FROM TFacture
GROUP BY Article

Devrai je mettre deux Group by imbriqués?

help please

[Just-Soft]

Re;

tu mélange entre condition (Where en SQL) et grouper les données (Group By en SQL).

donne plus de détail sur ce que tu veux faire. si tu compte grouper les données par numéro de facture par exemple, dans ce cas ta requête devrais ressembler à ça :

Code :

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

1
2
3
4
 
Select champ1, champ2, champ..., champn
Where Num_Facture =: n_facture
Group By Num_Facture

puis tu fais:

Code :

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

1
2
3
4
 
TQuery1.Close;
TQuery1.Params.[0] := EditNumFacture.Text;
TQuery1.Open;

bien sûr en supposant que tu utilise un TQuery et que ton EditNumFacture contient le numéro de facture à imprimer.
donc pas besoin de BeforePrint du QReport.

Bonne chance.

[kiminfor]

Merci pour la réponse mais je n'ai toujours pas trouvé la solution!!!
Ce que je veux c'est faire un groupement de facture par Numéro d'article 'NUMART' ensuite groupement d'article par Numéro de chapitre 'NUMCH'.
Donc au moment de lancer l'impression tout doit être organisé comme ceci sur des pages distinctes:
1) Chapitre n°1 Num article1: facture n°1, facture n°4, facture n°6

2) Chapitre n°2 Num article3: facture n°8, facture n°9, facture n°10

3) Chapitre n°2 Num article6: facture n°18, facture n°19, facture n°20

j'espère avoir été plus clair, toute propositions est la bienvenue!! merci

[Just-Soft]

Re;

sur la base de ce que je viens de voir, je te conseil de travailler avec les bandes détail et sous-détail.

Dans la bande détail tu pose un DBText référençant le champ Chapitre et dans la bande sous-détail tu pose des DBText référençant le champ facture.

De cette manière tu auras le résultat attendu. pour ce qui du code SQL tu dois l'adapter au sous-détail puisque la bande détail à une propriété DataField (si je me souviens bien) positionnée sur le champ Chapitre. En plus, tu devra forcé le passage à la page suivante à chaque changement du Chapitre par la propriété ForceNewPage à True (espérant toujours que c'est la bonne propriété).

Je crois aussi avoir été claire, bonne chance.

[SergioMaster]

Ah , parce qu'il s'agissait de Quickreport ?!!!
Et de quelle Base de Données ? car en fonction du type de BDD la réponse peut ne pas être la même. De même une vraie, bonne, description de la table ça aide .

en admettant , qu'en fait de facture on parles de lignes de factures , qu'à chaque fois le chapitre est bien indiqué le SQL donnerait quelque chose du genre

Code :

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

1
2
SELECT CHAPITRE,ARTICLE,FACTURE,SUM(QTE)  FROM FACTURE
GROUP BY CHAPITRE,ARTICLE,FACTURE

ceci dit à moins qu'un article soit facturé plusieurs fois dans une même facture le group by n'a pas beaucoup de sens contrairement à l'ordre (ORDER BY)

Bien sur en aucun cas ce SQL ne peut donner une liste de facture comme indiqué ici,

1) Chapitre n°1 Num article1: facture n°1, facture n°4, facture n°6

une liste telle que celle-ci ne pourrait se faire avec quickreport que de la manière suivante:

un bande entete de groupe sur chapitre (vide ou avec l'intitulé du chapitre)
une bande entete de groupe sur article (vide)
une bande détail (vide)
une bande bas de groupe article contenant
le code article , la quantité totale (donc un QRExpression que l'on oubiera pas de réinitialiser apres impression ) et un mémo qui contiendra les numéros de factures
La bande bas de groupe Chapitre sera aligné en bas de page (ce qui fourniras le saut de page souhaité et ce sans rien coder )

la bande détail bien que vide de tout texte aura un événement onBeforePrint ou AfterPrint peu importe où l'on remplira le mémo avec les numéros de factures
La bande entete de groupe chapitre / ou bas de groupe chapitre également aura un évènement permettant de réinitilaiser le mémo

En passant je ferais remarquer qu'il y a un forum spécialisé (ou peu s'en faut) quickreport ici

[kiminfor]

en admettant , qu'en fait de facture on parles de lignes de factures , qu'à chaque fois le chapitre est bien indiqué le SQL donnerait quelque chose du genre

Code :

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

1
2
SELECT CHAPITRE,ARTICLE,FACTURE,SUM(QTE)  FROM FACTURE
GROUP BY CHAPITRE,ARTICLE,FACTURE

ceci dit à moins qu'un article soit facturé plusieurs fois dans une même facture le group by n'a pas beaucoup de sens contrairement à l'ordre (ORDER BY)

C'est bien ce que je voulais comme formule de SQL, maintenant que le groupement est fait! Je dois imprimer le résultat et cela en forçant (comme indiqué par Juste-Soft) le passage à la page suivante à chaque changement d'Article, je n’ai jamais utilisé cette option auparavant!

Juste-Soft:
En plus, tu devra forcé le passage à la page suivante à chaque changement du Chapitre par la propriété ForceNewPage à True (espérant toujours que c'est la bonne propriété).

En passant je ferais remarquer qu'il y a un forum spécialisé (ou peu s'en faut) quickreport
ici

Je vais consulter le lien que vous m'avez indiquez en espérant trouver la solution
Merci de votre aide !!!

[SergioMaster]

à chaque changement d'Article

pratiquement la même solution qu'indiqué précédemment à la différence que c'est la bande bas de groupe article qui sera alignée en bas de page

Je vais consulter le lien que vous m'avez indiquez en espérant trouver la solution

de toute façon c'est moi qui y sévit le plus pour ce qui est de QuickReport

néanmoins , un conseil , montre bien ce que tu veux exactement en sortie car les solutions seront certainement différentes selon la présentation souhaitée. Le top , c'est un dessin d'état en pièce jointe et une bonne description du/des fichiers d'entrée.
Un problème bien posé est déjà grandement résolu

[kiminfor]

Bonjour,

Le top , c'est un dessin d'état en pièce jointe et une bonne description du/des fichiers d'entrée.
Un problème bien posé est déjà grandement résolu

Vous avez raison: Un exemple vaut mieux que mille discours !

C'est ce que je veux obtenir comme résultats.

Merci pour l'aide que vous m'apportez

[Just-Soft]

Mon ami à priori tu as besoin de te documenter sur les bandes car je vois que tu mélange.

1. La bande titre n'est pas destinée aux enregistrements donc se contenter de n'afficher que les info correspondant; Nom de l'entreprise, Logo, Date d'impression, etc.
2. Faut se servir de la bande colonne car c'est cet endroit qui est prévu pour recevoir les noms des champs; Libellé en d'autres termes.
3. La bande détail est destinée à afficher les enregistrements donc les champs

Avec ça tu devra avancer grandement, bonne chance.

[SergioMaster]

Voici comment je vois la chose dans le fichier joint .
bien sur la présentation y est succinte .
le principe était déjà expliqué (je m'auto cite avec quelques corrections en fonction de l'état souhaité)

un bande entete de groupe sur chapitre
une bande entete de groupe sur article
une bande détail
une bande bas de groupe article contenant
le code article , la quantité totale (donc un QRExpression que l'on oubiera pas de réinitialiser apres impression ) et un mémo qui contiendra les numéros de factures
La bande bas de groupe Chapitre sera aligné en bas de page (ce qui fourniras le saut de page souhaité et ce sans rien coder )

[kiminfor]

Bonjour,
Merci pour les réponses ça ma beaucoup aider à avancer (je n'ai pas fais de reply à cause des problèmes techniques).

Pour l'impression, je voudrais forcer la création d'une nouvelle page à chaque changement de n° d'article:

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
 
procedure TForm14.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
Query2.first;
while not (Query2.eof) do
if ((Query2.FieldValues['Article'])<>(Query2.FieldValues['Article'].Next)) Then  // BUG A CE NIVEAU 
 
Begin
QuickRep1.NewPage;
Query2.Next;
end
else
 
Query2.Next;
end;

J'ai un problème au niveau du test "if" je n'ai pas su comment comparer un enregistrement avec sans suivant.

S.V.P corrigez moi

[Just-Soft]

Re;

à mon sens cela devrait se passer "après" impression mais pas "avant" donc au niveau du AfterPrint. Le code me semble être comme ça :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm14.DetailBand1AfterPrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   // si on n'est pas sur la 1ère page alors
   PrintBand := (Query2.RecordCound > 1);
   // forcer le passage à une nouvelle page
   if (PrintBand) then QuickRep1.NewPage;
end;

Bonne chance.

[kiminfor]

Bonjour,
Je pense que j'ai été mal compris, je dois parcourir le query en comparant le champ article avec son suivant, s'il est différent alors forcer la création d'une nouvelle page.
Merci

[Just-Soft]

donc c'est plus facile que je le pensais. voici l'algo (si je puis dire) :

Code :

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

1
2
3
4
5
6
7
8
Ouvrir Query
Lire Enregistrement
Sauver champ dans variable_globale
si pas premier enregistrement alors
  si champ_actuel = variable_globale
     nouvelle_page
  fin_si
fin_si

et que tout cela soit fait au niveau du BeforePrint de ton QReport.

[SergioMaster]

Bonjour,
Pour l'impression, je voudrais forcer la création d'une nouvelle page à chaque changement de n° d'article:

pas la peine de se compliquer inutilement la vie , si tu as suivi mes conseils il suffit de mettre un alignbottom dur le bas de groupe article comme pour celui de

La bande bas de groupe Chapitre sera aligné en bas de page (ce qui fourniras le saut de page souhaité et ce sans rien coder )

[Just-Soft]

oui oui et oui c'est la meilleure solution ; saut de page sans aucun code
merci maître.

[kiminfor]

Bonjour, merci pour les réponses just-soft et sergio

Sergio:

pas la peine de se compliquer inutilement la vie, si tu as suivi mes conseils il suffit de mettre un alignbottom dur le bas de groupe article comme pour celui de ....

J'ai suivi les étapes mais je n'ai pas obtenu le résultat que je voulais, il y a peut être une propriété à changer, ou peut être c'est moi qui a mal suivi les étapes.
Voilà ce que j'ai obtenu comme résultat (pièce joint), or ce que je veux c'est passer à une nouvelle page à chaque changement de chapitre.

Aiguillez-moi plus, svp, sur les détails.

[SergioMaster]

je ne comprends pas tout c'est par chapitre , par article , ou les deux pour ce saut de page ?????

Outre le fait qu'il faut que la query soit bien ordonnée (ordre by) le principe est pourtant clair : un alignbottom sur le groupfooter correspondant fait l'affaire. Dans le cas ou c'est pour les deux au pire il faut ruser en utilisant une donnée "combinée" chapitre+article .

pour y voir plus clair , au pire fournis nous la partie dfm concernant le Quickreport (c'est pas facile a lire mais au moins on peut y deceler des erreurs) et la requete de la query pour vérifier l'ordre