Index: EWMS/Locations.cls.xml
===================================================================
diff -u -r5651 -r7404
--- EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 5651)
+++ EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 7404)
@@ -6,6 +6,7 @@
 <SqlTableName>Locations</SqlTableName>
 <StorageStrategy>GSQLStorage</StorageStrategy>
 <Super>%Library.Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="CONNECTION">
 <Default>EWMS SQL,NOCREATE</Default>
@@ -420,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) Do
+ . 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
@@ -596,7 +597,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Msg = ""
-	If (LocatieID '= "04020101"){
+	If (LocatieID '= "04020101") || (LocatieID '= "04090101") {
 		If '##class(EWMS.TransLoc).CheckLocTrans(LocatieID){
 			Set Msg = "De locatie '"_LocatieID_"' heeft geen correct formaat."	
 		}Else{