cTA809	;AN. VERR. - SCHERMOPBOUW ;%TA80 ; [ 01/12/01  10:11 AM ]
	;
T0	;An. verr. - schermopbouw ;
T1	;Boekingsmaand : ;
T2	;Rekening+omschrijving            Referenties          Mutaties           Saldo ;
T3	;Analytische diverse verrichtingen ;
T4	;AKL;GKL;
	;
T0F	;Op. an. - gestion écran ;
T1F	;Mois comptable : ;
T2F	;Compte + description             Références           Mutations          Solde ;
T3F	;Opérations analytiques divers ;
T4F	;AKL;GCF;
	;
T0E	;An. trans. - screen structure ;
T1E	;Fiscal month : ;
T2E	;Account + description            References           Mutations        Balance ;
T3E	;Analytical miscellaneous transactions ;
T4E	;AKL;GCS;
	;
1	W @F61,@F11,@F1,@F4,$P($T(@("T3"_QT)),U,2),QN," ",@F5,@F1
11	S FP=152 W @F,@F4,$P($T(@("T1"_QT)),U,2),BP," ",@F5,@F1
13	F FP=210,218,224 W @F,@F7,@$P(FG,D,10),@F8
	;
2	D S1,S2,S3
	;         
3	S FP=301 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5,@F1
31	S RR="" F  S RR=$O(DMU(RR)) Q:RR=""  S R=RR D S5
	;
Y	S FP=2001 W @F,@F4,$J("",79),@F5,@F1
YZ	Q
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),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
	;
	;datum
S1	S FP=201 W @F,$G(DAT) Q
	;
	;uittreksel
S2	S FP=212 W @F,$J($G(NUM),5) Q
	;
	;bank
S3	S FP=220 W @F,$E($G(CD)_$J("",3),1,3)
S3A	S FP=226 W @F,$G(NMB),@F2
S3Z	Q
	;
	;detail
S5	S RS1=DMU(R),RS2=@("^"_Q_"FIE(BP,RB,RS1)"),FP=R*100+1 W @F,$TR($P(RS2,D,7),$P($T(@("T4"_QT)),U,2),$P($T(@("T4"_QT)),U,3))," ",$P($P(RS2,D,8),"#"),@F2
S5A	S FP=FP+10 W @F,$E($P($P(RS2,D,8),"#",2),1,23) S FP=FP+24 W @F,$E($P(RS2,D,9),1,15)
S5B	S FP=FP+16 W @F S R=$P(RS2,D,5)_"\13\\"_HQD D R3 S FP=FP+14 W @F,$P(RS2,D,6)
S5C	S FP=FP+2 W @F S R=$P(RS2,D,21)_"\13\\"_HQD D R3 
S5D	I $L($P(RS2,D,15))!$L($P(RS2,D,16)) S FP=FP\100+1*100+1 W @F,"  ",@F2,$P(RS2,D,16) S FP=FP+10 W @F,$P(RS2,D,15)
S5Z	K RS1,RS2 Q
	;
	;1 detaillijn op scherm na boeking
S6	S B=$L($P(K,D,15))!$L($P(K,D,16)) I DMU+B>19 K DMU S DMU=4,FP=301 W @F F I=1:1:16 W !,@F2
S6A	S R=DMU,DMU=DMU+1+B,DMU(R)=BNR D S5
S6Z	Q
	;
Z	X ^cZ Q
ZZ	; 18.05.04 - 15 u 48 * V8