Index: EWMS/Locations.cls.xml
===================================================================
diff -u -r7918 -r8425
--- EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 7918)
+++ EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 8425)
@@ -421,7 +421,7 @@
  Set LocX=+$LI(lbLocation,3)
  Set LocY=+$LI(lbLocation,4)
  If ##class(Prod.Product).GetMagViaOpslagzone(LocM)="TRANS" Do    ;enkel 04010101 of 04020101
- . If (LocG=1) || (LocG=2) || (LocG=9) Do
+ . If (LocG=1) || (LocG=2) || (LocG=9) || (LocG=4) Do
  . . If LocX'=1 Do
  . . . Set Status=$LB(-3,"De waarde van LocX ("_LocX_") is niet geldig!")
  . . Else  If LocY'=1 Do