Index: PRODUKT4.mac.rou
===================================================================
diff -u -r49351 -r50459
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 49351)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 50459)
@@ -294,8 +294,10 @@
  New Reserv
  Quit:"\S\K\"'[(D_Type_D)
  Set Reserv=$P(^KPR(PRNr,2),D,9)
+ Do ##class(vhLib.Logger).%New().Debug("MODRES PROD " _PRNr , "MODRES " _PRNr _" - Data " _Reserv)
  Set $P(Reserv,"#",$S(Type="S":2,1:3))=$S($G(Absoluut):Aantal,1:$P(Reserv,"#",$S(Type="S":2,1:3))+Aantal)
  Set $P(Reserv,"#")=$P(Reserv,"#",2)+$P(Reserv,"#",3),$P(^KPR(PRNr,2),D,9)=Reserv
+ Do ##class(vhLib.Logger).%New().Debug("MODRES PROD " _PRNr , "MODRES " _PRNr _" - Data " _Reserv)
  Quit
  ;
 ADDRES(PRNr,Qty) ; WMS-reservatie update in het productenbestand