Index: CHUI/MAG/Inventaris/LijstNietPickbareLocaties.cls.xml
===================================================================
diff -u -r2359 -r2373
--- CHUI/MAG/Inventaris/LijstNietPickbareLocaties.cls.xml	(.../LijstNietPickbareLocaties.cls.xml)	(revision 2359)
+++ CHUI/MAG/Inventaris/LijstNietPickbareLocaties.cls.xml	(.../LijstNietPickbareLocaties.cls.xml)	(revision 2373)
@@ -31,27 +31,32 @@
 	If Input="-" Set Tijdstip="-"
 	Else  Set Tijdstip=##class(TECH.DateTime).HorologToTimeStamp(Date_","_Time)
 	
-	Do ..ToonLijst(Tijdstip)
+	if Tijdstip'="-" {
+		; (RV-JCL) Do SplashScreen ophalen gegevens of de I'm thinking gebruiken
+		Do ..ToonLijst(Tijdstip)
+
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="ToonLijst">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BijladenTotTimeStamp:%TimeStamp</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	Set InventarisService = ##class(APPS.MAG.InventarisService).%New()
 	Set Document = ##class(TECH.Print.Kolommen.Document).%New("APPS.MAG.Inventaris.BijladenProductLijst","Bij te laden producten","Tot "_BijladenTotTimeStamp)
 	
 	Set BijladenProducutenInfo = InventarisService.GeefBijTeLadenProducten(BijladenTotTimeStamp)
 	Set BijladenProductInfoIt = ##class(TECH.ListIterator).%New(BijladenProducutenInfo)
-	While BijladenProductInfoIt.HasNext(){
+	While BijladenProductInfoIt.HasNext(){ 
 		Set BijladenProductInfo = BijladenProductInfoIt.Next()
 		
-		Set VroegsteDueOutView = ##class(TECH.StringUtils).Replace($zdt($ZDATETIMEH(BijladenProductInfo.VroegsteDueOut,7),4),"/2011","")
+		; "(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)
 		/// ProductLijn toevoegen
-			Set Lijn = BijladenProductInfo.ProductData.Code
+			Set Lijn = BijladenProductInfo.ProductData.Code      ;(RV-JCL) set $P(Lijn,$$$Delim,1)=Waarde
 						_"\"_BijladenProductInfo.ProductData.IdentNr
 						_"\"_VroegsteDueOutView
 						_"\"_BijladenProductInfo.AantalTePicken
@@ -68,7 +73,7 @@
 		/// Niet pickbare locaties toevoegen
 			Set Teller = 1
 			Set NietPickbareIt = ##class(TECH.ListIterator).%New(BijladenProductInfo.NietPickbareLocaties)
-			While (NietPickbareIt.HasNext() && (Teller <= 2)) 
+			While (NietPickbareIt.HasNext() && (Teller <= 2)) ;(RV-JCL) NietPickare locaties tonen tot wanneer er genoeg is..
 			{
 				Set Teller = Teller + 1
 				Set NietPickbareLocatie = NietPickbareIt.Next()