KPBIP2 ;SEQ. WIJZIGEN INTERNE PREVISIES PRODUKTEN;KPBIP1;Do naar KPBIP3 - Quit naar KPBIP1 G 1 ; T1 ;IDENTNUMMER T2 ;PRODUKTKODE T3 ;PRODUKT T4 ; IS IN GRBRUIK [] = ok ; S1 F I2=I2,I2+.1 S $P(B(I2),D,26)=D I $D(^("P"_I2)) S B(I2)=^("P"_I2) S1Z Q ; S2 S R=I-BWK+1 S:R<1 R=53-BWK+I S X=R\13*20+13,FP=R#13 S:'FP FP=13,X=X-20 S FP=FP+6*100+X W @F,$J("",7),@F,K S2Z Q ; S3 S A(I2)=B(I2),K="" F I=1:1:26 S K=$P(B(I2),D,I) Q:$L(K) S3A I $L(K) S @("^"_Q_"PR(PR,""P""_I2)")=B(I2) S3B I '$L(K) K @("^"_Q_"PR(PR,""P""_I2)") S3Z Q ; S4 S R=I S:I>26 I2=I2+.1,R=I-26 S $P(B(I2),D,R)=B(I) S4Z Q ; 1 F I=1,2 S K=$P($T(@("T"_I)),U,2),FP=3+I*100+14 W @F,@F5,":" S FP=3+I*100+2 W @F,@F6,K,@F5 11 S I=0,JR=BJR,WK=+BWK 13 S I=I+1 G 2:I=(AWK+1) S X=I\13*20+10,FP=I#13 S:'FP FP=13,X=X-20 S FP=FP+6*100+X W @F,@F5,":" 15 S FP=FP-8 W @F,@F6,JR,$J(WK,3),@F5 S WK=WK+1 I WK=53 S WK=1,JR=JR+1 17 G 13 ; 2 S PVNR=$N(@("^"_Q_"PWSVN(PVNR)")) G YZ:PVNR=-1!(PVNR]PLNR) S PR=^(PVNR) 21 S K=$P(@("^"_Q_"PR(PR,1)"),D,20) I 'K G 2:WK'="-",37 22 L @("^"_Q_"PR(PR,""P"")"):2 E S FP=2403+F60 W @F,@F2,@F4,$P($T(T3),U,2),$P(@("^"_Q_"PR(PR,0)"),D,1),$P($T(T4),U,2),@F5,@F0 R K G 21 23 F I=1,2 S FP=3+I*100+17 W @F,@F2,$S(I=1:$P(^(2),D,25),1:$P(^(0),D,1)) 25 S PVP=1 I $E($N(^("J")),1)="J" S K=^($N(^("J"))),PVP=$P(K,D,14) S:'PVP PVP=$P(K,D,15) S:'PVP PVP=$P(K,D,16) S:'PVP PVP=1 27 K B S I2=BJR D S1 F I=BWK:1:BWK+AWK-1 S K=$P(B(BJR)_B(BJR+.1),D,I),B(I)=K D S2 Q:I=52 29 I BWK+AWK>53 S I2=BJR+1 D S1 F I=1:1:AWK-(53-BWK) S K=$P(B(BJR+1)_B(BJR+1.1),D,I),B(I)=K D S2 ; 3 D ^KPBIP3 K A F I=BWK:1:52 I $D(B(I)) S I2=BJR D S4 31 I BWK+AWK>53 F I=1:1:AWK-(53-BWK) S I2=BJR+1 D S4 33 F I2=BJR,BJR+.1 D S3 35 I BWK+AWK>53 F I2=BJR+1,BJR+1.1 D S3 37 G 2:WK="." S PVNR=PVNR-2 G YZ:PVNR<0!(PVNR