[RaveReport] PB de données

[thierrybatlle]

Bonsoir à tous,

J'ai un bon de commande qui se présente sous forme d'un tableau (TStringGrid), chaque ligne représente un article.
Je souhaite envoyer toute les lignes vers Rave Report pour faire une édition du bon de commande.

Comment m'y prendre ?
Comment générer de façon dynamique un tableau dans mon édition ?

Mon autre question, pour faire une mise en page précise, à combien de centimètre correspond une unité ?

Merci à tous pour votre aide.

[chtiot]

Envoyé par thierrybatlle

Comment générer de façon dynamique un tableau dans mon édition ?

tu crées dynamiquement des TraveRectangle (il me semble que c'est ça) avec un cadre et tu crées dedans un TRaveText (il me semble aussi que c'est ça)

Envoyé par thierrybatlle

Mon autre question, pour faire une mise en page précise, à combien de centimètre correspond une unité ?

ça dépend de l'unité dféfinie dans la page ou le rapport, tu peux la mettre en mm pour être tranquille, par défaut je crois que c'est des pouces et un pouce = 2,54 cm si je me souviens bien

je suis pas dispo avant le week-end prochain mais si tu eux je pourrai te donner un exemple de code où je crée un rectangle avec un champ dedans

[thierrybatlle]

Oui je veux bien un exemple de code.

Merci bien

[chtiot]

en gros :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
var
    rvText : TRaveText;
    rvRect : TRaveRectangle;
    i1,i2:integer;
...
begin
...
    // ON crée le rectangle //
    rvRect := xDataBand.CreateChild(TRaveRectangle, 'rect1') AS TRaveRectangle;
    i2 := xDataBand.ChildCount;
    rvRect.Width := Largeur_rectangle;
    rvRect.Height := Hauteur_rectangle;
    rvRect.Top := Position_haute_rectangle;
    rvRect.LEFT := Position_gauche_rectangle;
    rvRect.BorderStyle := psClear;     // sans bordure
    rvRect.BorderWidth := 0;
 
    rvRect.BorderStyle := psSolid;    // avec une bordure de 5
    rvRect.BorderWidth := 5;
 
    rvRect.FillColor := clGrey;     // Couleur de remplissage
    IF rvRect.FillColor = clWhite then rvRect.FillStyle := fsClear;  // transparent ? à vérifier
 
    // création du champ texte //
    rvText := xDataBand.CreateChild(TRaveText, 'Text1') AS TRaveText;
    i1 := xDataBand.ChildCount;
    rvText.Text := 'Texte à imprimer';
 
    rvText.Width := RvRect.Width - 2 * rvRect.BorderWidth;
    rvText.LEFT := rvRect.LEFT + rvRect.BorderWidth;
    rvText.Top := rvRect.Top;
    rvText.Height := rvRect.Height;
    rvText.FontJustify := pjCenter;   // Centrage du texte
    rvText.TRUNCATE := True;           // ON tronque si ça dépasse
    rvText.Rotation := 0;                // Angle de rotation du texte
 
    end;