cI50 ;BEGINSTOCK INITIALISEREN VOOR ALLE PRODUKTEN ;%I50; [ 05/04/98  2:41 PM ]
 G 1
 ;
 ; wordt dit nog gebruikt?
S1 S I2="J"
S1A S I2=$O(^(I2)) G S1Z:$E(I2)'="J" I $P(^(I2),D,35)="*",$L($P(^(I2),D,4)) S AKP=$P(^(I2),D,4) G S1Z
S1B G S1A
S1Z Q
 ;
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
12 S R="Q\22\3\Q-WAARDE\""XXX[]""\3\\K?1.3U!(K=""-"")" D ^cA100 G YZ:K="-"
 ;
2 S PR=0
22 S PR=$O(@("^"_Q_"PR(PR)")) G YZ:PR="" S K=^(PR,0) W "."
23 S STOCK=$P(K,D,14),AKP=$P(K,D,19),VKP=$P(K,D,7) D S1
24 S I2="H" K ^(I2)
25 S I2=$O(^(I2)) G 26:$E(I2)'="H" K ^(I2) G 25
26 S I2="L" K ^(I2)
27 S I2=$O(^(I2)) G 28:$E(I2)'="L" K ^(I2) G 27
28 S $P(^(0),D,12)=STOCK,$P(^(0),D,13)=DT
29 S L=STOCK_D_VKP_D_STOCK_D_AKP_"\\F\\0",I2="L"_$$DC^cAFD1(DT),^(I2)=L G 22
 ;
YZ Q
 ;
ZZ ; 30.07.98 - 20 u 00 * V6.7