KOSPBL ;OVERDRACHT PRIJZEN BLUM NAAR SCHADUW ;KOSPBL;
 ;
T1 ;Weet u zeker dat u de prijzen wenst over te brengen naar de schaduw : .
T2 ;J = ja   [] = hernemen
T3 ; Identnr
T4 ;Van Hoecke      Blum
T5 ;Aantal produkten verwerkt   : 
T6 ;Aantal prijzen overgebracht : 
T7 ;[] = ok
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S FP=2303 W @F,$P($T(T1),U,2),!?2,$P($T(T2),U,2)
13 D IK^PROC1 G YZ:R="ENTER",13:R'="J"
15 S FP=2103 W @F,@F1,$P($T(T3),U,2),!!,$P($T(T4),U,2)
 ;
2 S ID="",(T1,T2)=0
21 S ID=$O(^BLProd("D",ID)) G 4:ID=""
23 S K=^(ID),BLPA=$J($P(K,D,10),0,2),BLPB=$J($P(K,D,11),0,2)
25 G 21:'$D(^KPR2(ID_" ")) S PR=$P(^(ID_" "),D,1)
27 S K=^KPR(PR,"J5005"),LVPA=$P(K,D,19),LVPB=$P(K,D,18)
29 S T1=T1+1,LVPS=BLPA S:LVPB LVPS=BLPB G 21:+LVPS=+LVPA
 ;
3 S FP=2203 W @F,@F2,ID
31 S FP=2401 W @F,@F2,$J(LVPA,10,2),$J(LVPS,10,2)
33 S $P(^(2),D,3)=LVPS
35 S T2=T2+1 G 21
 ;
4 S FP=2103 W @F,@F1,$P($T(T5),U,2),$J(T1,4)
41 W !?2,$P($T(T6),U,2),$J(T2,4)
43 W !!?2,$P($T(T7),U,2) D IK^PROC1
 ;
YZ Q
 ;
Z X ^cZ
ZZ ; 28.10.91 -  9 u 03