KPWS5 G 1 ;TRANSFERT PRODUKTEN WEEKOMZET ;(BEPAALDE PRODUKTEN);KPWS1;Go van KPWS1 [ 11/08/2003   8:27 PM ]
 ;
T1 ;PERIODE\PRODUKTNAAM\AANTAL\OMZET\MARGE\FYS-ST\TEO-ST\PRA-ST\VERK. STOCK\OMZET STOCK\VERK. KOM\OMZET KOM\
 ;
S0 F WKX=WKX+.01:.01:WK-.01 S:WKX#1>.52 WKX=WKX\1+1_".01" S:$L(WKX)=6 WKX=WKX_0 S K=WKX_D_PC D S1:+WKX'=+WK
S0Z Q
 ;
S1 F I=1:1:12 S:I>2 $P(K,D,I)=$J($P(K,D,I),0,0) W $P(K,D,I),$C(9)
S1A W $C(13)
S1Z Q
 ;
1 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"PSEL($J,PRC)"
11 F I=1:1:12 W $P($P($T(T1),U,2),D,I),$C(9)
13 W $C(13)
23 I PRC'=0 S X=$D(@Q1) G 100:X
25 S PRC=$N(@Q1) I PRC=-1!(PRC]PRCX) G YZ
100 S PR=+^(PRC) D ^KPCHKPR G 25:'OK
111 S PC=$P(A(0),D,1),(WK,WKX)=BWK,K=$D(@("^"_Q_"SPW(PR,WK)")) K A
113 S WK=$N(^(WK)) I WK=-1!(WK]EWK) S WK=EWK+.01 D S0 G 25
115 D S0 S WKX=WK,K=^(WK),K=$E(WK,1,7)_D_PC_D_K D S1 G 113
 ;
YZ K @("^"_Q_"PSEL($J)") Q
 ;
 Q
Z X ^cZ Q
ZZ ; 02.08.88 -  8 u 20