#include Prod.Product
#include vhLib.Macro
#include BL.Derde.LevSpecifiek
 
Storage
	Set Dev=$$OPEN^vhDEV(,"EWMS STORAGE.txt","W","T")
	Use Dev
	Write $TR("SortKey,PRNr,IdentNr,KortTekst,Stock,Gewicht;LEVNr;LEVNm;GVP;NVP;Mag;PalQty;LaagQty;Tray8x6Qty;Tray6x4Qty;Doos2Qty;DoosQty;DoosType;Fragiel;PalletInstabiel;StabiliteitDoos;Glad;Krasgevoelig;Reden,Lengte,Breedte,Hoogte,MaxStock,GemStock,MaxNbrDoos,GemNbrDoos,MaxPalNbrDoos,GemPalNbrDoos",",;",$C(9,9)),!
	Write $TR("",",",$C(9)),!
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Do StorageOne(PRNr)
	Quit
	Do CLOSE^vhDEV(Dev)
	Quit
	
StorageOne(PRNr)
	Set Mag=$LG($G(^PVProd(PRNr)),1)
	Quit:Mag'="M"
	
	Set Reden=$LG($G(^PVProd(PRNr)),2)
	Set GVP=$$$PRGet($$$GrootVerpakking)
	Set PalQty=$LG($G(^PVProd(PRNr)),3)
	Set Doos2Qty=$LG($G(^PVProd(PRNr)),4)
	Set DoosQty=$LG($G(^PVProd(PRNr)),5)
 	; afmeting verpakking
	Set BLID="0"_$E($TR($P(^KPR(PRNr,2),D,25),".",""),2,99)
	Set BLRec=$G(^BLProd("D",BLID))
	Set Ho=$P(BLRec,D,25)
	Set Le=$P(BLRec,D,23)
	Set Br=$P(BLRec,D,24)
	
	Do FetchStock(PRNr,.MaxStock,.GemStock)
	Set MaxDozen=$J(MaxStock\GVP+.499,0,0)
	Set GemDozen=$J(GemStock+.499\GVP,0,0)
	
	Set PalQty=$$$PRGet($$$PalletQty)
	Set MaxPalDozen=MaxDozen
	Set GemPalDozen=GemDozen
	If PalQty>10,PalQty<MaxStock Set MaxPaldozen=PalQty\GVP
	If PalQty>10,PalQty<GemStock Set GemPaldozen=PalQty\GVP
	
	Set LEVNr=$$$PRGet($$$LeveranciersNr)
	Set LEVNm=$P(^KLE(^KL1(LEVNr),0),"\",2)
	Set Gewicht=$$$PRGet($$$Gewicht)
	Set KortTekst=$$$PRGet($$$KortTekst)
	Set NVP=$$$PRGet($$$NormaleVerpakking)
	Set StockType=$$$PRGet($$$StockType)
 
	Write $$SORTKEY^PRODUKT(PRNr),*9,PRNr,*9,$P(^KPR(PRNr,2),D,25),*9,KortTekst,*9,StockType,*9,$$$ExcelNum(Gewicht/1000),*9,LEVNr,*9,LEVNm
 
	Write *9,GVP,*9,NVP,*9,Mag,*9,PalQty,*9,Doos2Qty,*9,DoosQty,*9,Reden
	Write *9,$$$ExcelNum(Le),*9,$$$ExcelNum(Br),*9,$$$ExcelNum(Ho)
	Write *9,$$$ExcelNum(MaxStock),*9,$$$ExcelNum(GemStock),*9,$$$ExcelNum(MaxDozen),*9,$$$ExcelNum(GemDozen),*9,$$$ExcelNum(MaxPalDozen),*9,$$$ExcelNum(GemPalDozen)
	Write !
	
	Quit
	
FetchStock(PRNr,MaxStock,GemStock)
	Set Week="2010.04 "
	Set MaxStock=0
	Set GemStock=0, GemCnt=0
	For  Set Week=$O(^KSPW(PRNr,Week)) Quit:Week=""  Do
	. Set:MaxStock<$P(^KSPW(PRNr,Week),"\",4) MaxStock=$P(^KSPW(PRNr,Week),"\",4)
	. Set GemStock=GemStock+$P(^KSPW(PRNr,Week),"\",4)
	. Set GemCnt=GemCnt+1
	Set:GemCnt GemStock=+$J(GemStock/GemCnt,0,1)
	Quit
	
	
Movement
	Set Dev=$$OPEN^vhDEV(,"EWMS MOVEMENT.txt","W","T")
	Use Dev
	Write $TR("SortKey,PRNr,IdentNr,KortTekst,Stock,Gewicht,LEVNr,LEVNm,GVP,NVP,Mag,PalQty,Doos2Qty,DoosQty,Reden,Lengte,Breedte,Hoogte,KLNr,DueOut,BONNr,PickQty,NbrPal,NbrDoos2,NbrDoos,NbrPcs,IsPal,IsDoos2,IsDoos,IsPcs",",",$C(9)),!
	Set Begin=$$INTDATE^vhDTyp("01/01/2011")
	Set End=$$INTDATE^vhDTyp("05/05/2011")
	Set (CONSNr,ORDNr,OLNr,SOLNr)=""
	Kill ProdCache
	For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
	. Set DueOut=$P(^ORDW("D",CONSNr),D,3)
	. Set KLNr=$P(^ORDW("D",CONSNr),D,1)
	. Quit:(+DueOut<Begin)||(+DueOut>End)
	. For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
	. . For  Set OLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLNr)) Quit:OLNr=""  Do
	. . . Set MPRNr=$P(^ORDW("D",CONSNr,"D",ORDNr,OLNr),D)
	. . . Quit:'$D(^KPR(MPRNr))
	. . . If $$ISORGAL^PRODUKT2(MPRNr)||($$AANTKIND2^PRLINK(MPRNr)>1) Set MPRNr=""
	. . . Kill Cache
	. . . For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLNr,SOLNr)) Quit:SOLNr=""  Do
	. . . . Set SOLRec=^ORDW("D",CONSNr,"D",ORDNr,OLNr,SOLNr)
	. . . . Set Qty=$P(SOLRec,D,3)
	. . . . Set PRNr=$P(SOLRec,D,1)
	. . . . Quit:'$D(^KPR(PRNr))
	. . . . Set LEVNr=$$$PRGet($$$LeveranciersNr)
	. . . . Quit:LEVNr=$$$LevHalux
	. . . . Quit:'PRNr
	. . . . Quit:Qty<0
	. . . . Quit:'$D(^KPR(PRNr))
	. . . . Set:MPRNr?4.7N PRNr=MPRNr
	. . . . Set Cache(PRNr)=$G(Cache(PRNr))+$P(SOLRec,D,3)
	. . . Set PRNr=""
	. . . For  Set PRNr=$O(Cache(PRNr)) Quit:PRNr=""  Do
	. . . . Set Qty=Cache(PRNr)
	. . . . Do WriteOne(PRNr,Qty,CONSNr,DueOut,KLNr)
	Do CLOSE^vhDEV(Dev)
	Quit
	
WriteOne(PRNr,Qty,CONSNr,DueOut,KLNr)
	Set PalQty=$LG($G(^PVProd(PRNr)),3)
	Set Doos2Qty=$LG($G(^PVProd(PRNr)),4)
	Set DoosQty=$LG($G(^PVProd(PRNr)),5)
	Set Mag=$LG($G(^PVProd(PRNr)),1)
	Set Reden=$LG($G(^PVProd(PRNr)),2)
	Set RestQty=Qty
	Set (NbrPal,NbrDoos2,NbrDoos,NbrPcs)=0
 
	If PalQty,RestQty'<PalQty Do
	. Set NbrPal=RestQty\PalQty
	. Set RestQty=RestQty-(NbrPal*PalQty)
	If Doos2Qty,RestQty'<Doos2Qty Do
	. Set NbrDoos2=RestQty\Doos2Qty
	. Set RestQty=RestQty-(NbrDoos2*Doos2Qty)
	If DoosQty,RestQty'<DoosQty Do
	. Set NbrDoos=RestQty\DoosQty
	. Set RestQty=RestQty-(NbrDoos*DoosQty)
	Set NbrPcs=RestQty
 
	Set LEVNr=$$$PRGet($$$LeveranciersNr)
	Set LEVNm=$P(^KLE(^KL1(LEVNr),0),"\",2)
	Set Gewicht=$$$PRGet($$$Gewicht)
	Set KortTekst=$$$PRGet($$$KortTekst)
	Set GVP=$$$PRGet($$$GrootVerpakking)
	Set NVP=$$$PRGet($$$NormaleVerpakking)
	Set StockType=$$$PRGet($$$StockType)
 	; afmeting verpakking
	Set BLID="0"_$E($TR($P(^KPR(PRNr,2),D,25),".",""),2,99)
	Set BLRec=$G(^BLProd("D",BLID))
	Set Ho=$P(BLRec,D,25)
	Set Le=$P(BLRec,D,23)
	Set Br=$P(BLRec,D,24)
 
	Write $$SORTKEY^PRODUKT(PRNr),*9,PRNr,*9,$P(^KPR(PRNr,2),D,25),*9,KortTekst,*9,StockType,*9,$$$ExcelNum(Gewicht/1000),*9,LEVNr,*9,LEVNm
 
	Write *9,GVP,*9,NVP,*9,Mag,*9,PalQty,*9,Doos2Qty,*9,DoosQty,*9,Reden
	Write *9,$$$ExcelNum(Le),*9,$$$ExcelNum(Br),*9,$$$ExcelNum(Ho)
	Write *9,KLNr,*9,$$$ExcelDat(DueOut),*9,CONSNr,*9,Qty,*9,NbrPal,*9,NbrDoos2,*9,NbrDoos,*9,NbrPcs,*9,$S(NbrPal:1,1:0),*9,$S(NbrDoos2:1,1:0),*9,$S(NbrDoos:1,1:0),*9,$S(NbrPcs:1,1:0)
	Write !
	
	Quit
	
DefineAll
	Kill ^PVProd
	Set PRNr=""
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Quit:$D(^PVProd(PRNr))
	. Do DefineOne(PRNr)
	Quit
 
DefineOne(PRNr)
	Set LEVNr=$$$PRGet($$$LeveranciersNr)
	Set Gewicht=$$$PRGet($$$Gewicht)
	Set GVP=$$$PRGet($$$GrootVerpakking)
	Set NVP=$$$PRGet($$$NormaleVerpakking)
	Set StockType=$$$PRGet($$$StockType)
	Set OpslagZone=$$$PRGet($$$OpslagZone)
	Set PalQty=$$$PRGet($$$PalletQty)
	; afmeting verpakking
	Set BLID="0"_$E($TR($P(^KPR(PRNr,2),D,25),".",""),2,99)
	Set BLRec=$G(^BLProd("D",BLID))
	Set Ho=$P(BLRec,D,25)
	Set Le=$P(BLRec,D,23)
	Set Br=$P(BLRec,D,24)
 
	Set TotGewicht=GVP*Gewicht/1000 
	
	If LEVNr=$$$LevHalux  Quit
	; UGLY
	If "5004;5026;5115;5156;5709;5817;6029;6076;6274;6302;6334;6337;6385;6412;6415;6501;6502;6543;6568;6588;6628;6673;6680;6792;6813;6892;6922;7025;7058;7063;7112;7178;7312;7318"[LEVNr Do Define(PRNr,"U",9999999,"Suppl") Quit
	; PALLET
	If "5716;6118"[LEVNr Do Define(PRNr,"P",9999999,"Supplier") Quit
 
	; Baliko
	If LEVNr=$$$LevBaliko Do  Quit
	. If TotGewicht>25 Do Define(PRNr,"P",9999999,"Gewicht")
	. Else  Do Define(PRNr,"M",GVP,"Bak:Niet Blum")
 
	; Niet Blum
	If LEVNr'=$$$LevBlum Do  Quit
	. If TotGewicht>25 Do Define(PRNr,"P",9999999,"Gewicht")
	. Else  If OpslagZone'=1 Do Define(PRNr,"U",9999999,"Opslagzone") 
	. Else  Do Define(PRNr,"M",GVP,"Bak:Niet blum")
	
	; Blum
	If LEVNr=$$$LevBlum Do  Quit
	. If (Ho>40)||(Le>75) Do 
	. . Do Define(PRNr,"P",9999999,"TeGroot")
	. Else  If TotGewicht>25 Do 
	. . Do Define(PRNr,"P",9999999,"Gewicht")
	. Else  If 'Br||'Le do
	. . Set BakQty=GVP
	. . Set:TotGewicht BakQty=50\(TotGewicht)*GVP
	. . Do Define(PRNr,"M",BakQty,"Bak:geen afmeting")
	. Else  If (Br<25)||(Le<25) Do 
	. . Set BakQty=(60*40)\(Br*Le)*GVP
	. . For  Quit:BakQty*Gewicht/1000<50  Set BakQty=BakQty-GVP
	. . Set:BakQty<1 BakQty=1
	. . Do Define(PRNr,"M",BakQty,"Bak:TeKlein")
	. Else  Do
	. . Do Define(PRNr,"M",GVP,"Doos")
	
	Quit
	
Define(PRNr,Mag,GVP,Reden)
	If Mag="M",Reden'["Bak" Do
	.	Set PalQty=$$$PRGet($$$PalletQty)
	.	Set Gewicht=$$$PRGet($$$Gewicht)
	.	; afmeting verpakking
	.	Set BLID="0"_$E($TR($P(^KPR(PRNr,2),D,25),".",""),2,99)
	.	Set BLRec=$G(^BLProd("D",BLID))
	.	Set Ho=$P(BLRec,D,25)
	.	Set Le=$P(BLRec,D,23)
	.	Set Br=$P(BLRec,D,24)
	.
	.	If PalQty>100 Set PalQty=PalQty\2
	.	Set Doos2Qty=GVP*2
	.	If Doos2Qty*Gewicht/1000>50 Set Doos2Qty=0
	.	Set ^PVProd(PRNr)=$LB(Mag,Reden,PalQty,Doos2Qty,GVP)
	Else  Do
	.	Set ^PVProd(PRNr)=$LB(Mag,Reden,0,0,0)
	Quit