#Define InitOldLocals         New D,U,Q Set D="\",U=";",Q="K"
 
	
	#define IdentNrLength 8
	
	#Define blProductCreate(%id)  	Kill %blProduct Set Status=##class(BL.Prod.Product).Create(%id) Quit:($$$pxStatusIsERR(Status)) Status
	
	/* Prod.Search */
	; Criteria Usage
	#define ProdCritAtKortTekst "K"
	#define ProdCritAtIdentNr "I"
	#define ProdCritAtLevRef "LR"
	#define ProdCritAtDossier "D"
	#define ProdCritAtEAN "EAN"
 
	#define ProdCritUsagevHisieIP "VHISIE_IP"
	#define ProdCritUsagevHisieKS "VHISIE_KS"
	#define ProdCritUsagevHisieVTW "VHISIE_VTW"
	#define ProdCritUsageOVKS "OV_KS"
	#define ProdCritUsageOVIP "OV_IP"
	#define ProdCritUsageOVALL "OV_ALL"
	#define ProdCritUsageDynalog "DYNALOG"
	#define ProdCritUsageAll "ALL"
	#define ProdCritUsageHalux "HALUX"
	#define ProdCritUsageDirectOrder "DO"
 
	; Criteria Stock
	#define ProdCritStock "S"
	#define ProdCritStockNot "N"
	#define ProdCritStockContract "C"
	#define ProdCritStockDirectOrder "D"
	
	; Criteria Producttype
	#define ProdCritProdBeslag "B"
	#define ProdCritProdMaatwerk "D"
	#define ProdCritProdOrgalux "O"
	
	; Criteria Active
	#define ProdCritActive "A"
	#define ProdCritActiveNon "N"
	#define ProdCritActiveLimited "B"
	
	; Criteria Saleable
	#define ProdCritSaleable "S"
	#define ProdCritSaleableChild "K"
	#define ProdCritSaleableHalffabr "H"
	
	; Criteria Pool
	#define ProdCritPoolCustService "KS"
	#define ProdCritPoolIndustrial "IP"
	#define ProdCritPoolNotSpecified "NS"
 
	; Criteria Sorted
	#define ProdCritSortedSortKey "SK"
	#define ProdCritSortedKortTekst "K"
	#define ProdCritSortedNot "U"