Index: FLOWTOE2.mac.rou
===================================================================
diff -u -r50407 -r50459
--- FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 50407)
+++ FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 50459)
@@ -205,11 +205,14 @@
  New R,Index,PRNr,Kom,Qty
  Set R=$$GWNODE(LEVNr,TLNr,TLLNr) Quit:R=""
  Set PRNr=$P(R,"`"),Index=$P(R,"`",2),Qty=$P($P(R,"`",3),D,4),Kom=$P($P(R,"`",3),D,7)
+ Do ##class(vhLib.Logger).%New().Debug("KILL WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr, "KILL WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr _"   - Index " _Index _"   - PRNr " _PRNr )
  Kill ^KPR(PRNr,Index)
  If $E($O(^KPR(PRNr,"W")))'="W" Kill ^KPR(PRNr,"W")
  ; Theoretische stock
  Set R=$P(^KPR(PRNr,0),D,17)
+ Do ##class(vhLib.Logger).%New().Debug("KILL WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Theoretische stock - " _R)
  Set $P(R,"#")=$P(R,"#")-Qty,$P(R,"#",Kom+2)=$P(R,"#",Kom+2)-Qty
+ Do ##class(vhLib.Logger).%New().Debug("KILL WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Theoretische stock - " _R)
  Set $P(^KPR(PRNr,0),D,17)=R
  Set R=^KTO(LEVNr,TLNr,TLLNr)
  Kill ^KTO3(TLNr,$P(R,D,13,14)_D_TLLNr)
@@ -227,12 +230,15 @@
  Set R=^KTO(LEVNr,TLNr,TLLNr)
  Set:'Qty Qty=$P(R,D,3)
  Set Data=Date_D_LEVNr_D_ToeRef_D_Qty_D_$P(R,D,3)_D_$P(R,D,25)_D_($P(R,D,27)'="")
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE BS TOE " _LEVNr _" " _TLNr _" " _TLLNr, "SET WNODE BS TOE " _LEVNr _" " _TLNr _" " _TLLNr _"   - Index " _Index _"   - PRNr " _PRNr _"   - Data " _Data)
  Set ^KPR(PRNr,Index)=Data,^KPR(PRNr,"W")=""
  
  ; Theoretische stock
  Set Qty=$P(R,D,3),Kom=($P(R,D,27)'="")
  Set R=$P(^KPR(PRNr,0),D,17)
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE BS TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Theoretische stock - " _R)
  Set $P(R,"#")=$P(R,"#")+Qty,$P(R,"#",Kom+2)=$P(R,"#",Kom+2)+Qty
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE BS TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Theoretische stock - " _R)
  Set $P(^KPR(PRNr,0),D,17)=R
  
  Set R=^KTO(LEVNr,TLNr,TLLNr)
@@ -251,19 +257,19 @@
  Set R=^KTO(LEVNr,TLNr,TLLNr)
  Set:'Qty Qty=$P(R,D,3)
  Set Data=Date_D_LEVNr_D_ToeRef_D_Qty_D_$P(R,D,3)_D_$P(R,D,25)_D_($P(R,D,27)'="")
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr, "SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr _"   - Index " _Index _"   - PRNr " _PRNr _"   - Data " _Data)
  Set ^KPR(PRNr,Index)=Data,^KPR(PRNr,"W")=""
  
  ; Theoretische stock
  Set Qty=$P(R,D,3),Kom=($P(R,D,27)'="")
  Set R=$P(^KPR(PRNr,0),D,17)
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Theoretische stock - " _R)
  Set $P(R,"#")=$P(R,"#")+Qty,$P(R,"#",Kom+2)=$P(R,"#",Kom+2)+Qty
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Theoretische stock - " _R)
  Set $P(^KPR(PRNr,0),D,17)=R
  
  ; Stock reservatie
- Set R=$P(^KPR(PRNr,2),D,9)
- Set $P(R,"#",2)=$P(R,"#",2)-Qty
- Set $P(R,"#",Kom+2)=$P(R,"#",Kom+2)+Qty
- Set $P(^KPR(PRNr,2),D,9)=R
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Stock reservatie - " _R)
  
  Set R=^KTO(LEVNr,TLNr,TLLNr)
  Set ^KTO3(TLNr,$P(R,D,13,14)_D_TLLNr)=""
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
Index: FLOWORD2.mac.rou
===================================================================
diff -u -r49927 -r50459
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 49927)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 50459)
@@ -354,7 +354,7 @@
  New R,Index,PRNr,Kom,Qty
  Set R=$$GWNODE(KLNr,ORDNr,OLNr) Quit:R=""
  Set PRNr=$P(R,"`"),Index=$P(R,"`",2),Qty=$P($P(R,"`",3),D),Kom=$P($P(R,"`",3),D,3)
- Do ##class(vhLib.Logger).%New().Debug("KILL WNODE " _KLNr _" " _ORDNr _" " _OLNr, "KILL WNODE " _KLNr _" " _ORDNr _" " _OLNr _"   - Index " _Index _"   - PRNr " _PRNr )
+ Do ##class(vhLib.Logger).%New().Debug("KILL WNODE ORD " _KLNr _" " _ORDNr _" " _OLNr, "KILL WNODE ORD " _KLNr _" " _ORDNr _" " _OLNr _"   - Index " _Index _"   - PRNr " _PRNr )
  Kill ^KPR(PRNr,Index)
  If $E($O(^KPR(PRNr,"W")))'="W" Kill ^KPR(PRNr,"W")
  Do MODRES(KLNr,ORDNr,OLNr,1) 
@@ -371,7 +371,7 @@
  Set R=^KOD(KLNr,"F",ORDNr,OLNr)
  Set:'Qty Qty=$P(R,D,3)
  Set Data=Qty_D_$P(R,D,25)_D_($P(R,D,27)'="")
- Do ##class(vhLib.Logger).%New().Debug("SET WNODE " _KLNr _" " _ORDNr _" " _OLNr, "SET WNODE " _KLNr _" " _ORDNr _" " _OLNr _"   - Index " _Index _"   - PRNr " _PRNr _"   - Data " _Data)
+ Do ##class(vhLib.Logger).%New().Debug("SET WNODE ORD " _KLNr _" " _ORDNr _" " _OLNr, "SET WNODE ORD " _KLNr _" " _ORDNr _" " _OLNr _"   - Index " _Index _"   - PRNr " _PRNr _"   - Data " _Data)
  Set ^KPR(PRNr,Index)=Data,^KPR(PRNr,"W")=""
  Do MODRES(KLNr,ORDNr,OLNr) 
  Do BUILDORD^FLOWORD3(KLNr,ORDNr,OLNr)
@@ -850,4 +850,3 @@
 
 
 
-