KKFI2 G 1 ;KLANTENFICHE ;KKFI1; Quit naar KKFI1 [ 11/29/2003   1:16 PM ]
 ;
T2 ;AANTAL EXEMPLAREN
T3 ;LEVERINGSADRES   
T4 ;"[] = neen   1[] = ja"
T5 ;NEEN;JA
 ;
S1 S SI2=$N(C(I1,I2)),LN=LN+C(I1)+2 I LN>59 W # D HD G S1
S1A S I2=$N(C(I1,I2)),I3=0 G S1D:I2=-1 F I=SI2:1:I2-1 W !
S1B S SI2=I2,I3=$N(C(I1,I2,I3)) G S1A:I3=-1 S U2=C(I1,I2,I3),X="" I $P(U2,U,3) S $P(X,".",$P(U2,U,3))="."
S1C W ?I3+1,$P(U2,U,1),?$P(U2,U,2)-4,": ",X G S1B
S1D W !!!
S1Z Q
 ;
 ;    initialisatie + vraag
1 S R="L\20\3\"_$P($T(T3),U,2)_"\"_$P($T(T4),U,2)_"\1\\""-1""[K" D R0 G YZ:K="-" S FP=2023 W @F,$P($T(T5),U,K+2)
11 S R="A\21\3\"_$P($T(T2),U,2)_"\\4\\K?.N&K!(K=""-"")" D R0 G 1:K="-"
19 D INIT^vhPRINTER(80) G 1:'$D(Print)
 ;
2 S I=@Q10,I=10 G 23:'L
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,9) G 21
23 S I=100
25 S I=$N(^(I)) I I'=-1&(I<500) 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,9) 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 R=72 D ^KFOLE
 ;
4 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) D HD S I1=0
41 S I1=$N(C(I1)),I2=0 I I1'=-1 D S1 G 41
43 I L S I1=0 D S1
45 W # S A=A-1 G 4:A
 ;
5 K C
51 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
53 D CLOSE^vhPRINTER
 ;
YZ Q
 ;
HD S LN=0 W !?3,QN,!?3,NM2 F X=1:1:3 W $C(13),?30,TIT
HDA W !?3,NM3,!!!
HDZ 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
 ;