Index: WS/TBX/TestMail.cls.xml
===================================================================
diff -u -r457 -r500
--- WS/TBX/TestMail.cls.xml	(.../TestMail.cls.xml)	(revision 457)
+++ WS/TBX/TestMail.cls.xml	(.../TestMail.cls.xml)	(revision 500)
@@ -47,6 +47,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToekennenOfferteAanvraag">
+<Description>
+OfferteAanvraag omzetten naar offerte voor klant. </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WsOrderID:%String,KlantNummerToeTeKennen:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set ReturnMessage=""
+	
+	;Do IOToStream^vhLib(.stream,$LB("CLASSM", ..%ClassName(1),"OnPage"))
+	Set WSOrd=##class(WS.TBX.Order).AssignKlantToOFFAV(WsOrderID,KlantNummerToeTeKennen)
+	If '$IsObject(WSOrd) {
+		Set ReturnMessage="TBX-order met ID "_WsOrderID_" bestaat niet."
+	}
+	Else {
+		Set ReturnMessage="TBX-order met ID "_WsOrderID_" : Nieuwe waarde voor BonType="_WSOrd.BonType_"   KlantNr="_WSOrd.KLNummer
+	}
+	Quit ReturnMessage
+]]></Implementation>
+</Method>
+
 <Method name="ZetKlantOptieProBOX">
 <Description>
 Instellen van de Optie ProBOX voor klant. </Description>