Index: EWORDSW.mac.rou =================================================================== diff -u -r54713 -r56968 --- EWORDSW.mac.rou (.../EWORDSW.mac.rou) (revision 54713) +++ EWORDSW.mac.rou (.../EWORDSW.mac.rou) (revision 56968) @@ -155,9 +155,8 @@ Quit:'$D(^KOD($$$KlantSFS,"F",ORDNr)) 0 Set oOrder=##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr) Quit:'$isObject(oOrder) 0 - Set AlpnachOud = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS()) Set Alpnach = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS()) - Quit ((oOrder.GeefDocumentReferenties().CommissieReferentie["/"_AlpnachOud_"/")||(oOrder.GeefDocumentReferenties().CommissieReferentie["/"_Alpnach_"/")) + Quit (oOrder.GeefDocumentReferenties().CommissieReferentie["/"_Alpnach_"/") BepaalSubMagazijnen(CONSNr) New ORDNr,OLUNr,SOLNr,Magazijnen,SOLRec,SoftV