Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r59361 -r59579
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 59361)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 59579)
@@ -448,6 +448,26 @@
 	Quit Resultaat
 ]]></Implementation>
 </Method>
+
+<Method name="ZetVlag">
+<FormalSpec>pieceNummer:%Integer,pieceWaarde:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Set $Piece(^KUL(..KlantNr,"F",..BonNummer,1),"\",pieceNummer) = pieceWaarde
+]]></Implementation>
+</Method>
+
+<Method name="GeefVlag">
+<FormalSpec>pieceNummer:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+
+	If ($$$IsNotNullOrEmpty(pieceNummer)) {
+		Quit $Piece(^KUL(..KlantNr,"F",..BonNummer,1),"\",pieceNummer)
+	}
+	
+	Quit $$$NOTOK
+]]></Implementation>
+</Method>
 </Class>