Index: vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml
===================================================================
diff -u -r66452 -r66880
--- vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml	(.../TestFlowObjectInhoudService.cls.xml)	(revision 66452)
+++ vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml	(.../TestFlowObjectInhoudService.cls.xml)	(revision 66880)
@@ -224,8 +224,10 @@
 	Do $$$AssertFalse(BevatLangGoed,"Het proforma bevat geen langgoed")
 	
 	Set ProformaNr = 95234
+	Set $P(^KPR(89761,0),"\",1)="RAI.35155.3M PROFIEL  EV1"
 	Set Proforma = OrderAPI.GeefProforma(ProformaNr)
 	Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).ProformaBevatLangGoed(Proforma)
+	Set $P(^KPR(89761,0),"\",1)="SGK.35155.3M PROFIEL  EV1"
 	Do $$$AssertTrue(BevatLangGoed,"Het proforma bevat langgoed")
 	
 	Set FactuurNr = 652568
@@ -234,8 +236,10 @@
 	Do $$$AssertFalse(BevatLangGoed,"De factuur bevat geen langgoed")
 	
 	Set FactuurNr = 652567
+	Set $P(^KPR(89761,0),"\",1)="RAI.35155.3M PROFIEL  EV1"
 	Set Factuur = OrderAPI.GeefFactuur(FactuurNr)
 	Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).FactuurBevatLangGoed(Factuur)
+	Set $P(^KPR(89761,0),"\",1)="SGK.35155.3M PROFIEL  EV1"
 	Do $$$AssertTrue(BevatLangGoed,"De factuur bevat langgoed")
 ]]></Implementation>
 </Method>