Discussion :

[JP.NUAGE]

Bonjour à tous

Grâce aux conseils avisés de SergioMaster, mon état avance à pas de géant. J'ai maintenant des petits problèmes de mise en forme. Voici l'état :


Le bon 01030940 ne tient pas en totalité sur la page. J'ai suivi plusieurs pistes pour faire apparaître un trait sous la dernière ligne (par une région de différents types, ou pas un événement dans le programme) mais sans succès. Et je n'ai pas mieux réussi à ajouter un trait sur la page suivant avant de terminer l'impression du bon. Et je ne trouve pas cette fin de page très propre.

Une idée ?

Merci d'avance

PS : le numéro de facture et les en-têtes de colonne ne posent pas de problème

[SergioMaster]

Bonjour,

à mon avis il y a plusieurs solutions voici celle que je propose :

mettre une ligne horizontale au bas de la ligne détail et gérer son affichage dans l'évènement BeforePrint de la bande.
Reste donc à faire la détection ! je me suis inspiré de ce Post

à tester

Code :

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

1
2
3
4
5
6
7
var MyPage : TRavePage;
     MyHLine : TRaveHLine;
begin
MyPage := RvProject1.ProjMan.FindRaveComponent('MonEtat.Page1',nil) AS TRavePage;
myHLine := RvProject1.ProjMan.FindRaveComponent('LigneBas',MyPage) AS TRaveHLine;
if Assigned(MyHLine) then
  myRaveData.Visible:=Self.Top+(Self.Height*2)>region1.Height; // la prochaine ligne est hors région

unités nécessaires rvcsStd,rvclass,rvcsBars,rvcsData, RvcsDraw

[JP.NUAGE]

Je patauge un peu dans la gadoue. A en croire le code dans ta réponse, SergioMaster, comme il y a la ligne var c'est dans le programme qu'il faut codifier. Or tu parles d'un événement BeforePrint de la bande et là, l'ordre var est inconnu.....à moins que je ne me sois planté dans le rédaction du code, et comme l'aide de Rave est particulièrement "absente", je ne vois pas comment procéder. Faut dire que c'est la première fois que je rentre dans ce truc !!

[SergioMaster]

Détrompe-toi (dit l'éléphant), ce n'est pas la première fois que tu trempes dans le truc.

Si tu te rappelles j'ai une certaine aversion pour le RaveScripting donc le code proposé est bien sûr à mettre dans le programme

dans l'évènement BeforePrint de la bande.

[JP.NUAGE]

Oui, SergioMaster, j'ai bien vu "BeforePrint de la bande". J'ai cherché dans les événements du RVDataSetConnection : pas de tel événement. Alors je suppose que ce doit être dans le RVSystem, parce que sinon, il n'y a pas d'autre événement portant ce nom. Confirmes-tu cela ?

A part ça, tes indications pour l'état sont brillantes comme tu as pu le constater ! Merci encore

[SergioMaster]

Quand je disais que j'étais rouillé je mélange allégrement Quickreport à Rave
peut être sur un RvDataSetConnection OnValidateRow ?

[JP.NUAGE]

Ben non, comme je l'ai écrit plus haut, le seul endroit où j'ai trouvé un OnBeforePrint est RvSystem. Et comme je ne sais pas vraiment comment il réagit, je suis perplexe. Cela peut très bien être un BeforePrint d'avant toute écriture, et après plus rien. Je vais faire un test, mais si tu as une (

à mon avis il y a plusieurs solutions

) autre solution, je suis preneur !

[JP.NUAGE]

Dans le OnvalidateRow, j'ai tapé ceci

Code :

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

1
2
3
4
5
var RvPage : TRavePage;
      RvBand1 : TRaveBand;
begin
    RVPage := rvProject1.ProjMan.FindRaveComponent('Etat.Page1',nil) AS TRavePage;
    RvBand1 := rvproject1.ProjMan.FindRaveComponent('Bande1', RvPage) AS TRaveBand;

puis j'ai essayé

Code :

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

 RvBand1.

pour voir ce qui était disponible et j'ai eu :

Code :

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

 RvBand1.OnBeforePrint

mais après je ne vois pas comment l'utiliser ?????

[JP.NUAGE]

Trouvé !.... Mais rendons à César ce qui lui appartient.

La piste de SergioMaster est à la fois bonne et mauvaise, mais plus bonne que mauvaise. Mauvaise parce qu'il n'y a pas de BeforePrint. Excellente parce qu'elle amène à un calcul de hauteur. Voici comment j'ai résolu :

Dans le OnFirst du RvDataSetConnection je cherche la position de la ligne horizontale mise en bas de la bande DataBande

Code :

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

1
2
3
4
5
6
 
// je passe sur les ordres de départ pour initialiser
 
for xj := 0 TO RvDataBande.ChildCount -1 do
         if RvDataBande.Child[xj].Name = 'HLigne_du_Bas' then
            xi := xj;

xi est déclaré private. Ceci évite de recalculer xi pour chaque enregistrement.

Dans le onValidaterow il ne me reste plus qu'à codifier ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var RvRegion : TRvRegion;
     RVPage : TRVPage;
begin
 
   RVPage := rvProject1.ProjMan.FindRaveComponent('MonEtat.Page1',nil) AS TRavePage
   RvRegion := rvproject1.ProjMan.FindRaveComponent('Region1', RvPage) AS TRaveRegion;
 
   if (RvDataBande.PageBottom + RvDataBande.Height) > RvRegion.Height then
      RvDataBande.Child[xi7].Visible := true
   else
      RvDataBande.Child[xi7].Visible := false;
 
end;

Merci SergioMaster de m'avoir mis sur la piste ...... (à peine rouillée )

[SergioMaster]

Bonjour et tant mieux

La piste de SergioMaster est à la fois bonne et mauvaise, mais plus bonne que mauvaise. Mauvaise parce qu'il n'y a pas de BeforePrint. Excellente parce qu'elle amène à un calcul de hauteur.

comme je l'ai écrit j'ai mélangé allégrement mes souvenirs entre quickreport (qui a le beforeprint) fastreport (qui en a un aussi mais en interne) et le RaveScripting (que je n'ai jamais apprécié)

Par contre, je ne comprend pas le besoin de ces variables x... AMHA inutiles

je pensais qu'il ne s'agissait que d'imprimer une ligne horizontale en bas d'une ligne détail en arrivant en fin de région, là, à moins qu'il y ait autre chose comme des reports de totaux de fin de page j'ai l'impression que l'on a affaire à une childband de la bande détail juste pour la ligne ?

Tel que je le pensais j'aurais juste ajouté une ligne horizontale (invisible par défaut) en bas de ma bande détail (comme indiqué dans le post #2).
Dans le post #2 c'est juste le OnBeforePrint (référence à quickreport) qu'il fallait remplacer par un RVDataset.OnValidateRow

[JP.NUAGE]

Les xi sont initialisés à l'ouverture de l'état pour pouvoir être utilisés après et afficher ou pas des datatext. Quant à la ligne horizontale, c'est exactement ce que tu dis que j'ai fait, mais il n'y a pas d'option pour mettre un datatext invisible par défaut, ou alors je ne l'ai pas trouvé, mais peut-être dans QuickReport

[SergioMaster]

Bonjour,

c'est qu'il me fait douter le bougre effectivement visible n'est pas dans les possibilités d'un TRvHline mais sa propriété LineStyle si et changer de psSolid à psClear ça fait la même chose

mais "brisons là", je ne vais pas relancer D7 à chaque fois et me lancer à faire un programme test plus précis j'ai des casseroles (beaucoup) sur le feu et, comme c'est résolu ....