KFWIS ;DRUKKEN WISSELS;KFWIS; [ 11/29/2003   1:16 PM ]
 G 1
 ;
T3 ;WISSELS GOED AFGEDRUKT
T4 ;E[] = einde(ok)   H[] = hernemen
T5 ;SINT NIKLAAS - 
T6 ;MEUBELBESLAG;QUINCAILLERIE POUR MEUBLES;MEUBELBESLAG;MEUBELBESLAG
T7 ;GOED VOOR AVAL VOOR;BON POUR AVAL POUR;GOED VOOR AVAL VOOR;GOED VOOR AVAL VOOR
T8 ;DE BETROKKENE;LE TIRE;DE BETROKKENE;DE BETROKKENE
T9 ;DUPLICAAT;DUPLICATE;DUPLICAAT;DUPLICAAT
 ;
R0 S R7=1 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,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 K @("^"_Q_"FBW($J)") Q
11 D INIT^vhPRINTER(80,,,.Optie) I '$D(Print) S K="," G 93
13 S Optie("AUTOSEL")=Print("DEV") S:'$D(V) V=0
 ;
2 S R=24 D ^KFOLE S FNR=-1
21 S FNR=$N(@("^"_Q_"FBW($J,FNR)")) G 7:FNR=-1 S KC=$P(^(FNR),D,1),U0=@("^"_Q_"FA(US,FNR,0,0)"),WNR=$P(^(3),D,25)
23 S K=@("^"_Q_"KL(^"_Q_"K1(KC),0)") S KN=$P(K,D,2),KA=$P(K,D,4),KS=$P(K,D,5),KP=$P(K,D,6),KW=$P(K,D,7)
25 S KT=$P(K,D,9),TL=$F("NFDE",KT)-1,KBN=$P(K,D,16),KX=$P(K,D,18),K=^(1),KBR=$P(K,D,1),KBT=$P(K,D,16)
 ;
3 W ! S R=WNR_D_7_D_(V+35) D R3 W ?V+46,$P($T(T5),U,2),$P(U0,D,6),?V+77,$P(U0,D,3)
31 S R=$P(U0,D,12)_D_9_D_(V+92)_D_($P(U0,D,5)'=""*2) D:+R R3 W $P(U0,D,5)
33 S R=$P(U0,D,12) D @("^KY125"_$S(KT="F":"F",1:"N")) S:$L(R1) R=R_R1 S:$E(R,$L(R))'=" " R=R_" " S $P(R,"*",68-$L(R))="*"
34 W !!!!!!?V+37,R,$C(13),?V+37,R,$C(13),?V+37,R,!?V+80,$P($T(T6),U,TL+1),!
35 S R=FNR_D_D_(V+80) D R3 W !?V+80,$P(U0,D,6),!!!!!?V+30,KA W:$L(KA) " " W $E(KN,1,18-$L(KA)),?63,KBN
37 W ! W:$E(KX,$L(KX))="A" ?V+3,$P($T(T7),U,TL+1) W ?V+30,KS,! W:$E(KX,$L(KX))="A" ?V+3,$P($T(T8),U,TL+1) W ?V+30,KP,"   ",KW
39 W ! W:$P(WNR,"#",2) ?85,$P($T(T9),U,TL+1) W !?30,KBT I $L(KBR) W !?V+40,$E(KBR,1,3),"-",$E(KBR,4,10),"-",$E(KBR,11,12)
 ;
4 W # G 21
 ;
7 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE D CLOSE^vhPRINTER
 ;
8 S R="K\22\3\"_$P($T(T3),U,2)_"\"""_$P($T(T4),U,2)_"""\1\\""EH""[K&$L(K)" D R0 G 11:K="H"
 ;
9 S FNR=$N(@("^"_Q_"FBW($J,FNR)")) G 93:FNR=-1 S WNR=$P(@("^"_Q_"FA(US,FNR,0,3)"),D,25) G 9:$P(WNR,"#",2)
91 S $P(WNR,"#",2)=1,$P(^(3),D,25)=WNR G 9
93 K @("^"_Q_"FBW($J)"),KN,KA,KS,KP,KW,KT,TL,KBN,KX,KBR,KBT
 I K'=",",'SW13 X:$D(SW12) @("^"_Q_"OD(0,US,1)"),^("UT"),^("UF") S K=","
 ;
YZ Q
 ;