Index: vhTest/Mock/DOM/VKP/Bon.cls.xml
===================================================================
diff -u -r59361 -r59579
--- vhTest/Mock/DOM/VKP/Bon.cls.xml	(.../Bon.cls.xml)	(revision 59361)
+++ vhTest/Mock/DOM/VKP/Bon.cls.xml	(.../Bon.cls.xml)	(revision 59579)
@@ -181,6 +181,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVlag">
+<FormalSpec>pieceNummer:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVlag",pieceNummer)
+]]></Implementation>
+</Method>
+
 <Method name="IsAangebrachteBon">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("IsAangebrachteBon")
@@ -192,6 +199,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("IsRechtstreeksTeLeveren")
 ]]></Implementation>
 </Method>
+
+<Method name="ZetVlag">
+<FormalSpec>pieceNummer:%Integer,pieceWaarde:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetVlag",pieceNummer,pieceWaarde)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/Bon.cls.xml
===================================================================
diff -u -r59361 -r59579
--- DOM/VKP/Bon.cls.xml	(.../Bon.cls.xml)	(revision 59361)
+++ DOM/VKP/Bon.cls.xml	(.../Bon.cls.xml)	(revision 59579)
@@ -188,6 +188,18 @@
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="ZetVlag">
+<Abstract>1</Abstract>
+<FormalSpec>pieceNummer:%Integer,pieceWaarde:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="GeefVlag">
+<Abstract>1</Abstract>
+<FormalSpec>pieceNummer:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 
 
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>