cT809 ;Fin & div: schermopbouw ;%T80 ; [ 01/12/01  9:46 AM ]
 ;
T0 ;Fin & div: schermopbouw ;
T1 ;Boekingsmaand : ;
T2 ;Rekening+omschrijving            Referenties          Mutaties           Saldo ;
T3 ;Fin. & div. verrichtingen ;
T4 ;AKL;GKL;
 ;
T0F ;Fin & div: gestion écran ;
T1F ;Mois comptable : ;
T2F ;Compte+description               Références          Mutations           Solde ;
T3F ;Opérations fin. & div. ;
T4F ;AKL;GCF;
 ;
T0E ;Financial and miscellaneous transactions: screen structure ;
T1E ;Fiscal month   : ;
T2E ;Account+description              References          Mutations         Balance ;   
T3E ;Financial & 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,250,266 W @F,@F7,@$P(FG,D,10),@F8
 ;
2 D S1,S2,S3,S4
 ;         
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
 ;
YZ G ^cT808
 ;
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,$E($G(NMB)_$J("",23),1,23)
S3B S FP=251 W @F S R=$G(SAL,0)_"\14\\"_$G(HQD,QD) D R3
S3Z Q
 ;
 ;bedrag
S4 S FP=267 W @F S R=$G(HUXB,0)_"\13\\"_$G(HQD,QD) D R3
S4Z Q
 ;
 ;detail
S5 S RS1=DMU(R),RS2=@("^"_Q_"FI(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,$S(SWMU:11,1:5))_"\13\\"_$S(SWMU:HQD,1:QD) 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>11 K DMU S DMU=4,FP=301 W @F F I=1:1:8 W !,@F2
S6A S R=DMU,DMU=DMU+1+B,DMU(R)=BNR D S5
S6Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84