Index: cw.mac.rou
===================================================================
diff -u -r1188 -r1277
--- cw.mac.rou	(.../cw.mac.rou)	(revision 1188)
+++ cw.mac.rou	(.../cw.mac.rou)	(revision 1277)
@@ -5,25 +5,31 @@
 #Include %Prod.Product
 #Include %CHUI.System
  ;
-HeeftUitzondering(KLNr,PRNr,Niveau,SoSa)
- New HeeftUitzondering,KKey,HoofdGroep,Groep,SubGroep
- If $G(NoSa)="" Set NoSa="N"
- If NoSa'="N",NoSa'="S" Quit 0
- Set KKey=$$KKEY^KLASS(PRNr)
- Set HoofdGroep=$$GETSORT^KLASS(KKey,1)
- Set:Niveau>1 Groep=$$GETSORT^KLASS(KKey,2)
- Set:Niveau>2 SubGroep=$$GETSORT^KLASS(KKey,3)
- Set:Niveau=1 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep))
- Set:Niveau=2 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep,Groep))
- Set:Niveau=3 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep,Groep,SubGroep))
- Set:Niveau=4 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep,Groep,SubGroep,PRNr))
- Quit +$G(HeeftUitzondering)
- ;
-ok
- Set cw(1)="\Test cw"
- Do B^cAN200("KL","LVH1","",.cw)
+check
+ New Check
+ Set Check=$$^vhTXTPOP("SYSTEM","JANEEN","","Dit is een test")
+ Set Locals("K")=Check
  Quit
  ;
+CHECK(EMAdres)
+ New Check
+ Quit $S(EMAdres="-":"-",1:$$Check2ZWINT($G(UFU),.A,.B,"check^cw"))
+ ;
+Check2ZWINT(UFU,A,B,Routine)
+ New U1,U2,U7,ATemp,BTemp,Locals
+ Merge ATemp=A,BTemp=B,Locals("B")=B,Locals("UFU")=UFU
+ New A,B
+ Do E^cA612,DO^vhPROGRAM(Routine)
+ Do P^cA612(2,1,20,80,1,"","","",$S(UFU="W":"Wijzigen",1:"Openen")_" klanten",$S($ZV["MSM":0,1:1),0,7,1,1)
+ r "?",r
+ Merge A=ATemp,B=BTemp
+ r "?",r
+ Do S1^cAN202
+ zw Locals
+ r !,"?",r
+ Quit 1
+ Quit $G(Locals("K"))
+ ;
 DP2(KLNr)
  New VerzendWijze,LandCode,PostCode,blVerzendWijze,blLeveringsTermijn
  Set VerzendWijze=$$DEFAULT^KLVERZW(,KLNr)