Discussion :

[elfi-bey]

Bonjour a tous,

Je cherche à pousser QR dans ses derniers retranchement en l'utilisant sans passer par une DataBase... ("T'es tordu mon p'tit Elfi" me direz-vous)

J'ai tout un modèle de données sur lequel mon application est basé. Il se trouve que j'ai une liste d'info que je dois mettre dans un état.
Pour le moment, j'arrive à afficher toutes mes données, ligne par ligne, avec un total à la fin (qui est juste, en passant ).
Pour compliquer les choses, mes données étant classé par ensemble, je voudrais afficher des sous-totaux pour chacun des ensembles. Et c'est là que je coince.

En effet, je gère la propriété MoreData dans l'évènement OnNeedData, j'utilise un QRBand en mode BandType:=rbDetail pour chacune des informations de ma liste (avec BeforePrint qui renseigne dynamiquement mes Labels) et un QRBand en mode BandType:=rbSummary pour mon total à la fin.

J'ai ajouté un QRBand en mode BandType:=rbGroupFooter lié à mon rbDetail... (jusque là je crois que j'ai bon si j'avais une base)
Seulement je ne maîtrise pas vraiment les conditions pour lesquels un rbGroupFooter va se renseigner et (surtout) s'afficher.

Y a-t-il des méthodes, propriétés ou évènements particuliers à gérer pour pouvoir afficher mes sous-totaux ? Qu'est-ce qui me manque dans la compréhension d'un quick report pour arriver à faire ce que je veux ?

Merci pour vos éclaircissements (ah oui... inutile de me dire "passe par une base tu te fera moins ch***", je le sais, mais ma boîte n'a pas suffisamment de budget - ou ne veut pas et je ne décide pas - pour une refonte de l'état avec spec, dev, test, test non régression, etc...).

[SergioMaster]

Bonjour,

Je cherche à pousser QR dans ses derniers retranchement en l'utilisant sans passer par une DataBase... ("T'es tordu mon p'tit Elfi" me direz-vous)

pas tant que ça si

(ah oui... inutile de me dire "passe par une base tu te fera moins ch***", je le sais, mais ma boîte n'a pas suffisamment de budget - ou ne veut pas et je ne décide pas - pour une refonte de l'état avec spec, dev, test, test non régression, etc...).

mais là faut pas pousser , ma boite non plus n'a pas de budget SGBD et pourtant on utilise Firebird mais y aussi Postgres, mysql(un faux gratuit) etc...

En effet, je gère la propriété MoreData dans l'évènement OnNeedData, j'utilise un QRBand en mode BandType:=rbDetail pour chacune des informations de ma liste (avec BeforePrint qui renseigne dynamiquement mes Labels) et un QRBand en mode BandType:=rbSummary pour mon total à la fin.

jusque là , tout bon

J'ai ajouté un QRBand en mode BandType:=rbGroupFooter lié à mon rbDetail... (jusque là je crois que j'ai bon si j'avais une base)
Seulement je ne maîtrise pas vraiment les conditions pour lesquels un rbGroupFooter va se renseigner et (surtout) s'afficher.

je crois (suis sur) qu'il manque un GroupHeader (enfin avec une base c'est ce que j'utilise/utilisais) même si ce dernier a une hauteur de 0
c'est là que l'on indique ce que j'appelle le "critère de rupture" .
[Edit]
Il a fallu que je retourne sur un projet D3 pour réviser mes termes ...
Il faut bien mettre un GroupHeader , mon "critère de rupture" c'est la propriété Expression , et il faut renseigner aussi la propriété FooterBand
Bémol je n'ai jamais essayé ce genre de chose avec le OnNeedData donc reste à savoir quoi mettre dans expression !

Autres solutions , car je ne sais pas si cette première fonctionne
à la place d'une Bande GroupFooter
- ajoute à la bande détail une ChildBand (qui fera office de GroupFooter) , il te suffira alors de gérer le afterprint de la bande détail (et bien sur le critère de rupture) pour afficher ou non cette ChildBand ou encore en utilisant le BeforePrint de cette ChildBand
- Il existe aussi un type de bande appelé rbOverlay , bande qui doit être demandé de manière explicite par <mabande>.Print , mais je n'ai jamais utilisé

en conclusion , tu es loin des "derniers retranchements" de quickreport

[elfi-bey]

Arg... Je pensais pourtant arrivé au bout Je vais donc creusé encore un peu...

Merci pour ces infos, je vais voir ce que je peux faire.

...
Pour info, après tests, je n'arrive pas à gérer la "condition de rupture".
J'ai ajouté un TQRGroup lié à mon rbGroupFooter et à mon rbDetail. Je n'ai rien mis dans la propriété Expression mais celle-ci est mise à jour (avec un truc du genre intToStr(fLineNumber), pour être sur que la valeur change à chaque fois) dans l'AfterPrint de la QRBand typée rbDetail (je pensais qu'il y avait un évènement OnChange sur celle-ci, à tord).

En essayant de débuger, je m’aperçois que je ne passe qu'une fois (au début) dans mon QRGroup et donc qu'une fois dans mon rbGroupFooter (à la fin).

Je vais essayer de changer mon QRGroup en QRBand typé rbGroupHeader (mais je ne vois toujours pas comment gérer la condition de rupture).

[elfi-bey]

J'abandonne...

Je vais passer par un DataSet que je vais renseigner manuellement avec ma liste et qui comportera les champs que je veux afficher.
Ainsi je retombe sur quelque chose de connue.

Merci encore SergioMaster.

(Mais je suis toujours preneur s'il y a une solution )

[SergioMaster]

Bonjour, ne lâche pas le morceau !

en gros une solution (non testée)

le quickreport comprendra 1 BandeDétail + une bande Enfant
une variable private CR pour le critère de rupture
une variable private SommeCR pour les cumuls

j'ose pas mettre ça comme code , rien n'est vérifié , c'est juste le principe (comme dans le bon vieux temps où il fallait tout faire à la main )

Form1 = Class(TForm)
...
private
CR : String;
SommeCR : Currency;
....

end;

procedure Form1.QuickRep1BeforePrint ....
begin
CR:='1°Ensemble';
SommeCR:=0.00;
...
end;

procedure Form1.DetailBand1BeforePrint ...
begin
if CR<>Ensemblelu // ensemblelu vient du onneedData
begin
DetailBand1.Height:=20;
QRLabel1.Text:=Format('Somme %3.2f',[SommeCR]);
CR:=EnsembleLu;
SommeCR:=0.00;
end
else begin
DetailBand1.Height:=0;
// Mettre les valeurs dans les QRLabels de la ChildBand qui est en fait la "vraie" detailBand
end;
end;