KPWS4 G 1 ;TRANSFERT PRODUKTEN WEEKOMZET ;(VOLGENS LEVERANCIER);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_"LE(LE)",Q2="^"_Q_"PL(LES)",Q3="^"_Q_"HULP($J,PRCS)"
11 F I=1:1:12 W $P($P($T(T1),U,2),D,I),$C(9)
13 W $C(13)
23 I LE'=0 S X=$D(@Q1) G 27:X
25 S LE=$N(@Q1) I LE=-1!(LE]LEX) G Y
27 S LES=$P(LE," ",2)_" ",X=$D(@Q2) G 25:'X D S9
29 S PRCS=PRC I PRC'=0 S X=$D(@Q3) G 100:X
31 S PRCS=$N(@Q3) I PRCS=-1!(PRCS]PRCX) G 25
100 S PR=+^(PRCS) D ^KPCHKPR G 31:'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 31
115 D S0 S WKX=WK,K=^(WK),K=$E(WK,1,7)_D_PC_D_K D S1 G 113
 ;
Y K @("^"_"HULP($J)")
YZ Q
 ;
S9 K @("^"_Q_"HULP($J)") S SL=LES,SM=0,S1="^"_Q_"PL(SL,SM)",S2="^"_Q_"PL(SL,SM,SR)",S3="^"_Q_"PL(SL,SM,SR,SP)"
S9A S SM=$N(@S1) G S9Z:SM=-1 S SR=0
S9B S SR=$N(@S2) G S9A:SR=-1 S SP=0
S9C S SP=$N(@S3) G S9B:SP=-1 S R=+^(SP),@("^"_Q_"HULP($J,SP)")=R G S9C
S9Z K SL,SM,SR,SP,S1,S2,S3,R Q
 ;
 Q
Z X ^cZ Q
ZZ ; 27.07.88 - 12 u 34