KDTPL G 1 ;DRUKKEN TEKST PRIJSLIJST KLANTEN [ 03/28/2001  4:24 PM ]
 ;
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),Q20="^"_Q_"STKL(0,I,J)",T=0
5 S TXT="NED1\NED2\NED3\NED4\NED5\FRA1\FRA2\FRA3\FRA4\FRA5\DTS1\DTS2\DTS3\DTS4\DTS5\ENG1\ENG2\ENG3\ENG4\ENG5"
21 D INIT^vhPRINTER(80) G YZ:'$D(Print)
23 G 35:'$D(@("^"_Q_"STKL(0)")) D HD
25 F I="N","F","D" F J=1:1:5 S T=T+1 W !,$P(TXT,D,T)," : ",@Q20 I J\5 W !
33 W #
35 D CLOSE^vhPRINTER
YZ Q
 ;
HD W !,QN,?72,DT,!,NM2,?32,$P($T(+1)," ",5,7),?73,TD W !,NM3,!!
HDZ Q
 ;