Index: vhUnitTest/vhConsistency/Checks/Bouwstenen.cls.xml
===================================================================
diff -u -r1688 -r1709
--- vhUnitTest/vhConsistency/Checks/Bouwstenen.cls.xml	(.../Bouwstenen.cls.xml)	(revision 1688)
+++ vhUnitTest/vhConsistency/Checks/Bouwstenen.cls.xml	(.../Bouwstenen.cls.xml)	(revision 1709)
@@ -103,9 +103,144 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTestC">
-<Implementation><![CDATA[	write "C",!
+<Method name="TestPRLINKOntbreekt">
+<Implementation><![CDATA[
+	do mpTestPRLINKOntbreekt
+	
+	set BouwsteenCheck = ##class(vhConsistency.Checks.Bouwstenen).%New()
+	do BouwsteenCheck.ControlePRBSBSOne(1000)
+	do BouwsteenCheck.ControlePRBSIPOne(1001)
+	do BouwsteenCheck.ControlePRBSIPOne(1002)
+	do BouwsteenCheck.ControlePRLINKDOne(1000)
+	do BouwsteenCheck.ControlePRLINKIKMOne(1001)
+	do BouwsteenCheck.ControlePRLINKIKMOne(1002)
+	do $$$AssertEquals(BouwsteenCheck.GeefAantalMeldingen(),4)
+	set strMelding = BouwsteenCheck.GeefMelding()
+	do strMelding.Rewind()
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(1),"^PRLINK(""D"",1000,1001) - bestaat niet")
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(2),"^PRLINK(""IKM"",1001,1000) - bestaat niet")
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(3),"^PRLINK(""D"",1000,1002) - bestaat niet")
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(4),"^PRLINK(""IKM"",1002,1000) - bestaat niet")
+	
+	do vpTestPRLINKOntbreekt
+	quit
+	
+mpTestPRLINKOntbreekt	
+	set ^PRBS("BS",1000)="M\KP"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
+	set ^PRBS("BS",1000,"KIND.001")="1001\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1000,"KIND.002")="1002\1\K\\\\\\\\P\"
+	
+	set ^PRBS("IP",1001,1000,"KIND.001")="K"
+	set ^PRBS("IP",1002,1000,"KIND.002")="K"
+	
+	quit	
+
+vpTestPRLINKOntbreekt
+	kill ^PRBS("BS",1000)
+	kill ^PRBS("IP",1001)
+	kill ^PRBS("IP",1002)
+	
+	kill ^PRLINK("D",1000)
+	
+	kill ^PRLINK("IKM",1001)
+	kill ^PRLINK("IKM",1002)
+	
+	quit
 ]]></Implementation>
 </Method>
+
+<Method name="TestPRBSIPOntbreekt">
+<Implementation><![CDATA[
+	do mpTestPRBSIPOntbreekt
+	
+	set BouwsteenCheck = ##class(vhConsistency.Checks.Bouwstenen).%New()
+	do BouwsteenCheck.ControlePRBSBSOne(1000)
+	do BouwsteenCheck.ControlePRBSIPOne(1001)
+	do BouwsteenCheck.ControlePRBSIPOne(1002)
+	do BouwsteenCheck.ControlePRLINKDOne(1000)
+	do BouwsteenCheck.ControlePRLINKIKMOne(1001)
+	do BouwsteenCheck.ControlePRLINKIKMOne(1002)
+	do $$$AssertEquals(BouwsteenCheck.GeefAantalMeldingen(),6)
+	set strMelding = BouwsteenCheck.GeefMelding()
+	do strMelding.Rewind()
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(1),"^PRBS(""IP"",1001,1000,""KIND.001"") - type bouwsteen verschillend")
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(2),"^PRLINK(""IKM"",1001,1000) - bestaat niet")
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(3),"^PRBS(""IP"",1002,1000,""KIND.002"") - type bouwsteen verschillend")
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(4),"^PRLINK(""IKM"",1002,1000) - bestaat niet")
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(5),"^PRBS(""IP"",1001,1000,"""") - bouwsteen onbekend")
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(6),"^PRBS(""IP"",1002,1000,"""") - bouwsteen onbekend")
+	
+	do vpTestPRBSIPOntbreekt
+	quit
+	
+mpTestPRBSIPOntbreekt	
+	set ^PRBS("BS",1000)="M\KP"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
+	set ^PRBS("BS",1000,"KIND.001")="1001\1\K\\\\\\\\P\"
+	set ^PRBS("BS",1000,"KIND.002")="1002\1\K\\\\\\\\P\"
+	
+	set ^PRLINK("D",1000,1001)="1\"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
+	set ^PRLINK("D",1000,1002)="1\"
+	
+	quit	
+
+vpTestPRBSIPOntbreekt
+	kill ^PRBS("BS",1000)
+	kill ^PRBS("IP",1001)
+	kill ^PRBS("IP",1002)
+	
+	kill ^PRLINK("D",1000)
+	
+	kill ^PRLINK("IKM",1001)
+	kill ^PRLINK("IKM",1002)
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="TestPRBSOntbreekt">
+<Implementation><![CDATA[
+	do mpTestPRBSOntbreekt
+	
+	set BouwsteenCheck = ##class(vhConsistency.Checks.Bouwstenen).%New()
+	do BouwsteenCheck.ControlePRBSBSOne(1000)
+	do BouwsteenCheck.ControlePRBSIPOne(1001)
+	do BouwsteenCheck.ControlePRBSIPOne(1002)
+	do BouwsteenCheck.ControlePRLINKDOne(1000)
+	do BouwsteenCheck.ControlePRLINKIKMOne(1001)
+	do BouwsteenCheck.ControlePRLINKIKMOne(1002)
+	do $$$AssertEquals(BouwsteenCheck.GeefAantalMeldingen(),2)
+	set strMelding = BouwsteenCheck.GeefMelding()
+	do strMelding.Rewind()
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(1),"^PRBS(""BS"",1000) - bestaat niet")
+	do $$$AssertEquals(BouwsteenCheck.GeefInterneMelding(2),"^PRBS(""BS"",1000) - bestaat niet")
+	
+	do vpTestPRBSOntbreekt
+	quit
+	
+mpTestPRBSOntbreekt	
+	set ^PRBS("IP",1001,1000,"KIND.001")="K"
+	set ^PRBS("IP",1002,1000,"KIND.002")="K"
+	
+	set ^PRLINK("D",1000,1001)="1\"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
+	set ^PRLINK("D",1000,1002)="1\"
+	
+	set ^PRLINK("IKM",1001,1000)=""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
+	set ^PRLINK("IKM",1002,1000)=""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
+	
+	quit	
+
+vpTestPRBSOntbreekt
+	kill ^PRBS("BS",1000)
+	kill ^PRBS("IP",1001)
+	kill ^PRBS("IP",1002)
+	
+	kill ^PRLINK("D",1000)
+	
+	kill ^PRLINK("IKM",1001)
+	kill ^PRLINK("IKM",1002)
+	
+	quit
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhConsistency/Checks/Bouwstenen.cls.xml
===================================================================
diff -u -r1688 -r1709
--- vhConsistency/Checks/Bouwstenen.cls.xml	(.../Bouwstenen.cls.xml)	(revision 1688)
+++ vhConsistency/Checks/Bouwstenen.cls.xml	(.../Bouwstenen.cls.xml)	(revision 1709)
@@ -98,8 +98,14 @@
 			Set Aantal=$P(^PRBS("BS",MPRNr,BSKey),"\",2)
 			Continue:'Aantal
 			Set OrgVerp=$P(^PRBS("BS",MPRNr,BSKey),"\",12)
-			If $P($G(^PRLINK("D",MPRNr,KPRNr)),"\",1)'=Aantal  Do ..VoegErrorMeldingToe($ZR,"aantal verschillend")
-			If $P($G(^PRLINK("D",MPRNr,KPRNr)),"\",2)'=OrgVerp  Do ..VoegErrorMeldingToe($ZR,"Orgaluxverpakking onbekend")
+			If '$D(^PRLINK("D",MPRNr,KPRNr)) { 
+				Do ..VoegErrorMeldingToe($ZR,"bestaat niet")
+			}
+			Else {
+				If $P(^PRLINK("D",MPRNr,KPRNr),"\",1)'=Aantal  Do ..VoegErrorMeldingToe($ZR,"aantal verschillend")
+				If $P(^PRLINK("D",MPRNr,KPRNr),"\",2)'=OrgVerp  Do ..VoegErrorMeldingToe($ZR,"Orgaluxverpakking onbekend")
+			}
+		    If '$D(^PRLINK("IKM",KPRNr,MPRNr)) Do ..VoegErrorMeldingToe($ZR,"bestaat niet")		
 		}
 ]]></Implementation>
 </Method>
@@ -137,8 +143,14 @@
 		Set BSKey=$O(^PRBS("IP",KPRNr,MPRNr,""))
 		If BSKey=""  Do ..VoegErrorMeldingToe($ZR,"bouwsteen onbekend") Continue
 		Set:'$P($G(^PRBS("BS",MPRNr,BSKey)),"\",2) BSKey=$O(^PRBS("IP",KPRNr,MPRNr,""),-1)
-		If Aantal'=$P($G(^PRBS("BS",MPRNr,BSKey)),"\",2)  Do ..VoegErrorMeldingToe($ZR,"aantal verschillend")
-		If OrgVerp'=$P($G(^PRBS("BS",MPRNr,BSKey)),"\",12)  Do ..VoegErrorMeldingToe($ZR,"Orgaluxverpakking verschillend")
+		If '$D(^PRBS("BS",MPRNr)) {
+			Do ..VoegErrorMeldingToe($ZR,"bestaat niet")
+		}
+		Else {
+			If Aantal'=$P($G(^PRBS("BS",MPRNr,BSKey)),"\",2)  Do ..VoegErrorMeldingToe($ZR,"aantal verschillend")
+			If OrgVerp'=$P($G(^PRBS("BS",MPRNr,BSKey)),"\",12)  Do ..VoegErrorMeldingToe($ZR,"Orgaluxverpakking verschillend")
+		}
+		If '$D(^PRLINK("IKM",KPRNr,MPRNr)) Do ..VoegErrorMeldingToe($ZR,"bestaat niet")
 	}
 ]]></Implementation>
 </Method>
@@ -152,7 +164,7 @@
 	While MPRNr {
 		Set MPRNr=$O(^PRLINK("IKM",KPRNr,MPRNr))
 		Continue:'MPRNr
-		If '$D(^PRLINK("D",MPRNr,KPRNr))  Do ..VoegErrorMeldingToe($ZR,"moederproduct onbekend")
+		If '$D(^PRLINK("D",MPRNr,KPRNr))  Do ..VoegErrorMeldingToe($ZR,"moederproduct bestaat niet")
 	}
 ]]></Implementation>
 </Method>