Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/GeefProformaID/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/GeefProformaID/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/GeefProformaID/Test.cls.xml	(revision 36446)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMBonAbstract.GeefProformaID.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Uitlevering">
+<Type>%String</Type>
+<Default>325216</Default>
+</Parameter>
+
+<Parameter name="KlantNummer">
+<Type>%String</Type>
+<Default>12486</Default>
+</Parameter>
+
+<Parameter name="FactuurNummer">
+<Type>%String</Type>
+<Default>170665</Default>
+</Parameter>
+
+<Method name="Test: GeefProFormaID mag enkel iets teruggeven indien het derde piece een P bevat">
+<Implementation><![CDATA[
+	Set ^KU1(..#Uitlevering,"F") = ..#KlantNummer_"\"_..#FactuurNummer_"\P\"	
+	Set DataMBonAbstract = ##class(DOM.VKP.impl.DataM.DataMBonAbstract).%New(..#Uitlevering)
+	
+	#dim FactuurNummer As %String = DataMBonAbstract.GeefProformaID()
+	
+	K ^KU1(..#Uitlevering,"F")
+	
+	Do $$$AssertEquals(FactuurNummer, ..#FactuurNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefProFormaID mag niets teruggeven indien het derde piece leeg is">
+<Implementation><![CDATA[
+	Set ^KU1(..#Uitlevering,"F") = ..#KlantNummer_"\"_..#FactuurNummer
+	Set DataMBonAbstract = ##class(DOM.VKP.impl.DataM.DataMBonAbstract).%New(..#Uitlevering)
+	
+	#dim FactuurNummer As %String = DataMBonAbstract.GeefProformaID()
+	
+	K ^KU1(..#Uitlevering,"F")
+	
+	Do $$$AssertEquals(FactuurNummer, "")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/GeefFactuurID/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/GeefFactuurID/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/GeefFactuurID/Test.cls.xml	(revision 36446)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMBonAbstract.GeefFactuurID.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Uitlevering">
+<Type>%String</Type>
+<Default>325216</Default>
+</Parameter>
+
+<Parameter name="KlantNummer">
+<Type>%String</Type>
+<Default>12486</Default>
+</Parameter>
+
+<Parameter name="FactuurNummer">
+<Type>%String</Type>
+<Default>170665</Default>
+</Parameter>
+
+<Method name="Test: GeefFactuurID mag niets teruggeven indien het derde piece een P bevat">
+<Implementation><![CDATA[
+	Set ^KU1(..#Uitlevering,"F") = ..#KlantNummer_"\"_..#FactuurNummer_"\P\"	
+	
+	Set DataMBonAbstract = ##class(DOM.VKP.impl.DataM.DataMBonAbstract).%New(..#Uitlevering)
+	#dim FactuurNummer As %String = DataMBonAbstract.GeefFactuurID()
+	
+	K ^KU1(..#Uitlevering,"F")
+	
+	Do $$$AssertEquals(FactuurNummer, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefFactuurID mag iets teruggeven indien het derde piece leeg is">
+<Implementation><![CDATA[
+	Set ^KU1(..#Uitlevering,"F") = ..#KlantNummer_"\"_..#FactuurNummer
+	
+	Set DataMBonAbstract = ##class(DOM.VKP.impl.DataM.DataMBonAbstract).%New(..#Uitlevering)
+	#dim FactuurNummer As %String = DataMBonAbstract.GeefFactuurID()
+	
+	K ^KU1(..#Uitlevering,"F")
+	
+	Do $$$AssertEquals(FactuurNummer, ..#FactuurNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r29059 -r36446
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 36446)
@@ -3,7 +3,7 @@
 <Class name="DOM.VKP.impl.DataM.DataMBonAbstract">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.VKP.Bon,%RegisteredObject</Super>
+<Super>DOM.VKP.Bon,TECH.RegisteredObject</Super>
 <Inheritance>right</Inheritance>
 
 <Property name="BonNummer">
@@ -318,6 +318,7 @@
 <Implementation><![CDATA[
 	#dim FactuurID As %String = ""
 	#dim ID As %String = $piece(^KU1(..BonNummer,"F"),"\",2)
+	Quit:$piece(^KU1(..BonNummer,"F"),"\",3)="P" ""
 	Set:(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatFactuur(ID)) FactuurID = ID
 	Quit FactuurID
 ]]></Implementation>
@@ -328,6 +329,7 @@
 <Implementation><![CDATA[
 	#dim ProformaID As %String = ""
 	#dim ID As %String = $piece(^KU1(..BonNummer,"F"),"\",2)
+	Quit:$piece(^KU1(..BonNummer,"F"),"\",3)'="P" ""
 	Set:(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatProforma(ID)) ProformaID = ID
 	Quit ProformaID
 ]]></Implementation>