#Include BL.Sys.Proxy
 
 
 	#Define debugHide							"X;Q;T"
 
 
	#Define blOptiBox 		  				Set:('$D(%blOptiBox)) %blOptiBox=##class(BL.Prod.OptiBox).Create()
 
	#Define blBoxData              	Set:('$D(%blBoxData)) %blBoxData=##class(BL.Prod.OptiBox.BoxData).%New()
	#Define blBoxMeta  							Set:('$D(%blBoxMeta)) %blBoxMeta=##class(BL.Prod.OptiBox.BoxMeta).%New()
	#Define blOptimize							Set:('$D(%blProdOptiBoxOptimize)) %blProdOptiBoxOptimize=##class(BL.Prod.OptiBox.Optimize).%New()
	
	;BoxData groep (ObjType)
	#Define bdgProduct							"PR"
	
	#define SplitID(%ID) $P(%ID,"||"),$P(%ID,"||",2)
	#define UndefinedBoxUsage	"*"
 
 	#define TimeStamp(%dt) $zdt(%dt,3)
 	
 	#define snPRNr 1
 	#define snProductRef 2
 	#define snProductAantal 3
	#define snHasSnijDef 4
 	#define snBoxUsage 5
 	#define snPPSPrioriteit 6
 	#define snAantalGevraagd 7
 	#define snAantalQueued 8
 	#define snAantalFinished 9
 	#define snLabel 10
 
 	#define Log(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) 	##class(DS.Prod.OptiBox.Logging).Create(,,%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj)
 	#define LogUpdate(%oLog,%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) 	%oLog.Update(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj)
 	#define LastLogCreate(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) 	Set %LastLog=##class(DS.Prod.OptiBox.Logging).Create(,,%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj)
	#define LastLogUpdate(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj) Do:$isObject($G(LastLog)) LastLog.Update(%Niv,%Grp,%ID,%Ref,%Actie,%Dtl,%Obj)
 	#define WebServiceTrap	 New $ESTACK,$ETRAP Set $ETRAP="Do WebServiceTrap^BL.Prod.OptiBox.Common()"
 	#define MailTrapAndHandled	 New $ESTACK,$ETRAP Set $ETRAP="Do MailTrapAndHandled^BL.Prod.OptiBox.Common()"
 	#define MailTrap	 New $ESTACK,$ETRAP Set $ETRAP="Do MailTrap^BL.Prod.OptiBox.Common()"
	#define DebugIP Set %ClientIP=##class(DS.Prod.OptiBox.Logging).GetIP()
 	; tijdelijk
 	#define PSSet(%Prop,%Var)
 	#define PSGet(%Prop,%Var)
 
	;QUEUE macro's
	;indien de defines correct zijn, deze in INC plaatsen
	#Define qvoShowAlsoFinishedToday   1
	#Define qvoShowAlsoFinished        2
	
	; Snij Status
	#Define ssFinished          "F"
	#Define ssVolume            "V"
	#Define ssBlocked           "X"
	#Define ssQueued			"Q"
	#Define ssError             "E"
	#Define ssMissing           "M"
	#Define ssPartieel          "P"
	#Define ssWachtend          "W"
 
	; queue status
	#Define qsFinished          "F"
	#Define qsStarted           "S"
	#Define qsQueued			"Q"
	#Define qsOnline            "ON"
	#Define qsOffline           "OF"
	#Define qsWrongCardboard    "W"
	#Define qsError             "E"
	
  	; labelprint status
	#Define psPrinted           "P"
 
 	; queue type
	#Define qtOptimizer			"O"
	#Define qtSnijden			"S"
	#Define qtMachine			"M"
	
	#Define qotLeverancier      "L"
	#Define qotToelevering      "T"
	#Define qotOnbepaald        "X"
	
	#define CallBack(%Class,%Method,%Param1) $LB(%Class,%Method,%Param1)
	
	;Werkposten
	#Define wpLosOnderdeel  "LO"
	#Define wpVerpakking    "VERPAK"
	#Define wpPers      "PERS"