PV3 ; ;[ 11/08/2003   8:27 PM ]
	Set %ClientIP="192.168.1.175"
	Do CLS^vhDBG
	Do ##class(BL.Prod.OptiBox.Optimize).Instantiate()
	Set ObjType="X"
	Set ObjRef=$random(1000000)
	;Set PRNr=226460 ;108366
	Set PRNr=108366
	Set Qty=2
	Set MachineID=""
	Kill Params
 
	Do WL^vhDBG("OneBox ObjRef:"_ObjRef)
	Set Status=%blProdOptiBoxOptimize.OneBox(,PRNr, .Params,Qty,ObjType_"."_ObjRef,,,,MachineID)
	d DumpObject^%apiOBJ(Status)
	q:'Status.IsOK
	Set Dev=$$OPEN^vhDEV(,"BasisPR"_PRNr_".XML","W")
	Use Dev
	Do %blProdOptiBoxOptimize.oRequest.XMLExport()
	Close Dev
	Do WX^vhDBG(%blProdOptiBoxOptimize.oRequest,1)
	Do WX^vhDBG(Status,1)
		q
		
		
	D WL^vhDBG("--- simulate ---")
	Set pxResult=##class(BL.Prod.OptiBox.EasyBox).TransformToSnij(Status.Data,%blProdOptiBoxOptimize.oRequest)
	Do WX^vhDBG(pxResult,1)
	Do %blProdOptiBoxOptimize.ProcessOptiResult(pxResult)
 
	D WL^vhDBG("--- snijden info---")
	Do ##class(BL.Prod.OptiBox.Snijden).Instantiate() ; sets %blProdOptiBoxOptimize
	Do %blProdOptiBoxSnijden.GetAllInfo(ObjType, ObjRef, .arResult)
	Do WA^vhDBG("arResult",.arResult)
	D WL^vhDBG("--- snijden request---")
	
	Set SnijID=""
	Set lbWork=""
	For  Set SnijID=$O(arResult(SnijID)) Quit:SnijID=""  Do
	. Set Qty=$LG(arResult(SnijID),7)
	. Set lbWork=lbWork_$LB($LB(SnijID,Qty))
	Quit:lbWork=""
	Set Status=%blProdOptiBoxSnijden.SnijReDo("VH",lbWork,5,1,.HasDef)
	Do WX^vhDBG(Status,1)
	
	Q
	
	;500 M : 201236
TBX(MachineID,Output,Qty)
 	Set %ClientIP="192.168.1.9"
	Do CLS^vhDBG
	Do ##class(BL.Prod.OptiBox.Optimize).Instantiate()
	Do ##class(BL.PPS.TBX.OptiBox).Instantiate()
	Set ObjType="X"
	Set ObjRef=$random(1000000)
	Set PRNr=261266 ;zonder onderdelen
	Set PRNr=337806
	Set PRNr=$$SELECT^PRODUKT6() ; V1
	w PRNr, " ",$P(^KPR(PRNr,0),"\",1)
	Set Qty=$G(Qty,1)
	;Set MachineID="" ;"HALUX"
 	For I=1:1:1 Do
 	s t=$P($H,",",2)
	S:Output=0||(Output=-1) Status=%blPPSTBXOptiBox.SnijV1(PRNr,Qty,"V1",ObjType_"."_ObjRef,"",7,0,$G(MachineID))
	W $P($H,",",2)-t,!
	s t=$P($H,",",2)
	S:Output=2||(Output=-1) Status=%blPPSTBXOptiBox.SnijV1(PRNr,Qty,"LOS",ObjType_"."_ObjRef,"",5,2,$G(MachineID))
	W $P($H,",",2)-t,!
	q
	Set oRequest=%blProdOptiBoxOptimize.oRequest
	Do WX^vhDBG(oRequest,1)
	Q
	D WL^vhDBG("--- simulate ---")
	Set pxResult=##class(BL.Prod.OptiBox.EasyBox).TransformToSnij(Status.Data,%blProdOptiBoxOptimize.oRequest,0)
	Do WX^vhDBG(pxResult,1)
	Do %blProdOptiBoxOptimize.ProcessOptiResult(pxResult)
	; immediate cut ...
	q
	
 	;500 M : 201236
BULK(Type,Qty,Output)
 	Set %ClientIP="192.168.1.9"
	Do CLS^vhDBG
	Do ##class(BL.Prod.OptiBox.Optimize).Instantiate()
	Do ##class(BL.PPS.TBX.OptiBox).Instantiate()
	Set ObjType="X"
	Set ObjRef=$random(1000000)
	Set PRNr=""
	Set:Type="50M" PRNr=201236 ;500 M
	Set:Type="50K" PRNr=231808 ;500 K
	Set:Type="50D" PRNr=261618 ;500 D
	Quit:PRNr=""
	w PRNr," ",$P(^KPR(PRNr,0),"\",1)
	Set Qty=$G(Qty,1)
	;Set MachineID="" ;"HALUX"
 	s t=$P($H,",",2)
	S Status=%blPPSTBXOptiBox.SnijV1(PRNr,Qty,"LOS",ObjType_"."_ObjRef,"",7,$G(Output,2),"HALUX")
	W $P($H,",",2)-t,!
	q
	; immediate cut ...
	q