Index: HADTBXPrep.mac.rou =================================================================== diff -u -r58149 -r58514 --- HADTBXPrep.mac.rou (.../HADTBXPrep.mac.rou) (revision 58149) +++ HADTBXPrep.mac.rou (.../HADTBXPrep.mac.rou) (revision 58514) @@ -222,7 +222,7 @@ . Set BSKey="" . For Set BSKey=$O(PRBS(BSKey)) Quit:BSKey="" Do . . Quit:(BSKey?1(1"PRASMSTRK.001",1"PRASM.001",1"PRASMROL.001",1"PRTUSASMROL.001",1"PRASMROLSPLI.001",1"PRASMROLSPRE.001")) ; Matten niet in lijst opnemen - . . Quit:(BSKey="PRTOBSTG.001") + . . Quit:(BSKey?1(1"PRTOBSTG.001",1"PRTOBSTGSTD.001")) ; TOB Stangen niet in lijst opnemen . . Set BSRec=PRBS(BSKey) . . Set FabrPrep2=$P(BSRec,D,19) . . Set:isBulk&&(FabrPrep2="LOS") FabrPrep2="BULK"