Index: CHUI/MAG/UGLYPicking/LijstNietPickbareLocaties.cls.xml
===================================================================
diff -u
--- CHUI/MAG/UGLYPicking/LijstNietPickbareLocaties.cls.xml	(revision 0)
+++ CHUI/MAG/UGLYPicking/LijstNietPickbareLocaties.cls.xml	(revision 2335)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="CHUI.MAG.UGLYPicking.LijstNietPickbareLocaties">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Start">
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	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
+	Set:Time>61200 Date=$$CALCDATE^vhDTyp(Date,"A","+1"),Time=32400
+	Set Tijdstip=Date_","_Time,Input=""
+	While Input="" {
+		Set FP=1801
+		Write @F,@F1
+		Set Input=$$ASK^vhINP(" Tijdstip : ",14,$$FormatDateTime^vhLib("dd-mm-yy hh:nn",Tijdstip)," Alle producten waarvan vanaf dit tijdstip meer moet gepicked worden dan er op"," pickbare lokaties staan")
+		Quit:Input="-"
+		Set Date=$P(Input," "),Time=$P(Input," ",2)
+		Do VALDATE^vhDTyp(Date)
+		If %TC Set Date=%INT
+		Else  Set Input=""
+		Do VALTIME^vhDTyp(Time)
+		If %TC Set Time=%INT
+		Else  Set Input=""
+	}
+	If Input="-" Set Tijdstip="-"
+	Else  Set Tijdstip=##class(TECH.DateTime).HorologToTimeStamp(Date_","_Time)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 2335 refers to a dead (removed) revision in file `APPS/CHUI/MAG/UGLYPicking/LijstNietPickbareLocaties.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?