KKFI9 G 1 ;OVERZICHT RAPPELS ;KKFI1; Quit naar KKFI4 [ 06/25/2002  11:04 AM ]
 ;
T1 ;BLZ:
T2 ;FAKTUURINFO
T3 ;:---------------:----------:---------:----------:-------------:-------------:
T4 ;:   DOKUMENT    :  DATUM   :  NUMMER : VERVALDAG:NIET VERVALL.:  VERVALLEN  :
T5 ;FAKTUUR;CREDITNOTA;WISSEL
T6 ;DIVERSEN
T7 ;: TOTAAL
T16 ;INFO
 ;
XT S R=$$INTDATE^vhDTyp(R)
 Q
 ;
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) G R3B: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  ;V1 26.11.84
 ;
1 D HD S FNR=100000,MNT=D,(TNV,TVV)=0
11 S FNR=$N(^(FNR)) G 3:FNR'?.N!(FNR>999999) S K=^(FNR),HER="",R=$P(K,D,3) D XT I R'>+$H S HER="*"_$P(K,D,8)
13 S LN=LN+1 I LN>56 W !?3,$P($T(T3),U,2),# D HD G 13
15 W !?3,":",HER,?7 I $E(FNR,1,2)'=99 W $P($T(T5),U,$P(K,D,1)="W"*2+($P(K,D,1)="C")+2) G 19
17 W $P($T(T6),U,2)
19 W ?19,": ",$P(K,D,2),?30,":" I $E(FNR,1,2)'=99 W $J(FNR/1000,8,3)
2 W ?40,": ",$P(K,D,3),?51,":" W:$P(K,D,9)'["BF" $P(K,D,9)
21 S R=$P(K,D,5) S:$P(K,D,1)="C" R=-R S R=R_D_(12-$L($P(K,D,9)))_D_D_("BF"'[$P(K,D,9)*2) I '$L(HER) S TNV=TNV+R D:+R R3
23 W ?65,":"
25 I $L(HER) S TVV=TVV+R,$P(R,D,2)=12 D:+R R3
27 W ?79,":"
29 S:MNT'[(D_$P(K,D,9)_D) MNT=MNT_$P(K,D,9)_D G 11
 ;
3 W !?3,$P($T(T3),U,2) S MNT=$L($P(MNT,D,3,99))
31 I 'MNT W !?3,$P($T(T7),U,2),?19,":",?30,":",?40,":",?51,":" S R=TNV_D_12_D_D_("BF"'[$P(K,D,9)*2) D:+R R3 W ?65,":" S R=TVV_D_12_D_D_("BF"'[$P(K,D,9)*2) D:+R R3 W ?79,":",!?3,$P($T(T3),U,2)
33 W #
 ;
YZ K FNR,HER,MNT,TNV,TVV,K,R,X Q
 ;
HD S BLZ=BLZ+1,LN=0 W !?3,$P($T(T1),U,2),$J(BLZ,4),!?3,DT F X=1:1:3 W $C(13),?30,$P(B(1),D,1)," ",$P(B(1),D,2)
HDA W !?3,TD F X=1:1:3 W $C(13),?30,$P($T(T16),U,2)
HDB W !!!
HDC F I=1:1:3 W $C(13),?30,$P($T(T2),U,2)
HDD W !?3,$P($T(T3),U,2),!?3,$P($T(T4),U,2),!?3,$P($T(T3),U,2)
HDZ Q
 ;