Index: APPS/CHUI/MAG/UGLYPicking/LijstNietPickbareLocaties.cls.xml
===================================================================
diff -u -r2333 -r2334
--- APPS/CHUI/MAG/UGLYPicking/LijstNietPickbareLocaties.cls.xml	(.../LijstNietPickbareLocaties.cls.xml)	(revision 2333)
+++ APPS/CHUI/MAG/UGLYPicking/LijstNietPickbareLocaties.cls.xml	(.../LijstNietPickbareLocaties.cls.xml)	(revision 2334)
@@ -5,10 +5,10 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="GeefTijdstip">
+<Method name="Start">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	;New Date,Time,Tijdstip,Input,Go,%INT,%EXT,%TC
+	New Date,Time,Tijdstip,Input,%INT,%EXT,%TC
 	Write @F11,@F1,@FMTI," Lijst niet pickbare locaties - ",QN," ",@FMTi
 	Set Tijdstip=$$CALCTIME^vhDTyp(,"H","+1"),Date=$P(Tijdstip,","),Time=$P(Tijdstip,",",2)
 	Set:Time<28800 Time=32400
@@ -28,9 +28,7 @@
 		Else  Set Input=""
 	}
 	If Input="-" Set Tijdstip="-"
-	Else  Set Tijdstip=Date_","_Time
-	Set:Tijdstip Tijdstip=##class(TECH.DateTime).HorologToTimeStamp(Tijdstip)
-	Quit Tijdstip
+	Else  Set Tijdstip=##class(TECH.DateTime).HorologToTimeStamp(Date_","_Time)
 ]]></Implementation>
 </Method>
 </Class>