cT332	;Aankoopventilaties ;%T33 ;Do uit %T331 ; [ 01/02/01  3:44 PM ]
	G 1
	;
T0	;Aankoopventilaties ;
T1	;Blz :;
T2	;Analytische uitsplitsing aankopen;
T3	;Debet    :    Credit       *;
T4	;Totaal;
	;
T0F	;Ventilations des achats ;
T1F	;Page:;
T2F	;Détail analytique des achats;
T3F	;Débit    :    Crédit       *;
T4F	;Total;
	;
T0E	;Purchase ventilations ;
T1E	;Pge :;
T2E	;Analytical categorization purchase;
T3E	;Debit    :    Credit       *;
T4E	;Total;
	;
T0D	;Aufteilung Einkäufe ;
T1D	;Pag :;
T2D	;Analytische Aufteilung Einkäufe;
T3D	;Soll     :    Haben        *;
T4D	;Total;
	;
S1	S R=R_D_14_D_D_QD D R3
S1Z	Q
	;
HD	S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,MNM,@F83,$$CR^cA334 W ?124,DT,!,NM3,?30,TIT,?125,TD,!!!
HDA	D HDE W !,"*",?131,"*",!,"*",?5,$P($T(@("T2"_QT)),U,2),?131,"*"
HDB	W !,"*",?104,$P($T(@("T3"_QT)),U,2),!,"*",?104,"-----    :    ------       *" G HDZ
HDE	W !,"************************************************************************************************************************************"
HDZ	Q
	;
1	S (BR,DEB,CRD)=0 D HD
11	S BR=$O(^HULP(boot,$J+.01,BR)) G 2:BR="" S BRA="",SWF=1
12	S BRA=$O(^HULP(boot,$J+.01,BR,BRA)) G 11:BRA="" I LN>(LNMAX-3) D HDE W $$FF^cA334 D HD
13	W !,"*" I SWF W ?5,BR,?13 W:$D(@Q41) $E($P(^(0),D,2),1,35)
14	W ?51,BRA,?59 W:$D(@Q42) $E($P(^(0),D,2),1,35)
15	W ?98 I $D(^HULP(boot,$J+.01,BR,BRA,0)) S R=^(0),DEB=DEB+R D S1
16	W ?113,": " I $D(^(1)) S R=^(1),CRD=CRD+R D S1
17	W ?131,"*"
18	S LN=LN+1,SWF=0 G 12
	;
2	W !,"*",?98,"-------------- : --------------  *"
21	W !,"*",?5,$P($T(@("T4"_QT)),U,2),?98 S R=DEB_D_14_D_D_QD D R3 W ": " S R=CRD_D_14_D_D_QD D R3 W " *"
22	W !,"*",?131,"*" D HDE W $$FF^cA334
	;
YZ	K SWF Q
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A	S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B	W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z	K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
	;
Z	X ^cZ Q
ZZ	; 24.06.04 - 10 u 48 * V8