KPBAB6 G 1 ;DETAIL BESTELSUGGESTIE ;KPBAB6; Quit naar KPBAB1
 ;
1 I '$D(@("^"_Q_"WBAT(0)")) S FP=2403 W @F,@F2,@F4,"BESTELSUGGESTIES NIET OPGEMAAKT  [] = ok ",@F5,@F0 R K G YZ
2 I $D(TAB) S FP=701 W @F,@F1 G 7
3 S X=^(0),ODT=$P(X,D,1),OTD=$P(X,D,2),FP=403 W @F,@F1,"BESTELSUGGESTIES OPGEMAAKT : ",ODT,"   ",OTD
5 S FP=680 W @F,@F5 S FP=602 W @F,@F4,"LNR|PRODUKTNAAM              |PRA-WV|BW|LT|HB-PNT|TEO-ST|MIN-BH|GR-VP|SUGG   ",@F5
7 S VNR=K S:'$E(K,2,99) VNR="D1" S VNR=$E(VNR,2,99)-1 K TAB S TEL=0,LN=6
9 S VNR=$N(^(VNR)) G YZ:VNR=-1 S X=^(VNR),LN=LN+1
11 I LN>19 S FP=LN*100+1 W @F,@F1 S FP=701 W @F,@FDL S LN=LN-1,SWK=1 F I=1:1:VNR I $D(TAB(I)) S TAB(I)=TAB(I)-1 K:SWK TAB(I) S SWK=0
13 S PSUG=$P(X,D,1),PGV=$P(X,D,2),PLQ=$P(X,D,3),PTST=$P(X,D,4),PHBP=$P(X,D,5)
15 S PLL=$P(X,D,6),PBW=$P(X,D,7),PGW=$P(X,D,8),PC=$P(X,D,9)
17 S FP=LN*100+2 W @F,$J(VNR,4) S FP=LN*100+7 W @F,PC S FP=LN*100+33 W @F,$J(PGW,6)
19 S FP=LN*100+40 W @F,$J(PBW,2) S FP=LN*100+43 W @F,$J(PLL,2) S FP=LN*100+46 W @F,$J(PHBP,6)
21 S FP=LN*100+53 W @F,$J(PTST,6) S FP=LN*100+60 W @F,$J(PLQ,6) S FP=LN*100+67 W @F,$J(PGV,5)
23 S FP=LN*100+73 W @F,$J(+PSUG,6) W:$P(PSUG,"#",1)'=$P(PSUG,"#",2) "*" F I=1,6,32,39,42,45,52,59,66,72,80 S FP=LN*100+I W @F,"|"
25 S TEL=TEL+1,TAB(VNR)=LN G 9:TEL'=13,YZ:$N(^(VNR))=-1
27 S FP=2403+F60 W @F,@F1,"[] = VERVOLG   -[] = terug naar SELEKTIE : ",@F0 R K G 27:K?.E1C.E!("-"'[K),YZ:K="-" S TEL=0 G 9
 ;
YZ K X,ODT,OTD,VNR,LN,TEL,SWK,PSUG,PGV,PLQ,PTST,PHBP,PLL,PBW,PGW,PC Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32