FLOW
	Set Dev=$$OPEN^vhDEV(,"MagFlow.txt","W")
	Use Dev
	Set CONSNr="" Do
	For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
	. Set VerzendW=$E($P(^ORDW("D",CONSNr),D,2),1,2)
	. Set DueOut=$P(^ORDW("D",CONSNr),D,3)
	. Kill Sum
	. Set ORDNr=""
	. For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
	. . Set OLNr=""
	. . For  Set OLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLNr)) Quit:OLNr=""  Do
	. . . Set SOLNr=""
	. . . For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLNr,SOLNr)) Quit:SOLNr=""  Do
	. . . . Set OLRec=^ORDW("D",CONSNr,"D",ORDNr,OLNr,SOLNr)
	. . . . Set PRNr=$P(OLRec,D,1)
	. . . . Quit:+$P(OLRec,D,3)<1
	. . . . Set DflMag=$P($G(^KPR(PRNr,2)),D,15)
	. . . . Set:DflMag="" DflMag=$P($G(^KPRO(PRNr,2)),D,15)
	. . . . Set KortT=$P($G(^KPR(PRNr,0)),D,1)
	. . . . Set:KortT="" KortT=$P($G(^KPRO(PRNr,0)),D,1)
	. . . . Set IsBlum=$D(^KPR(PRNr,"J5005"))
	. . . . Set:'IsBlum IsBlum=$D(^KPRO(PRNr,"J5005"))
	. . . . Set SoftV=$P(OLRec,D,13)
	. . . . If IsBlum
	. . . . . If $E(KortT,1,3)=" 20" Set SoftV="E" ; Aventos
	. . . . . If $E(KortT,1,3)="Z10" Set SoftV="E" ; ServoDrive
	. . . . Quit:SoftV=""
	. . . . Quit:DflMag=""
	. . . . If SoftV?1N Set SoftV="E" ; opslitsing van pikcing in deel pickings
	. . . . IF DflMag=1,SoftV="H" Set SoftV="E" 
	. . . . Set Sum=$G(Sum)+1
	. . . . Set Sum(DflMag,SoftV)=$G(Sum(DflMag,SoftV))+1
	. . . . 
	. Set DflMag=""
	. For  Set DflMag=$O(Sum(DflMag)) Quit:DflMag=""  Do
	. . Set SoftV=""
	. . For  Set SoftV=$O(Sum(DflMag,SoftV)) Quit:SoftV=""  Do
	. . . Write CONSNr,*9,$$EXTDATE^vhLib.DataTypes(DueOut,"DK"),*9,VerzendW,*9,DflMag,*9,SoftV,*9,$TR(Sum(DflMag,SoftV)/Sum,".",","),!
	Close:0'[Dev Dev
	
	
TBXKOST
	Set %J=$$%J^vhRtn1()
	Kill ^HULP(%J)
	Set PRNr=200000
	Set Cnt=0
	For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$$GENTYP^HAD(PRNr)
	. Quit:$P(GenTyp,"\")'="TBX"
	. Set Stat=$$PROD^STAT(PRNr,0,"2006.04 ","2007.03 ",1)
	. Quit:Stat<1
	. ;Write PRNr,*9,GenTyp,*9,$P(^KPR(PRNr,0),D,1),!
	. Set BSKey=""
	. For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
	. . Set BSRec=^PRBS("BS",PRNr,BSKey)
	. . Quit:$P(BSRec,D,3)'="T"
	. . Set Grp=$P(BSRec,D,11)
	. . Set Label=$P(BSRec,D,13)
	. . Set Aantal=$P(BSRec,D,2)
	. . Set KPKey=$P(BSRec,D,9)
	. . Set oKostPlaats=##class(Prod.GAMeta.BT.KostPlaats).%OpenId(KPKey)
	. . If '$isObject(oKostPlaats) Write PRNr," ",BSKey," ",KPKey, "  onbekend",! Quit
 	. . Set KV=oKostPlaats.GetToeslagKleinVerlet(.NoSa) 
 	. . Set GV=oKostPlaats.GetToeslagGrootVerlet(.NoSa) 
	. . Set TijdK=$P(BSRec,D,8) ; Tijdkost
 	. .	Set Kost=TijdK*oKostPlaats.GetBasisKost(.NoSa)/3600 ; Tijd * kost
	. . Set Kost=($J(Kost*KV*GV,0,4)*Aantal)
	. . If Grp=""||(Label="") Write PRNr," ",BSKey," ",Grp," & ",Label,"  leeg",! Quit
	. . If $D(^HULP(%J,PRNr,Label)) Write PRNr," ",BSKey," ",Label,"  dubbel",! Quit
	. . Set ^HULP(%J,PRNr,Label)=$LB(TijdK,KPKey,Kost,Kost*Stat)
	. . Set ^HULP(%J,0,Grp,Label)=""
	. . Set ^HULP(%J,PRNr)=Stat
	. Set Cnt=Cnt+1
	Write "geselecteerde producten: ",Cnt,! 
	set Dev=$$OPEN^vhDEV("c:\","TBXKOST.TXT","W")
	Use Dev
	Write "PRNr",*9,"GenTyp",*9,"Korttekst",*9,Aantal
	Set (Grp,Label)=""
	For  Set Grp=$O(^HULP(%J,0,Grp)) Quit:Grp=""  Do
	. For  Set Label=$O(^HULP(%J,0,Grp,Label)) Quit:Label=""  Do
	. . Write *9,Label
	Write !
	Set PRNr=0
	For  Set PRNr=$O(^HULP(%J,PRNr)) Quit:PRNr=""  Do
	. Set (Grp,Label)=""
	. Write PRNr,*9,$P($$GENTYP^HAD(PRNr),D,2),*9,$P(^KPR(PRNr,0),D,1),*9,^HULP(%J,PRNr)
	. For  Set Grp=$O(^HULP(%J,0,Grp)) Quit:Grp=""  Do
	. . For  Set Label=$O(^HULP(%J,0,Grp,Label)) Quit:Label=""  Do
	. . . Set List=$G(^HULP(%J,PRNr,Label))
	. . . Write *9 
	. . . Quit:List=""
	. . . Write $TR($LG(List,4),".",",")
	. Write !
	Close:0'[Dev Dev