Index: cwCW.mac.rou
===================================================================
diff -u -r1589 -r2750
--- cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 1589)
+++ cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 2750)
@@ -1,6 +1,39 @@
 cwCW ; Routines speciaal Chris Willems
  Quit
  
+o
+ k Omschr
+ Set Omschr(1)=##Class(Prod.ProductTekst).GetOmschrijvingViaPRNr(673194,,", ",1)
+ w !! zw Omschr w !!!
+ Do GETWRAP^vhBIGEDIT("Omschr",27,.Omschr,"G","~","")
+ Set Omschr=$P($G(Omschr(1)),"`",5)
+ w !,Omschr
+ For i=2,3 Do
+ . Set Omschr=$P($G(Omschr(i)),"`",5)
+ . Quit:Omschr=""
+ . w !,Omschr
+ q
+ 
+ 
+Test1
+ Set Q="K" Do ^cA604,INIT^vhTERMINA
+ Set QU(1)=$$USERID^vhUSER()
+ Do RAADPL^PRODUKT(3510,"V")
+ Quit
+ 
+Test2
+ Set Q="K" Do ^cA604,INIT^vhTERMINA
+ Set QU(1)=$$USERID^vhUSER()
+ Do RAADPL^KLANT(15605,"V")
+ Quit
+ 
+RebuildKU1
+	Set KLNr=0
+	For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do
+	. Set BONNr=""
+	. For  Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr=""  Set ^KU1(BONNr,"F")=KLNr_D
+	Quit
+	
 ConvertR10temR18
  ;Write !,"ConvertR10temR18^cwCW activeren a.u.b.",! Quit
  Read "Concersie doorvoeren?",!,"Go[] = Go",!,Go