KK0 ; OVERZICHT BETALINGSVOORWAARDEN ; [ 08/05/2002  11:11 AM ]
0 G 1
Y W # D CLOSE^vhPRINTER
Y0 Q
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),I1=0,BLZ=0,X=@("^"_Q_"KL(0,0)"),K=0,X=100,S=";",I1X=" ",I2X="",LN=0,MAX=0
12 B 1
100 S SW=0,LN=0,L2=0,L1=0,Q0="^"_Q_"KL(I1X)"
11 S FP=214 W @F11,@F1,@F,@F4,$P($T(KTST),";",2),@F5
17 S R="KEU\19\3\[] = ALLE KLANTEN\90\1\\""K-""[K!(K?6N)\" D R0 G Y0:K="-",25:K=""
19 S FP=503 W @F,@F1,"IN ALFABETISCHE ORDE VANAF KLANT :",!,?2,"[] = VANAF HET BEGIN" S R=1900 D R1
2 S IX1=" " S:$L(K) I1X=I1 I $L(K) S FP=548 W @F,$P(^(I1,0),D,1)," ",$P(^(0),D,2)
21 S FP=703 W @F,@F1,"IN ALFABETISCHE ORDE TOT KLANT   :",!,?2,"[] = TOT HET EINDE" S R=1900 D R1
23 S I2X="" S:$L(K) I2X=I1 I $L(K) S FP=748 W @F,$P(^(I1,0),D,1)," ",$P(^(0),D,2)
25 D INIT^vhPRINTER(132) G 17:'$D(Print)
27 D 8 G 29:I1X=" " S X=$D(@Q0) G 31
29 S I1X=$N(@Q0),I1Y=99999 I I1X=-1 W !,$P($T(T3),U,2,999) G Y
3 I $L(I2X),I1X]I2X G Y
31 S A0=^(I1X,0),A1=^(1),A2=^(2),BTERM=$P(A0,D,18)
4 I BTERM="1M"&'$P(A0,D,17)&($P(A0,D,7)'="R")&'$P(A0,D,17) G 29
400 S:'BTERM BTERM="KONTANT"
40 W ! S LN=LN+1 I LN>51 W !,$P($T(T3),U,2,999),# S LN=0 D 8 G 4
41 W $P($T(T0),U,2,999),$C(13),?2,$P(A0,D,1),?10,$P(A0,D,2),?41,$P(A0,D,6)," ",$P(A0,D,7),?77,$J(BTERM,8),?88,$J($P(A2,D,7),6)
42 W ?97,$P(A0,D,17),?103,$J($P(A2,D,2),5),!,$P($T(T0),U,2,999) S LN=LN+1
43 G 29
8 S BLZ=BLZ+1,LN=0 W !,NM1,?102,"BLZ :",$J(BLZ,3),!,NM2,?22,@F82,$P($T(KTST),S,2),@F83,$C(13),?102,DT
81 W !,NM3,?103,TD,!
82 W !!,$P($T(T1),U,2,999),!,$P($T(T2),U,2,999),!,$P($T(T3),U,2,999) Q
90 W !,?1,"-[] = EINDE PROGRAMMA",!,?1,"K[] = BEPAALDE KLANTEN" Q
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0 W @F,@F2 W $E("....................",1,R6),@F,*7
R0D R K S:$P(R,D,7)="DCTR" D1=$P(K,".",1),D2=$P(K,".",2),D3=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,@F2,K
R0Z K R2,R3,R4,R5,R6,R7,R0 Q
R1 D ^cA101 Q
T0 ;:       :                              :                                   :          :        :             :
T1 ;:NUMMER : NAAM VAN DE KLANT            : POSTNUMMER - WOONPLAATS           :BETALINGS-:  KRED. : KORT.KONTANT:
T2 ;:       :                              :                                   :VOORWAARDE:  LIM.  : %      TERM.:
T3 ;:-------:------------------------------:-----------------------------------:----------:--------:-------------:
 ;