BLVHPR2 G 1 ;BLUM produktgegevens ;BLVHPR1; [ 08/16/2002  2:46 PM ]
 ;
T1 ;;(beperkt tot het LVH produktenbestand);(beperkt tot de verschillen t.o.v. het LVH produktenbestand)
T2 ;(volgens 
T3 ;produktkode BLUM);produktkode LVH);klassifikatie LVH);leverancier LVH);bepaalde produkten LVH)
T4 ;BLZ:
T5 ;"IDENTNUMMER",$C(9),"PRODUKTNAAM";$C(9),"B-LVH";$C(9),"LT-Kode",$C(9),"LT Wk",$C(9),"VERPAKKING",$C(9),"B-MBH",$C(9),"B-PRIJS",$C(9),"",$C(9),"A-MBH",$C(9),"A-PRIJS",$C(9),"KRT%",$C(9),"KLAS",$C(13)
T6 ;IDENTNUMMER : PRODUKTNAAM               :; B-LVH :; LTW : VERPAKKING     :  B-MBH :  B-PRIJS  :   :  A-MBH :  A-PRIJS  : KRT%  : KLASSIF
T7 ;            :                           :;       :;     :                :        :           :   :        :           :       :
T8 ;------------:---------------------------:;-------:;-----:----------------:--------:-----------:---:--------:-----------:-------:;---------;--------------
T9 ;IDX;C;L;11;; : ;PSN\$P(a(0),D,1);C;L;25;; : ;PSN\LVH;C;L;6;;: \$P(a(0),D,8);C;L;1;;-\BLT;N+;L;2;;: \VRP;C;L;15;;:\BBH;N;R;8;;:;LPR\BPR;N;R;10;2;;LPR\BEA;C;L;1;;:\$P("B",D,LPR);C;R;2;; :\ABH;N;R;8;;:\APR;N;R;10;2\AEA;C;L;1;;: \
T9B ;ROG;N;R;5;1\BNPKode;C;L;1;: \KLAS;C;L;8
T10 ;IDX;C;L;11;; : ;PSN\$P(a(0),D,1);C;L;25;; : ;PSN\$P(a(0),D,8);C;L;1;;-\BLT;N+;L;2;;: \VRP;C;L;15;;:\BBH;N;R;8;;:;BLVH'="V"&LPR\BPR;N;R;10;2;;BLVH'="V"&LPR\BEA;C;L;1;;:\$P("B",D,LPR);C;R;2;; :\ABH;N;R;8;;:\APR;N;R;10;2\AEA;C;L;1;;: \
T10B ;ROG;N;R;5;1\BNPKode;C;L;1;;: \KLAS;C;L;13
T11 ;;C;C;12;;: ;25\1;C;L;25;; :;25\8;N;R;5;;: ;25\vrp;C;L;15;;:;25;\15;N;R;8;;:;25\11;N;R;10;2; :;25\"";C;R;3;;:\14;N;R;8;;:;25\10;N;R;10;2; : ;25\20;N;R;5;1; : ;25\klas;C;L;13;;;25
T12 ;IDX,$C(9),$P(a(0),D,1),$C(9),LVH,$C(9),$P(a(0),D,8),$C(9),BLT,$C(9),VRP,$C(9),BBH,$C(9),BPR,BEA,$C(9),$P("B",D,LPR),$C(9),ABH,$C(9),APR,AEA,$C(9),ROG,$C(13)
T13 ;IDX,$C(9),$P(a(0),D,1),$C(9),$P(a(0),D,8),$C(9),BLT,$C(9),VRP,$C(9),BBH,$C(9),BPR,BEA,$C(9),$P("B",D,LPR),$C(9),ABH,$C(9),APR,AEA,$C(9),ROG,$C(9),KLAS,$C(13)
T14 ;"",$C(9),$P(FL(3),D,1),$C(9),$C(9),$P(FL(3),D,8),$C(9),vrp,$C(9),$P(FL(3),D,24),$C(9),$P(FL(3),D,11),$C(9),$P(FL(3),D,""),$C(9),$P(FL(3),D,14),$C(9),$P(FL(3),D,10),$C(9),$P(FL(3),D,16),$C(9),klas,$C(13)
T15 ;NIET;KOM;STOCK
T16 ;BLUM NIET
 ;
T201 ;Korttekst;$P(a(0),D,1);K;S K=$E($P(A(0),D,1),1,$S($L($P(a(0),D,1))>10:$L($P(a(0),D,1)),1:25));;101
T202 ;Prijs A;+$S('BPrijs:$P(PRIJS,D,1),1:$P(A("J"),D,19));+$P(A("J"),D,19);;;110
T203 ;Prijs B;+$S(BPrijs:$P(PRIJS,D,1),1:$P(A("J"),D,19));+$P(A("J"),D,19);;;111
T204 ;Levertermijn;K;+$P(A("J"),D,7);S K=$P(a(0),D,8),K=$S(K="V":1,K="L":1,K="N":6,K="S":8,K="E":8,1:0);;108
T205 ;Min bestelhoeveelheid A;$S('BPrijs:$P(PRIJS,D,7),1:+$P(A("J"),D,6));+$P(A("J"),D,6);;;114
T206 ;Min bestelhoeveelheid B;$S(BPrijs:$P(PRIJS,D,7),1:+$P(A("J"),D,6));+$P(A("J"),D,6);;;115
T207 ;Grootverpakking;K;+$P(A("J"),D,16);S K=$S('GVP&($P(a(0),D,3)="M"):+$P(A("J"),D,16),1:GVP);;106
T208 ;Normverpakking;NVP;+$P(A("J"),D,15);;;105
T209 ;Kleinverpakking;KVP;+$P(A("J"),D,14);;;104
T210 ;Gewicht;+$P(a(0),D,9);+$P(A(1),D,13);;;109
T211 ;Korting;$P(PRIJS,D,3)*100;+$P(A("J"),D,9);;;120
T212 ;Klassifikatie;klas;KLAS;S (klas,KLAS)="" I $P(A("I"),D,4),$P($$CHKKLAS^BLPROD(PR),D,3)=0 S KLAS=$$DISPL^KLASS($P(A("I"),D,4)),oKlas=##class(Blum.Klassificatie).OpenV2($P(a(0),D,19)) If $isObject(oKlas) s klas=oKlas.SubGroepDisplay();;119
 ;
 ; Verpakking
VRP S KVP=+$P(a(0),D,4),NVP=+$P(a(0),D,5),GVP=+$P(a(0),D,6)
VRP1 I 'GVP S GVP=NVP,NVP=0 I KVP S NVP=KVP,KVP=0 G VRP1
 S VRP="" S:GVP VRP=GVP S:NVP VRP=VRP_"/"_NVP S:KVP VRP=VRP_"/"_KVP
 Q
 ; Klassifikatie
KLAS S KLAS=""
 I BLVH="" S K=$P(a(0),D,19) S:$L(K) oKlas=##class(Blum.Klassificatie).OpenV2(K) If $isObject(oKlas) S KLAS=oKlas.SubGroepDisplay()
 E  I $P(A("I"),D,4) S KLAS=$$DISPL^KLASS($P(A("I"),D,4))
 Q
 ;
 ; Verschillen (ophalen)
ver K ver G ver3:'$D(A) S VNR=0,VER=200,PrijsDif=0
 b
ver0 If $P(A("J"),D,18),GVP>$P(a(0),D,15) Set GVP=NVP,NVP=KVP,VRP=$P(VRP,D,2,3)
ver1 S VER=VER+1,U2=$P($T(@("T"_VER)),U,2,99) G ver2:U2="" I $L($P(U2,U,4)) X $P(U2,U,4)
 X "S $P(U2,U,2)="_$P(U2,U,2),"S $P(U2,U,3)="_$P(U2,U,3)
 G:VER=211 ver1:$P(U2,U,2)=$P(U2,U,3)&'PrijsDif
 G:VER'=211 ver1:$P(U2,U,2)=$P(U2,U,3)
 Set:VER=202!(VER=203) PrijsDif=1
 S VNR=VNR+1,ver(VNR)=$P(U2,U,1)_D_$P(U2,U,2)_D_$P(U2,U,3),ver($P(U2,U,6))="",$P(FL(3),D,$P(U2,U,6)#100)=$P(U2,U,3) G ver1
ver2 S vrp="" G ver3:'$D(FL(3)) G ver3:'($P(FL(3),D,6)!$P(FL(3),D,5)!$P(FL(3),D,4))
 S:$P(A("J"),D,16) vrp=vrp_$P(A("J"),D,16)
 S:$P(A("J"),D,15) vrp=vrp_"/"_$P(A("J"),D,15)
 S:$P(A("J"),D,14) vrp=vrp_"/"_$P(A("J"),D,14)
ver3 I $P($G(FL(3)),D,1)["SOPR"!($P($G(FL(3)),D,1)?1.E1"*"4.5N1"*"1.E)!($P($G(FL(3)),D,1)?1.E1"*DO*"1.E),$TR($P(FL(3),D,2,99),"\","")="" S VNR=0,FL(3)="" K ver ; Alleen verschil in korttekst en het is een SOPR of DirectOrder
 Q
 ;
S1 W !,$P($T(T8),U,2) W:BLVH="" $P($T(T8),U,3) W $P($T(T8),U,4),$P($T(T8),U,$L(BLVH)+5)
 S BLN=0
 Q
 ;
S2 D S1 W !,$P($T(T6),U,2) W:BLVH="" $P($T(T6),U,3) W $P($T(T6),U,4) D S1
 Q
 ;
1 ;I BLVH="V",$P(^KPR(PR,1),D,25) G YZ
 S klas="" K FL I $D(a) D VRP,KLAS G 2
 S ID=$P(A(2),D,25),K=$$UPTRIMAN^vhRtn1(ID)
 S ID=K I $L(ID) S $E(ID)=0,BLID=ID S:$D(^BLProd("D",ID)) a(0)=^(ID)
 I '$D(a),$P(^KPR(PR,1),D,25) G YZ ; Non-aktief
 I '$D(a) S (ID,a(0))="" S:BLVH="L" a(0)=$P(A(0),D,1) S:BLVH="V" a(0)="Te verwijderen",a(0)=a(0)_$J("",25-$L(a(0)))
 Set BPrijs=$P(A("J"),D,18)
 Set (PRIJS,BNPKode)=""
 If $L(BLVH) Do
 .Set KLNr=$O(^PRPUTZ("N",PR,""))
 .Set BLKLNr=""
 .Set:KLNr'="" BLKLNr=$P($G(^PRPUTZ("N",PR,KLNr,0)),D,1)
 .Set PRIJS=$$PRIJS^Blum.RaadplegenProduct(BLID,BPrijs,BLKLNr)
 .Set BNPKode=$P(PRIJS,D,5)
 .If BNPKode="N" Set $P(a(0),D,10)=$P(PRIJS,D,4),$P(a(0),D,11)=$P(PRIJS,D,4)
 .If BNPKode="B" Set $P(a(0),D,10)=$P(PRIJS,D,1),$P(a(0),D,11)=$P(PRIJS,D,1)
 D VRP,KLAS I BLVH="V" D ver G YZ:'$D(ver)
 ;
2 S BLT=$P(a(0),D,8),BLT=$S(BLT="V":1,BLT="L":1,BLT="N":6,BLT="S":8,BLT="E":8,1:0)
 S (AEA,BEA)=$S($P(a(0),D,12)="H":"%",$P(a(0),D,12)="M":"M",1:"")
 S APR=$P(a(0),D,10),BPR=$P(a(0),D,11) S:BPR=APR BPR=0 S:'APR AEA="" S:'BPR BEA=""
 S:$D(A) ID=$TR($P(A(2),"\",25),".","") ; Terugzetten identnr voor 8-produkten
 S ABH=$P(a(0),D,14),BBH=$P(a(0),D,15) S:ABH=BBH BBH=0
 S ROG=$P($G(PRIJS),D,3)*100
 S (PSN,LPR)=0 I '$D(A) S $E(ID)=8 S:'$D(^KPR2(ID_" ")) $E(ID)=0 S:$D(^KPR2(ID_" ")) PSN=$P(^KPR($P(^(ID_" "),D,1),1),D,20)+1,LPR=$P(^("J5005"),D,18)
 S IDX=$S($L(ID):$E(ID,1)_"."_$E(ID,2,4)_"."_$E(ID,5,7)_"."_$E(ID,8),1:$P($T(T16),U,2))
 S LVH=$P($T(T15),U,PSN+2)
 ;
3 G 4:'$D(A) S LPR=$P(A("J"),D,18),PSN=0 S:BLVH="L" PSN=$P(A(1),D,20)
 I BLVH="V",LPR S $P(FL(3),D,24)=$P(FL(3),D,14),$P(FL(3),D,14)=""
 ;
4 G 41:'MAC D:LN HD I BLVH="" W @$P($T(T12),U,2,999) G YZ
 W @$P($T(T13),U,2) I BLVH="V" W @$P($T(T14),U,2)
 G YZ
41 S LN=LN+1+(BLVH="V")+BLN I LN>50 D:'SWS&BLZ S1 W:BLZ # D HD G 41
 I BLVH="" S FL(1)=$P($T(T9),U,2,999)_$P($T(T9B),U,2,999),FL(2)=0 W ! D FL^PROC G 43
 I BLN W !,$P($T(T7),U,2),$P($T(T7),U,4)
 S FL(1)=$P($T(T10),U,2,999)_$P($T(T10B),U,2,999),FL(2)=0 W ! D FL^PROC
 I BLVH="V" S BLN=1,FL(1)=$P($T(T11),U,2,999),FL(2)=0,$P(FL(3),D,25)=1 W ! D FL^PROC
43 S SWP=1,SWS=0
 ;
YZ K A,a Q
 ;
HD I MAC W @$P($T(T5),U,2) W:BLVH="" @$P($T(T5),U,3) W @$P($T(T5),U,4) S LN=0 G HDZ
HDA S BLZ=BLZ+1,LN=0,SWS=1 W !,QN,?'$L(BLVH)*3+125,$P($T(T4),U,2),$J(BLZ,4)
HDB S K=$P($T(+1),U,2)_$P($T(T2),U,2)_$P($T(T3),U,$F("PKLB",LST)+1) W !,NM2,?65+('$L(BLVH)*4)-($L(K)/2),K
HDC W ?'$L(BLVH)*3+125,DT S K=$P($T(T1),U,$F("LV",BLVH)+1) W !,NM3,?65+('$L(BLVH)*4)-($L(K)/2),K
HDD W ?'$L(BLVH)*3+126,TD,!! I BLVH="" D S2 G HDZ
HDE I HG=-1!(HG]HGX) G HDZ
HDF ;W $E(HG,EXH,99) W:GR=GRX "- ",$E(GR,EXG,99) W:SG=SGX "- ",$E(SG,EXS,99) W !
 D S2
HDZ Q
 ;