Index: CHUI/ToolKit.cls.xml
===================================================================
diff -u -r1952 -r2374
--- CHUI/ToolKit.cls.xml	(.../ToolKit.cls.xml)	(revision 1952)
+++ CHUI/ToolKit.cls.xml	(.../ToolKit.cls.xml)	(revision 2374)
@@ -36,6 +36,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IAmThinking">
+<Description>
+Toon een I'm thinking message</Description>
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[	S FP=160 W @F,@FMTK,"*** I'm thinking ***",@FMTk
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^CHUI.ToolKitD</DataLocation>
@@ -52,5 +61,4 @@
 </Data>
 </Storage>
 </Class>
-<Package name="CHUI" sqlname="CHUI"/>
 </Export>
Index: CHUI/MAG/Inventaris/LijstNietPickbareLocaties.cls.xml
===================================================================
diff -u -r2373 -r2374
--- CHUI/MAG/Inventaris/LijstNietPickbareLocaties.cls.xml	(.../LijstNietPickbareLocaties.cls.xml)	(revision 2373)
+++ CHUI/MAG/Inventaris/LijstNietPickbareLocaties.cls.xml	(.../LijstNietPickbareLocaties.cls.xml)	(revision 2374)
@@ -10,7 +10,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	New Date,Time,Tijdstip,Input,%INT,%EXT,%TC
-	Write @F11,@F1,@FMTI," Lijst niet pickbare locaties - ",QN," ",@FMTi
+	Write @F11,@F1,@FMTI," Bij te laden producten - ",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
@@ -32,7 +32,7 @@
 	Else  Set Tijdstip=##class(TECH.DateTime).HorologToTimeStamp(Date_","_Time)
 	
 	if Tijdstip'="-" {
-		; (RV-JCL) Do SplashScreen ophalen gegevens of de I'm thinking gebruiken
+		Do ##class(CHUI.ToolKit).IAmThinking()
 		Do ..ToonLijst(Tijdstip)
 
 	}
@@ -52,16 +52,13 @@
 	While BijladenProductInfoIt.HasNext(){ 
 		Set BijladenProductInfo = BijladenProductInfoIt.Next()
 		
-		; "(RV-JCL) ?????" --> 2011 niet hardcoded .. best een tech klasse gebruiken die datum conversie uitvoerd (waarde,JJJJMMDD,DD-MM-JJJJ)
-		Set VroegsteDueOutView = ##class(TECH.StringUtils).Replace($zdt($ZDATETIMEH(BijladenProductInfo.VroegsteDueOut,7),4),"/2011","") 
-		Set VroegsteDueOutView = $P(VroegsteDueOutView,":",1)_":"_$P(VroegsteDueOutView,":",2)
+		Set VroegsteDueOutView = ##class(TECH.DateTime).TimeStampToShortView(BijladenProductInfo.VroegsteDueOut)
 		/// ProductLijn toevoegen
-			Set Lijn = BijladenProductInfo.ProductData.Code      ;(RV-JCL) set $P(Lijn,$$$Delim,1)=Waarde
-						_"\"_BijladenProductInfo.ProductData.IdentNr
-						_"\"_VroegsteDueOutView
-						_"\"_BijladenProductInfo.AantalTePicken
-						_"\"
-			Do Document.VoegLijnToe(Lijn,"\")	
+			Do Document.GeefKolom(1).Insert(BijladenProductInfo.ProductData.Code)
+			Do Document.GeefKolom(2).Insert(BijladenProductInfo.ProductData.IdentNr)
+			Do Document.GeefKolom(3).Insert(VroegsteDueOutView)
+			Do Document.GeefKolom(4).Insert(BijladenProductInfo.AantalTePicken)
+			Do Document.GeefKolom(5).Insert("")
 			
 		/// Pickbare locaties toevoegen
 			Set PickbareIt = ##class(TECH.ListIterator).%New(BijladenProductInfo.PickbareLocaties)
@@ -73,7 +70,7 @@
 		/// Niet pickbare locaties toevoegen
 			Set Teller = 1
 			Set NietPickbareIt = ##class(TECH.ListIterator).%New(BijladenProductInfo.NietPickbareLocaties)
-			While (NietPickbareIt.HasNext() && (Teller <= 2)) ;(RV-JCL) NietPickare locaties tonen tot wanneer er genoeg is..
+			While (NietPickbareIt.HasNext() && (Teller <= 2))
 			{
 				Set Teller = Teller + 1
 				Set NietPickbareLocatie = NietPickbareIt.Next()
@@ -82,7 +79,7 @@
 	}
 	
 	/// Tonen op scherm of printen
-	Do Document.PrintDocument("Magazijn",##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm"))
+	Do Document.PrintDocument("Magazijn",1)
 ]]></Implementation>
 </Method>
 </Class>
Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r2324 -r2374
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 2324)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 2374)
@@ -265,5 +265,20 @@
 	Quit +$$CALCDATE^vhDTyp(Datum,"M","LD")
 ]]></Implementation>
 </Method>
+
+<Method name="TimeStampToShortView">
+<Description>
+TimeStamp naar DD/MM uu:mm</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[
+	Set TimeStampString = $zdt($ZDATETIMEH(TimeStamp,7),4)
+	Set Deel1 = $Piece(TimeStampString,"/",1,2)
+	Set Deel2 = $Piece(TimeStampString,"/",3)
+	Set Deel2 = $Piece(Deel2," ",2)
+	Set Deel2 = $Piece(Deel2,":",1,2)
+	Quit Deel1_" "_Deel2
+]]></Implementation>
+</Method>
 </Class>
 </Export>