Index: FLOWORD2.mac.rou =================================================================== diff -u -r50459 -r52868 --- FLOWORD2.mac.rou (.../FLOWORD2.mac.rou) (revision 50459) +++ FLOWORD2.mac.rou (.../FLOWORD2.mac.rou) (revision 52868) @@ -354,7 +354,6 @@ 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 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) @@ -849,4 +848,3 @@ - Index: FLOWTOE2.mac.rou =================================================================== diff -u -r50829 -r52868 --- FLOWTOE2.mac.rou (.../FLOWTOE2.mac.rou) (revision 50829) +++ FLOWTOE2.mac.rou (.../FLOWTOE2.mac.rou) (revision 52868) @@ -205,14 +205,11 @@ 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) Index: AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnenUpdater.cls.xml =================================================================== diff -u -r50805 -r52868 --- AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnenUpdater.cls.xml (.../OrderLijnenUpdater.cls.xml) (revision 50805) +++ AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnenUpdater.cls.xml (.../OrderLijnenUpdater.cls.xml) (revision 52868) @@ -136,7 +136,6 @@ #dim R,Date,Index,Data,Qty,Kom As %String = "" Set R=..GeefIndex(KLNr,ORDNr,OLNr,PRNr) Quit:R="" Set PRNr=$P(R,"`"),Index=$P(R,"`",2),Qty=$P($P(R,"`",3),"\"),Kom=$P($P(R,"`",3),"\",3) - Do ##class(vhLib.Logger).%New().Debug("KILL WNODE " _KLNr _" " _ORDNr _" " _OLNr, "KILL WNODE " _KLNr _" " _ORDNr _" " _OLNr _" - Index " _Index _" - PRNr " _PRNr ) Kill ^KPR(PRNr,Index) If $E($O(^KPR(PRNr,"W")))'="W" Kill ^KPR(PRNr,"W") Do MODRES^FLOWORD2(KLNr,ORDNr,OLNr,1) Index: PRODUKT4.mac.rou =================================================================== diff -u -r50459 -r52868 --- PRODUKT4.mac.rou (.../PRODUKT4.mac.rou) (revision 50459) +++ PRODUKT4.mac.rou (.../PRODUKT4.mac.rou) (revision 52868) @@ -294,10 +294,8 @@ 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