Bonjour,
je souhaite créer deux tableaux avec des structures différentes sur la même page; pour cela j'ai commencé par déclarer deux rapports ODSOUT. Pour la création des entêtes des deux tableaux, tout se passe bien; mais pour le remplissage des données, il me les affiche tous dans le second tableau.
Quelqu'un pourrait-il me dire comment gérer ça?
Ci desssous mon code et à peu près ce que j'obtiens en sortie:
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59 ODS PDF FILE = "c:\catalogue1.pdf"; DATA _NULL_ ; SET work.catalogue END = fin ; BY REDCRE ; IF _N_ = 1 THEN DO; DECLARE ODSOUT rapport () rapport2(); END; IF FIRST.REDCRE THEN DO ; rapport.TABLE_START() ; rapport.ROW_START(TYPE:"Heading") ; rapport.FORMAT_CELL(TEXT:"Suivi des activités sur 12 mois glissants pour "||PUT(REDCRE,4.-L), COLUMN_SPAN:7) ; rapport.ROW_END() ; rapport.ROW_START(TYPE:"Heading") ; rapport.FORMAT_CELL(TEXT:"Nb dossiers ouverts") ; rapport.FORMAT_CELL(TEXT:"Nb dossiers en cours") ; rapport.FORMAT_CELL(TEXT:"Nb dossiers clos") ; rapport.FORMAT_CELL(TEXT:"% en cours et clos") ; rapport.FORMAT_CELL(TEXT:"Total des évaluations") ; rapport.FORMAT_CELL(TEXT:"Total des sommes réglées en principal") ; rapport.FORMAT_CELL(TEXT:"Total des sommes encaissées") ; rapport.ROW_END() ; rapport2.TABLE_START() ; rapport2.ROW_START(TYPE:"Heading") ; rapport2.FORMAT_CELL(TEXT:"Détail des activités sur 12 mois glissants pour "||PUT(REDCRE,4.-L), COLUMN_SPAN:5) ; rapport2.ROW_END() ; rapport2.ROW_START(TYPE:"Heading") ; rapport2.FORMAT_CELL(TEXT:"Type de dossiers") ; rapport2.FORMAT_CELL(TEXT:"Nb dossiers par typologie") ; rapport2.FORMAT_CELL(TEXT:"Nb dossiers compris entre 30000 et 100000 euros") ; rapport2.FORMAT_CELL(TEXT:"Nb dossiers supérieurs à 100000 euros") ; rapport2.FORMAT_CELL(TEXT:"Durée de vie par typologie de dossiers") ; rapport2.ROW_END() ; END ; rapport.ROW_START(TYPE:"Data") ; rapport.FORMAT_CELL(TEXT:PUT(DOSOUV,NUMX12.2)) ; rapport.FORMAT_CELL(TEXT:PUT(DOSENC,NUMX12.2)) ; rapport.FORMAT_CELL(TEXT:PUT(DOSCLO,NUMX12.2)) ; rapport.FORMAT_CELL(TEXT:PUT(PCTENCLO,NUMX12.2)) ; rapport.FORMAT_CELL(TEXT:PUT(TOTEVAL,NUMX12.2)) ; rapport.FORMAT_CELL(TEXT:PUT(COUT,NUMX12.2)) ; rapport.FORMAT_CELL(TEXT:PUT(MNTENC,NUMX12.2)) ; rapport.ROW_END() ; rapport2.ROW_START(TYPE:"Data") ; rapport2.FORMAT_CELL(TEXT:NUMRI) ; rapport2.FORMAT_CELL(TEXT:PUT(NBDOSTYP,NUMX12.2)) ; rapport2.FORMAT_CELL(TEXT:PUT(NBDOS30100,NUMX12.2)) ; rapport2.FORMAT_CELL(TEXT:PUT(NBDOSP100,NUMX12.2)) ; rapport2.FORMAT_CELL(TEXT:PUT(VIE,NUMX12.2)) ; rapport2.ROW_END() ; IF LAST.REDCRE AND NOT fin THEN DO; rapport.PAGE(); rapport2.PAGE(); END; RUN ; ODS PDF CLOSE ;
Merci d'avance.
Partager