KPSBI2A G 1 ;PRODUKTVERKOOPGEGEVENS ;KPSBI1; [ 08/16/2002  3:52 PM ]
 ;
T1 ;SELEKTIE : 
T2 ;(volgens 
T3 ;produktkode);klassifikatie);leverancier);bepaalde produkten)
T4 ;BLZ:
T5 ;"LEV",$C(9),"IDENTNUMMER",$C(9),"PRODUKTNAAM",$C(9),"GEM WVK-TO",$C(9),"GEM WVK-ST",$C(9),"#WK WVK<GEM/4",$C(9),"#KL",$C(9),"#KL>80% OMZ",$C(9),"#A KL 80% OMZ",$C(9),"MIN-BH",$C(9),"LT",$C(9),"FYS-ST",$C(13)
T6 ;: LEV : IDENTNUMMER : PRODUKTNAAM               :   GEM  :   GEM  :#WK WVK :  #KL : #KL> :#A KL : MIN-BH : LT : FYS-ST :
T7 ;:     :             :                           : WVK-TO : WVK-ST : <GEM/4 :      :80%OMZ:80%OMZ:        :    :        :
T8 ;:-----:-------------:---------------------------:--------:--------:--------:------:------:------:--------:----:--------:
T9 ;;C;C;;;: \$S(LEV=LEVX:"""",1:LEV);C;C;3;; : \PID;C;L;11;; : ;3\PC;C;L;25;; :;4\$P(PWVK,"#",1)+$P(PWVK,"#",2);N0;R;8;;:\$P(PWVK,"#",1);N0;R;8;;:\AWVS;N0;R;8;;:\TAKL;N0;R;6;;:\%AKL;N0;R;6;;:\%AAKL;N0;R;6;;:\PLQ;N0;R;8;;:\PLL;N0;R;4;;:\PST;N0;R;8;;:
T10 ;LEV,$C(9),PID,$C(9),PC,$C(9),$P(PWVK,"#",1)+$P(PWVK,"#",2),$C(9),$P(PWVK,"#",1),$C(9),AWVS,$C(9),TAKL,$C(9),%AKL,$C(9),%AAKL,$C(9),PLQ,$C(9),PLL,$C(9),PST,$C(13)
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
S1 W !,$P($T(T8),U,2)
S1Z Q
 ;
1 S PC=$P(A(0),D,1),PID=$P(A(2),D,25),PST=$P(A(0),D,14),PLIM=$P(A(0),D,24),PSC=$P(A(0),D,18),PBW=$P(A(1),D,17),PSN=$P(A(1),D,20)
11 S PWVK=$P(A(1),D,21),PLQ=$P(A("J"),D,6),PLL=$P(A("J"),D,7),LEV=$E($P(@("^"_Q_"LE(^"_Q_"L1($P(A(""J""),D,1)),0)"),D,2),1,3)
12 S AWVS=0,WK=DJ-1_"."_$E(100+%WK,2,3)_" ",K=$D(@("^"_Q_"SPW(PR,WK)"))
13 S WK=$N(^(WK)) I WK'=-1 S K=^(WK) S:$P(K,D,7)'>(PWVK/4)&(+PWVK>0) AWVS=AWVS+1 G 13
15 S (TAKL,VNR,%AKL,%AAKL,%AANT)=0 G 19:'$D(^AKANAL(PR)) S %TAANT=$P(^(PR),D,1)*.8
17 S VNR=$N(^AKANAL(PR,VNR)) G 19:VNR=-1 S K=^(VNR),TAKL=TAKL+1,%AANT=%AANT+$P(K,D,4),KTY=$$GetKlantType^KLANT5($P(K,D,2))
18 S:%AANT<%TAANT!'%AKL&(KTY="A") %AAKL=%AAKL+1 S:%AANT<%TAANT!'%AKL %AKL=%AKL+1 G 17
19 K A
 ;
2 I 'MAC S LN=LN+1 I LN>50 D:'SWS S1 W # D HD G 2
21 I MAC W @$P($T(T10),U,2,999)
23 I 'MAC S FL(1)=$P($T(T9),U,2,999),FL(2)=0,$P(FL(3),D,3,4)=PSN_D_PSN W ! D FL^PROC S SWP=1,SWS=0,LEVX=LEV
 ;
YZ Q
 ;
HD S LEVX="" I MAC W @$P($T(T5),U,2) G HDZ
HDA S BLZ=BLZ+1,LN=0,SWS=1 W !,QN,?112,$P($T(T4),U,2),$J(BLZ,4)
HDB W !,NM2,?30,$P($T(+1),U,2),$P($T(T2),U,2),$P($T(T3),U,$F("PKLB",LST)),?112,DT,!,NM3
HDC I $D(X1),$D(X2) W ?30,$P($T(T1),U,2),X1,"   ",X2
HDD W ?113,TD,!! I HG=-1!(HG]HGX) G HDZ
HDE I BLZ>1!($N(B(100))=-1) W $E(HG,EXH,99) W:GR=GRX "- ",$E(GR,EXG,99) W:SG=SGX "- ",$E(SG,EXS,99) W ! D S1 W !,$P($T(T6),U,2),!,$P($T(T7),U,2) D S1
HDZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 22.03.91 -  9 u 27