Index: FLOWTOE2.mac.rou =================================================================== diff -u -r52868 -r63468 --- FLOWTOE2.mac.rou (.../FLOWTOE2.mac.rou) (revision 52868) +++ FLOWTOE2.mac.rou (.../FLOWTOE2.mac.rou) (revision 63468) @@ -227,15 +227,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) + Do ##class(vhLib.Logger).%New().Debug("Setting WNODE BS TOE","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) + Do ##class(vhLib.Logger).%New().Debug("Setting WNODE BS TOE","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) + Do ##class(vhLib.Logger).%New().Debug("Setting WNODE BS TOE","SET WNODE BS TOE " _LEVNr _" " _TLNr _" " _TLLNr_" Theoretische stock - " _R) Set $P(^KPR(PRNr,0),D,17)=R Set R=^KTO(LEVNr,TLNr,TLLNr) @@ -254,23 +254,23 @@ 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) + Do ##class(vhLib.Logger).%New().Debug("Setting WNODE BS TOE","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 TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Theoretische stock - " _R) + Do ##class(vhLib.Logger).%New().Debug("Setting WNODE TOE","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) + Do ##class(vhLib.Logger).%New().Debug("Setting WNODE TOE","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) - Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Stock reservatie - " _R) + Do ##class(vhLib.Logger).%New().Debug("Setting WNODE TOE","SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr_" Stock reservatie - " _R) Set $P(R,"#",3)=$P(R,"#",3)+$P(R,"#",2) Set $P(R,"#",2)=0 - Do ##class(vhLib.Logger).%New().Debug("SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr,"Stock reservatie - " _R) + Do ##class(vhLib.Logger).%New().Debug("Setting WNODE TOE","SET WNODE TOE " _LEVNr _" " _TLNr _" " _TLLNr_" Stock reservatie - " _R) Set $P(^KPR(PRNr,2),D,9)=R Set R=^KTO(LEVNr,TLNr,TLLNr)