Index: EWMS/Locations.cls.xml
===================================================================
diff -u -r5127 -r5651
--- EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 5127)
+++ EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 5651)
@@ -6,7 +6,6 @@
 <SqlTableName>Locations</SqlTableName>
 <StorageStrategy>GSQLStorage</StorageStrategy>
 <Super>%Library.Persistent</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="CONNECTION">
 <Default>EWMS SQL,NOCREATE</Default>
@@ -97,17 +96,21 @@
 
 <Method name="CreateEmpty">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LocM,LocG,LocX,LocY</FormalSpec>
+<FormalSpec>LocM:%Integer,LocG:%Integer,LocX:%Integer,LocY:%Integer,LocZ:%Integer=1,LocID:%String="00000000",IsNietBezet:%Boolean=1,InsertTime:%TimeStamp=""</FormalSpec>
 <Implementation><![CDATA[
+	if '$length(InsertTime) set InsertTime = $$GetEWMSInsertTime^vhLib()
+	
 	Set oLoc=..%New()
+	
 	Set oLoc.locm=LocM	
 	Set oLoc.locg=LocG
 	Set oLoc.locx=LocX	
 	Set oLoc.locy=LocY	
-	Set oLoc.locz=1
-	Set oLoc.state=1 ; niet bezet
-	Set oLoc.locid="00000000"
-	Set oLoc.inserttime=$$GetEWMSInsertTime^vhLib()
+	Set oLoc.locz=LocZ
+	Set oLoc.state=IsNietBezet
+	Set oLoc.locid=LocID 
+	Set oLoc.inserttime=InsertTime
+	
 	Set sc=oLoc.%Save()
 	Quit sc
 ]]></Implementation>