cT381	;Financieel dagboek ;%T38 ;Do uit %T380 ; [ 01/02/01  4:26 PM ]
	G 1
	;
T0	;Financieel dagboek ;
T1	;Debet     :     Credit     *;
T2	;Klanten;leveranciers;
T3	;Totaal;
T4	;Blz :;
T5	;Financieel dagboek ;Ingeboekte wissels ;
T6	; ( bedragen in ;
	;
T0F	;Journal financier ;
T1F	;Débit     :     Crédit     *;
T2F	;Clients;fournisseurs;
T3F	;Total;
T4F	;Page:;
T5F	;Journal financier ;Traites enregistrés ;
T6F	; ( montants en ;
	;
T0E	;Financial journal ;
T1E	;Debit     :     Credit     *;
T2E	;Customers;suppliers;
T3E	;Total;
T4E	;Pge :;
T5E	;Financial journal ;Registered bills ;
T6E	; ( amounts in ;
	;
T0D	;Finanzjournal ;
T1D	;Soll     :     Haben      *;
T2D	;Kunden;lieferanten;
T3D	;Total;
T4D	;Pag :;
T5D	;Finanzjournal ;Ingeboekte wissels ;
T6D	; ( Betrage 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 $$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 $$FF^cA334 Q
	;
8	S BLZ=BLZ+1,LN=0 W !,NM1,?30,@F82,$P($T(@("T5"_QT)),U,2+SWR)," : ",MNM,@F83,SWD," ",SWU,$$CR^cA334 W ?124,$P($T(@("T4"_QT)),U,2),$J(BLZ,3),!,NM2,?35,CD," - ",BN,$P($T(@("T6"_QT)),U,2),HBF," )"
81	W ?124,DT,!,NM3,$$CR^cA334 W ?125,TD,!!!
85	W !,"************************************************************************" Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8