KPWS3 G 1 ;TRANSFERT PRODUKTEN WEEKOMZET ;(VOLGENS KLASSIFIKATIE);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_"PH(HG)",Q2="^"_Q_"PH(HG,GRS)",Q3="^"_Q_"PH(HG,GRS,SGS)",Q4="^"_Q_"PH(HG,GRS,SGS,MK,PRCS)"
11 F I=1:1:12 W $P($P($T(T1),U,2),D,I),$C(9)
13 W $C(13)
23 I HG'=0 S X=$D(@Q1) G 27:X
25 S HG=$N(@Q1) I HG=-1!(HG]HGX) G YZ
27 S GRS=GR I GR'=0 S X=$D(@Q2) G 31:X
29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) G 25
31 S SGS=SG I SG'=0 S X=$D(@Q3) G 35:X
33 S SGS=$N(@Q3) I SGS=-1!(SGS]SGX) G 29
35 S PRCS=PRC I PRC'=0 S X=$D(@Q4) G 100:X
37 S PRCS=$N(@Q4) I PRCS=-1!(PRCS]PRCX) G 33
100 S PR=+^(PRCS) D ^KPCHKPR G 37:'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 37
115 D S0 S WKX=WK,K=^(WK),K=$E(WK,1,7)_D_PC_D_K D S1 G 113
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 27.07.88 - 12 u 33