ZoekBS
	Set D="\"	
	Set PRNr=0
	Set LimKLNr=""
	Set StartMnd = "2011.04"
	Set EndMnd = "2012.03"
	For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$$GENTYP^HAD(PRNr)
	. Quit:$P(GenTyp,"\")'="TBX"
	. Quit:$P(GenTyp,"\",2)="PR+" ; geen PRO PLUS laden van Keller
	. Set KLNr=0
	. For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Do:$S(LimKLNr:LimKLNr=KLNr,1:1)
	. . Set Stat=$$PROD^STAT(PRNr,KLNr,StartMnd,EndMnd,"1,4")
	. . Set Qty=$P(Stat,"\",1)
	. . Quit:+Qty<1
	. . Set KT=$P(^KPR(PRNr,0),"\",1)
	. . Set BodemPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHZ.001")),"\"),Type="PRBDHZ"
	. . Set:BodemPRNr'?4.7N BodemPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHO.001")),"\"),Type="PRBDHO"
	. . Set:BodemPRNr'?4.7N BodemPRNr=$P($G(^PRBS("BS",PRNr,"PROD.001")),"\"),Type="PROD"
	. . w:(BodemPRNr = 391173) PRNr,!