cANU206	;Beheer listings ;%ANU20 ; [ 05/10/96  4:32 PM ]
	G 1
	;
T0	;Beheer listings ;
T1	;Lijnnummer;
T2	;D[] = detail   xx[] = beheer subtotalen op lijn xx;
T3	;Eerst lijnen en kolommen opgeven   [] = ok;
	;
T0F	;Gestion des listings ;
T1F	;N° de ligne;
T2F	;D[] = détail   xx[] = gestion des totaux pour ligne xx;
T3F	;D'abord specifier lignes et colonnes   [] = ok;
	;
T0D	;Beheer listings ;
T1D	;Linienummer;
T2D	;D[] = detail   xx[] = Verwaltung Subtotale auf Linie xx;
T3D	;Eerst lijnen en kolommen opgeven   [] = ok;
	;
	; laatste lijn
1	S UZA=$O(@UREF@(""),-1) I 'UZA D ER^cAN000($P($T(@("T3"_QT)),U,2)) G YZ
11	I UZA<2 G YZ:K="-",31
13	I K'="-" G 3
	;
	; detail alle lijnen
2	D ^cANU202
	;
	; welke testlijn
3	S R="UZA\22\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\2\INPUT\\\\1" D R0
31	G YZ:K="-"!(K=","),2:K="D"
33	S UZA=+UZA I UZA,$D(@UREF@(UZA)) G ^cANU207
35	G 3
	;
YZ	G ^cANU201
	;
C1	W !?2,$P($T(@("T2"_QT)),U,2) Q
	;
INPUT	;K?.N!(K="D")!(K="-")
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
Z	X ^cZ Q
ZZ	; 22.06.04 - 16 u 32 * V8