Gambas France BETA

Connexion

Pas de compte ? Incription

Application Web pour une gestion simpliste des bien immobiliers

1234
AuteurMessages
Patrick#46 Posté le 9/4/2025 à 06:46:28
Bonjour Olivier,
Je n'ai pas l'habitude des applications web, je vais donc peut être dire une bêtise mais tu n'est pas obligé d'utiliser gb.report avec son composant graphique.
Dans une class pas un report tu peux écrire :
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
DIM rep AS NEW Report
DIM tot AS FLOAT
DIM prt AS NEW Printer

$reslig.MoveFirst()
entete(rep)

REPEAT
ligne(rep)
tot += $reslig!qte
UNTIL $reslig.MoveNext()
pied(rep, tot)
prt.OutputFile = User.Home & "/tmp/GNR.pdf"
rep.Print(prt)
Desktop.Open(prt.OutputFile)

END

PRIVATE SUB entete(rep AS Report)

DIM bx AS NEW ReportHBox(rep)
DIM lab AS ReportLabel

bx.Height = "8mm"
bx.Font = Font["Serif,Blod,12"]
bx.Fixed = TRUE

lab = NEW ReportLabel(bx)
lab.Text = "Récapitulatif des mouvements de GNR"
lab.Alignment = Align.Center
lab.Expand = TRUE
lab = NEW ReportLabel(bx)
lab.Text = "Le : " & LDate(Now).L
lab.Alignment = Align.Right

bx = NEW ReportHBox(rep)
.
.


Ça ne fonctionnerai pas ?
linuxos#47 Posté le 9/4/2025 à 13:05:49
Un peu de sel, de poivre et la crevette sera... Bonjour Patrick,

Non pas possible car le fait d'activer le composant "gb.report" affiche un message de dependence avec GTK ou QT.

Olivier
Lorsqu'on s'occupe d'informatique, il faut faire comme les canards... Paraître calme en surface et pédaler comme un forcené par en dessous.
1234