Index: EWMS/Locations.cls.xml
===================================================================
diff -u -r7565 -r7918
--- EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 7565)
+++ EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 7918)
@@ -422,12 +422,14 @@
  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 LocX'=1 Do
- ...   Set Status=$LB(-3,"De waarde van LocX ("_LocX_") is niet geldig!")
- ..  Else  If LocY'=1 Do
- ...   Set Status=$LB(-4,"De waarde van LocY ("_LocY_") is niet geldig!")
+ . . If LocX'=1 Do
+ . . . Set Status=$LB(-3,"De waarde van LocX ("_LocX_") is niet geldig!")
+ . . Else  If LocY'=1 Do
+ . . . Set Status=$LB(-4,"De waarde van LocY ("_LocY_") is niet geldig!")
+ . Else  If (LocG=11)  Do
+ . . // Is wel OK 
  . Else  Do
- ..  Set Status=$LB(-2,"De waarde van LocG ("_LocG_") is niet geldig!")
+ . .  Set Status=$LB(-2,"De waarde van LocG ("_LocG_") is niet geldig!")
  Else  Do
  . ;Set Status=$LB()