KKFI3 G 1 ;KLANTENFICHE ;KKFI1;Quit naar KKFI1 - Do naar KKFI4 [ 11/29/2003   1:16 PM ]
 ;
T1 ;ALGEMENE GEGEVENS
T2 ;POTENTIEELOVERZICHT
T3 ;RAPPORTENINFO
T4 ;FAKTUURINFO
T5 ;UITZONDERINGEN
T6 ;PRODUKTENINFO
T11 ;SELEKTIE
T12 ;x[] = bepaald nummer   x,x ... x,x[] = opeenvolgende nummers
T13 ;A[] = alle nummers
 ;
 ;    initialisatie + vraag
1 S KSEL=1 D KP^KSEL G YZ:K="-"
11 S FP=1401 W @F,@F1 F I=1:1:10 Q:'$L($T(@("T"_I)))  W !?1,$J(I,2),". ",$P($T(@("T"_I)),U,2)
13 S R="KSE\22\3\"_$P($T(T11),U,2)_"\C1\9\\K'="",""&$L(K)" D R0 G 1:K="-"
15 S:K="A" KSE="1,2,3,4,5,6" S K=0 F I=1:1:7 Q:'$L($P(KSE,",",I))  I '$P(KSE,",",I)!($P(KSE,",",I)>6) S K=1
17 G 13:K,13:$L($P(KSE,",",I,99)) S KSE=","_KSE_","
19 D INIT^vhPRINTER(80) G 1:'$D(Print)
 ;
2 G 3:KSE'[",1," S I=@Q10,I=10
21 S I=$N(^(I)) I I'=-1&(I<100) S U2=^(I),C(I\100,$P(U2,U,2),$P(U2,U,3))=$P(U2,U,1)_U_$P(U2,U,6)_U_$P(U2,U,8)_U_($P(U2,U,16)-100) G 21
23 S I=100
25 S I=$N(^(I))
 I I'=-1&(I<500) S U2=^(I) S:$P(U2,U,16)=311 $P(U2,U,8)="" S C(I\100,$P(U2,U,2),$P(U2,U,3))=$P(U2,U,1)_U_$P(U2,U,6)_U_$P(U2,U,8)_U_$P(U2,U,16) G 25
 S I=-1
27 S K=1,I=$N(C(I)) G 3:I=-1 S I2=0
28 S I2=$N(C(I,I2)) I I2=-1 S C(I)=K G 27
29 S:$N(C(I,I2))'=-1 K=K+($N(C(I,I2))-I2) G 28
 ;
3 S DUP="\102\107\"
31 S R=72 D ^KFOLE
33 K Q10,K,X D ^KKFI4
35 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
37 D CLOSE^vhPRINTER
 ;
YZ K @("^"_Q_"SEL($J)") 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+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$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,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
C1 W !?2,$P($T(T12),U,2),!?2,$P($T(T13),U,2) Q
 ;