Index: MRPRES.mac.rou =================================================================== diff -u -r69296 -r69301 --- MRPRES.mac.rou (.../MRPRES.mac.rou) (revision 69296) +++ MRPRES.mac.rou (.../MRPRES.mac.rou) (revision 69301) @@ -149,7 +149,6 @@ . Do SplitSubMag(CRef) . Kill @CRef@("TO") . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"SPLIT")=@CRef@("STO") - . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"SPLIT TOELEV")=@CRef@("STT") . Do BLD^MRPTORD($NAME(@CRef@("STO"))) . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"ORDER")=@CRef@("STO") . Do ControleProductenNietInOrder^MRPTORD($NAME(@CRef@("STO")),$NAME(@CRef@("MISSING"))) Index: MRPTORD.mac.rou =================================================================== diff -u -r69296 -r69301 --- MRPTORD.mac.rou (.../MRPTORD.mac.rou) (revision 69296) +++ MRPTORD.mac.rou (.../MRPTORD.mac.rou) (revision 69301) @@ -1,7 +1,7 @@ MRPTORD ; Transfertorders [ 03/10/2003 5:14 PM ] Quit ; -BLD(CRef,IsPerToelev) +BLD(CRef) New R,SubMagEnToeNr,PRNr,Aantal,LevWk,Count,KLNr Set KLNr=$G(KLNr,$$GETALG^DEFAULTS("MRP","KLNR")),SubMagEnToeNr="" For Set SubMagEnToeNr=$O(@CRef@(SubMagEnToeNr)) Quit:SubMagEnToeNr="" Do ; SubMagEnToeNr kan ook de toelevering bevatten met ";" gescheiden