BLPRLVH ;OVERDRACHT PRODUKTGEGEVENS BLUM NAAR ;BLPRLVH; [ 10/17/2003  8:42 PM ]
 G 1
 ;
T1 ;Prijs naar schaduw;PNS;BLUMPRIJS
T2 ;Gewicht;GEW
T3 ;Barcode;BAR
T4 ;Palletaantal;PAL
T5 ;MinBestelHoeveelh.;MBH
T6 ;Levertermijn;LT
 ;
T20 ;WELKE GEGEVENS WENST U OVER TE DRAGEN
T21 ;x,x,...,x,x[] of [] = alle   -x[] = verwijder x uit selektie;.[] = einde selektie
T22 ;Weet u zeker dat u de geselekteerde gegevens wenst over te dragen : .
T23 ;J = ja   [] = hernemen
T24 ;Aantal produkten verwerkt :
T25 ;Produkt in behandeling    :
T26 ;[] = ok
T27 ;Schaduw datum 
 ;
COUNT S $P(O(RNR),D,2)=$P(O(RNR),D,2)+1,FP=4+RNR*100+27 W @F,$P(O(RNR),D,2)
 Q
 ;
 ;Aankoopprijs
PNS
 Set LVH=^KPR(PR,"J5005"),LVPA=$P(LVH,D,19),LKrt=$P(LVH,D,9)
 Set Schad=^KPR(PR,2),SVPA=$P(^KPR(PR,2),D,3),SKrt=$P(^KPR(PR,2),D,4),SSDat=$P(^KPR(PR,2),D,27)
 Quit:$E($P(^KPR(PR,2),D,25))=7 ; Geen DO-producten, identnummer begint met 7
 Set BPrijs=$$BLPRIJS^BLPRGEG(PR) ; BLUM werkt alleen nog met A-prijzen;PV;22-01-03
 ;Set BPrijs=$$PRIJS^BLPRGEG(ID,$P(LVH,D,18),BLKLNr)
 
 Set BVPA=$J($P(BPrijs,D,1),0,2)
 Set BKrt=$J($P(BPrijs,D,3)*100,0,2)
 Set MSDat=0 ; Modify schaduw datum
 
 If (+BVPA'=+LVPA)&&((SVPA'=BVPA)||(SVPA="")) Do
 . Do PUTLOG^PRODUKT(PR,,LVPA,BVPA,"SchaduwPPL via Blum")
 . Set $P(^KPR(PR,2),D,3)=BVPA,MSDat=1
 If (+BKrt'=+LKrt)&&((SKrt'=BKrt)||(SKrt="")) Do 
 . Do PUTLOG^PRODUKT(PR,,LKrt,BKrt,"SchaduwKorting via Blum")
 . Set $P(^KPR(PR,2),D,4)=BKrt,MSDat=1
 If MSDat,SSDat'=SDat Do 
 . Do PUTLOG^PRODUKT(PR,,SSDat,SDat,"SchaduwDatum via Blum")
 . Set $P(^KPR(PR,2),D,27)=SDat
  
 If +BVPA'=+LVPA!(+BKrt'=+LKrt) Do COUNT
        
 Quit
 
 ;Gewicht
GEW S LVH=^KPR(PR,1),GEWL=$P(LVH,D,13),GEWB=$J($P(BLUM,D,9),0,2)
 I +GEWL=+GEWB Q
 S $P(LVH,D,13)=GEWB
 Do PUTLOG^PRODUKT(PR,,GEWL,GEWB,"Gewicht via Blum")
 S ^KPR(PR,1)=LVH
 D COUNT
 Q
 ;
 ; Productbarcode
BAR S LVH=^KPR(PR,2),BARL=$P(LVH,D,14),BARB=$P(BLUM,D,20)
 I BARL=BARB Q
 Do PUTLOG^PRODUKT(PR,,BARL,BARB,"Barcode via Blum")
 S $P(LVH,D,13)="C128",$P(LVH,D,14)=BARB
 S ^KPR(PR,2)=LVH
 D COUNT
 Q
 ;
 ;Pallet hoeveelheid
PAL S LVH=^KPR(PR,2),PALL=$P(LVH,D,16),PALB=$P(BLUM,D,18)
 Q:'PALB
 I +PALL=+PALB Q
 Do PUTLOG^PRODUKT(PR,,PALL,PALB,"PalletQty via Blum")
 S $P(LVH,D,16)=PALB
 S ^KPR(PR,2)=LVH
 D COUNT
 Q
 ;
 ;Min bestelhoeveelheid
MBH 
 Set BLPrijs=$$BLPRIJS^BLPRGEG(PR)
 Set BHB=$P(BLPrijs,D,7)
 Quit:'BHB
 S LVH=^KPR(PR,"J5005"),BHL=$P(LVH,D,6)
 I +BHL=+BHB Q  ; Vergelijk VH met BLUM
 Do PUTLOG^PRODUKT(PR,,BHL,BHB,"Min.BH via Blum")
 Use Dev
 Write:0'[Dev $$SORTKEY^PRODUKT(PR),$C(9),PR,$C(9),$P(^KPR(PR,0),D),$C(9),"MINBH",$C(9),BHL,$C(9),BHB,!
 Use 0
 S $P(LVH,D,6)=BHB
 S ^KPR(PR,"J5005")=LVH
 D COUNT
 Q
 ;
 ;Levertermijn
LT S LVH=^KPR(PR,"J5005"),LTL=$P(LVH,D,7),LTB=$$ICCode2LeverWeek^BLPROD(PR)
 Quit:'LTB
 I +LTL=+LTB Q
 Use Dev
 Write:0'[Dev $$SORTKEY^PRODUKT(PR),$C(9),PR,$C(9),$P(^KPR(PR,0),D),$C(9),"LEVTRM",$C(9),LTL,$C(9),LTB,!
 Use 0
 Do PUTLOG^PRODUKT(PR,,LTL,LTB,"Levertrm via Blum")
 S $P(LVH,D,7)=LTB
 S ^KPR(PR,"J5005")=LVH
 D COUNT
 Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 W !! F M=1:1 S K=$T(@("T"_M)) Q:K=""  W !,?1,$J(M,2),". ",$P(K,U,2),?23," :"
11 S R="K\22\3\"_$P($T(T20),U,2)_"\COM1^BLPRLVH\"_(M*2-3) D R0^cA100
 G YZ:K="-",13:K?1"-".N I K="." G 15:$D(O),YZ
 I K="" F I=1:1:M-1 S K=K_I I I'=(M-1) S K=K_","
 S OK=1 F I=1:1:$L(K,",") I $P(K,",",I)'?.N!($P(K,",",I)'<M)!'$P(K,",",I) S OK=0 Q
 G 11:'OK F I=1:1:$L(K,",") S R=$P(K,",",I) I '$D(O(R)) D
 .S X=$P($T(@("T"_R)),U,2,99),WW=1
 .D:$L($P(X,U,3))
 ..S WW=$$ASK^vhWACHTW("MANAGER","",10,0)
 ..D:WW
 ...S SDat=""
 ...Quit:$G(io)'=1027  ; Tijdelijk afgesloten in ADMIN
 ...N %SC,R,X,DefSchaduwDatum
 ...Set DefSchaduwDatum=$$GetSchaduwDatum^LEVER(5005)
 ...D STORE^vhTERMINA(),FIELD^vhScherm("BLPRLVH","SCHDATUM"),REFRESH^vhTERMINA()
 ...I '%SC S WW="" Q
 ...S:SDat="" SDat=DefSchaduwDatum
 ...Q:'SDat
 ...S FP=540
 ...W @F,$P($T(T27),";",2)," : ",$S(SDat'=DefSchaduwDatum:$$EXTDATE^vhDTyp(SDat),1:"["_$$EXTDATE^vhDTyp(SDat)_"]")
 .I WW S O(R)=$P(X,U,2),FP=4+R*100+5 W @F,@F92,$P(X,U,1),@F93
 G 11
13 S R=$P(K,"-",2) I $D(O(R)) K O(R) S X=$P($T(@("T"_R)),U,2,99),FP=4+R*100+6 W @F,$P(X,U,1) I R=1 S FP=540 W @F,@F2
 G 11
15 S FP=2203 W @F,@F1,$P($T(T22),U,2),!?2,$P($T(T23),U,2)
 D IK^PROC1 G 11:R'="J"
 Set Dev=$$OPEN^vhDEV(,"BLUMDIFF.TXT","W")
 ;
 ; Loop door alle Blumproducten
 S FP=2203 W @F,@F1,!?2,$P($T(T24),U,2),!?2,$P($T(T25),U,2)
 S ID="",APR=0,(LevRef,KortT)=""
 Set BLUMId="5005 "
2 S LevRef=$O(^KPL(BLUMId,"  ",LevRef)) Goto 3:LevRef="" 
21 S KortT=$O(^KPL(BLUMId,"  ",LevRef,KortT)) Goto 2:KortT=""
 S PR=^(KortT)
 Set IDT=$P(^KPR(PR,2),D,25)
 Set ID="0"_$TR($E(IDT,2,99),".","")
 If $E($P(^KPR(PR,2),D,25))=7 Goto 21 ; Geen DO-producten, identnummer begint met 7
 ;If '$D(^BLProd("D",ID)) Set $P(^KPR(PR,2),D,3)=999999 ; tijdelijk
 Goto 21:'$D(^BLProd("D",ID))
 Set BLUM=^BLProd("D",ID)
 S RNR="",APR=APR+1,FP=2331 W @F,APR S FP=2431 W @F,@F2,IDT
22 S RNR=$O(O(RNR)) G 21:RNR="" D @$P(O(RNR),D,1) G 22 ; Uitvoeren subroutine
 ;
3  Close:0'[Dev Dev
 S FP=2403 W @F,@F1,$P($T(T26),U,2) D IK^PROC1
 ;
YZ Q
 ;
COM1 W !?2,$P($T(T21),U,2),!?2,$P($T(T21),U,3) Q
 ;