PV4 ; ;[ 11/08/2003   8:27 PM ]
 
	
TBX
	Write @F11,@F1
 	Set %ClientIP="192.168.17.25"
 	Set %J=$$%J^vhRtn1()
 	K ^HULP(%J)
	Do ##class(BL.Prod.OptiBox.Optimize).Instantiate()
	Do ##class(BL.PPS.TBX.OptiBox).Instantiate()
	Read "Batch ID : ",BatchID
	Quit:BatchID=""
	If '$D(^HATBX("B",BatchID)) Write !,"Batch met ID "_BatchID_" bestaat niet",! Quit
	
	Set Label="SEQ"
	Set LabelP="P"
	Set BatchList=$$Batch2List^HATBXLeanLijst(BatchID)
	Do Sort^HATBXLeanLijst(BatchList,1,Label)
	Set Sequence=0
	Set VolgNr=""
	For  Set VolgNr=$O(^HULP(%J,Label,VolgNr)) Quit:VolgNr=""  Do
	. Set Rec=^HULP(%J,Label,VolgNr)  ; 1:PRNr 2:Qty 3:TOENr 4:TLUNr, 5:Dossier, 6:VolgNr
	. Set PRNr=$P(Rec,"\",1)
	. Quit:PRNr'?4.7N
	. Set ^HULP(%J,LabelP,PRNr)=""
	If '$D(^HULP(%J,LabelP,PRNr)) Write !,"Lege batch "_BatchID_" er zitten geen producten in",! 
 
	zw ^HULP(%J,LabelP)
	; doosjes voor losse onderdelen
	Set LosOnderdelen=0
	If $D(^HATBX("LO",BatchID)) Do
	. Write !,"Losse onderdelen voor batch "_BatchID_" werden reeds geproduceerd",!,"nogmaals? JA[]=nogmaals : "
	. Read K
	. If $$UPTRIMAN^vhRtn1(K)="JA" Set LosOnderdelen=1
	Else  Do
	. Set LosOnderdelen=1
	If LosOnderdelen Do
	. Do LOS
	. ;Set ^HATBX("LO",BatchID)=$H
 
	; Per lade
	For  Do ONE  Quit:PRNr'?4.7N
 	Quit
 	
ONE 	
	Set PRNr=$$SELECT^PRODUKT6() ; V1
	Quit:PRNr'?4.7N 
	Write @F11,@F1
	Write !,"Batch : "_BatchID,!
	If '$D(^HULP(%J,LabelP,PRNr)) Do  Quit:K=""
	. Write !,"Product "_PRNr_" "_$P(^KPR(PRNr,0),D)_" niet in batch.",!,"Toch uitvoeren []=skip : "
	. R K
	Else  Do
	. Write !,"Product "_PRNr_" "_$P(^KPR(PRNr,0),D)
 
	Set ObjType="X"
	Set ObjRef=$random(1000000)
	Set Status=%blPPSTBXOptiBox.SnijV1(PRNr,1,"V1",ObjType_"."_ObjRef,"",7,0,"HALUX") ;"HALUX"
	Quit
 
LOS
	Set VolgNr=""
	For  Set VolgNr=$O(^HULP(%J,Label,VolgNr)) Quit:VolgNr=""  Do
	. Set PRNr=$P(^HULP(%J,Label,VolgNr),"\",2)
	. Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK"))
	. Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))
	. Set Verpak=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK"))
	. Quit:Verpak'="S"
	. Quit:(LD=500)&&(DK<70)
	. Write !,PRNr," : ",$P(^KPR(PRNr,0),D)
	. Set Status=%blPPSTBXOptiBox.SnijV1(PRNr,1,"LOS",ObjType_"."_ObjRef,"",3,2,"HALUX") ;"HALUX"