KDTPLA G 1 ;DRUKKEN TEKSTEN PRIJSLIJST PER ART. SEL. [ 08/05/2002  10:33 AM ]
 ;
1 S K=$P($T(+1),";",2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
3 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),BLZ=0,FP=303 W @F,@F1,"VANAF TEKST :",!!?2,"TOT TEKST   :"
5 S FP=1502 W @F,@F1 D S2
6 S R="TXT\23\3\VANAF TEKST\96\2\\K?.N&(K)!(""-.""[K)" D S0 G 111^KBTPLA:K="-" I "."'[K G 6:'$D(@("^"_Q_"STKL(0,K)"))
7 I K="" S (LN,FP)=1502 W @F,@F1 D S2:TXTC>99!(TXTC'?.N),S2A G 6
8 S:K="." TXT=1 S TXT=TXT-1 S FP=317 W @F,@F2,$S(K=".":"BEGIN",1:^(K,0,0))
9 S FP=1502 W @F,@F1 D S2
10 S R="LTXT\23\3\TOT TEKST  \97\2\\K?.N&(K)!(""-.""[K)" D S0 G 5:K="-" I "."'[K G 10:K<(TXT+1),10:'$D(@("^"_Q_"STKL(0,K)"))
11 I K="" S (LN,FP)=1502 W @F,@F1 D S2:TXTC>99!(TXTC'?.N),S2A G 10
12 S:K="." LTXT=99 S FP=517 W @F,@F1,$S(K=".":"EINDE",1:^(K,0,0))
13 D INIT^vhPRINTER(80) G 9:'$D(Print)
17 S TXT=$N(@("^"_Q_"STKL(0,TXT)")) I TXT=-1!(TXT]LTXT) D CLOSE^vhPRINTER G 11^KBTPLA
19 S TXTN=@("^"_Q_"STKL(0,TXT,0,0)") F I="N","F","D","E" I $D(@("^"_Q_"STKL(0,TXT,I,1)")) D S1
21 G 17
YZ Q
 ;
S1 S SW=0 F Y=1:1:60 S X=^(Y) I $L(X) S SW=1 Q
S1A G S1Z:'SW D HD F Y=1:1:60 S X=^(Y) I $L(X) W !,X
S1B W #
S1Z Q
 ;
HD S BLZ=BLZ+1 W !,QN,?72,"BLZ:",$J(BLZ,4),!,NM2,?27,$P($T(+1)," ",5,9),?72,DT W !,NM3,?27,"TEKST ",TXT," ",TXTN," (",$P("NED.\FRANS\DUITS\ENG.",D,$F("NFDE",I)-1),")",?73,TD,!!
HDZ Q
 ;
S0 S S7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" S7=S7_","_$P(R,D,8) S:$P(R,D,7)'="" S7=S7_","_$P($T(@$P(R,D,7))," ",2,99)
S0A S S2=$P(R,D,2),S3=$P(R,D,3),S4=$P(R,D,4),S5=$P(R,D,5),S6=$P(R,D,6)
S0B S S0=$L(S4)+S3+3 S FP=S2*100+S3+F60 W @F,@F1 W @F2,S4," : " I S5'="" W:S5["""" !,?2,@S5 D:S5'["""" @S5
S0C S FP=S2*100+S0+F60 W @F,@F2 W $E("......................................................................",1,S6),@F,@F0
S0D R K W @F2 I $L(K)'>S6,@S7 S @$P(R,D,1)=K
S0E E  G S0C
S0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,S6),@F,K
S0Z K R,S0,S2,S3,S4,S5,S6,S7 Q  ;V3 23.08.84
 ;
96 W !?2 W:TXTC<100&(TXTC>0) "[] = vervolg   " W ".[] = vanaf het begin" Q
97 W !?2 W:TXTC<100&(TXTC>0) "[] = vervolg   " W ".[] = tot het einde" Q
 ;
S2 S TXTC=0,LN=1502
S2A S TXTC=$N(@("^"_Q_"STKL(0,TXTC)")) G S2Z:TXTC>99!(TXTC'?.N) S TXTN=^(TXTC,0,0)
S2B S FP=LN W @F,$C(13),$J(TXTC,6),?9,TXTN
S2C S LN=LN+100 G S2A:LN<2100
S2Z Q
 ;