Index: APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml
===================================================================
diff -u -r29059 -r40889
--- APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 40889)
@@ -69,11 +69,11 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Type As %String = ""
-	set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
+	Set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
 	#dim Code As %String = HoutCertificaatService.BepaalCertificaatCode(PRNr)
 	if $length(Code) {
-		set Object = ##class(DOM.PM.impl.HoutCertificaat).%OpenId(Code)
-		if $IsObject(Object) set Type = Object.HoutCertificaatType
+		#dim HoutCertificaat As DOM.PM.impl.HoutCertificaat = HoutCertificaatService.GeefHoutCertificaat(Code)
+		if $IsObject(HoutCertificaat) set Type = HoutCertificaat.HoutCertificaatType
 	}
 	if Type = ##class(DOM.PM.enu.HoutCertificaatType).NietGecertificeerdHout() set Type = ""
 	quit Type
Index: vhTest/Mock/DOM/PM/HoutCertificaatService.cls.xml
===================================================================
diff -u -r29059 -r40889
--- vhTest/Mock/DOM/PM/HoutCertificaatService.cls.xml	(.../HoutCertificaatService.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/PM/HoutCertificaatService.cls.xml	(.../HoutCertificaatService.cls.xml)	(revision 40889)
@@ -15,6 +15,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatHoutCertificaat">
+<FormalSpec>HoutCertificaatID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatHoutCertificaat",HoutCertificaatID)
+]]></Implementation>
+</Method>
+
 <Method name="CodeAndGewicht">
 <FormalSpec><![CDATA[PRNr:%Integer,Aantal:%Float,&Code:%String,&Gewicht:%Float]]></FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("CodeAndGewicht",PRNr,Aantal,.Code,.Gewicht)
@@ -27,6 +34,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHoutCertificaat">
+<FormalSpec>HoutCertificaatID:%String</FormalSpec>
+<ReturnType>DOM.PM.impl.HoutCertificaat</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefHoutCertificaat",HoutCertificaatID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefHoutCertificaatIDEenNiveauLager">
 <FormalSpec>HoutCertificaatID:TECH.String,IDLagerDanLaagste:%String=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
Index: BL/Legacy/Res/PiItem.cls.xml
===================================================================
diff -u -r29059 -r40889
--- BL/Legacy/Res/PiItem.cls.xml	(.../PiItem.cls.xml)	(revision 29059)
+++ BL/Legacy/Res/PiItem.cls.xml	(.../PiItem.cls.xml)	(revision 40889)
@@ -129,8 +129,8 @@
 
 <Method name="Open">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ID:%String</FormalSpec>
-<Implementation><![CDATA[	quit ..%OpenId(ID)
+<FormalSpec>ID:%String,concurrency:%Integer=-1</FormalSpec>
+<Implementation><![CDATA[	quit ..%OpenId(ID, concurrency)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/DOM/PM/HoutCertificaatService.cls.xml
===================================================================
diff -u -r29059 -r40889
--- vhTest/Fake/DOM/PM/HoutCertificaatService.cls.xml	(.../HoutCertificaatService.cls.xml)	(revision 29059)
+++ vhTest/Fake/DOM/PM/HoutCertificaatService.cls.xml	(.../HoutCertificaatService.cls.xml)	(revision 40889)
@@ -14,6 +14,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatHoutCertificaat">
+<FormalSpec>HoutCertificaatID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="CodeAndGewicht">
 <FormalSpec><![CDATA[PRNr:%Integer,Aantal:%Float,&Code:%String,&Gewicht:%Float]]></FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: HALFAK.mac.rou
===================================================================
diff -u -r33609 -r40889
--- HALFAK.mac.rou	(.../HALFAK.mac.rou)	(revision 33609)
+++ HALFAK.mac.rou	(.../HALFAK.mac.rou)	(revision 40889)
@@ -143,7 +143,7 @@
  . Set Kost=$$KOST(PRNr,GenTyp)
  . Set (ClaimTransactie,Actie)=""
  . For  Set ClaimTransactie=$O(arHist(ClaimTransactie)) Quit:ClaimTransactie=""  Do
- . . Set ClaimOms=##class(DOM.PM.impl.HoutCertificaat).%OpenId(ClaimTransactie).GeefOmschrijving()
+ . . Set ClaimOms=##class(DOM.PM.HoutCertificaatService).%New().GeefHoutCertificaat(ClaimTransactie).GeefOmschrijving()
  . . For  Set Actie=$O(arHist(ClaimTransactie,Actie)) Quit:Actie=""  Do
  . . . Set Qty=$LG(arHist(ClaimTransactie,Actie),1)
  . . . Set ClaimGewicht=$LG(arHist(ClaimTransactie,Actie),2)
@@ -238,7 +238,7 @@
  . . Set AnRek=$$AnalytischeRekening(GenTyp)
  . . Set AnOms=$$AnalytischeOmschrijving(AnRek)
  . . For  Set ClaimTransactie=$O(arHist(GenTyp,ClaimTransactie)) Quit:ClaimTransactie=""  Do
- . . . Set ClaimOms=##class(DOM.PM.impl.HoutCertificaat).%OpenId(ClaimTransactie).GeefOmschrijving()
+ . . . Set ClaimOms=##class(DOM.PM.HoutCertificaatService).%New().GeefHoutCertificaat(ClaimTransactie).GeefOmschrijving()
  . . . Set Qty=$LG(arHist(GenTyp,ClaimTransactie),1)
  . . . Set ClaimGewicht=$LG(arHist(GenTyp,ClaimTransactie),2)
  . . . Write "H",$C(9),$P(GenTyp,"\",1),$C(9),$P(GenTyp,"\",2),$C(9),PRNr,$C(9),$P(^KPR(PRNr,0),D)
Index: BL/Prod/sub/pxVoorraadIdentificatie.cls.xml
===================================================================
diff -u -r29059 -r40889
--- BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 29059)
+++ BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 40889)
@@ -172,9 +172,10 @@
 
 <Method name="FSCLogoURL">
 <Implementation><![CDATA[
-	If ##class(DOM.PM.impl.HoutCertificaat).%ExistsId(..FSCCode){
-		#dim HoutCertificaat As DOM.PM.impl.HoutCertificaat = ##class(DOM.PM.impl.HoutCertificaat).OpenId(..FSCCode)
-		If (HoutCertificaat.GeefHoutCertificaatType() '= ##class(DOM.PM.impl.HoutCertificaat).OpenId("GEEN").GeefHoutCertificaatType()) {
+	Set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
+	If HoutCertificaatService.BestaatHoutCertificaat(..FSCCode){
+		#dim HoutCertificaat As DOM.PM.impl.HoutCertificaat = HoutCertificaatService.GeefHoutCertificaat(..FSCCode)
+		If (HoutCertificaat.GeefHoutCertificaatType() '= HoutCertificaatService.GeefHoutCertificaat("GEEN").GeefHoutCertificaatType()) {
 			#dim HoutCertificaatLogoNaam As %String = HoutCertificaat.GeefHoutCertificaatType()
 			#dim blImage As BL.Prod.ImageLink = ##class(BL.Prod.ImageLink).Instantiate()
 			Set ..FSCLogoUrl=blImage.GetImageURL("LOGO",HoutCertificaatLogoNaam,"FOPEMBEDPS")
Index: DOM/PM/HoutCertificaatService.cls.xml
===================================================================
diff -u -r34128 -r40889
--- DOM/PM/HoutCertificaatService.cls.xml	(.../HoutCertificaatService.cls.xml)	(revision 34128)
+++ DOM/PM/HoutCertificaatService.cls.xml	(.../HoutCertificaatService.cls.xml)	(revision 40889)
@@ -222,12 +222,18 @@
 
 <Method name="GeefHoutCertificaat">
 <FormalSpec>HoutCertificaatID:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>DOM.PM.impl.HoutCertificaat</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.HoutCertificaat).OpenId(HoutCertificaatID)
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.HoutCertificaat).Open(HoutCertificaatID, ##class(TECH.enu.Concurrency).NoLocking())
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatHoutCertificaat">
+<FormalSpec>HoutCertificaatID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.HoutCertificaat).%ExistsId(HoutCertificaatID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductHoutCertificaat">
 <FormalSpec>PRNr:TECH.String</FormalSpec>
 <ReturnType>DOM.PM.impl.HoutCertificaat</ReturnType>
Index: CHUI/Prod/FSCTelling.cls.xml
===================================================================
diff -u -r29059 -r40889
--- CHUI/Prod/FSCTelling.cls.xml	(.../FSCTelling.cls.xml)	(revision 29059)
+++ CHUI/Prod/FSCTelling.cls.xml	(.../FSCTelling.cls.xml)	(revision 40889)
@@ -88,7 +88,7 @@
  . . . For  Set Magazijn=$O(arHist(ClaimTransactie,Actie,Magazijn)) Quit:Magazijn=""  Do
  . . . . Set Qty=$LG(arHist(ClaimTransactie,Actie,Magazijn),1)
  . . . . Set FSCGewicht=$LG(arHist(ClaimTransactie,Actie,Magazijn),2)
- . . . . Set FSCNaam = ##class(DOM.PM.impl.HoutCertificaat).%OpenId(ClaimTransactie).GeefOmschrijving()
+ . . . . Set FSCNaam = ##class(DOM.PM.HoutCertificaatService).%New().GeefHoutCertificaat(ClaimTransactie).GeefOmschrijving()
  . . . . Write Actie,$C(9),Magazijn,$C(9),PRNr,$C(9),$$$PRGet($$$KortTekst)
  . . . . Write $C(9),$$$ExcelNum(Qty) ; Aantal
  . . . . Write $C(9),$$$ExcelNum($$$PRGet($$$CifPPLEUR)*Qty) ; CiffPPL
@@ -244,7 +244,7 @@
  Write $$$ExcelDat(Datum),*9,$$$ExcelDat($$CALCDATE^vhLib.DataTypes(Datum,"M","FD")),$C(9),Actie,$C(9),Magazijn,$C(9),PRNr,$C(9),$$$PRGet($$$KortTekst)
  Write $C(9),$$$ExcelNum(Qty) ; Aantal
  Write $C(9),$$$ExcelNum($$$PRGet($$$CifPPLEUR)*Qty) ; CiffPPL
- Set FSCNaam = ##class(DOM.PM.impl.HoutCertificaat).%OpenId(Claim).GeefOmschrijving()
+ #dim FSCNaam As %String = ##class(DOM.PM.HoutCertificaatService).%New().GeefHoutCertificaat(Claim).GeefOmschrijving()
  Write $C(9),FSCNaam,$C(9),$$$ExcelNum(Gewicht/1000) ; gewicht in gr -> kg
  ;BonToe;FakRCP;KlantLev;MPRNr;MoederProduct
  Write *9,$P(Rec,"\",7) ; LevBon of Toelevering