Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r482 -r486
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 482)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 486)
@@ -111,13 +111,25 @@
 Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(4645)  write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNr:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set lbOrderIDs=$$ListIDsExecDynQuery^vhLib.Query("SELECT ID FROM WS_TBX.OrderAbstract WHERE (KLNummer=?)",$LB(KlantNr))
 	Quit ##class(TECH.ListUtils).ListbuildToList(lbOrderIDs)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRecentOrderIDVanKlant">
+<Description>
+Set OrderID=##class(APPS.TBXWeb.Utils).GeefRecentOrderIDVanKlant(4645)  write OrderID,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set lbOrderIDs=$$ListIDsExecDynQuery^vhLib.Query("SELECT TOP 1 ID FROM WS_TBX.OrderAbstract WHERE (KLNummer=?) ORDER BY ID DESC",$LB(KlantNr))
+	Quit $LG(lbOrderIDs,1)
+]]></Implementation>
+</Method>
+
 <Method name="OrdersOmzettenNaarAndereKlant">
 <Description>
 Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlant(OudeKlantNr,WSOrderIDvanAndereKlant) </Description>