Discussion :

[Fandyz]

Le titre traduit parfaitement ma préoccupation ...
J'aimerais faire un état d'impression qui affiche les enregistrements en colonnes plutot qu'en ligne.
J'ai essayé de manipuler le RaveProject avec des TRaveReport et des TRavePage mais je n'y arrive pas.
J'ai aussi tenté avec le Basereport de mon projet rave mais c'est aussi la galère.
Quelqu'un pourrait m'aider ?
Un lien, une suggestion, ...

[SergioMaster]

Bonjour,
1°Suggestion : Aller dans le bon forum mais je pense qu'un modérateur va le faire c.a.d. ici
2°Suggestion : Regarder la propriété Columns de la région attention , le remplissage se fait de Haut en Bas et de gauche a droite

[ShaiLeTroll]

affiche les enregistrements en colonnes plutot qu'en ligne.

Ce n'est pas bien clair !
Est-ce juste l'orientation du papier ? Paysage \ Portrait ?
Est-ce une sorte de Pivot ou Matrice où l'on inverse les axes pour faciliter la lecture d'un tableau (du SQL peut générer un ensemble de données effectuant ce calcul)

[Fandyz]

En fait, au lieu d'avoir

Code :

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

1
2
3
4
5
6
N°             Date                     Montant
------------------------------------------------
1               xx/xx/xxxx              xxxxxxxx
2               xx/xx/xxxx              xxxxxxxx
3               xx/xx/xxxx              xxxxxxxx
------------------------------------------------

j'aimerais plutôt faire

Code :

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

1
2
3
4
5
6
7
--------------------------------------------------------------
N°          | 1                | 2            | 3
--------------------------------------------------------------
Date        | xx/xx/xxxx       | xx/xx/xxxx   | xx/xx/xxxx
--------------------------------------------------------------
Montant     | xxxxxxxx         | xxxxxxxx     | xxxxxxxx
--------------------------------------------------------------

[SergioMaster]

Combien y a t'il d'enregistrements (numéros ?) 3 ou n ?

[Fandyz]

Le nombre de colonnes peut être variable, comme 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
15
--------------------------------------------------------------
N°          | 1                | 2            | 3
--------------------------------------------------------------
Date        | xx/xx/xxxx       | xx/xx/xxxx   | xx/xx/xxxx
--------------------------------------------------------------
Montant     | xxxxxxxx         | xxxxxxxx     | xxxxxxxx
--------------------------------------------------------------
 
------------------------
N°          | 4               
-------------------------
Date        | xx/xx/xxxx
-------------------------
Montant     | xxxxxxxx 
-------------------------

[ShaiLeTroll]

Le nombre de colonnes peut être variable, comme

C'est donc ce que j'évoquais avec une Matrice où l'on inverse les axes pour faciliter la lecture d'un tableau

A mon avis, cela n'existe pas dans les listings d'un outil comme RaveReport sauf si il fourni une option de tableau croisé que tu pourrais bricoler !

Tu pourrais faire via une impression de TStringGrid rempli à la main


Si tu veux rester en RaveReport
As-tu essayé avec SQL de générer un ensemble de données effectuant ce calcul de "rotation" de l'axe ?

le code SQL n'est pas très éloigné de celui que l'on ferait pour reproduire manuel un PIVOT

Etape 1
Le nombre de colonne est-il fixé ou en fonction des données ?
Si Fixé, voir Etape 2
Si selon Données, un SELECT pour avoir les colonnes

Code sql :

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

SELECT LaColonneNumero FROM LaTable

Code :

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

1
2
3
4
5
6
 
while not Query.eof do
begin
  SL.Add(Query.Fields[0].AsString);
  Query.Next
end;

Etape 2
Tu as les colonnes de 1 à N
tu peux commence par généré un

Code sql :

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

1
2
CREATE TEMPORARY TABLE(Lib VARCHAR(255), C1 VARCHAR(255), C2 VARCHAR(255) 
, C3 VARCHAR(255)... CN VARCHAR(255));

une TStringList.DelimitedText pourrait faire rapidement ce travail
Quote en espace
Delimiter en ,

Code :

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

SL.Add('Lib VARCHAR(255)');

Si Fixe

Code :

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

1
2
for i := 1 to N do 
  SL.Add('C' + IntToStr(i) + ' VARCHAR(255)');

Si Données

Code :

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

1
2
3
4
5
6
7
 
for i := 0 to SL.Count - 1 do 
  SL[i] := SL[i] + ' VARCHAR(255)';
 
SL.QuoteChar := ' ';
SL.Delimiter := ',';
Query.SQL.Text := 'CREATE TEMPORARY LaTableVerticale (' + SL.DelimitedText +')';

une série de SQL

Code sql :

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

1
2
INSERT INTO LaTableVerticale (Lib) VALUES ("Date");
INSERT INTO LaTableVerticale (Lib) VALUES ("Montant");

Ensuite une série de SQL qui recopie dans LaTableVerticale les données issus de LaTable

Code sql :

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

1
2
3
4
5
6
7
UPDATE LaTableVerticale 
SET C%d = (SELECT Date FROM LaTable WHERE LaColonneNumero = %d
WHERE Lib = "Date"
 
UPDATE LaTableVerticale 
SET C%d = (SELECT Montant FROM LaTable WHERE LaColonneNumero = %d
WHERE Lib = "Montant"

%d remplacé dans une boucle par 1 à N, via Format

Tu termines par un SELECT sur LaTableVerticale

[SergioMaster]

A mon avis, cela n'existe pas dans les listings d'un outil comme RaveReport

Exact

Outre le "bricolage" proposé , cela doit être possible en utilisant Rave et les évents onNeedData et/ou les miroirs , enfin la méthode va beaucoup dépendre de la SGBD ?

[Fandyz]

Merci ShaiLeTroll.
J'ai essayé quelque chose comme ça (en beaucoup moins compliqué je l'avoue ) mais je voulais en avoir une possibilité venant entièrement de Rave.
Il me semble qu'avec les Region, l'impression verticale n'est pas incluse.
J'ai donc essayé "d'écrire" totalement mes pages à imprimer par code sous Delphi. J'y étais presque parvenu, il me manquais juste un moyen de relier mes pages dans mon report; j'ai trouvé la solution ici. Merci à od.dev.

Pour SergioMaster, j'aimerais également essayé ta proposition vu que je n'ai pas vraiment exploité les évènements de Rave. J'utilise une base de données MS Access 2007 (accdb).

[SergioMaster]

Après avoir envisagé plusieurs solutions , je te conseille l'utilisation d'une rvCustomConnection voir ici
j'avais saisi tout le code , mais une mauvaise manip (fermeture d'onglet) et le post s'est perdu et je n'ai pas le temps/courage de tout réécrire

j'ai trouvé la solution ici.

et , sans fausse modestie , qui l'avais fournie la solution ? (comme celle que j'indique d'ailleurs)

[cantador]

A noter aussi TcxVerticalGrid de chez devexpress qui stocke directement les données selon le schéma proposé par Fandyz et également imprimable.