Index: PRSTOCK.mac.rou
===================================================================
diff -u -r29059 -r52025
--- PRSTOCK.mac.rou	(.../PRSTOCK.mac.rou)	(revision 29059)
+++ PRSTOCK.mac.rou	(.../PRSTOCK.mac.rou)	(revision 52025)
@@ -174,7 +174,7 @@
  ;StockType = F : Fysstock (Magazijn), W = Werkvloer
  ;Aktie = "O" Overdracht, D = Beschadigd Intern, L= Beschadiging Leverancier, B = Beginstock, default = Manuele aanpassing
  ;PRNr = Product
- ;Aantal = Nieuw stocknivo
+ ;Aantal = Wijziging (Delta)
  ;Ref = tekst
 STORE(StockTyp,Aktie,PRNr,Aantal,Ref) 
  New R,RTemp,LijstPr,CiffPPL,OpslZone,PR
Index: AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u -r50353 -r52025
--- AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50353)
+++ AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 52025)
@@ -181,7 +181,7 @@
 	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
 	Set pxLijn.Munt=$P(OLRec,"\",22)
 	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
-	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
+	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",9) ; was voorheen piece 16 (PV dd 12/06/18)
 	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
 	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
 	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml
===================================================================
diff -u -r50244 -r52025
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(.../ArdisOptimalisatie.cls.xml)	(revision 50244)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(.../ArdisOptimalisatie.cls.xml)	(revision 52025)
@@ -55,7 +55,7 @@
 	{
 		Set rs=it.Next()
 		Set ..MachineTijdstip=$P(rs.Data("Inserted"),".") ; geen milliseconde
-		
+		Continue:..MachineTijdstip=""
 		Continue:$$DIFFTIME^vhLib.DataTypes(..StartTijdstip,$ZDTH(..MachineTijdstip,3,,6))'>0 
 		
 		#dim Barcode as %String=$ZSTRIP(rs.Data("VerwerkingID"),">W")
Index: AX/Uitgaand/VKP/KlantContact/impl/TelefoonImportTAPI.cls.xml
===================================================================
diff -u -r50378 -r52025
--- AX/Uitgaand/VKP/KlantContact/impl/TelefoonImportTAPI.cls.xml	(.../TelefoonImportTAPI.cls.xml)	(revision 50378)
+++ AX/Uitgaand/VKP/KlantContact/impl/TelefoonImportTAPI.cls.xml	(.../TelefoonImportTAPI.cls.xml)	(revision 52025)
@@ -74,19 +74,22 @@
 <Method name="VerwijderCRM">
 <Implementation><![CDATA[
 	Set TelNr=$O(^TAPI("T",""))
-	
+	Set Cnt=0
 	While TelNr'=""
 	{
+		Set:$D(^TAPI("T",TelNr,"CRM")) Cnt=Cnt+1
 		Kill ^TAPI("T",TelNr,"CRM")
 		
 		Set TelNr=$O(^TAPI("T",TelNr))
 		}
+	Write "Aantal verwijderd ", Cnt,!
 ]]></Implementation>
 </Method>
 
 <Method name="ToevoegenCRM">
 <Implementation><![CDATA[
 	Set KlantNr=$O(^||TAPICache(""))
+	Set Cnt=0
 	While KlantNr'=""
 	{
 		Set TelNr=$O(^||TAPICache(KlantNr,""))
@@ -96,18 +99,21 @@
 			While Nivo'=""
 			{
 				Set lbCache=^||TAPICache(KlantNr,TelNr,Nivo)
-				If '$D(^TAPI("T",TelNr,"K",KlantNr))
+				If $D(^TAPI("T",TelNr,"K",KlantNr))
 				{
-					Set TAPINivo=$S(Nivo=1:"*",1:Nivo)
-					Set ^TAPI("T",TelNr,"CRM",KlantNr,TAPINivo)=$LB($LI(lbCache,4),$LI(lbCache,5))
+					Kill ^TAPI("T",TelNr,"K",KlantNr)
 				}
-			 
+				Set TAPINivo=$S(Nivo=1:"*",1:Nivo)
+				Set ^TAPI("T",TelNr,"CRM",KlantNr,TAPINivo)=$LB($LI(lbCache,4),$LI(lbCache,5))
+				Set Cnt=Cnt+1
+				
 				Set Nivo=$O(^||TAPICache(KlantNr,TelNr,Nivo))
 			}
 			Set TelNr=$O(^||TAPICache(KlantNr,TelNr))
 		}
 		Set KlantNr=$O(^||TAPICache(KlantNr))
 	}
+	Write "Aantal toegevoegd ", Cnt,!
 ]]></Implementation>
 </Method>
 
Index: DW/StockWaarde.cls.xml
===================================================================
diff -u -r47231 -r52025
--- DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 47231)
+++ DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 52025)
@@ -549,8 +549,9 @@
 	Set LEVNr=$$$PRGet($$$LeveranciersNr)
 	If LEVNr=$$$LevMeyvaert Do
 	. Set PPL=$$$PRGet($$$PPLMTL)
+	. Set GO=$S($$$PRGet($$$GrootteOrdeAankoop)="M":1000,$$$PRGet($$$GrootteOrdeAankoop)="H":100,1:1)
 	. Set CifPct=.03 ;3% cif
-	. Set CifPPL=PPL*(1+CifPct)
+	. Set CifPPL=PPL/GO*(1+CifPct)
 	Else  Do
 	. Set CifPPL=$$$PRGet($$$CifPPLEUR)
 	Quit CifPPL
Index: WS/TAPI/Router.cls.xml
===================================================================
diff -u -r50378 -r52025
--- WS/TAPI/Router.cls.xml	(.../Router.cls.xml)	(revision 50378)
+++ WS/TAPI/Router.cls.xml	(.../Router.cls.xml)	(revision 52025)
@@ -172,7 +172,7 @@
 	. Set (ObjType,ObjRef,PersRef)=""
 	. For  Set ObjType=$O(^TAPI("T",CLIP,ObjType)) Quit:ObjType=""  Do
 	. . Set Value1=$S(ObjType="L":3000,ObjType="CRM":1000,1:2000)
-	. . For  Set ObjRef=$O(^TAPI("T",CLIP,ObjType,ObjRef)) Quit:ObjRef=""  Do
+	. . For  Set ObjRef=$O(^TAPI("T",CLIP,ObjType,ObjRef),-1) Quit:ObjRef=""  Do
 	. . . For  Set PersRef=$O(^TAPI("T",CLIP,ObjType,ObjRef,PersRef)) Quit:PersRef=""  Do
 	. . . . Set Sort(Value1+$S(PersRef="*":200,PersRef?1.N:100,1:300)+$I(Sort))=$LB(ObjType,ObjRef,PersRef,^TAPI("T",CLIP,ObjType,ObjRef,PersRef))
 	.