Index: FLOWTOER.mac.rou =================================================================== diff -u -r47788 -r47796 --- FLOWTOER.mac.rou (.../FLOWTOER.mac.rou) (revision 47788) +++ FLOWTOER.mac.rou (.../FLOWTOER.mac.rou) (revision 47796) @@ -298,6 +298,7 @@ Set ProductToeleveringLijnVerwijderdEvent = ##class(DOM.AKP.event.ProductToelevLijnVerwijderd).%New(ProductToeleveringLijnVerwijderEventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnVerwijderdEvent) } + Quit ; ; Opkuis bestanden KILL(TOENr,TLLNr) Index: EWTOE.mac.rou =================================================================== diff -u -r47781 -r47796 --- EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 47781) +++ EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 47796) @@ -172,7 +172,7 @@ Set ^KSPW(PRNr,LevTW,R)=AantWMS_D_$J(CifPPL*AantWMS,0,Decimals)_D_LevTB_D_LevTA_D_$E(LevTW,3,4)_"/"_$E(LevTW,5,6)_D_''ORDNr_D Do REMOVE^vhLock("^KSPW(PRNr)"),COPY(TOENr,TLNr,Rec,AantWMS) Do ##class(Flow.Toelevering).RecuPak(PRNr,AantWMS,TOENr,TLUNr,HistRef,.BLKLNr,.BLFactuurNr,.BLFactuurDatum) - If 'AantBo + If 'AantBo Do .Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLNr) .Do KILL(TOENr,TLNr) .Do ProductToeleveringLijnVerwijderd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57)) @@ -247,6 +247,7 @@ Set ProductToeleveringLijnVerwijderdEvent = ##class(DOM.AKP.event.ProductToelevLijnVerwijderd).%New(ProductToeleveringLijnVerwijderEventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnVerwijderdEvent) } + Quit ; Om KOM-links op niveau van een kind van het product uit het order-lijn te ondersteunen... WijzigAantalIndienKind(AantalInToelevering,PRNrUitToelevering,PRNrUitOrder)