Comment imprimer le contenu d'un tableau dans un document, comme indiqué ci dans l'image [Résolu]

[medreg]

Bonjour à tous
version de langage 'delphi7' base des données absolute database
Puis-je Imprime la table de contenu de deux parties
Une partie des dépenses et une partie des Recette

l'impression suivant des conditions
voila mes conditions
si le valeur de chapitre ='900' et le valeur de Type = 'Depense'
Imprimer les enregistrements qui contiennent ces valeurs sujet dans la première partie sur la table dessiné en papier

si le valeur de chapitre ='900' et le valeur de Type = 'Recette'
Imprimer les enregistrements qui contiennent ces valeurs sujet dans la Deuxiemepartie sur la table dessiné en papier

Selon la photo ci-jointe
Et comment puis-je faire cela?

[SergioMaster]

Rien de très compliqué si ce n'est que les totaux se trouvent au début

une des solutions , une query en forme d'union

Code SQL :

1
2
3
4
5
6
 
SELECT 2,Type,chp,art,montant FROM latable WHERE chap='900' 
ORDER BY chap,typ
UNION
SELECT 1,type,'0','0',SUM(montant) FROM latable WHERE chap='900'
GROUP BY 1,2,3

à partir de là , selon le générateur d'état (rave , quickreport ?) la suite est facile

autre solutions possibles selon le type de générateur d'état
Quickreport
avec une query sur la table

Code SQL :

SELECT type,chp,art,montant FROM latable WHERE chap='900' ORDER BY Type

et une query qui sera utilisée dans un évenement de bande

Code SQL :

1
2
 
SELECT SUM(MONTANT) FROM LATABLE WHERE chap='900' AND type=:type

un Quickreport 'simple' avec une bande détail et une bande GroupeHeader

[medreg]

Envoyé par SergioMaster

Rien de très compliqué si ce n'est que les totaux se trouvent au début

une des solutions , une query en forme d'union

Code SQL :

à partir de là , selon le générateur d'état (rave , quickreport ?) la suite est facile

Merci mon frère pour l'aide
Mais qu'est-ce que tu veux dire une query en forme d'Union?
et est ce que les cinq ligne sont à porter sur le même query
Je ne comprenais pas le sens de cette

[tourlourou]

Le résultat de la requête est la réunion de 2 sous-requêtes liées par le mot clé UNION et agencées de manière à respecter l'ordre imposé de présentation (GROUP BY : n'y a-t-il d'ailleurs pas un 3 en trop ?).

Il n'y a bien qu'une seule requête, "complexe".

Par contre, je ne sais pas comment utiliser son résultat dans un générateur d'états.

[SergioMaster]

Envoyé par tourlourou

GROUP BY : n'y a-t-il d'ailleurs pas un 3 en trop ?
.

En fait non , il manquerait même un 4

Code :

1
2
3
4
SELECT 2,Type,chp,art,montant FROM latable WHERE chap='900' 
UNION
SELECT 1,type,'0','0',SUM(montant) FROM latable WHERE chap='900'
GROUP BY 1,2,3,4

1 , la constante , 2 le type , 3 la chapitre, 4 l'article (il suffit de compter le nombre de champ

Ce SQL devrais suffire

Code :

1
2
3
4
SELECT Type,chp,art,montant FROM latable WHERE chap='900' 
UNION
SELECT type,'0','0',SUM(montant) FROM latable WHERE chap='900'
GROUP BY 1,2,3

en fait d'ailleurs en y réfléchissant , je ne suis pas convaincu du bien fondé de la constante (il aurait fallu que je fasse un fichier d'essai mais on est Dimanche ) mis au départ pour des questions de tri

Par contre, je ne sais pas comment utiliser son résultat dans un générateur d'états.

tout dépend du générateur , (que ce soit rave ou quickreport : il s'agit d'un état détail 'simple', facilement généré par un Wizard) , ce qui peut changer c'est ensuite pour la mise en forme

[medreg]

bonsoir
voila l'exemple pour ajouter le code qui vous avez transferer
je mais un exemple dans le quickrep pour le résultat qui je besoin
veuillez mr. porter le code qui vous avez donnée sur l'exemple ci-joint
et merçi bcp

[SergioMaster]

Il ne faut pas exagérer , je ne suis pas là pour faire l'état à votre place
Vous n'avez même pas posé un TQuery

Avez vous seulement testé la query proposée ? je doute car vous l'auriez essayé (ce que j'ai fait avec votre table) vous auriez pu me signaler qu'elle était fausse ! le fait que ce soit sur une table de type Paradox donne une erreur de différence de type ( avec Absolute Database , je ne sais même pas si l'on peut faire des querys !!)


Vous avez un quickreport sans aucune liaison a un datasource, ni a des données (je ne vois que des TQRLabel alors que je devrais voir des QRDBText et plein de Tshapes totalement inutiles dans un premier temps (ce n'est que de l'habillage).

pour toutes ces raisons je vous mets un zéro pointé
un de plus

[medreg]

Envoyé par SergioMaster

Il ne faut pas exagérer , je ne suis pas là pour faire l'état à votre place
Vous n'avez même pas posé un TQuery

Avez vous seulement testé la query proposée ? je doute car vous l'auriez essayé (ce que j'ai fait avec votre table) vous auriez pu me signaler qu'elle était fausse ! le fait que ce soit sur une table de type Paradox donne une erreur de différence de type ( avec Absolute Database , je ne sais même pas si l'on peut faire des querys !!)


Vous avez un quickreport sans aucune liaison a un datasource, ni a des données (je ne vois que des TQRLabel alors que je devrais voir des QRDBText et plein de Tshapes totalement inutiles dans un premier temps (ce n'est que de l'habillage).

pour toutes ces raisons je vous mets un zéro pointé
un de plus

merçi bcp
desolé base de donnée de teste c'est paradox
mais j'ai utilisé l'absolute database dans mes projets
ces tentatives
Mais ce n'est pas ce que je voulais
Qu'est-ce que l'ambition d'être le résultat comme indiqué dans le Quickrep1

[SergioMaster]

ce sql

Code :

1
2
3
4
5
select 0 as N,type,min(chp),min(art),sum(montant) from testedb
group by type
UNION 
Select 1,type,chp,art,montant from testedb
ORDER by Type,n

fonctionne

Qu'est-ce que l'ambition d'être le résultat comme indiqué dans le Quickrep1

avec cette query il est possible d'obtenir le résultat souhaité (si j'ai bien compris la question mal traduite

[medreg]

Envoyé par SergioMaster

ce sql

merçi bcp de votre aide
j'ai utilisé le code qui vous avez donné et sa marche bien mais y a un probleme pour les deux colonne de total
comment remplaces les deux valeur (chp ET art) par le mot TOTAL DEPENSE et le meme pour TOTAL RECETTE suivant image ci joint

[SergioMaster]

l'évènement beforeprint de la bande détail ou de la valeur est là pour ça

[medreg]

Envoyé par SergioMaster

l'évènement beforeprint de la bande détail ou de la valeur est là pour ça

Je ne comprends pas ce que vous entendez
Que voulez-vous dire?

[SergioMaster]

Une bande détail un évènement OnBeforeprint . Le SQL donne une valeur (N) permettant de savoir si c'est un 'enregistrement de total' valeur 0 ou 'détail' valeur 1
il est facile de faire un traitement particulier

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.DetailBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
if Query1.FieldByName('N').asInteger=0 then
 begin
    QRLabel1.Enabled; // rend un champ visible
    Color:=clSilver;     // change la couleur de la bande
 end
else begin
    QRLabel1.Disabled; // rend le champ invisible
    Color:=clWhite;  
end;
end;

etc...

sur un QRLabel, ou QRDBText on peut également utiliser l'évènement onPrint
et jouer sur la Valeur a imprimer, exemples :

Code :

1
2
3
4
5
procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
begin
if Value='DEPENSE' then value:=''; // cache la valeur
if Query1.FieldByName('N').asInteger=0 then value:='Intitulé';  
end;

[medreg]

Envoyé par SergioMaster

Une bande détail un évènement OnBeforeprint . Le SQL donne une valeur (N) permettant de savoir si c'est un 'enregistrement de total' valeur 0 ou 'détail' valeur 1
il est facile de faire un traitement particulier

Code :

etc...

sur un QRLabel, ou QRDBText on peut également utiliser l'évènement onPrint
et jouer sur la Valeur a imprimer, exemples :

Code :

merçi mr. " SergioMaster " de votre aides

mai j'ai un problème
regarder sur la résultat qui s'affiche dans le quickrep svp
pour quoi s'affice dans le premier total et le deuxieme total le meme titre
qu'est ce qui manque dans le code
je veux l'affichage de premier total "'total depense"
et le deuxieme total "total recette"
et merçi pour tout

[SergioMaster]

il n'y a rien de plus c...t que de downloader un rar pour voir un source !

Code :

1
2
3
4
5
6
7
8
 
procedure TForm2.QRLabel34Print(sender: TObject; var Value: String);
begin
if Value='DEPENSE' then value:=''; // cache la valeur
if Form1.Q1.FieldByName('N').asInteger=0 then value:='TOTAL DEPENSE';
if Value='RECETTE' then value:=''; // cache la valeur
if Form1.Q1.FieldByName('N').asInteger=0 then value:='TOTAL RECETTE';
end;

que voit-on ? que on teste 2 fois la même condition
if Form1.Q1.FieldByName('N').asInteger=0 pour donner 2 valeurs différentes , donc seule la dernière ( value:='TOTAL RECETTE' sera prise en compte

Franchement vous n'avez pas fait beaucoup d'efforts de compréhension ! en recopiant mon code qui n'était là qu'a titre d'exemple et non a titre de solution

Envoyé par sergiomaster

sur un QRLabel, ou QRDBText on peut également utiliser l'évènement onPrint
et jouer sur la Valeur a imprimer, exemples

QRLabel34 aurait du être un QRDBText lié au champ type , ainsi il suffirait de mettre le code suivant (solution)

Code :

1
2
3
4
5
6
 
procedure TForm2.QRLabel34Print(sender: TObject; var Value: String);
begin
if Form1.Q1.FieldByName('N').asInteger=0 then value:='TOTAL '+Value
else Value:='';
end;

[medreg]

Envoyé par SergioMaster

QRLabel34 aurait du être un QRDBText lié au champ type , ainsi il suffirait de mettre le code suivant (solution)

Code :

J'ai mis le code que vous m'avez donné et supprimé "QRDBText1" et mettre en place des "QRLabel34"
Mais il ya un autre problème
Voir l'image

[SergioMaster]

je ne vois pas le problème , il y a 900 a la place de 'DEPENSE' OU 'RECETTE' (d'ailleurs il aurait fallu y rajouter un S) c'est tout simplement que ce n'est pas le champ TYPE qui a été lié mais Chap (si le SQL est toujours le même)

[medreg]

Envoyé par SergioMaster

je ne vois pas le problème , il y a 900 a la place de 'DEPENSE' OU 'RECETTE' (d'ailleurs il aurait fallu y rajouter un S) c'est tout simplement que ce n'est pas le champ TYPE qui a été lié mais Chap (si le SQL est toujours le même)

ou j'ajoute le S
Bien sûr, le SQL toujour le même

[SergioMaster]

no comment !

[medreg]

Envoyé par SergioMaster

no comment !

Merci et désolé pour le dérangement