Discussion :

[fbatch]

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.