Index: vhPowerTools/APPS/VKP/OrderDoorsturenNaarWms.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/VKP/OrderDoorsturenNaarWms.cls.xml	(revision 0)
+++ vhPowerTools/APPS/VKP/OrderDoorsturenNaarWms.cls.xml	(revision 57692)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ORDNr:%String</FormalSpec>
+<Implementation><![CDATA[
+ Set D="\"
+ Set KLNr = $Piece(^KO1(ORDNr,"F"),"\",1)
+ 
+	 // N.B. Code is gekopieerd van CW.CVH10
+ Write !,$J(KLNr,5),?10,$P(^KKL(^KK1(KLNr),0),D,2)
+ Kill ^HULP($J)
+ Set LevAdr=""
+ Set Rec=^KOD(KLNr,"F",ORDNr,1)
+ Set OLNr=100
+ For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
+ . Set Rec=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(Rec,D,2)
+ . Quit:'PRNr
+ . Set Aantal=$P(Rec,D,3),OLUNr=$P(Rec,D,15),LevWk=$P(Rec,D,25)
+ . Set ^HULP($J,KLNr,"M","A",ORDNr,OLUNr)=Aantal_D_D_LevWk
+ If LevAdr="",$P(^KOD(KLNr,"F",ORDNr,3),D) Set LevAdr=^KOD(KLNr,"F",ORDNr,3)
+ Do:$D(^HULP($J))
+ . 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)
+ . Kill ^HULP($J)
+ Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>