KFSP702 ;DRUKKEN SPOORDOKUMENTEN C702;KFSPD; Quit naar KFSPD [ 11/29/2003   1:16 PM ]
 G 1
 ;
T1 ;PALET;PALETTE;PALETTE;PALLET
T2 ;TEN;S;N;S
T3 ;COLL;COLI;KOLL;PARCEL
T4 ;O;S;O;S
T5 ;I;S;I;S
T6 ;KARTON;CARTON;PAKET;CARTON
T7 ;S;S;E;S
T8 ;MEUBELBESLAG;QUINCAILLERIE POUR MEUBLES;MEUBELBESLAG;MEUBELBESLAG
 ;
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
 ;
S1 S R=GEW_D_7_D_(V+53)_D_$L($P(GEW,".",2)) D:+R R3
S1Z Q
 ;
S2 W ?V+18,$P($T(T8),U,TL+1)
S2Z Q
 ;
1 S R=72 D ^KFOLE S FNR=-1 I SW36 F I=1:1:3 S @(Q_"BA(99,I)")=@("^"_Q_"BA(99,I)")
11 S FNR=$N(^HULP($J,"EXTRAS","S",FNR)) G 7:FNR=-1 S K=^(FNR),KC=$P(K,D,1),LVS=$P(K,D,2),(UR,LN,KFRC)=0,K=""
13 S UR=$N(@("^"_Q_"FA(US,FNR,UR)")) I UR'=-1 S X=^(UR,3) G 13:'$P(X,D,1) S K=X
15 S:K="" K=@("^"_Q_"KL(^"_Q_"K1(KC),0)") S KN=$P(K,D,2),KN2=$P(K,D,3),KA=$P(K,D,4),KS=$P(K,D,5),KP=$P(K,D,6),KW=$P(K,D,7)
17 S KT=$P(K,D,9),TL=$F("NFDE",KT)-1,KT1=$P(K,D,13),K=@("^"_Q_"FA(US,FNR,0,3)"),PAL=$P($P(K,D,21),"#",1),COL=$P($P(K,D,21),"#",2)
19 S KAR=$P($P(K,D,21),"#",3),GEW=$J($P(K,D,22),0,1) S:'(GEW#1) GEW=GEW\1 I 'PAL,'COL,'KAR,'GEW G 11
 ;
2 G 3 S:$E(LVS,$L(LVS))'=" " LVS=LVS_" " G 3:'$D(@("^"_Q_"BA(153,LVS)")) F I="B","L","M","P" S LVS(I)=@("^"_Q_"BA(153,LVS,I,0)")
21 G 3:'LVS("P") I LVS("P")=1 S KFRC=1 G 3
23 G 3:LVS("P")'=2 S U0=@("^"_Q_"FA(US,FNR,0,0)") I $P(U0,D,8)<LVS("B") S KFRC=1
 ;
3 W !!!!!!!!!?V+40,$P(SPG,D,2),!!?V+40,$P(SPG,D,3),!!?V+2,KA W:$L(KA) " " W $E(KN,1,28-$L(KA)),?V+34,$E(@(Q_"BA(99,1)"),1,28),?V+68,"1 5 4"
31 W !?V+2,KN2,!?V+2,KS,?V+34,$E(@(Q_"BA(99,2)"),1,28),!?V+2,$E(KP_"   "_KW,1,28),?V+34,$E(@(Q_"BA(99,3)"),1,28)
33 W !?V+2,KT1 S R=$P(@(Q_"BA(99,5)"),":",2,99)
35 I $E(R,1)=" " S R=$E(R,2,99) G 35
37 W ?V+34,R,?V+72,1,!!!!,?V+32+(KFRC*12),"X",!!!!!!!
 ;
4 S GEWS=GEW I PAL W ! S LN=LN+1,R=PAL_D_7_D_V D R3 W ?V+8,$P($T(T1),U,TL+1) W:PAL'=1 $P($T(T2),U,TL+1) I GEWS D S2,S1 S GEWS=0
41 I COL W ! S LN=LN+1,R=COL_D_7_D_V D R3 W ?V+8,$P($T(T3),U,TL+1),$P($T(@("T"_$S(COL=1:5,1:4))),U,TL+1) I GEWS D S2,S1 S GEWS=0
43 I KAR W ! S LN=LN+1,R=KAR_D_7_D_V D R3 W ?V+8,$P($T(T6),U,TL+1) W:KAR'=1 $P($T(T7),U,TL+1) I GEWS D S2,S1 S GEWS=0
45 F I=LN+1:1:12 W !
 ;
5 D S1 W !!?V+18,DT,!!?V+2,@(Q_"BA(99,1)"),# G 11
 ;
7 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE D CLOSE^vhPRINTER
 ;
YZ Q
 ;