Index: cw.mac.rou
===================================================================
diff -u -r1079 -r1134
--- cw.mac.rou	(.../cw.mac.rou)	(revision 1079)
+++ cw.mac.rou	(.../cw.mac.rou)	(revision 1134)
@@ -4,7 +4,27 @@
 #Include %occInclude
 #Include %Prod.Product
 #Include %CHUI.System
- 
+ ;
+co
+ Set KLNr=0
+ For  Set KLNr=$O(^KOD(KLNr)) Quit:'KLNr  Do
+ . Set ORDNr=""
+ . For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:'ORDNr  Do
+ . . Set OLNr=100
+ . . For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:'OLNr  Do
+ . . . Set OrdRec=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(OrdRec,D,2),Aantal=$P(OrdRec,D,3),TOENr=$P(OrdRec,D,27),TLNr=$P(OrdRec,D,28)
+ . . . Quit:'PRNr  Quit:'TOENr  Quit:'TLNr
+ . . . Set LEVNr=$P(^KTO1(TOENr),D),ToeRec=^KTO(LEVNr,TOENr,TLNr)
+ . . . ;If PRNr=$P(ToeRec,D,2),Aantal=$P(ToeRec,D,3),ORDNr=$P(ToeRec,D,27),OLNr=$P(ToeRec,D,28) Quit
+ . . . If Aantal=$P(ToeRec,D,3),ORDNr=$P(ToeRec,D,27),OLNr=$P(ToeRec,D,28) Quit
+ . . . Write !!,OrdRec,!,ToeRec
+ Quit
+ ;
+ok
+ Set cw(1)="\Test cw"
+ Do B^cAN200("KL","LVH1","",.cw)
+ Quit
+ ;
 DP2(KLNr)
  New VerzendWijze,LandCode,PostCode,blVerzendWijze,blLeveringsTermijn
  Set VerzendWijze=$$DEFAULT^KLVERZW(,KLNr)