Index: EWORDST.mac.rou =================================================================== diff -u -r56523 -r63468 --- EWORDST.mac.rou (.../EWORDST.mac.rou) (revision 56523) +++ EWORDST.mac.rou (.../EWORDST.mac.rou) (revision 63468) @@ -904,7 +904,7 @@ ..If WMSStat="W" Quit:'$$WMSACTIV^EWRECS() ..Quit:sFL(1)=OldRec ; Niets veranderd ..Set ^ORDW("D",CONSNr)=sFL(1) - ..Do ##class(vhLib.Logger).%New("EWORDST").Debug("CONSNr : " _CONSNr,"Set ^ORDW(""D""," _CONSNr _") = " _^ORDW("D",CONSNr)) + ..Do ##class(vhLib.Logger).%New("EWORDST").Debug("Setting CONSNr","CONSNr : " _CONSNr_" Set ^ORDW(""D""," _CONSNr _") = " _^ORDW("D",CONSNr)) ..;Quit:WMSStat'="W" ; Reeds doorgestuurd - gewijzigd PV 4/06/2006, ..For SoftV="E",1:1:3 Do:$P($G(^ORDW("D",CONSNr,"S",SoftV)),D,1)="W" ; allen waaraan nog niet begonnen is ...Do VERZZEND(CONSNr,SoftV,sFL(1)) Index: FLOWORD2.mac.rou =================================================================== diff -u -r55931 -r63468 --- FLOWORD2.mac.rou (.../FLOWORD2.mac.rou) (revision 55931) +++ FLOWORD2.mac.rou (.../FLOWORD2.mac.rou) (revision 63468) @@ -370,7 +370,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 ORD " _KLNr _" " _ORDNr _" " _OLNr, "SET WNODE ORD " _KLNr _" " _ORDNr _" " _OLNr _" - Index " _Index _" - PRNr " _PRNr _" - Data " _Data) + Do ##class(vhLib.Logger).%New().Debug("SETTING WNODE", "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) 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)