cAFO4 ;hulpprogramma bij visualiseren detaillijnen;%AFO4; [ 11/04/98  8:26 AM ]
 ;
T0 ;hulpprogramma bij visualiseren detaillijnen;
 ;
T0F ;programme auxiliaire pour visualiser les lignes de détail;
 ;
T0E ;hulpprogramma bij visualiseren detaillijnen;
 G YZ
 ;
MIN() ; min. stock
 q $$SG^cAFA1("PR",K,121)
 ;
MAX() ; max.stock
 q $$SG^cAFA1("PR",K,122)
 ;
ORD() ; order
 q $$SG^cAFA1("PR",K,309)
 ;
BST() ; best.
 q $$SG^cAFA1("PR",K,117)
 ;
STK() ; stock
 q $$SG^cAFA1("PR",K,114)
 ;
PRC() ; produktkode
 q $$SG^cAFA1("PR",K,101)
 ;
PRLE() ; produktkode
 q $e(K)_$$SG^cAFA1("PR_LE",$e(K,2,99),101)
 ;
EHP ; eenheidsprijs (bestelvoorstel)
 ; S:'K K="" I $L(K),'$P(U5,D,5) S K=$J(K,0,$S(K#1:2,1:QD))
 N UQD
 S UQD=$S($L($P(B(1),D,22)):$P(@("^"_Q_"BA(11,$P(B(1),D,22))"),D,7),1:QD)
 D S3^cFN207("A")
 q
 ;
EP ; drukken eenheidsprijs vanuit de 800 reeks
 s:$e($p(U5,D,7))="+"&$p(UPM,D,12)!$p(UPM,D,27)&$l($p(U5,D,7)) K=$p(U5,D,29)/$p(U5,D,3) s DEC=$s(UQD=2:2,K#1:2,1:QD),R=K_D_(DEC=2*3+9)_"\\"_DEC_"\1" d ^cA103
 q
 ;
KORT ; korting
 S:'K K="" I +K S:$E(K,$L(K))="%" K=$J(K,7) S:$E(K,$L(K))'="%" K=$J(K,0,$S(K#1:2,1:QD))
 q
 ;
YZ	Q
 
ZZ ; 05.02.01 - 16 u 23 * V7.84