cTA381	;Analytische verrichtingen; cTA381
	G 1
	;
T0	;Analytische verrichtingen ;
T1	;Debet     :     Credit     *;
T2	;Klanten;leveranciers;
T3	;Totaal;
T4	;blz :;
T5	;Analytische verrichtingen ;Ingeboekte wissels ;
T6	; ( bedragen in ;
	;
T0F	;Opérations analytiques ;
T1F	;Débit     :     Crédit     *;
T2F	;Clients;fournisseurs;
T3F	;Total;
T4F	;page:;
T5F	;Opérations analytiques ;Traites enregistrés ;
T6F	; ( montants en ;
	;
T0E	;Analytische verrichtingen ;
T1E	;Debet     :     Credit     *;
T2E	;Klanten;leveranciers;
T3E	;Totaal;
T4E	;blz :;
T5E	;Analytische verrichtingen ;Ingeboekte wissels ;
T6E	; ( bedragen in ;
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),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,".",1) 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  ;V2 20.11.86
	;
1	D 8 W !,"*",?71,"*",!,"*",?5,$P($T(@("T5"_QT)),U,2+SWR)," ",BN,?71,"*"
11	W !,"*",?44,$P($T(@("T1"_QT)),U,2),!,"*",?44,"-----     :     ------     *"
13	S LN=7,K3=11,(DEB,CRE,BRX)=0
	;
2	;S BRX=$O(^HULP(boot,$J,BRX)) G 3:BRX="" S X=^(BRX),K=$P(@("^"_Q_"AR(BRX,0)"),D,2),LN=LN+1 I LN+2>LNMAX D 85 W # D 8 ;21.03.01
	S BRX=$O(^HULP(boot,$J,BRX)) G 3:BRX="" S X=^(BRX),K=$P(@("^"_Q_"AR(BRX,0)"),D,2),LN=LN+1 I LN+2>LNMAX D 85 W $$FF^cA334 D 8
21	W !,"*",?5,BRX,?12,$E(K,1,20),?39 S R=+X_D_14_D_D_HQD,DEB=DEB+R D R3 W ":" S R=$P(X,D,2)_D_14_D_D_HQD,CRE=CRE+R D R3 W ?71,"*"
23	G 2
	;
3	W !,"*",?5,$P($T(@("T2"_QT)),U,2),?39 S R=KDT_D_14_D_D_HQD,DEB=DEB+R D R3 W ":" S R=KCT_D_14_D_D_HQD,CRE=CRE+R D R3 W ?71,"*"
31	W !,"*",?5,$P($T(@("T2"_QT)),U,3),?39 S R=LDT_D_14_D_D_HQD,DEB=DEB+R D R3 W ":" S R=LCT_D_14_D_D_HQD,CRE=CRE+R D R3 W ?71,"*"
33	W !,"*",?5,$E(BN,1,34),?39 S R=B(7)_D_14_D_D_HQD,DEB=DEB+R D R3 W ":" S R=B(8)_D_14_D_D_HQD,CRE=CRE+R D R3 W ?71,"*"
35	W !,"*",?40,"------------- : -------------  *"
37	W !,"*",?5,$P($T(@("T3"_QT)),U,2),?39 S R=DEB_D_14_D_D_HQD D R3 W ":" S R=CRE_D_14_D_D_HQD D R3 W " *"
39	;W !,"*",?71,"*" D 85 W # Q ;21.03.01
	W !,"*",?71,"*" D 85 W $$FF^cA334 Q
	;
8	;S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T4"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T5"_QT)),U,2+SWR)," : ",MNM,@F83,SWD," ",SWU,*13 ;21.03.01
	S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T4"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T5"_QT)),U,2+SWR)," : ",MNM,@F83,SWD," ",SWU,$$CR^cA334
81	W ?124,DT,!,NM3,?35,CD," - ",BN,$P($T(@("T6"_QT)),U,2),HBF," )",?125,TD,!!!
85	W !,"************************************************************************" Q
	;
Z	X ^cZ Q
ZZ	; 18.05.04 - 15 u 48 * V8