Index: PRBS.mac.rou =================================================================== diff -u -r69654 -r70339 --- PRBS.mac.rou (.../PRBS.mac.rou) (revision 69654) +++ PRBS.mac.rou (.../PRBS.mac.rou) (revision 70339) @@ -1261,7 +1261,7 @@ IsAntiSlipMat(PRNr) { Set KortTekst=$$$PRGet($$$KortTekst) - Quit ($E(KortTekst,1,5)="OL.AR") || ($E(KortTekst,1,5)="OL.AO") || ($E(KortTekst,1,5)="OL.AY") || ($E(KortTekst,1,5)="ON.AO") || ($E(KortTekst,1,5)="ON.AY") || ($E(KortTekst,1,5)="ON.AC") || ($E(KortTekst,1,5)="ON.AZ") || ($E(KortTekst,1,5)="ON.AB") || ($E(KortTekst,1,5)="ON.AQ") || ($E(KortTekst,1,5)="ON.AE") || ($E(KortTekst,1,5)="ON.AF") || ($E(KortTekst,1,5)="ON.AP") || ($E(KortTekst,1,5)="ON.AK") || ($E(KortTekst,1,5)="OL.AC") || ($E(KortTekst,1,5)="OL.AZ") || ($E(KortTekst,1,5)="OL.AB") || ($E(KortTekst,1,5)="OL.AQ") || ($E(KortTekst,1,5)="OL.AE") || ($E(KortTekst,1,5)="OL.AF") || ($E(KortTekst,1,5)="OL.AP") || ($E(KortTekst,1,5)="OL.AK") || ($E(KortTekst,1,5)="OL.MA") || ($E(KortTekst,1,5)="OL.MB") || ($E(KortTekst,1,5)="OL.MC") || ($E(KortTekst,1,5)="OL.MD") || ($E(KortTekst,1,5)="OL.ME") + Quit ##class(BL.Legacy.PRBS).IsAntiSlipMat(KortTekst) // N.B. Afspraak met Ang�lique is dat we deze lange conditie vervangen door controle dat het product - volgens de kenmerken - als antislipmat is aangeduid, eens zij de kenmerken in orde heeft gezet. }