MRPHalfFabrStock
	
	; Bij TBX :
	; 	Type="FP" : Frontplaat gezaagd zonder fronthouders
	; 	Type="FH" : Frontplaat gezaagd met houders greep en reling
	;  	Type="BR" : Bodem en rug gezaagd geboord met rughouders en blumotion
MARK(FabKey,Type)
	New List
	Set List=""
	Set:Type="FP" List="PRFRP"
	Set:Type="FH" List="PRFRP;PRFRGR;PRFRHLI;PRFRHRE;PRFRRL"
	If Type="BR" Do
	. Set List="PRRUGHS;PRRUGRE;PRRUGLI;PRBDHO;PRBMM;PRBMBLI;PRBMBRE" ; incl blumotion voor 80kg
	. Set PRNr=$P(^HADPR("F",FabKey),D,3)
	. Set Design=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS")) ; eerste element van de list
	. Set:Design="BA" List="PRBDHO;PRBMM;PRBMBLI;PRBMBRE" ; Voor BALIKO lade alleen de bodem en ev. blumotion
 	Quit:List=""	
	Do MARKKEYS(FabKey,List)
	Quit
	
MARKKEYS(FabKey,List)
	New BSCode,BSKey,I	
	For I=1:1:$L(List,";") Do
	. Set BSCode=$P(List,";",I)
	. Quit:BSCode=""
	. Set BSKey=$O(^HADPR("F",FabKey,"AR",BSCode))
	. Quit:$E(BSKey,1,$L(BSCode))'=BSCode ; Code niet van toepassing
	. Do Transfer2HalfFabr(FabKey,BSKey)
	Quit
	
Transfer2HalfFabr(FabKey,BSKey)
	New Rec,QtyWVRes,TOENr,TLUNr,KLNr,PRNr,HFPRNr,I,List
	;Write !,FabKey,"-",BSKey
	Set Rec=^HADPR("F",FabKey,"AR",BSKey)
	Quit:$P(Rec,D,8)="H" ; Staat reeds op HalfFabr
	Set QtyWVRes=$P(Rec,D,5)
	Set HFPRNr=$P(Rec,D,1)
	Quit:'$D(^KPR(HFPRNr))
	;Write "Qty=",QtyWVRes
	Do MODWVRES^MRPSTOCK(HFPRNr,-QtyWVRes) ; Verminderen werkvloer
	Do MODHalfFabrStock^MRPSTOCK(HFPRNr,QtyWVRes) ; Verhogen halffabrikaten
	; Opbouw statistieken
	Set KLNr=$$GETALG^DEFAULTS("MRP","KLNR")
	Set TOENr=$P(FabKey,";"),TLUNr=$P(FabKey,";",2)
	Set Rec=^HADPR("F",FabKey),PRNr=$P(Rec,D,3)
	Do STAT^PRHF(TOENr,TLUNr,KLNr,PRNr,HFPRNr,QtyWVRes,+$H)
	Do HIST^PRHF(TOENr,TLUNr,KLNr,PRNr,HFPRNr,QtyWVRes,+$H)
	Set $P(^HADPR("F",FabKey,"AR",BSKey),D,8)="H"
	Quit	 
 
REDO
	Read "Alle reeds gemarkeerde terug uitvoeren (type = REDO[]",K
	Quit:$zcvt(K,"U")'="REDO"
	Set FabKey=""
	For  Set FabKey=$O(^HADPR("F",FabKey)) Quit:FabKey=""  Do
	. Set TOENr=$P(FabKey,";"),TLUNr=$P(FabKey,";",2)
    . Quit:'$D(^TO("IU",TOENr,TLUNr))
	. For Type="FP","FH","BR" Do:$D(^HADPR("F",FabKey,Type)) MARK(FabKey,Type)
	Quit
	
Test d MARK("298800;100","BR")
 
Loop
	For  Set PRNr=$$SELECT^PRODUKT6() Quit:PRNr'?4.7N  Do
	. Write @F11,@F1,!,!,$P(^KPR(PRNr,0),D)
	. Set FabKey=$$FABKEYP^HADOPV(PRNr)
	. Quit:FabKey'[";"
	. Write !,FabKey
	. r K
	. Do MARK(FabKey,"BR")
	. Write !,"Done"