Index: vhPowerTools/APPS/VKP/OrderDoorsturenNaarWms.cls.xml
===================================================================
diff -u -r57692 -r58441
--- vhPowerTools/APPS/VKP/OrderDoorsturenNaarWms.cls.xml	(.../OrderDoorsturenNaarWms.cls.xml)	(revision 57692)
+++ vhPowerTools/APPS/VKP/OrderDoorsturenNaarWms.cls.xml	(.../OrderDoorsturenNaarWms.cls.xml)	(revision 58441)
@@ -3,28 +3,11 @@
 <Class name="vhPowerTools.APPS.VKP.OrderDoorsturenNaarWms">
 <Super>%RegisteredObject</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Do ##class(vhPowerTools.APPS.VKP.OrderDoorsturenNaarWms).StuurOrderDooNaarWms(198384)
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// Nuttig om bon te maken in ontwikkelomgeving, terwijl er nog geen voorraad is.
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// Deze code doet weliswaar nog geen omzetting naar status "leeg" (= goederen hard gereserveerd maar we mogen nog niet picken) naar "W" (= mag nu echt gepicked worden)
-
-]]></Content>
-</UDLText>
-
 <Method name="StuurOrderDooNaarWms">
+<Description>
+Do ##class(vhPowerTools.APPS.VKP.OrderDoorsturenNaarWms).StuurOrderDooNaarWms(198384)
+Nuttig om bon te maken in ontwikkelomgeving, terwijl er nog geen voorraad is.
+Deze code doet weliswaar nog geen omzetting naar status "leeg" (= goederen hard gereserveerd maar we mogen nog niet picken) naar "W" (= mag nu echt gepicked worden)</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ORDNr:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -47,6 +30,7 @@
  . Set VerzW="INT",R=^RES("KLANT","PI","VERZENDWIJZE","D",VerzW),DOutTime=$P(R,"`",4),VerzZ=$P(R,"`",6)
  . Set CONSNr=$$GETNUM^FLOW("KUL","KU1") ; Tijdelijk
  . Do BLDCONS^EWORDS2(KLNr,$NA(^HULP($J,KLNr,"M")),CONSNr,"INT",$H+1,+$H_","_DOutTime,VerzZ,LevAdr)
+ . Write !, "Voor order '" _ ORDNr _ "' is consolidatie/pickingopdracht '" _ CONSNr _ "' gemaakt.", !
  . Kill ^HULP($J)
  Quit
 ]]></Implementation>